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.

[Tuizi]

ba euh... non ça marche pas, ça retourne toujours 0

[ced600]

ba euh... non ça marche pas, ça retourne toujours 0

Si cela marche, mais cela ne fait ce que tu veux, c'est différent

es tu sur que

Code :

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

RunDll32.exe kernel32.dll, GetTickCount

retourne autre chose que 0 ?

Perso ceci dans une console dos

Code :

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

RunDll32.exe kernel32.dll, GetTickCount > c:\test.txt

ne m'écrit rien dans le fichier test.txt

[omen999]

salut,
on ne peut pas récupérer une valeur avec ce genre de technique
deux solutions:
the hard way : appel de la fonction GetTickCount de kernel32 avec un wrapper (voir les contribs pour les exemples)
the easy way : http://www.microsoft.com/technet/scr...5/hey0802.mspx