bonjour
J'essai d'envoyer des commandes a une carte relai. j'ai fait un petit script qui marche mais je pense qu'il y a plus simple et surtout plus rapide en execution , peut etre sans ouvrir IE. C'est une commande ouverture fermeture d'un relai pour simuler une impulsion sur un bouton.
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 Function EnvoyerImpuls() As Boolean Dim strInput As String Dim IE As Object Dim delay As Double delay = 1 Start = Timer + delay ' pour 1 seconde Set IE = CreateObject("InternetExplorer.Application") strInput = ("http://192.168.1.204/preset.htm?led1=1") IE.navigate strInput IE.Quit While Timer < Start DoEvents Wend Set IE = CreateObject("InternetExplorer.Application") strInput = ("http://192.168.1.204/preset.htm?led1=0") IE.navigate strInput IE.Quit End Function
Partager