coucher et lever du soleil

Version imprimable

09/12/2020, 10h58
Angelus1753

coucher et lever du soleil

Bonjour à tous

Je reviens vers vous pour une nouvelle question sur un nouveau sujet

Ma question est il possible en (HTA)

d'avoir l'info sur un site de savoir a quel heure ce léve le soleil, et son coucher.

moi je voudrai le vocaliser grace à un ( HTA ) et que la fenétre s'en va. une fois vocalisé

voici le site ou j'aimerai récupèrer l'info

https://www.google.com/search?q=couc...hrome&ie=UTF-8

merci par avance pour vos réponse
09/12/2020, 13h51
steph78630

Bonjour,

à la place de google (qui n'affiche chez moi que le coucher), je chercherais plutôt une API qui donnerait la même chose et peut-être en plus les prévisions météo (ce qui serait pas mal..)

Après, à toi de voir mais pas besoin de créer un HTA pour vocaliser le résultat et afficher "furtivement" une fenêtre, un VBS suffit (si tu souhaites bien entendre le résultat en plus de l'afficher).
09/12/2020, 14h55
Angelus1753

Merci pour la réponse, pour la météo j'ai réussi en JS c'est le coucher du soleil ou je bloque.

Pourquoi ( HTA ) sur Windows 7 64 sa vocalises en FR avec la voix sapi de Virginie.

ProgElect, avais réussi à faire encore plus complexe une recherche par mot-clé sur n'importe quel site internet en HTA très bien fait
09/12/2020, 15h04
steph78630

Exact, je comprend mieux :-)

Salut

Vois si cela peu te servir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
	Option Explicit
        Dim HLever, Hcoucher
	Dim ChemSleep
	'*****************************************************************
	'*****************************************************************
	Sub VerifSleeper()
		' ************ procédure pour vérifier/créer un substitut à la fonction Sleep, ******
		' ************        car wscript.sleep ne marche pas dans un HTA              ******
		Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
		Dim TempFolder : Set TempFolder = Fso.GetSpecialFolder(2)
		Dim TempName : TempName = "Sleeper.vbs"
		ChemSleep = TempFolder&"\"&TempName
		Set TempFolder = NotHing
		' vérifier que le système a ou n'a pas déjà le substitut à la fonction WScript.Sleep
		If Not Fso.FileExists(ChemSleep) Then
			' Création du fichier Sleeper.vbs, substitut de la fonction WScript.Sleep
			Dim objOutputFile : Set objOutputFile = Fso.CreateTextFile(ChemSleep, True)
			objOutputFile.Write "wscript.sleep WScript.Arguments(0)"
			objOutputFile.Close
			Set objOutputFile = NotHing
		End If
		Set Fso = NotHing
		' ***********************************************************************************
	End Sub
	' ************************ utilisation du substitut de WScript.Sleep ********************
	Sub Sleep(MSecs): CreateObject("WScript.Shell").Run ChemSleep &" "& MSecs,1,True: End Sub
	' ***************************************************************************************
	'------------------------------------------------------------------------------------------------------------------
    	Sub RecupeHoraires()
		Dim ie, DebUrl, FinUrl, SrcUrl, doc
		DebUrl = "http://calendriersolaire.com/fr/paris"
		FinUrl = ""
		SrcUrl = DebUrl & FinUrl
 
		on error resume next
		Set ie = CreateObject("internetexplorer.application")
		ie.Navigate SrcUrl,2
		If Err Then
			 MsgBox "Erreur N°" & Err.Number & vbNewLine & Err.Description: Err.Clear: Exit Sub
		End If
		Err.Clear
		Do While ie.Busy: Sleep 200: Loop ' <----- Appel du supstitut de WScript..Sleep pour le HTA
		ie.visible = true
 
		Set doc = ie.Document
 
		HLever = RecupHeure(Right(doc.getElementsByTagName("p").item(3).innertext,10))'heure du lever du soleil
		Hcoucher = RecupHeure(Right(doc.getElementsByTagName("p").item(4).innertext,10))'heure du coucher du soleil
		ie.quit: Set doc = Nothing: Set ie = Nothing
 
	End Sub
 
        Function RecupHeure(dataH)
                Dim H, M, S
 
                RecupHeure = Trim(dataH)
                RecupHeure = Left(RecupHeure,len(RecupHeure)-3)
                If Right(dataH, 2) = "PM" Then
                        H = Hour(RecupHeure) + 12
                        M = Minute(RecupHeure)
                        S = Second(RecupHeure)
                        RecupHeure = H & ":" & M & ":" & S
                End If
 
	End Function	
 
	VerifSleeper 'pour avoir Sleep dans un HTA
        RecupeHoraires
msgbox "Le soleil se leve à : " &  HLever & vbnewline & vbnewline & "Le soleil se couche à : " &  Hcoucher

Pour la vocalisation il existe des codes dans ce forum, recherche avec le terme SAPI

Re

Je te met la fin du code à modifier pour avoir la naration

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
                        RecupHeure = H & " heure " & M & " minute " & S & " seconde"
                End If
 
	End Function	
 
	VerifSleeper 'pour avoir Sleep dans un HTA
        RecupeHoraires
msgbox "Le soleil se leve à : " &  HLever & vbnewline & vbnewline & "Le soleil se couche à : " &  Hcoucher
 
Dim Parler, TexteAlire
 
 
		TexteAlire = "Le soleil se leve à : " &  HLever & ". Le soleil se couche à : " &  Hcoucher
		On Error Resume Next
                Set Parler = CreateObject("SAPI.SpVoice").Speak(TexteAlire)
                If Err Then Err.Clear

09/12/2020, 18h24
Angelus1753

Bonsoir ProgElect !

Petit retour sur vôtre code il fonctionne il inscrit et vocalises mais en anglais.

A mon grand désarroi.

Mais comme à vôtre habitude sa fonctionne.
09/12/2020, 18h32
ProgElecT

Citation:

Envoyé par Angelus1753

... il fonctionne il inscrit et vocalises mais en anglais. ...

l me semble que le langage pour la vocalisation est différente entre un code HTA et code VbScript (tes essais étaient en quoi?), a vérifier donc, je vais rechercher dans mes bouts de programmes pour le choix de la langue, de tête, je ne me souvient pas de la ligne de commande pour faire se changement.

Regardes du coté de ce lien cela devrait t'aider
09/12/2020, 18h42
Angelus1753

J'ai testé en vbs

Et j'avais déjà regardé le sujet de Hackoofr...sans succès.

La seule façon pour avoir les voix en français c'est par du ( HTA )
09/12/2020, 21h49
steph78630

Habituellement, il y a une voix française installée (dans mon PC c'est Hortense)... et Zira qui est une voix américaine.

Pour le vérifier, exécuter : C:\Windows\System32\Speech\SpeechUX\sapi.cpl

Sinon, il me semble que la voix française est gérée sous Windows 64 bits par C:\Windows\SysWOW64\Speech\SpeechUX\sapi.CPL
alors que par défaut c'est C:\Windows\System32\Speech\SpeechUX\sapi.CPL

> Il y a certainement une modif à faire à ce niveau... J'avais même lu un truc qui disait de remplacer le fichier sapi.CPL du dossier System32 par celui de SysWOW64 mais n'en ayant pas besoin je n'ai pas essayé...
09/12/2020, 21h58
steph78630

Je viens de retrouver l'article pour le changement de la voix :

https://www.mediaforma.com/faire-par...ws-en-francais
09/12/2020, 22h19
Angelus1753

j'ai déja testè tous cela sans succée, seul les ( HTA ) arrivent a vocalisé avec la voix de virginie et en français que ce soit sous windows 10 , 8.1, 7

prenons l'exemple de recherche par mot clé vocalisation en français et d'autres toujours en ( HTA )

mais, merci à toi steph78630
09/12/2020, 22h27
steph78630

Ok, avec plaisir.

Windows me surprendra toujours...

Salut

Rectificatif, petit erreur dans le If de la fonction RecupHeure,

Code:

1
2
3
4
5
                If Right(dataH, 2) = "PM" Then
                        H = Hour(RecupHeure) + 12
                        Else
                        H = Hour(RecupHeure)
                End If

Je remet le code complet pour ne pas pécher dans les différents codes déposés jusqu'ici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
                                          	Option Explicit
        Dim HLever, Hcoucher
	Dim ChemSleep
	'*****************************************************************
	'*****************************************************************
	Sub VerifSleeper()
		' ************ procédure pour vérifier/créer un substitut à la fonction Sleep, ******
		' ************        car wscript.sleep ne marche pas dans un HTA              ******
		Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
		Dim TempFolder : Set TempFolder = Fso.GetSpecialFolder(2)
		Dim TempName : TempName = "Sleeper.vbs"
		ChemSleep = TempFolder&"\"&TempName
		Set TempFolder = NotHing
		' vérifier que le système a ou n'a pas déjà le substitut à la fonction WScript.Sleep
		If Not Fso.FileExists(ChemSleep) Then
			' Création du fichier Sleeper.vbs, substitut de la fonction WScript.Sleep
			Dim objOutputFile : Set objOutputFile = Fso.CreateTextFile(ChemSleep, True)
			objOutputFile.Write "wscript.sleep WScript.Arguments(0)"
			objOutputFile.Close
			Set objOutputFile = NotHing
		End If
		Set Fso = NotHing
		' ***********************************************************************************
	End Sub
	' ************************ utilisation du substitut de WScript.Sleep ********************
	Sub Sleep(MSecs): CreateObject("WScript.Shell").Run ChemSleep &" "& MSecs,1,True: End Sub
	' ***************************************************************************************
	'------------------------------------------------------------------------------------------------------------------
    	Sub RecupeHoraires()
		Dim ie, DebUrl, FinUrl, SrcUrl, doc
		DebUrl = "http://calendriersolaire.com/fr/paris"
		FinUrl = ""
		SrcUrl = DebUrl & FinUrl
 
		on error resume next
		Set ie = CreateObject("internetexplorer.application")
		ie.Navigate SrcUrl,2
		If Err Then
			 MsgBox "Erreur N°" & Err.Number & vbNewLine & Err.Description: Err.Clear: Exit Sub
		End If
		Err.Clear
		Do While ie.Busy: Sleep 200: Loop ' <----- Appel du supstitut de WScript..Sleep pour le HTA
		ie.visible = true
 
		Set doc = ie.Document
 
		HLever = RecupHeure(Right(doc.getElementsByTagName("p").item(3).innertext,10))'heure du lever du soleil
		Hcoucher = RecupHeure(Right(doc.getElementsByTagName("p").item(4).innertext,10))'heure du coucher du soleil
		ie.quit: Set doc = Nothing: Set ie = Nothing
 
	End Sub
 
        Function RecupHeure(dataH)
                Dim H, M, S
 
                RecupHeure = Trim(dataH)
                RecupHeure = Left(RecupHeure,len(RecupHeure)-3)
                If Right(dataH, 2) = "PM" Then
                        H = Hour(RecupHeure) + 12
                        Else
                        H = Hour(RecupHeure)
                End If
                M = Minute(RecupHeure)
                S = Second(RecupHeure)
                RecupHeure = H & " heure " & M & " minute " & S & " seconde"
 
	End Function	
 
	VerifSleeper 'pour avoir Sleep dans un HTA
        RecupeHoraires
msgbox "Le soleil se leve à : " &  HLever & vbnewline & vbnewline & "Le soleil se couche à : " &  Hcoucher
 
Dim Parler, TexteAlire
 
 
		TexteAlire = "Le soleil se leve à : " &  HLever & ". Le soleil se couche à : " &  Hcoucher
		On Error Resume Next
                Set Parler = CreateObject("SAPI.SpVoice").Speak(TexteAlire)
                If Err Then Err.Clear

10/12/2020, 23h38
Angelus1753

Un grand bravo à vous ProgElect
13/12/2020, 14h26
ProgElecT

Salut

Pour information, j'ai mis à disposition 2 codes qui permettent de choisir le narrateur (la voix), 1 en VBScript direct et l'autre en HTA.
C'est ICI