|
|
|
![]() |
|
Strumenti |
![]() |
#1361 | |
Senior Member
Iscritto dal: Jan 2001
Messaggi: 8826
|
Quote:
__________________
"In Italia vige la mentalità imperante secondo la quale chi più riesce a fregare il sistema è furbo mentre chi paga è fesso" |
|
![]() |
![]() |
#1362 |
Senior Member
Iscritto dal: Oct 2001
Città: Torino
Messaggi: 3514
|
ma quando si modifica windows è possibile che delle patch non possono essere installate?
|
![]() |
![]() |
#1363 |
Senior Member
Iscritto dal: Mar 2003
Messaggi: 1421
|
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
__________________
la tecnologia.................. quando pensi di raggiungerla è già andata più lontano. |
![]() |
![]() |
#1364 | |
Senior Member
Iscritto dal: Feb 2003
Città: (LC)
Messaggi: 960
|
Quote:
![]()
__________________
Arcangelo volante dell'Ordine "GLI ADORATORI DELLA PIGNA" pignasite/forum - vespa 50r 1970 -> vespa ts 1975 -> vespa 125(@132) et3 1978 ![]() |
|
![]() |
![]() |
#1365 |
Senior Member
Iscritto dal: Feb 2003
Città: (LC)
Messaggi: 960
|
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? ![]()
__________________
Arcangelo volante dell'Ordine "GLI ADORATORI DELLA PIGNA" pignasite/forum - vespa 50r 1970 -> vespa ts 1975 -> vespa 125(@132) et3 1978 ![]() |
![]() |
![]() |
#1366 |
Senior Member
Iscritto dal: Mar 2003
Messaggi: 1421
|
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..... ![]()
__________________
la tecnologia.................. quando pensi di raggiungerla è già andata più lontano. Ultima modifica di Henkatto : 19-11-2003 alle 19:31. |
![]() |
![]() |
#1367 | |
Bannato
Iscritto dal: Aug 2003
Città: Modena ©2004 Tutti I Diritti Riservati
Messaggi: 938
|
Quote:
'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. |
|
![]() |
![]() |
#1368 | |
Bannato
Iscritto dal: Aug 2003
Città: Modena ©2004 Tutti I Diritti Riservati
Messaggi: 938
|
Quote:
|
|
![]() |
![]() |
#1369 | |
Senior Member
Iscritto dal: Mar 2003
Messaggi: 1421
|
Quote:
grazie lo stesso
__________________
la tecnologia.................. quando pensi di raggiungerla è già andata più lontano. |
|
![]() |
![]() |
#1370 | |
Senior Member
Iscritto dal: Feb 2003
Città: (LC)
Messaggi: 960
|
Quote:
![]() ![]() ma non conosci qualche prg tipo questo(mi interessa solo il meteo) ma freeware cmq ![]()
__________________
Arcangelo volante dell'Ordine "GLI ADORATORI DELLA PIGNA" pignasite/forum - vespa 50r 1970 -> vespa ts 1975 -> vespa 125(@132) et3 1978 ![]() |
|
![]() |
![]() |
#1371 | |
Bannato
Iscritto dal: Aug 2003
Città: Modena ©2004 Tutti I Diritti Riservati
Messaggi: 938
|
Quote:
|
|
![]() |
![]() |
#1372 | |
Bannato
Iscritto dal: Aug 2003
Città: Modena ©2004 Tutti I Diritti Riservati
Messaggi: 938
|
Quote:
|
|
![]() |
![]() |
#1373 | |
Senior Member
Iscritto dal: Mar 2003
Messaggi: 1421
|
Quote:
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...
__________________
la tecnologia.................. quando pensi di raggiungerla è già andata più lontano. |
|
![]() |
![]() |
#1374 | |
Senior Member
Iscritto dal: Jan 2001
Messaggi: 8826
|
Quote:
__________________
"In Italia vige la mentalità imperante secondo la quale chi più riesce a fregare il sistema è furbo mentre chi paga è fesso" |
|
![]() |
![]() |
#1375 | |
Bannato
Iscritto dal: Aug 2003
Città: Modena ©2004 Tutti I Diritti Riservati
Messaggi: 938
|
Quote:
|
|
![]() |
![]() |
#1376 | |
Senior Member
Iscritto dal: Mar 2003
Messaggi: 1421
|
Quote:
ora faccio un po di prove e scarico qualchi icona.... grazie a tutti e due... ciao
__________________
la tecnologia.................. quando pensi di raggiungerla è già andata più lontano. |
|
![]() |
![]() |
#1377 |
Senior Member
Iscritto dal: Apr 2002
Città: Verona
Messaggi: 370
|
Aiutatemi con ObjetDock
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
![]() ![]()
__________________
Ale: "Ho comprato a un'asta la chitarra di Chopin". Franz: "Ma non dire idiozie, Chopin non suonava la chitarra!". Ale: "E infatti è ancora tutta imballata! |
![]() |
![]() |
#1378 | |
Bannato
Iscritto dal: Aug 2003
Città: Modena ©2004 Tutti I Diritti Riservati
Messaggi: 938
|
Re: Aiutatemi con ObjetDock
Quote:
|
|
![]() |
![]() |
#1379 |
Senior Member
Iscritto dal: Apr 2002
Città: Verona
Messaggi: 370
|
Ciao
Cosa intendi per docklets ?
__________________
Ale: "Ho comprato a un'asta la chitarra di Chopin". Franz: "Ma non dire idiozie, Chopin non suonava la chitarra!". Ale: "E infatti è ancora tutta imballata! |
![]() |
![]() |
#1380 | |
Bannato
Iscritto dal: Aug 2003
Città: Modena ©2004 Tutti I Diritti Riservati
Messaggi: 938
|
Re: Ciao
Quote:
|
|
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 09:26.