Script et API

ZZEBULONComment accéder à un API depuis un script VBS?

Salut,

Il n'est pas possible d'accéder directement aux API's via VBS.
Selon ton besoin, il faudra utiliser les objets disponibles dans Windows. Comme WMI...

Par exemple, pour utiliser l'API ExitWindowsEx (qui permet de faire un shutdown de Windows), on utilisera VBS ainsi:

set WshShell = wscript.CreateObject("Shell.Application")
WshShell.ShutdownWindows


Guy

ou alors creer une dll activex vb puis l'appeler avec un createobject dans ton script vbscript ...
**shadowmoy**

Je m'en doutais un peu!
Merci pour vos astuces.

Bonjour,

je me permet de faire suite, g le ^m pb :

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