[parte 2°]Vi piace come ho cambiato il mio Wizzoz Xp?

[PinHead]

Originariamente inviato da Liquifex
scusa èinhead se ti rompo le balle!!

ma mi poace molto la finestra del meteo!!

senti un po ma come si fa???

mi portesti mandare lo script?? dove lo prendo il codice su weather.com??

grazie 1000

Devi scaricare la versione free di DesktopX a questo indirizzo:

http://www.stardock.com/products/desktopx/downloads.asp

Una volta installato devi andare qui:

http://www.wincustomize.com/skins.as...=3&SkinID=2823

scaricare DTweatherJW e inserirlo nella cartella Objects.

Fatto tutto devi aprire DesktopX e caricare l'oggetto. A questo punto devi modificare lo script, ma qui se vuoi posso mandartelo io già modificato e solo da inserire (sei di Genova, giusto?).

[Liquifex]

no sono di LAtina
ma come codice metti ITAXX0067!!

grazie per l'aiuto!!!

[PinHead]

Originariamente inviato da Liquifex
no sono di LAtina
ma come codice metti ITAXX0067!!

grazie per l'aiuto!!!

Ah, già scusa, mi ero confuso con Liquid...

[Liquifex]

[PinHead]

Originariamente inviato da PinHead
Ah, già scusa, mi ero confuso con Liquid...

Arghh!! Volevo dire Limit....vabbè, oggi sono un po fuso....

[Liquifex]

Olaaaa PinHead me lo mandi sto script ?????

[PinHead]

Originariamente inviato da Liquifex
Olaaaa PinHead me lo mandi sto script ?????

'Called when the script is executed
Sub Object_OnScriptEnter
'Object.PersistStorage("zipchange") = False
Object.PersistStorage("default") = "ITXX0067"
If Object.PersistStorage("ITXX0067") = "" Then
z = InputBox("Please Enter a Zip Code: " &vbNewLine, "Select Zip Code...", Object.PersistStorage("default"))
Object.PersistStorage("ITXX0067") = z
Object.PersistStorage("zipchange") = True
If (ValidateInput(Object.PersistStorage("ITXX0067")) = False) Then
Script.MsgBox "Incorrect Zip Code Entered. Try Again."
Object.PersistStorage("ITXX0067") = Object.PersistStorage("default")
End If
End If
Object.SetTimer 3660, 600000
Object.SetTimer 3661, 6500
Object_OnTimer3660
End Sub


Sub Object_OnTimer3660
ParseWeather(GetWeatherInfo(Object.PersistStorage("ITXX0067")))
DisplayWeather
End Sub

Sub Object_OnTimer3661
DisplayWeather
End Sub


Sub Object_OnStateChange(state)
If state = "Command executed" Then
z = InputBox("Please Enter a Zip Code: " &vbNewLine, "Select Zip Code...", Object.PersistStorage("ITXX0067"))
Object.PersistStorage("ITXX0067") = z
Object.PersistStorage("zipchange") = True
If (ValidateInput(Object.PersistStorage("ITXX0067")) = False) Then
Script.MsgBox "Incorrect Zip Code Entered. Try Again."
Object.PersistStorage("ITXX0067") = Object.PersistStorage("default")
End If
Object_OnTimer3660
End If
End Sub


Sub DisplayWeather
'Display Current Conditions
DesktopX.Object("obst").Text = Object.PersistStorage("obst")
DesktopX.Object("lsup").Text = Object.PersistStorage("lsup")
DesktopX.Object("icon_cc").State = Object.PersistStorage("icon_cc")
DesktopX.Object("tmp").Text = Object.PersistStorage("tmp") & "°" & Object.PersistStorage("ut")
DesktopX.Object("dewp").Text = Object.PersistStorage("dewp") & "°" & Object.PersistStorage("ut")
DesktopX.Object("cond").Text = Object.PersistStorage("cond")
'Display Current Scroll
Select Case Object.PersistStorage("showing")
Case "sunr"
DesktopX.Object("cc_scroll").Text = "Sunrise: " & Object.PersistStorage("sun_r")
Object.PersistStorage("showing") = "suns"
Case "suns"
DesktopX.Object("cc_scroll").Text = "Sunset: " & Object.PersistStorage("sun_s")
Object.PersistStorage("showing") = "heati"
Case "heati"
DesktopX.Object("cc_scroll").Text = "Feels like: " & Object.PersistStorage("index") & "°" & Object.PersistStorage("ut")
Object.PersistStorage("showing") = "bar"
Case "bar"
DesktopX.Object("cc_scroll").Text = "Barometer: " & Object.PersistStorage("bar_r") & Object.PersistStorage("up")& " and " & Object.PersistStorage("bar_d")
Object.PersistStorage("showing") = "hmid"
Case "hmid"
DesktopX.Object("cc_scroll").Text = "Humidity: " & Object.PersistStorage("hmid") & " %"
Object.PersistStorage("showing") = "wind"
Case "wind"
DesktopX.Object("cc_scroll").Text = "Wind speed: " & Object.PersistStorage("wind_s") & " " & Object.PersistStorage("us")
Object.PersistStorage("showing") = "vis"
Case "vis"
DesktopX.Object("cc_scroll").Text = "Visibility: " & Object.PersistStorage("vis") & " " & Object.PersistStorage("ud")
Object.PersistStorage("showing") = "uv"
Case "uv"
DesktopX.Object("cc_scroll").Text = "UV Index: " & Object.PersistStorage("uv")
Object.PersistStorage("showing") = "sunr"
Case Else
DesktopX.Object("cc_scroll").Text = "Feels like: " & Object.PersistStorage("index") & "°" & Object.PersistStorage("ut")
Object.PersistStorage("showing") = "sunr"
End Select
'Display Extended Forcast
DesktopX.Object("wind_t").State = Object.PersistStorage("wind_t")
For i = 0 To 4
If i = 0 Then
DesktopX.Object("day_" & i).Text = Object.PersistStorage("day_" & i)
DesktopX.Object("date_" & i).Text = Object.PersistStorage("date_" & i)
If (DatePart("h", Now) <= 12) Then
DesktopX.Object("hi_low_" & i).Text = Object.PersistStorage("hi_" & i) & "/" & Object.PersistStorage("low_" & i)
Else
DesktopX.Object("hi_low_" & i).Text = Object.PersistStorage("low_" & i)
End If
DesktopX.Object("icon_" & i).State = Object.PersistStorage("icon_" & i)
Else
DesktopX.Object("day_" & i).Text = Object.PersistStorage("day_" & i)
DesktopX.Object("date_" & i).Text = Object.PersistStorage("date_" & i)
DesktopX.Object("hi_low_" & i).Text = Object.PersistStorage("hi_" & i) & "/" & Object.PersistStorage("low_" & i)
DesktopX.Object("icon_" & i).State = Object.PersistStorage("icon_" & i)
End If
Next
End Sub



Function ParseWeather(inweather)
Set weatherDoc = CreateObject("Msxml2.DOMDocument")
weatherDoc.async = False
weatherDoc.resolveExternals = False
weatherDoc.loadXML(inweather)
'Get Units
Object.PersistStorage("ut") = weatherDoc.documentElement.selectSingleNode("/weather/head/ut").Text
Object.PersistStorage("ud") = weatherDoc.documentElement.selectSingleNode("/weather/head/ud").Text
Object.PersistStorage("up") = weatherDoc.documentElement.selectSingleNode("/weather/head/up").Text
Object.PersistStorage("us") = weatherDoc.documentElement.selectSingleNode("/weather/head/us").Text
Object.PersistStorage("ur") = weatherDoc.documentElement.selectSingleNode("/weather/head/ur").Text
'Get Current Conditions
Object.PersistStorage("obst") = weatherDoc.documentElement.selectSingleNode("/weather/cc/obst").Text
Object.PersistStorage("lsup") = weatherDoc.documentElement.selectSingleNode("/weather/cc/lsup").Text
Object.PersistStorage("icon_cc") = iconName(weatherDoc.documentElement.selectSingleNode("/weather/cc/icon").Text)
Object.PersistStorage("tmp") = weatherDoc.documentElement.selectSingleNode("/weather/cc/tmp").Text
Object.PersistStorage("dewp") = weatherDoc.documentElement.selectSingleNode("/weather/cc/dewp").Text
Object.PersistStorage("cond") = weatherDoc.documentElement.selectSingleNode("/weather/cc/t").Text
'Current for Scroll
Object.PersistStorage("index") = weatherDoc.documentElement.selectSingleNode("/weather/cc/flik").Text
Object.PersistStorage("wind_s") = weatherDoc.documentElement.selectSingleNode("/weather/cc/wind/s").Text
Object.PersistStorage("bar_r") = weatherDoc.documentElement.selectSingleNode("/weather/cc/bar/r").Text
Object.PersistStorage("bar_d") = weatherDoc.documentElement.selectSingleNode("/weather/cc/bar/d").Text
Object.PersistStorage("hmid") = weatherDoc.documentElement.selectSingleNode("/weather/cc/hmid").Text
Object.PersistStorage("vis") = weatherDoc.documentElement.selectSingleNode("/weather/cc/vis").Text
Object.PersistStorage("uv") = weatherDoc.documentElement.selectSingleNode("/weather/cc/uv/i").Text & " (" & weatherDoc.documentElement.selectSingleNode("/weather/cc/uv/t").Text & ")"
'Get Extended Forcast
Object.PersistStorage("wind_t") = weatherDoc.documentElement.selectSingleNode("/weather/cc/wind/t").Text
For i = 0 To 4
If i = 0 Then
If (DatePart("h", Now) <= 12) Then
Object.PersistStorage("day_" & i) = "Today"
Object.PersistStorage("date_" & i) = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']").attributes.getNamedItem("dt").Text
Object.PersistStorage("hi_" & i) = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/hi").Text
Object.PersistStorage("low_" & i) = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/low").Text
Object.PersistStorage("icon_" & i) = iconName(weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/part[@p='d']/icon").Text)
Object.PersistStorage("sun_r") = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/sunr").Text
Object.PersistStorage("sun_s") = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/suns").Text
Else
Object.PersistStorage("day_" & i) = "Tonight"
Object.PersistStorage("date_" & i) = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']").attributes.getNamedItem("dt").Text
Object.PersistStorage("low_" & i) = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/low").Text
Object.PersistStorage("icon_" & i) = iconName(weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/part[@p='n']/icon").Text)
Object.PersistStorage("sun_r") = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/sunr").Text
Object.PersistStorage("sun_s") = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/suns").Text
End If
Else
Object.PersistStorage("day_" & i) = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']").attributes.getNamedItem("t").Text
Object.PersistStorage("date_" & i) = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']").attributes.getNamedItem("dt").Text
Object.PersistStorage("hi_" & i) = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/hi").Text
Object.PersistStorage("low_" & i) = weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/low").Text
Object.PersistStorage("icon_" & i) = iconName(weatherDoc.documentElement.selectSingleNode("/weather/dayf/day[@d='" & i & "']/part[@p='d']/icon").Text)
End If
Next
Object.PersistStorage("zipchange") = False
Set weatherDoc = Nothing
End Function


Function iconName(iconNum)
Dim res
res = iconNum
Select Case iconNum
Case 1 res="WindyRain"
Case 3 res="WindyRain"
Case 4 res="Thunder"
Case 5 res="Sleet"
Case 6 res="LightRain"
Case 7 res="Sleet"
Case 8 res="Sleet"
Case 9 res="LightRain"
Case 10 res="Sleet"
Case 11 res="LightRain"
Case 12 res="HeavyRain"
Case 13 res="LightSnow"
Case 14 res="Snow"
Case 15 res="Snow"
Case 16 res="Snow"
Case 17 res="Thunder"
Case 18 res="HeavyRain"
Case 19 res="Dust"
Case 20 res="Fog"
Case 21 res="Haze"
Case 22 res="Smoke"
Case 23 res="Wind"
Case 24 res="Wind"
Case 25 res="SmallerMoon"
Case 26 res="Cloudy"
Case 27 res="MostlyCloudyNight"
Case 28 res="MostlyCloudy"
Case 29 res="PartlyCloudyNight"
Case 30 res="PartlyCloudy"
Case 31 res="smallermoon"
Case 32 res="SmallerSun"
Case 33 res="PartlyCloudyNight"
Case 34 res="PartlyCloudy"
Case 35 res="Thunder"
Case 36 res="SmallerSun"
Case 37 res="IsolatedThunder"
Case 38 res="ScatteredThunder"
Case 39 res="ScatteredShowers"
Case 40 res="HeavyRain"
Case 41 res="Snow"
Case 42 res="Snow"
Case 43 res="WindySnow"
Case 44 res="PartlyCloudy"
Case 45 res="ScatteredShowersNight"
Case 46 res="ScatteredSnowNight"
Case 47 res="ScatteredThunderNight"
End Select
iconName = res
End Function


Function ValidateInput(inzip)
validXML = GetWeatherInfo(inzip)
Set validDoc = CreateObject("Msxml2.DOMDocument")
validDoc.async = False
validDoc.resolveExternals = False
validDoc.loadXML(validXML)
Set nodeList = validDoc.documentElement.selectNodes("/")
errorcheck = nodeList.Item(0).text
If (errorcheck) = "Invalid location provided." Then
ValidateInput = False
Else
ValidateInput = True
End If
End Function


Function GetWeatherInfo(ITXX0067)
Randomize
Set http = CreateObject("Microsoft.XmlHttp")
http.Open "GET", "http://xoap.weather.com/weather/local/" & ITXX0067 & "?cc=*&dayf=5&ut=C&unit=m&rand=" & Rnd, False
http.Send
resp = http.responseText
GetWeatherInfo = resp
Set http = Nothing
Set resp = Nothing
End Function


'Called when the script is terminated
Sub Object_OnScriptExit

End Sub

[PinHead]

Vado al lavoro...se hai problemi ci sono nuovamente stasera...fammi sapere....

[Liquifex]

solo una cosaaa!!!


si può cambiare la scritta Rome , ITaly??

[Arcano01]

Originariamente inviato da Liquifex
dove le hai trovate ste icone???

link preciso per favore perchè in deviantart mi ci sono perso

Come promesso, ecco il link

Comunque, c'e' piu' di una colorazione disponibile

Per il calendario, ti ha gia risposto PiHead

[alimatteo86]

Originariamente inviato da LimiT-MaTz
già che ci sono vi mostro il mio desk ...
ditemi se vi piace

imho stona molto la barra dello start versione classica

[LimiT-MaTz]

win 2k

non so come modificarla..

[PinHead]

Originariamente inviato da Liquifex
solo una cosaaa!!!


si può cambiare la scritta Rome , ITaly??

No, almeno credo. Anche io devo tenermi Bologna (pur essendo di Modena). Se provo a inserire Modena torna a cambiarmelo.

[Hyperion]

Pinhead, mi dici che skin è quella del winamp?
Mi dai un link?

Bel lavoro...

Ciao!!

[Hyperion]

Una domanda:
a me piace lo screensaver dei pesci contenuto nel Plus!. Sapete se c'è il modo di metterlo su senza installare il suddetto programma?

Ciao!!

[Hyperion]

Originariamente inviato da Hyperion
Pinhead, mi dici che skin è quella del winamp?
Mi dai un link?

Bel lavoro...

Ciao!!

Trovato:

http://www.winamp.com/components/dow...onentid=131994



Ciao!!

EDIT: a me è scalettato sul bordo, mentre il tuo no.... usi l'anti aliasing?
Elpmì pliz...

EDIT 2: risolto.... basta abilitare l'alpha blending nelle opzioni di winamp.....

[PinHead]

Originariamente inviato da Hyperion
Trovato:

http://www.winamp.com/components/dow...onentid=131994



Ciao!!

EDIT: a me è scalettato sul bordo, mentre il tuo no.... usi l'anti aliasing?
Elpmì pliz...

EDIT 2: risolto.... basta abilitare l'alpha blending nelle opzioni di winamp.....

Dopo tutti questi aiuti, facci almeno vedere il risultato di tutti i tuoi sforzi appena puoi....

[giova22]

Raga chiedo qui sperando che qui mi possiate rispondere.

Visto che fate desktop modding c' è un modo per avere lo sfondo win animato?

Esiste qualche programmino?

Ciao

[Psiche]

Originariamente inviato da giova22
Raga chiedo qui sperando che qui mi possiate rispondere.

Visto che fate desktop modding c' è un modo per avere lo sfondo win animato?

Esiste qualche programmino?

Ciao

Uno di questi programmi è DesktopX.
Puoi creare un desk che simuli, ad esempio, un fondale marino con i pesci che gironzolano e la vegetazione che si muove.

[PinHead]

Originariamente inviato da giova22
Raga chiedo qui sperando che qui mi possiate rispondere.

Visto che fate desktop modding c' è un modo per avere lo sfondo win animato?

Esiste qualche programmino?

Ciao

http://www.dreamrender.com/index.php

Postato in precedenza da R3ZN0R.