calendar
Calendrier
Précédent   Forums CustomXP > Logiciel > Samurize
Recharger cette page [tutoriel] Utilisation du script Weather Plus
Samurize
Un problème de script ? une config a partager ? C'est ici que ça se passe.

Discussion fermée
Modes d'affichage clear
Rechercher clear
Outils de la discussion clear
#1
Vieux 21/03/2003, 18h19
bubka
- Gorille ultrabright -
Avatar de bubka
Team CustomXP.net
Date d'inscription : décembre 2002
Messages : 16 780
bubka est déconnecté
Un tout nouveau script Serious Samurize vient de sortir, permettant d'afficher les infos météo et utilisant une image png "changeante" en fonction des previsions. Comme son utilisation est un poil moins pratique que les scripts "classique", voici un petit tutoriel pour utiliser ce script.

Tout d'abord, un grand merci à Bdbus, membre de CustomXP, pour avoir denicher ce script et pour avoir partagé cette info sur le forum ;-)

:arrow: 1 - Recupération et installation

Pour commencer, allez télécharger le script dans notre section "téléchargement", rubrique "Script 0.8x" ou directement sur le site officiel de Samurize, ici.
Ensuite, decompressez l'archive Zip.
Pour appuyer le tutoriel, la config fournie avec le script servira d'exemple. Pour pouvoir l'utiliser, il vous faut faire quelques manips :

a/ Avoir votre dossier "Samurize" placé dans "c:program files"

b/ Déplacer le fichier "weatherplus2.ini" dans votre dossier "Configs" ( c:program filessamurizeconfigs )

c/ Déplacer les fichiers "RefreshWeatherPlus.vbs" et "WeatherPlus.vbs" dans votre dossier "scripts" ( c:program filessamurizescripts )

d/ Récupérer le code de votre ville.
Pour ce faire, aller à cette adresse : http://weather.interceptvector.com
Une fois que vous vous trouvez sur la page correspondant à votre ville, notez le code qui se trouve à la fin de l'adresse de la page affichée. Pour exemple, l'adresse pour Paris est celle ci :

Citation:
http:// weather.interceptvector.com/weather.xml?id=RlJYWDAwNzY%3D
Et bien le code pour Paris est "RlJYWDAwNzY"
Maintenant, ouvrez le fichier "RefreshWeatherPlus.vbs" (clique droit :arrow: modifier) et remplacez le code par celui de votre ville dans cette ligne :

Citation:
const CITY_ID= \"RlJYWDAwNzY=\" 'get your city id from http:// weather.interceptvector.com/list.php
Enregistrez et fermez le fichier.

e/ Parametrez l'affichage des températures en °C ou °F
Il suffit de modifier les deux scripts (RefreshWeatherPlus.vbs et WeatherPlus.vbs) et de changer la ligne qui va bien, c'est à dire celle ci :

Citation:
const USE_CELSIUS= True 'make it False if you want Fahrenheit
regler sur "true" pour des celsius et "False" pour des "Fahrenheit".

Voila, votre config exemple est installé et prète à l'emploi.

note: si vous souhaitez placer votre dossier samurize ailleur que dans "c:program files", il vous faudra editer les deux scripts vbs et changer le dossier qui y est renseigné par defaut dans les lignes voisines de celles precedement modifiées.
Si vous souhaitez utiliser la config fournis, je vous conseille fortement de bien placer samurize sur c: car les adresses des images png sont présentes dans le fichier .ini. J'ai essayé de modifier le ini en remplaçant les adresses par celles que j'utilise d'habitude (E:program files...), mais la config n'a jamais voulue s'ouvrir dans config.exe.

:arrow: 2 - Execution du script

a/ Comme vous avez pu le remarquer, il y a en fait deux scripts de fournis dans le zip. En fait, un seul est exploité par samurize, l'autre est un script "externe", à lancer à la main ou grace au planificateur de tâche.
Pour que l'affichage par samurize se fasse correctement sur le bureau, il est indispensable de lancer au préalable le script "RefreshWeatherPlus.vbs". C'est en effet celui ci qui va se chager de récuperer les images à afficher. Pour assurer une mise à jour reguliere de l'image, le mieux est d'utiliser le planificateur de tâche. voyons maintenant comment créer cette tâche.

Aller dans :arrow: menu demarrer/programmes/accessoires/outils systemes et cliquer sur "planifier une tâche".
A partir de la, c'est l'assistant de XP qui prend le relai pour mettre en place la tache. A noter qu'il est indispensable d'avoir mis en place un mot de passe de cession pour que la tache soit effectuée.
L'ideal etant de mettre à jour le script toutes les heures, vous noterez que l'assistant ne vous permet pas de regler le delai de mise à jour sur moins d'un jour. Pour modifier cela, allez au bout de l'assistant et une fois la tache créé, clic droit et propriété sur la tache. Allez dans les options avancées et cliquer sur "répéter la tache" afin de modifier le delai de mise à jour.

b/ Passons maitenant au script samurize a proprement parlé.
C'est un script météo très classique. Il met à votre disposition plusieurs fonctions affichant la ville (getCity), la temperature (getTemperature), l'etat du ciel (getSky), ainsi que les previsions (getFCTemp, getFCDate, getFCSky, etc...).
Si vous voulez utiliser la config fournit dans le zip, les operations deja effectuées vous le permettront, sinon créez votre propre config avec config.exe (comme d'hab quoi :-D )


Pour l'utilisation de tous les jours, n'oubliez jamais que l'execution du script externe est indispensable (à lancer avant le script samurize) pour un affichage réaliste des informations.

c/ L'utilisation des fichier png dans le script
Il y a juste une petite chose à souligner dans la création d'une nouvelle config, qui concerne les image png à y incorporer.
Pour mettre en place votre image, vous êtes obligé d'en selectionner une présente sur votre disque dur, qui a priori est toujours la même (forcement :ane: ), ce qui ne permet pas, par deduction, que l'affichage soit modifié sur le bureau. C'est donc à ce niveau qu'il vous faudra faire attention.
Il est indispensable d'utiliser toujours les même fichiers png dans config.exe pour afficher le temp du moment, ainsi que le temps de jours a venir. Pour ce faire, 5 png sont fournis dans le zip (tmpImgMainInfo.png, tmpImgForecast1/2/3/4.png). Ces fichier png seront modifiées par le script externe (RefreshWeatherPlus.vbs) e n direct live, et ce par le biais d'un fichier XML. Donc attention, si vous souhaitez utiliser d'autres images (si celles ci ne vous conviennet pas), pensez à les renommer comme celle fournies par defaut, et à bien les placer dans le repertoire skinsweatherPlus !

:arrow: 3 - conclusions
Et bah ce script c'est d'la balle :ane:
Seul petit hic, l'etat du ciel sera affiché en anglais, mais bon, c'est pas trop grave en comparaison avec les possibilités qu'il propose. A vos souris, à vos clavier, ya du renouveau dans l'air sous serious Sam !
Note aux eventuels scripteurs qui passeraient par la : Je crois qu'il serait particulierement interessant de se pencher sur le principe du script externe pour ameliorer encore un peu plus vos créations, avis aux amateurs.

bubka
Haut de page
#2
Vieux 22/03/2003, 00h11
bdbus
-
Basic
Date d'inscription : janvier 2003
Messages : 338
bdbus est déconnecté
hi
bravo...bon travail (depuis ce mat c'est chouette)
hihi...y'a deja une up-grade : http://www.samurize.com/view.php?1055

et puis moi je l'ai en français ! simple : tu cumules les scripts en une seule config - du transparent pour ce qui te gene de l'u.s. - et tu rajoutes le script meteo fr à coté de l'icone png "temps"...pas bien académique mais ça marche ( etc 'est mieux en fr !!!)
Haut de page
#3
Vieux 23/03/2003, 11h32
kosmik
-
Avatar de kosmik
Basic
Date d'inscription : mars 2003
Messages : 320
Envoyer un message via MSN à kosmik
kosmik est déconnecté
chez moi il n'y a rien qui va ! :-o
Haut de page
#4
Vieux 30/04/2003, 21h45
romsworld
-
Basic
Date d'inscription : avril 2003
Messages : 24
romsworld est déconnecté
Bien alors moi javais un pb avec la DATE ! comme c en anglais yavais une inversion jour et mois, donc j'ai corrige ca : remplacer le contenu du fichier Weatherplus par celui la ( a noter que j'ai essaye de traduire tout EN VF nuage ensoleillee etc... mais je me suis embdrouille avec les If etc, donc ca sera petete pour + tard. :

'YAWS v 0.2 by cicada (cicada@mail.bg) - weather script for Samurize 0.84 and higher
'Temperature, city and environment management

'Compatibile with Samurize 0.84 and probably with higher viersions
'Weather information provided by Intercept Vector (http://weather.interceptvector.com)
'For Sofia, Bulgaria, using Celsius it is: http://weather.interceptvector.com/weather...U=&celsius=true

Option Explicit
On Error Resume Next

const SAMURIZE_DIRECTORY= "C:Program FilesSamurize" 'change if different than yours
const USE_CELSIUS= True 'make it False if you want Fahrenheit

' --- DO NOT TOUCH THE CODE AFTER THAT POINT UNLESS YOU KNOW WHAT YOU ARE DOING ---

Dim wDoc, wCity, wTemp, wSky, fNodes, date1, date2, date3, date4, temp1, temp2, temp3, temp4, sky1, sky2, sky3, sky4

Set wDoc = CreateObject("Msxml2.DOMDocument")
wDoc.async = False
wDoc.load(SAMURIZE_DIRECTORY & "Scriptsweather.cache.xml")

wCity = wDoc.selectSingleNode("//weather/city").text
wTemp = wDoc.selectSingleNode("//weather/temp").text
wSky = wDoc.selectSingleNode("//weather/sky").text

Set fNodes= wDoc.getElementsByTagName("forecast")

date1= getFCDate(1)
date2= getFCDate(2)
date3= getFCDate(3)
date4= getFCDate(4)

temp1= getFCTemp(1)
temp2= getFCTemp(2)
temp3= getFCTemp(3)
temp4= getFCTemp(4)

sky1= getFCSky(1)
sky2= getFCSky(2)
sky3= getFCSky(3)
sky4= getFCSky(4)

Function getCity
getCity= wCity
End Function

Function getTemperature
If (USE_CELSIUS= True) Then
getTemperature= wTemp & "°C"
Else
getTemperature= wTemp & "F"
End If
End Function

Function getSky
getSky= wSky
End Function


Function getFCDate1
getFCDate1= date1
End Function

Function getFCDate2
getFCDate2= date2
End Function

Function getFCDate3
getFCDate3= date3
End Function

Function getFCDate4
getFCDate4= date4
End Function

Function getFCTemp1
getFCTemp1= temp1
End Function

Function getFCTemp2
getFCTemp2= temp2
End Function

Function getFCTemp3
getFCTemp3= temp3
End Function

Function getFCTemp4
getFCTemp4= temp4
End Function

Function getFCSky1
getFCSky1= sky1
End Function

Function getFCSky2
getFCSky2= sky2
End Function

Function getFCSky3
getFCSky3= sky3
End Function

Function getFCSky4
getFCSky4= sky4
End Function


Function getFCDate (aNodeId)
Dim res
res= fNodes.item(aNodeId).attributes.getNamedItem("date ").NodeValue
getFCDate= Month (res) & " " & getDayName(Day(res))
End Function

Function getFCTemp (aNodeId)
Dim tSign
If (USE_CELSIUS= True) Then
tSign= "°C"
Else
tSign= "F"
End If
getFCTemp= fNodes.item(aNodeId).childNodes.item(1).text & "/" & fNodes.item(aNodeId).childNodes.item(2).text & tSign
End Function

Function getFCSky (aNodeId)
getFCSky= fNodes.item(aNodeId).childNodes.item(4).text
End Function

Function getDayName (aDayNum)
Dim res

Select Case aDayNum
Case 1 res="Jan"
Case 2 res="Fev"
Case 3 res="Mars"
Case 4 res="Avr"
Case 5 res="Mai"
Case 6 res="Juin"
Case 7 res="Juil"
Case 8 res="Aout"
Case 9 res="Sept"
Case 10 res="Oct"
Case 11 res="Nov"
Case 12 res="Dec"
End Select

getDayName= res
End Function

Set fNodes = Nothing
Set wDoc=Nothing
Haut de page
#5
Vieux 01/05/2003, 00h51
bubka
- Gorille ultrabright -
Avatar de bubka
Team CustomXP.net
Date d'inscription : décembre 2002
Messages : 16 780
bubka est déconnecté
merci à toi romsworld :-)

ps : second topic doublon effacé :yes:
Haut de page
#6
Vieux 01/05/2003, 11h50
romsworld
-
Basic
Date d'inscription : avril 2003
Messages : 24
romsworld est déconnecté
Bien, alors je sais pas chez vous, mais moi ya un pb nivo nuage...
Il y a 5 cases. En partant du Haut, la 2 ieme et la 3 ieme sont inverser en fait. Du style PLuie avec une image SOLEIL ! ca fais tache non.
Pour ce qui ont ce pb, Fermer le client, et aller dans le .ini

remplacer le 1 par un 2 et le 2 par un 1 des fichier tmpImgForecast comme la :

[Output 6]
Type=TPNGOutput
FilePath=C:Program FilesSamurizeSkinsWeatherPlustmpImgForecast2.png
MasterAlpha=255
Left=1096
Top=132
Right=1136
Bottom=162
AllowLink=0
Link=

[Source 7]
Type=TNullCollector

[Output 7]
Type=TPNGOutput
FilePath=C:Program FilesSamurizeSkinsWeatherPlustmpImgForecast1.png
MasterAlpha=255
Left=1096
Top=93
Right=1136
Bottom=123
AllowLink=0
Link=


VOila, je met la version FRANCAISE dans quelque instant
Haut de page
#7
Vieux 01/05/2003, 12h01
romsworld
-
Basic
Date d'inscription : avril 2003
Messages : 24
romsworld est déconnecté
La voila ! le version francaise de la meteo ! la version 1.0 des modifications du fichier Weatherplus.vbs a ne pas confondre avec la version du fichier. Il suffit de changer l'integralité de ce fichier par celui la. Des nouvelles versions sont prevus... mais la j'ai plus le temps snif.
Si vous trouvez que la traduction n'est pas correcte mail moi svp romsworld@fr.st
Lisez le topic juste avant si vous trouvez que la difference du temps avec l'image ne correspond pas !



'YAWS v 0.2 by cicada (cicada@mail.bg) - weather script for Samurize 0.84 and higher
'Temperature, city and environment management

'Compatibile with Samurize 0.84 and probably with higher viersions
'Weather information provided by Intercept Vector (http://weather.interceptvector.com)
'For Sofia, Bulgaria, using Celsius it is: http://weather.interceptvector.com/weather...U=&celsius=true

Option Explicit
On Error Resume Next

const SAMURIZE_DIRECTORY= "C:Program FilesSamurize" 'change if different than yours
const USE_CELSIUS= True 'make it False if you want Fahrenheit

' --- DO NOT TOUCH THE CODE AFTER THAT POINT UNLESS YOU KNOW WHAT YOU ARE DOING ---

Dim wDoc, wCity, wTemp, wSky, fNodes, date1, date2, date3, date4, temp1, temp2, temp3, temp4, sky1, sky2, sky3, sky4

Set wDoc = CreateObject("Msxml2.DOMDocument")
wDoc.async = False
wDoc.load(SAMURIZE_DIRECTORY & "Scriptsweather.cache.xml")

wCity = wDoc.selectSingleNode("//weather/city").text
wTemp = wDoc.selectSingleNode("//weather/temp").text
wSky = wDoc.selectSingleNode("//weather/sky").text

Set fNodes= wDoc.getElementsByTagName("forecast")

date1= getFCDate(1)
date2= getFCDate(2)
date3= getFCDate(3)
date4= getFCDate(4)

temp1= getFCTemp(1)
temp2= getFCTemp(2)
temp3= getFCTemp(3)
temp4= getFCTemp(4)

sky1= getFCSky(1)
sky2= getFCSky(2)
sky3= getFCSky(3)
sky4= getFCSky(4)

Function getCity
getCity= wCity
End Function

Function getTemperature
If (USE_CELSIUS= True) Then
getTemperature= wTemp & "°C"
Else
getTemperature= wTemp & "F"
End If
End Function

' Traduit par Romsworld - Version 1.0 - Pour toutes questions suggestions ou bugs Email : (romsworld@fr.st)

Function getSky
if (WSky="Windy") Then
getSky= "Venté"
End If
if (WSky="Thunder Storms") Then
getSky= "Orage/Foudre"
End If
if (WSky="Snow") Then
getSky= "Neige"
End If
if (WSky="Sleet") Then
getSky= "Verglas"
End If
if (WSky="Rain") Then
getSky= "Pluie"
End If
if (WSky="Heavy Rain") Then
getSky= "Forte Pluie"
End If
if (WSky="Light Flurries") Then
getSky= "Vent Légé"
End If
if (WSky="Flurries") Then
getSky= "Vent"
End If
if (WSky="Dust") Then
getSky= "Poussière"
End If
if (WSky="Fog") Then
getSky= "Brouillard"
End If
if (WSky="Haze") Then
getSky= "Brume"
End If
if (WSky="Smoke") Then
getSky= "Fumée"
End If
if (WSky="Cold") Then
getSky= "Froid"
End If
if (WSky="Cloudy") Then
getSky= "Nuageux"
End If
if (WSky="Mostly Cloudy") Then
getSky= "Souvent nuageux"
End If
if (WSky="Partly Cloudy") Then
getSky= "Quelques nuages"
End If
if (WSky="Sunny") Then
getSky= "Ensoleillé"
End If
if (WSky="Mostly Sunny") Then
getSky= "Souvent Ensoleillé"
End If
if (WSky="Hot") Then
getSky= "Chaud"
End If
if (wSky="Snow and Wind") Then
getSky= "Neige + vent"
End If
End Function

Function getFCDate1
getFCDate1= date1
End Function

Function getFCDate2
getFCDate2= date2
End Function

Function getFCDate3
getFCDate3= date3
End Function

Function getFCDate4
getFCDate4= date4
End Function

Function getFCTemp1
getFCTemp1= temp1
End Function

Function getFCTemp2
getFCTemp2= temp2
End Function

Function getFCTemp3
getFCTemp3= temp3
End Function

Function getFCTemp4
getFCTemp4= temp4
End Function

Function getFCSky1
if (sky1="Windy") Then
getFCSky1= "Venté"
End If
if (sky1="Thunder Storms") Then
getFCSky1= "Orage/Foudre"
End If
if (sky1="Snow") Then
getFCSky1= "Neige"
End If
if (sky1="Sleet") Then
getFCSky1= "Verglas"
End If
if (sky1="Rain") Then
getFCSky1= "Pluie"
End If
if (sky1="Heavy Rain") Then
getFCSky1= "Forte Pluie"
End If
if (sky1="Light Flurries") Then
getFCSky1= "Vent Légé"
End If
if (sky1="Flurries") Then
getFCSky1= "Vent"
End If
if (sky1="Dust") Then
getFCSky1= "Poussière"
End If
if (sky1="Fog") Then
getFCSky1= "Brouillard"
End If
if (sky1="Haze") Then
getFCSky1= "Brume"
End If
if (sky1="Smoke") Then
getFCSky1= "Fumée"
End If
if (sky1="Cold") Then
getFCSky1= "Froid"
End If
if (sky1="Cloudy") Then
getFCSky1= "Nuageux"
End If
if (sky1="Mostly Cloudy") Then
getFCSky1= "Souvent nuageux"
End If
if (sky1="Partly Cloudy") Then
getFCSky1= "Quelques nuages"
End If
if (sky1="Sunny") Then
getFCSky1= "Ensoleillé"
End If
if (sky1="Mostly Sunny") Then
getFCSky1= "Souvent Ensoleillé"
End If
if (sky1="Hot") Then
getFCSky1= "Chaud"
End If
if (sky1="Snow and Wind") Then
getFCSky1= "Neige + vent"
End If
End Function

Function getFCSky2
if (sky2="Windy") Then
getFCSky2= "Venté"
End If
if (sky1="Thunder Storms") Then
getFCSky2= "Orage/Foudre"
End If
if (sky2="Snow") Then
getFCSky2= "Neige"
End If
if (sky2="Sleet") Then
getFCSky2= "Verglas"
End If
if (sky2="Rain") Then
getFCSky2= "Pluie"
End If
if (sky2="Heavy Rain") Then
getFCSky2= "Forte Pluie"
End If
if (sky2="Light Flurries") Then
getFCSky2= "Vent Légé"
End If
if (sky2="Flurries") Then
getFCSky2= "Vent"
End If
if (sky2="Dust") Then
getFCSky2= "Poussière"
End If
if (sky2="Fog") Then
getFCSky2= "Brouillard"
End If
if (sky2="Haze") Then
getFCSky2= "Brume"
End If
if (sky2="Smoke") Then
getFCSky2= "Fumée"
End If
if (sky2="Cold") Then
getFCSky2= "Froid"
End If
if (sky2="Cloudy") Then
getFCSky2= "Nuageux"
End If
if (sky2="Mostly Cloudy") Then
getFCSky2= "Souvent nuageux"
End If
if (sky2="Partly Cloudy") Then
getFCSky2= "Quelques nuages"
End If
if (sky2="Sunny") Then
getFCSky2= "Ensoleillé"
End If
if (sky2="Mostly Sunny") Then
getFCSky2= "Souvent Ensoleillé"
End If
if (sky2="Hot") Then
getFCSky2= "Chaud"
End If
if (sky2="Snow and Wind") Then
getFCSky2= "Neige + vent"
End If
End Function

Function getFCSky3
if (sky3="Windy") Then
getFCSky3= "Venté"
End If
if (sky3="Thunder Storms") Then
getFCSky3= "Orage/Foudre"
End If
if (sky3="Snow") Then
getFCSky3= "Neige"
End If
if (sky3="Sleet") Then
getFCSky3= "Verglas"
End If
if (sky3="Rain") Then
getFCSky3= "Pluie"
End If
if (sky3="Heavy Rain") Then
getFCSky3= "Forte Pluie"
End If
if (sky3="Light Flurries") Then
getFCSky3= "Vent Légé"
End If
if (sky3="Flurries") Then
getFCSky3= "Vent"
End If
if (sky3="Dust") Then
getFCSky3= "Poussière"
End If
if (sky3="Fog") Then
getFCSky3= "Brouillard"
End If
if (sky3="Haze") Then
getFCSky3= "Brume"
End If
if (sky3="Smoke") Then
getFCSky3= "Fumée"
End If
if (sky3="Cold") Then
getFCSky3= "Froid"
End If
if (sky3="Cloudy") Then
getFCSky3= "Nuageux"
End If
if (sky3="Mostly Cloudy") Then
getFCSky3= "Souvent nuageux"
End If
if (sky3="Partly Cloudy") Then
getFCSky3= "Quelques nuages"
End If
if (sky3="Sunny") Then
getFCSky3= "Ensoleillé"
End If
if (sky3="Mostly Sunny") Then
getFCSky3= "Souvent Ensoleillé"
End If
if (sky3="Hot") Then
getFCSky3= "Chaud"
End If
if (sky3="Snow and Wind") Then
getFCSky3= "Neige + vent"
End If
End Function

Function getFCSky4
if (sky4="Windy") Then
getFCSky4= "Venté"
End If
if (sky4="Thunder Storms") Then
getFCSky4= "Orage/Foudre"
End If
if (sky4="Snow") Then
getFCSky4= "Neige"
End If
if (sky4="Sleet") Then
getFCSky4= "Verglas"
End If
if (sky4="Rain") Then
getFCSky4= "Pluie"
End If
if (sky4="Heavy Rain") Then
getFCSky4= "Forte Pluie"
End If
if (sky4="Light Flurries") Then
getFCSky4= "Vent Légé"
End If
if (sky4="Flurries") Then
getFCSky4= "Vent"
End If
if (sky4="Dust") Then
getFCSky4= "Poussière"
End If
if (sky4="Fog") Then
getFCSky4= "Brouillard"
End If
if (sky4="Haze") Then
getFCSky4= "Brume"
End If
if (sky4="Smoke") Then
getFCSky4= "Fumée"
End If
if (sky4="Cold") Then
getFCSky4= "Froid"
End If
if (sky4="Cloudy") Then
getFCSky4= "Nuageux"
End If
if (sky4="Mostly Cloudy") Then
getFCSky4= "Souvent nuageux"
End If
if (sky4="Partly Cloudy") Then
getFCSky4= "Quelques nuages"
End If
if (sky4="Sunny") Then
getFCSky4= "Ensoleillé"
End If
if (sky4="Mostly Sunny") Then
getFCSky4= "Souvent Ensoleillé"
End If
if (sky4="Hot") Then
getFCSky4= "Chaud"
End If
if (sky4="Snow and Wind") Then
getFCSky4= "Neige + vent"
End If
End Function

Function getFCDate (aNodeId)
Dim res
res= fNodes.item(aNodeId).attributes.getNamedItem("date ").NodeValue
getFCDate= Month (res) & " " & getDayName(Day(res))
End Function

Function getFCTemp (aNodeId)
Dim tSign
If (USE_CELSIUS= True) Then
tSign= "°C"
Else
tSign= "F"
End If
getFCTemp= fNodes.item(aNodeId).childNodes.item(1).text & "/" & fNodes.item(aNodeId).childNodes.item(2).text & tSign
End Function

Function getFCSky (aNodeId)
getFCSky= fNodes.item(aNodeId).childNodes.item(4).text
End Function

Function getDayName (aDayNum)
Dim res

Select Case aDayNum
Case 1 res="Jan"
Case 2 res="Fev"
Case 3 res="Mars"
Case 4 res="Avr"
Case 5 res="Mai"
Case 6 res="Juin"
Case 7 res="Juil"
Case 8 res="Aout"
Case 9 res="Sept"
Case 10 res="Oct"
Case 11 res="Nov"
Case 12 res="Dec"
End Select

getDayName= res
End Function

Set fNodes = Nothing
Set wDoc=Nothing
Haut de page
#8
Vieux 01/05/2003, 12h08
romsworld
-
Basic
Date d'inscription : avril 2003
Messages : 24
romsworld est déconnecté
Deja la version 1.1 ! alala c anglais il font tout a l'envers, il y avais la T° de l'apres midi avant le matin !
C corriger
Idem que ci dessus, suffit de remplace le contenu du fichier weatherplus.vbs par ce lui la


'YAWS v 0.2 by cicada (cicada@mail.bg) - weather script for Samurize 0.84 and higher
'Temperature, city and environment management

'Compatibile with Samurize 0.84 and probably with higher viersions
'Weather information provided by Intercept Vector (http://weather.interceptvector.com)
'For Sofia, Bulgaria, using Celsius it is: http://weather.interceptvector.com/weather...U=&celsius=true

Option Explicit
On Error Resume Next

const SAMURIZE_DIRECTORY= "C:Program FilesSamurize" 'change if different than yours
const USE_CELSIUS= True 'make it False if you want Fahrenheit

' --- DO NOT TOUCH THE CODE AFTER THAT POINT UNLESS YOU KNOW WHAT YOU ARE DOING ---

Dim wDoc, wCity, wTemp, wSky, fNodes, date1, date2, date3, date4, temp1, temp2, temp3, temp4, sky1, sky2, sky3, sky4

Set wDoc = CreateObject("Msxml2.DOMDocument")
wDoc.async = False
wDoc.load(SAMURIZE_DIRECTORY & "Scriptsweather.cache.xml")

wCity = wDoc.selectSingleNode("//weather/city").text
wTemp = wDoc.selectSingleNode("//weather/temp").text
wSky = wDoc.selectSingleNode("//weather/sky").text

Set fNodes= wDoc.getElementsByTagName("forecast")

date1= getFCDate(1)
date2= getFCDate(2)
date3= getFCDate(3)
date4= getFCDate(4)

temp1= getFCTemp(1)
temp2= getFCTemp(2)
temp3= getFCTemp(3)
temp4= getFCTemp(4)

sky1= getFCSky(1)
sky2= getFCSky(2)
sky3= getFCSky(3)
sky4= getFCSky(4)

Function getCity
getCity= wCity
End Function

Function getTemperature
If (USE_CELSIUS= True) Then
getTemperature= wTemp & "°C"
Else
getTemperature= wTemp & "F"
End If
End Function

' Traduit par Romsworld - Version 1.1 - Pour toutes questions suggestions ou bugs Email : (romsworld@fr.st)

Function getSky
if (WSky="Windy") Then
getSky= "Venté"
End If
if (WSky="Thunder Storms") Then
getSky= "Orage/Foudre"
End If
if (WSky="Snow") Then
getSky= "Neige"
End If
if (WSky="Sleet") Then
getSky= "Verglas"
End If
if (WSky="Rain") Then
getSky= "Pluie"
End If
if (WSky="Heavy Rain") Then
getSky= "Forte Pluie"
End If
if (WSky="Light Flurries") Then
getSky= "Vent Légé"
End If
if (WSky="Flurries") Then
getSky= "Vent"
End If
if (WSky="Dust") Then
getSky= "Poussière"
End If
if (WSky="Fog") Then
getSky= "Brouillard"
End If
if (WSky="Haze") Then
getSky= "Brume"
End If
if (WSky="Smoke") Then
getSky= "Fumée"
End If
if (WSky="Cold") Then
getSky= "Froid"
End If
if (WSky="Cloudy") Then
getSky= "Nuageux"
End If
if (WSky="Mostly Cloudy") Then
getSky= "Souvent nuageux"
End If
if (WSky="Partly Cloudy") Then
getSky= "Quelques nuages"
End If
if (WSky="Sunny") Then
getSky= "Ensoleillé"
End If
if (WSky="Mostly Sunny") Then
getSky= "Souvent Ensoleillé"
End If
if (WSky="Hot") Then
getSky= "Chaud"
End If
if (wSky="Snow and Wind") Then
getSky= "Neige + vent"
End If
End Function

Function getFCDate1
getFCDate1= date1
End Function

Function getFCDate2
getFCDate2= date2
End Function

Function getFCDate3
getFCDate3= date3
End Function

Function getFCDate4
getFCDate4= date4
End Function

Function getFCTemp1
getFCTemp1= temp1
End Function

Function getFCTemp2
getFCTemp2= temp2
End Function

Function getFCTemp3
getFCTemp3= temp3
End Function

Function getFCTemp4
getFCTemp4= temp4
End Function

Function getFCSky1
if (sky1="Windy") Then
getFCSky1= "Venté"
End If
if (sky1="Thunder Storms") Then
getFCSky1= "Orage/Foudre"
End If
if (sky1="Snow") Then
getFCSky1= "Neige"
End If
if (sky1="Sleet") Then
getFCSky1= "Verglas"
End If
if (sky1="Rain") Then
getFCSky1= "Pluie"
End If
if (sky1="Heavy Rain") Then
getFCSky1= "Forte Pluie"
End If
if (sky1="Light Flurries") Then
getFCSky1= "Vent Légé"
End If
if (sky1="Flurries") Then
getFCSky1= "Vent"
End If
if (sky1="Dust") Then
getFCSky1= "Poussière"
End If
if (sky1="Fog") Then
getFCSky1= "Brouillard"
End If
if (sky1="Haze") Then
getFCSky1= "Brume"
End If
if (sky1="Smoke") Then
getFCSky1= "Fumée"
End If
if (sky1="Cold") Then
getFCSky1= "Froid"
End If
if (sky1="Cloudy") Then
getFCSky1= "Nuageux"
End If
if (sky1="Mostly Cloudy") Then
getFCSky1= "Souvent nuageux"
End If
if (sky1="Partly Cloudy") Then
getFCSky1= "Quelques nuages"
End If
if (sky1="Sunny") Then
getFCSky1= "Ensoleillé"
End If
if (sky1="Mostly Sunny") Then
getFCSky1= "Souvent Ensoleillé"
End If
if (sky1="Hot") Then
getFCSky1= "Chaud"
End If
if (sky1="Snow and Wind") Then
getFCSky1= "Neige + vent"
End If
End Function

Function getFCSky2
if (sky2="Windy") Then
getFCSky2= "Venté"
End If
if (sky1="Thunder Storms") Then
getFCSky2= "Orage/Foudre"
End If
if (sky2="Snow") Then
getFCSky2= "Neige"
End If
if (sky2="Sleet") Then
getFCSky2= "Verglas"
End If
if (sky2="Rain") Then
getFCSky2= "Pluie"
End If
if (sky2="Heavy Rain") Then
getFCSky2= "Forte Pluie"
End If
if (sky2="Light Flurries") Then
getFCSky2= "Vent Légé"
End If
if (sky2="Flurries") Then
getFCSky2= "Vent"
End If
if (sky2="Dust") Then
getFCSky2= "Poussière"
End If
if (sky2="Fog") Then
getFCSky2= "Brouillard"
End If
if (sky2="Haze") Then
getFCSky2= "Brume"
End If
if (sky2="Smoke") Then
getFCSky2= "Fumée"
End If
if (sky2="Cold") Then
getFCSky2= "Froid"
End If
if (sky2="Cloudy") Then
getFCSky2= "Nuageux"
End If
if (sky2="Mostly Cloudy") Then
getFCSky2= "Souvent nuageux"
End If
if (sky2="Partly Cloudy") Then
getFCSky2= "Quelques nuages"
End If
if (sky2="Sunny") Then
getFCSky2= "Ensoleillé"
End If
if (sky2="Mostly Sunny") Then
getFCSky2= "Souvent Ensoleillé"
End If
if (sky2="Hot") Then
getFCSky2= "Chaud"
End If
if (sky2="Snow and Wind") Then
getFCSky2= "Neige + vent"
End If
End Function

Function getFCSky3
if (sky3="Windy") Then
getFCSky3= "Venté"
End If
if (sky3="Thunder Storms") Then
getFCSky3= "Orage/Foudre"
End If
if (sky3="Snow") Then
getFCSky3= "Neige"
End If
if (sky3="Sleet") Then
getFCSky3= "Verglas"
End If
if (sky3="Rain") Then
getFCSky3= "Pluie"
End If
if (sky3="Heavy Rain") Then
getFCSky3= "Forte Pluie"
End If
if (sky3="Light Flurries") Then
getFCSky3= "Vent Légé"
End If
if (sky3="Flurries") Then
getFCSky3= "Vent"
End If
if (sky3="Dust") Then
getFCSky3= "Poussière"
End If
if (sky3="Fog") Then
getFCSky3= "Brouillard"
End If
if (sky3="Haze") Then
getFCSky3= "Brume"
End If
if (sky3="Smoke") Then
getFCSky3= "Fumée"
End If
if (sky3="Cold") Then
getFCSky3= "Froid"
End If
if (sky3="Cloudy") Then
getFCSky3= "Nuageux"
End If
if (sky3="Mostly Cloudy") Then
getFCSky3= "Souvent nuageux"
End If
if (sky3="Partly Cloudy") Then
getFCSky3= "Quelques nuages"
End If
if (sky3="Sunny") Then
getFCSky3= "Ensoleillé"
End If
if (sky3="Mostly Sunny") Then
getFCSky3= "Souvent Ensoleillé"
End If
if (sky3="Hot") Then
getFCSky3= "Chaud"
End If
if (sky3="Snow and Wind") Then
getFCSky3= "Neige + vent"
End If
End Function

Function getFCSky4
if (sky4="Windy") Then
getFCSky4= "Venté"
End If
if (sky4="Thunder Storms") Then
getFCSky4= "Orage/Foudre"
End If
if (sky4="Snow") Then
getFCSky4= "Neige"
End If
if (sky4="Sleet") Then
getFCSky4= "Verglas"
End If
if (sky4="Rain") Then
getFCSky4= "Pluie"
End If
if (sky4="Heavy Rain") Then
getFCSky4= "Forte Pluie"
End If
if (sky4="Light Flurries") Then
getFCSky4= "Vent Légé"
End If
if (sky4="Flurries") Then
getFCSky4= "Vent"
End If
if (sky4="Dust") Then
getFCSky4= "Poussière"
End If
if (sky4="Fog") Then
getFCSky4= "Brouillard"
End If
if (sky4="Haze") Then
getFCSky4= "Brume"
End If
if (sky4="Smoke") Then
getFCSky4= "Fumée"
End If
if (sky4="Cold") Then
getFCSky4= "Froid"
End If
if (sky4="Cloudy") Then
getFCSky4= "Nuageux"
End If
if (sky4="Mostly Cloudy") Then
getFCSky4= "Souvent nuageux"
End If
if (sky4="Partly Cloudy") Then
getFCSky4= "Quelques nuages"
End If
if (sky4="Sunny") Then
getFCSky4= "Ensoleillé"
End If
if (sky4="Mostly Sunny") Then
getFCSky4= "Souvent Ensoleillé"
End If
if (sky4="Hot") Then
getFCSky4= "Chaud"
End If
if (sky4="Snow and Wind") Then
getFCSky4= "Neige + vent"
End If
End Function

Function getFCDate (aNodeId)
Dim res
res= fNodes.item(aNodeId).attributes.getNamedItem("date ").NodeValue
getFCDate= Month (res) & " " & getDayName(Day(res))
End Function

Function getFCTemp (aNodeId)
Dim tSign
If (USE_CELSIUS= True) Then
tSign= "°C"
Else
tSign= "F"
End If
getFCTemp= fNodes.item(aNodeId).childNodes.item(2).text & " / " & fNodes.item(aNodeId).childNodes.item(1).text & tSign
End Function

Function getFCSky (aNodeId)
getFCSky= fNodes.item(aNodeId).childNodes.item(4).text
End Function

Function getDayName (aDayNum)
Dim res

Select Case aDayNum
Case 1 res="Jan"
Case 2 res="Fev"
Case 3 res="Mars"
Case 4 res="Avr"
Case 5 res="Mai"
Case 6 res="Juin"
Case 7 res="Juil"
Case 8 res="Aout"
Case 9 res="Sept"
Case 10 res="Oct"
Case 11 res="Nov"
Case 12 res="Dec"
End Select

getDayName= res
End Function

Set fNodes = Nothing
Set wDoc=Nothing
Haut de page
#9
Vieux 02/05/2003, 11h17
xam1311
-
Basic
Date d'inscription : avril 2003
Messages : 54
xam1311 est déconnecté
les infos ne se remettent pas à jour ( j ai la nouvelle version) mais le pb c que je ne sais pkoi les infos ne se mettent pas à jour et comment les icônes png de weather plus ne se remettent pas à jour ??? :ane: :merci:
Haut de page
#10
Vieux 03/05/2003, 10h04
romsworld
-
Basic
Date d'inscription : avril 2003
Messages : 24
romsworld est déconnecté
Humhum.... Moi j'ai limpression qu'il y a une mise a jour qu'une fois par jour ! Donc en gros yen a pas !

Enfin j'ai pas bien observer encore, mais c mon avis.

Mais si tu veux etre sur que tu ai les derniere image du temps, alors voila les etape

1. tu fermes le client.exe
2. Tu va dans ton repertoire srcipt
3. tu surprimes le fichier weather.cache.xml
4. tu cliques 2 fois sur ton fichier RefreshWeatherPlus.vbs

VOila en gros ce que fais ce fichier :
- il recupere les onformation du temps qu'il met dans le fichier xml.
-Ensuite il ouvre ton client.exe
-Le script est lancé, le client lis le fichier WeatherPlus.vbs qui a sont tour li les donne du fichier xml.
-Les donne recupere s'affiche ainsi que les image en fonction du temps.

VOili, j'espere que c pas trop compliker !
Haut de page
#11
Vieux 03/05/2003, 10h20
xam1311
-
Basic
Date d'inscription : avril 2003
Messages : 54
xam1311 est déconnecté
c pour ça en fait que ma tâche planifié ne marche pas c à cause :boulet: de .xml ensuite je peux mettre une tache planifiée qui supprime ce fichier par ex toutes les heures et ensuite execute refreshweather???? un autre truc moi l'icône png ne change jamais pourtant j'en ai pris une dans /skins/weather/ tmpicons faut il affecter un script dessus ou l'attacher à un script du genre (temps )là je ne sais pas ?? :light:

Ps: ta traduc est très bien :merci:
Haut de page
#12
Vieux 03/05/2003, 11h02
romsworld
-
Basic
Date d'inscription : avril 2003
Messages : 24
romsworld est déconnecté
humhum Powwaaa, il viens d'y avoir une mise a jour, donc ca annule mon message d'avant ! Sniff

C bizarre, ma tache planifier ne marhce pas. Mon fichier datais de 9h et il est 11h pourtnat j'avais mi toutes les heures

Ce que j'ai fais, sans rien toucher j'ai simplement clicker 2 fois sur mon RefreshWeatherPlus.vbs, sans suprime le xml. ca ma remi a jour les images et les info.

Donc ca vien de la tache planifier. FO ke je regarde ca.
Sinon les images que le script demande daffichier ne sons autre que des copies.

Je m'explike. en fait le script regarde le Xml, et et vois que pour aujourd'hui il fais Bo, il prend l'image Soleil et la copi en Tmp....1 par ex.
A chake fois kon lance le script ces fichier image TMp son ecraser.

Voila pour la ptit explication
Haut de page
#13
Vieux 03/05/2003, 19h40
xam1311
-
Basic
Date d'inscription : avril 2003
Messages : 54
xam1311 est déconnecté
donc tu dois rajouter une icône png tmp(au hasard) sur ton bureau pour que le fichier xml le remette à jour tout seul c ça ( si c ça bah moi je mets une icône tmp au hasard sur le bureau et elle n'est jamais remis à jour :-o
Haut de page
#14
Vieux 04/05/2003, 12h47
romsworld
-
Basic
Date d'inscription : avril 2003
Messages : 24
romsworld est déconnecté
Pas tout compris en fait !

au premier lancement il ne faut pas que tu ais de .xml
Par contre si tu veux fair des mise a jours apres, ya juste a lancer le vbs refresh.

Mais si a chake fois qu'on eteint le pc, et le lendemain qu'on le rallume, fo suprrimer ce foutu fichier xml.

J'ai essayer de faire les tahce planifier, mais ca me fait un bug a la con, il me remet les icones par defaut de corbeille que j'ai change ! pourtant ca na rien avoir !
Alors j'ai laisse tomber pour la mise a jour du temps. je le fait a la main pour linstant :desole: :desole:
Haut de page
#15
Vieux 02/06/2003, 09h57
Popov
-
Basic
Date d'inscription : juin 2003
Messages : 1
Popov est déconnecté
Oula mois j'ai un gros PB, y a rien qui marche,
je lance pourtant le RefreshWeatherPlus.vbs puis j'essais le scrip WeatherPlus.vbs dans l'éditeur, et quand je clique sur test pour getCity il ne m'affiche rien, et quand je demande tempil m'affiche juste °C.
J'ai donc ouvert le weather.cache.xml et il est vide.

Que faire.

PS: Samurize est installer sur mon Disque E:\, là ou il y a WINDOWS et tout. Mon C:\ étant mon disque amovible et mon D:\ mon lecteur DVD.

MERCI

PS2: g modifié comme ceci=>

Début de RefreshWeatherPlus.vbs=>


'YAWS v 0.2 by cicada (cicada@mail.bg) - weather script
'Cache, weather images and client.exe management

'Compatibile with Samurize 0.84 and probably with higher viersions
'Weather information provided by Intercept Vector (http://weather.interceptvector.com)
'For Sofia, Bulgaria, using Celsius it is: http://weather.interceptvector.com/weather...U=&celsius=true

Option Explicit

On Error Resume Next

Dim WEATHER_URL, fso, cacheFile, wasOld

'http://weather.interceptvector.com/w...RlJYWDAwNzE%3D


const CITY_ID= "RlJYWDAwNzY=" 'get your city id from http://weather.interceptvector.com/list.php
const USE_CELSIUS= True 'make it False if you want Fahrenheit
const SAMURIZE_DIRECTORY= "E:\Program Files\Samurize" 'change if different than yours

' --- DO NOT TOUCH THE CODE AFETR THAT POINT UNLESS YOU KNOW WHAT YOU ARE DOING ---


Début de WeatherPlus.vbs=>
'YAWS v 0.2 by cicada (cicada@mail.bg) - weather script for Samurize 0.84 and higher
'Temperature, city and environment management

'Compatibile with Samurize 0.84 and probably with higher viersions
'Weather information provided by Intercept Vector (http://weather.interceptvector.com)
'For Sofia, Bulgaria, using Celsius it is: http://weather.interceptvector.com/w...=&celsius=true

Option Explicit
On Error Resume Next

const SAMURIZE_DIRECTORY= "E:\Program Files\Samurize" 'change if different than yours
const USE_CELSIUS= True 'make it False if you want Fahrenheit

' --- DO NOT TOUCH THE CODE AFTER THAT POINT UNLESS YOU KNOW WHAT YOU ARE DOING ---
Haut de page
#16
Vieux 06/06/2003, 21h08
jaggy
-
Basic
Date d'inscription : mai 2003
Messages : 30
jaggy est déconnecté
idem que popov sauf que j'ai les fichiers d'origine (rien modifié) et que c dans le reop program files chez moi...
Haut de page
#17
Vieux 06/06/2003, 22h57
Anti-trust
Z'avez pas vu Cortex ?
Avatar de Anti-trust
Ultimate
Date d'inscription : décembre 2002
Messages : 11 004
Anti-trust est déconnecté
le script ne fonctionne plus

bubka avait fait une news en page d'accueil

Citation:
Avis aux utilisateurs du script météo Weather Plus.

Le site http://weather.interceptvector.com ne fournit plus correctement les pages xml utilisées par ce script. Intile donc de poster sur le forum pour demande de l'aide, ca ne marchera pas plus

Un peu de patience est de mise, esperons que tout revienne dans l'ordre au plus vite.
Just Maried !

Ce soir, comme tous les soirs Cortex et moi allons tenter de conquérir le monde
Haut de page
Discussion fermée
Utilisateurs regardant la discussion actuelle : 1 (0 membre(s) et 1 invité(s))
 


Navigation rapide
Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages
Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Règles du forum

Powered by vBulletin® Version 3.8.11 - Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Version française #21 par l'association vBulletin francophone - CNIL N°834125