vbs api
vbs api - VB/VBA/VBS - Programmation
Marsh Posté le 03-05-2004 à 16:11:18
c'est quoi exactement le message d'erreur?
---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Marsh Posté le 03-05-2004 à 17:02:04
| drasche a écrit : c'est quoi exactement le message d'erreur? |
line : 3
char : 17
fin d'instruction attendue
800A0401
erreur de compilation vbs
Marsh Posté le 28-04-2004 à 16:05:03
Bonjour,
je voudrais pourvoir fermer une appli à partir de vbscrpit
apparamment, il faut faire appel à des api :
j'ai trouvé le code suivant sur http://faq.vb.free.fr/index.php?question=114
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10
Private Sub Form_Load()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, "Lecteur CD" )
If hWnd <> 0 Then
Call PostMessage(hWnd, WM_CLOSE, 0, 0)
Else
MsgBox "Impossible de trouver la fenêtre !", vbExclamation
End If
End Sub
ça ne fonctionne pas sous vbscrpit (n'accepte pas la déclaration de fonction)
savez-vous si je peux m'en dépatouiller et si oui, comment ?
merci++
Pat