Discussion :

[Tuizi]

Bonjour,

Voila je cherche à appeler des fonctions de DLL telle que user32, kernel32 en VBS. Seulement à chaque fois que j'appel une fonction celle ci me retourne 0.

En m'inspirant d'un code trouvé sur internet, voici mon code qui me retourne 0:

Code :

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

1
2
3
4
5
6
7
8
9
Dim WShell
Dim handle
 
Set handle = 3
 
Set WShell = CreateObject("WScript.Shell" ) 
Set handle = WShell.Run ("RunDll32.exe kernel32.dll, GetTickCount" )
 
MsgBox handle

Merci de votre aide

[ced600]

Essaye :

Code :

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

Set handle = WShell.Run ("RunDll32.exe kernel32.dll, GetTickCount", true )

[Tuizi]

Essaye :

Code :

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

Set handle = WShell.Run ("RunDll32.exe kernel32.dll, GetTickCount", true )

J'obtiens l'erreur "Objet requis: 'Run(...)'" sur cette ligne

[ced600]

heu, je ne t'ai mis que la ligne modifié, il faut reprendre le reste du script pour que cela fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
Dim WShell
Dim handle
 
Set handle = 3
 
Set WShell = CreateObject("WScript.Shell" ) 
Set handle = WShell.Run ("RunDll32.exe kernel32.dll, GetTickCount", true )
 
MsgBox handle

Et comprends tu ce que j'ai fait ? A quoi sert le true ?

[Tuizi]

ouais nan toujours la même erreur en recopiant ton code!

[ced600]

ha oui j'avais pas vu.
Le Set n'est utilisé que lorsque l'on récupère un objet lors de l'appel d'une fonction.
Run renvois un nombre, donc il ne faut pas de Set.

Code :

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

1
2
3
4
5
6
7
Dim WShell
Dim handle
 
Set WShell = CreateObject("WScript.Shell" ) 
handle = WShell.Run ("RunDll32.exe kernel32.dll, GetTickCount", true )
 
MsgBox handle

J'ai testé et cela marche.