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

[terrys3]

Originariamente inviato da PinHead
Stavo per risponderti... . Comunque io non li esporto come bmp, ma come ico. A me vengono bene...

anch'io le esporto come .ICO ma, non so il perchè, con la versione più vecchia di Iconshop venivano malissimo

[umile]

ma quando si modifica windows è possibile che delle patch non possono essere installate?

[Henkatto]

per favore, sto rileggendo tutto il post per la seconda volta, ma non riesco a trovare il messaggio contenente le info per eliminare il cestino dal desktop, per favore come si fa?

grazie

[alimatteo86]

Originariamente inviato da alimatteo86
start-->esegui-->gpedit.msc

ti si apre la cartella "criteri di gruppo"

ora vai configurazione utente--> modelli amministrativi--> desktop

da qui puoi rimuovere il cestino e non solo....

[alimatteo86]

mi dice "incorrect zip code"

(devo modificare quelli in viola tra parentesi vero?)


ma non c'è un'altro prog che dia queste funzionalità per il meteo?

[Henkatto]

grazie infinite, non è che puoi anche risolvermi questo problemino?

ho letto che devo spuntare il segnetto in basso a sinistra, dove dice il meteo settimanale per vedere le nostre misure dei gradi, ma non me lo fa fare, puoi provare tu?
http://www.weather.com/outlook/travel/local/ITXX0052

io non ci riesco, non me lo fa fare, sembra un errore di programmazione della pagina, se puoi provare........


grazie

Ma nessuno sa dove trovare delle belle icone da inserire singolarmente per y'z dock?

ancora grazie.....

[PinHead]

Originariamente inviato da alimatteo86
mi dice "incorrect zip code"

(devo modificare quelli in viola tra parentesi vero?)


ma non c'è un'altro prog che dia queste funzionalità per il meteo?

Questo è il mio script. Puoi provare a copiarlo e incollarlo (naturalmente dovrai sostituire il codice mio (ITAXX0043) con quello della tua città.

'Called when the script is executed
Sub Object_OnScriptEnter
'Object.PersistStorage("zipchange") = False
Object.PersistStorage("default") = "ITXX0043"
If Object.PersistStorage("ITXX0043") = "" Then
z = InputBox("Please Enter a Zip Code: " &vbNewLine, "Select Zip Code...", Object.PersistStorage("default"))
Object.PersistStorage("ITXX0043") = z
Object.PersistStorage("zipchange") = True
If (ValidateInput(Object.PersistStorage("ITXX0043")) = False) Then
Script.MsgBox "Incorrect Zip Code Entered. Try Again."
Object.PersistStorage("ITXX0043") = 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("ITXX0043")))
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("ITXX0043"))
Object.PersistStorage("ITXX0043") = z
Object.PersistStorage("zipchange") = True
If (ValidateInput(Object.PersistStorage("ITXX0043")) = False) Then
Script.MsgBox "Incorrect Zip Code Entered. Try Again."
Object.PersistStorage("ITXX0043") = 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(ITXX0043)
Randomize
Set http = CreateObject("Microsoft.XmlHttp")
http.Open "GET", "http://xoap.weather.com/weather/local/" & ITXX0043 & "?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




Ciao.

[PinHead]

Originariamente inviato da Henkatto
grazie infinite, non è che puoi anche risolvermi questo problemino?

ho letto che devo spuntare il segnetto in basso a sinistra, dove dice il meteo settimanale per vedere le nostre misure dei gradi, ma non me lo fa fare, puoi provare tu?
http://www.weather.com/outlook/travel/local/ITXX0052

io non ci riesco, non me lo fa fare, sembra un errore di programmazione della pagina, se puoi provare........


grazie

Ma nessuno sa dove trovare delle belle icone da inserire singolarmente per y'z dock?

ancora grazie.....

Mi dispiace Henk ma a me la pagina si apre correttamente (e con già impostata l'unita metrica). Per y'z dock non so aiutarti, una volta ho usato un programma simile. Molto belli graficamente ma li trovo scomodi.

[Henkatto]

Originariamente inviato da PinHead
Mi dispiace Henk ma a me la pagina si apre correttamente (e con già impostata l'unita metrica). Per y'z dock non so aiutarti, una volta ho usato un programma simile. Molto belli graficamente ma li trovo scomodi.

sempre gentilisimo grazie, ma è davvero strano, io vado sul sito e non riesco a visualizzare in metrica...... boh....

grazie lo stesso

[alimatteo86]

Originariamente inviato da PinHead
Questo è il mio script. Puoi provare a copiarlo e incollarlo (naturalmente dovrai sostituire il codice mio (ITAXX0043) con quello della tua città.

[cut]

End Sub




Ciao.

ma non conosci qualche prg tipo questo(mi interessa solo il meteo) ma freeware


cmq

[PinHead]

Originariamente inviato da Henkatto
sempre gentilisimo grazie, ma è davvero strano, io vado sul sito e non riesco a visualizzare in metrica...... boh....

grazie lo stesso

Allora, se riesci ad aprire la pagina: sotto la mappa c'è una tabella con i dati dei diversi giorni...sotto questa tabella hai la possibilità di visualizzare (spuntando) in quale unità di misurazione vuoi visualizzare.

[PinHead]

Originariamente inviato da alimatteo86



ma non conosci qualche prg tipo questo(mi interessa solo il meteo) ma freeware


cmq

Bhè c'è anche Coolmon (di cui abbiamo parlato più indietro) con cui, se vuoi, puoi visualizzare solo il tempo. Ma è solo testo, non ha grafica.

[Henkatto]

Originariamente inviato da PinHead
Allora, se riesci ad aprire la pagina: sotto la mappa c'è una tabella con i dati dei diversi giorni...sotto questa tabella hai la possibilità di visualizzare (spuntando) in quale unità di misurazione vuoi visualizzare.

Ed infatti è quello che faccio, solo che non mi fa spuntare niente, il cerchio non si fa spuntare

c'è scritto

Please enable JavaScript in your browser to switch the measurements on this page from English to Metric Units.

non vorrei che fosse qualche cosa che devo impostare, io ho sia la java di sun che quella di microsoft installata, forse è lì l'intoppo... boh...

[terrys3]

Originariamente inviato da Henkatto

Ma nessuno sa dove trovare delle belle icone da inserire singolarmente per y'z dock?

qui ce ne sono molte di qualità: http://www.xicons.com/index.php

[PinHead]

Originariamente inviato da Henkatto
Ed infatti è quello che faccio, solo che non mi fa spuntare niente, il cerchio non si fa spuntare

c'è scritto

Please enable JavaScript in your browser to switch the measurements on this page from English to Metric Units.

non vorrei che fosse qualche cosa che devo impostare, io ho sia la java di sun che quella di microsoft installata, forse è lì l'intoppo... boh...

E si. Devi controllare nelle opzioni internet. Probabilmente hai qualcosa di disattivato nelle proprietà Java.

[Henkatto]

Originariamente inviato da PinHead
E si. Devi controllare nelle opzioni internet. Probabilmente hai qualcosa di disattivato nelle proprietà Java.

ora faccio un po di prove e scarico qualchi icona.... grazie a tutti e due...

ciao

[@res]

Da qualche giorno mi da questo errore, e se gli do ok alle volte parte altre invece si impalla e devo disisnstallare tutto e reinstallare??? Che devo fare

[PinHead]

Originariamente inviato da @res
Da qualche giorno mi da questo errore, e se gli do ok alle volte parte altre invece si impalla e devo disisnstallare tutto e reinstallare??? Che devo fare

Se interpreto bene probabilmente c'è qualche docklets che da problemi. Dovresti provarli uno alla volta per vedere se trovi quello che ti causa il crash.

[@res]

Cosa intendi per docklets ?

[PinHead]

Originariamente inviato da @res
Cosa intendi per docklets ?

Sono i vari componenti che puoi usare in Objectdock come, per esempio, una serie di immagini in formato .PGN