Afficher image dans page html avec script vbs [Résolu]
A voir également:
- Vbs html
- Html vbs - Meilleures réponses
- Vbs image - Meilleures réponses
- Visual Basic / VB.NET : Code source vb >> html - CodeS SourceS - Guide
- Visual Basic / VB.NET : Convertisseur de code vb > html rapide ! - CodeS SourceS - Guide
- Faire appel à un fichier .vbs dans page HTML ✓ - Forum - VBScript (VBS)
- Créer une page html - Forum - VB.NET
- Rtf to html vb.net - Guide
10 réponses
il te suffit d'appeler ton code d'envoi de mail dans la partie 'else' de ta condition...
If objComputer.StatusCode = 0 Then
document.write("<IMG SRC=./images/live2.gif")
Else
document.write("<IMG SRC=./images/dead2.gif")
' ENVOI DE MAIL....
End If
If objComputer.StatusCode = 0 Then
document.write("<IMG SRC=./images/live2.gif")
Else
document.write("<IMG SRC=./images/dead2.gif")
' ENVOI DE MAIL....
End If
Les MsgBox personnalisées impliquent un Hook CBT....
faisables en VB, mais pas en VbScript, non.....
Renfield
Admin CodeS-SourceS - MVP Visual Basic
faisables en VB, mais pas en VbScript, non.....
Renfield
Admin CodeS-SourceS - MVP Visual Basic
Et sinon sans MsgBox, est ce qu'il est possible de juste faire un echo ou qque chose du style pour afficher une phrase? Ou sinon une image en faisant un truc du genre <img src =.... ??
Merci encore pour votre aide!!
Merci encore pour votre aide!!
si ton script est intégré dans une page HTML, libre a toi de faire la sortie que tu veux...
un document.write("<IMG SRC=..........
semblearait te convenir
un document.write("<IMG SRC=..........
semblearait te convenir
Parfait merci beaucoup!!!
Par contre, une dernière question; est ce qu'il est possible de dire combien de ping on veut faire en utilisant le code ci-dessus et aussi de préciser un intervalle de temps entre chaque série de ping, par exemple toutes les 2 minutes faire 3 ping...??
Merci
Par contre, une dernière question; est ce qu'il est possible de dire combien de ping on veut faire en utilisant le code ci-dessus et aussi de préciser un intervalle de temps entre chaque série de ping, par exemple toutes les 2 minutes faire 3 ping...??
Merci
fais simplement :
Dim wshShell
set wshShell = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
For i = 1 to 4
Set colPingedComputers = objWMIService.ExecQuery
("Select * from Win32_PingStatus Where Address = 'www.google.com'")
For Each objComputer in colPingedComputers
If objComputer.StatusCode = 0 Then
MsgBox "Essai " & i & " - Le site a répondu"
Else
MsgBox "Essai " & i & " - Le site n'a pas répondu"
End If
Next
Next
Renfield
Admin CodeS-SourceS - MVP Visual Basic
Dim wshShell
set wshShell = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
For i = 1 to 4
Set colPingedComputers = objWMIService.ExecQuery
("Select * from Win32_PingStatus Where Address = 'www.google.com'")
For Each objComputer in colPingedComputers
If objComputer.StatusCode = 0 Then
MsgBox "Essai " & i & " - Le site a répondu"
Else
MsgBox "Essai " & i & " - Le site n'a pas répondu"
End If
Next
Next
Renfield
Admin CodeS-SourceS - MVP Visual Basic
OK merci!!
Maintenant, je vais ajouter un code qui permet d'envoyer un mail en vbs, mais comment est ce que je peux le déclarer après l'affichage de l'image dead2.gif??
En fait, concrètement, je afficher mon image puis envoyer mon mail si le routeur ne répond pas...
If objComputer.StatusCode = 0 Then
document.write("<IMG SRC=./images/live2.gif")
Else
document.write("<IMG SRC=./images/dead2.gif")
End If
MERCI!
Maintenant, je vais ajouter un code qui permet d'envoyer un mail en vbs, mais comment est ce que je peux le déclarer après l'affichage de l'image dead2.gif??
En fait, concrètement, je afficher mon image puis envoyer mon mail si le routeur ne répond pas...
If objComputer.StatusCode = 0 Then
document.write("<IMG SRC=./images/live2.gif")
Else
document.write("<IMG SRC=./images/dead2.gif")
End If
MERCI!