coucher et lever du soleil

**Angelus1753** · 09/12/2020, 10h58

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

**steph78630** · 09/12/2020, 13h51

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).

**Angelus1753** · 09/12/2020, 14h55

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

**steph78630** · 09/12/2020, 15h04

Exact, je comprend mieux :-)

**ProgElecT** · 09/12/2020, 15h17

Salut

Vois si cela peu te servir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ProgElecT** · 09/12/2020, 15h31

Re

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Angelus1753** · 09/12/2020, 18h24

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.

**ProgElecT** · 09/12/2020, 18h32

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

**Angelus1753** · 09/12/2020, 18h42

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 )

**steph78630** · 09/12/2020, 21h49

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é...

**steph78630** · 09/12/2020, 21h58

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

https://www.mediaforma.com/faire-par...ws-en-francais

**Angelus1753** · 09/12/2020, 22h19

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

**steph78630** · 09/12/2020, 22h27

Ok, avec plaisir.

Windows me surprendra toujours...

**ProgElecT** · 10/12/2020, 12h48

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Angelus1753** · 10/12/2020, 23h38

Un grand bravo à vous ProgElect

**ProgElecT** · 13/12/2020, 14h26

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

coucher et lever du soleil

VBScript

Discussions similaires

Partager

Partager