Appel d'une fonction d'une DLL retourne 0

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:

---

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

Essaye :

Code:

---

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

---

Citation:

---

Envoyé par ced600

Essaye :

Code:

---

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

---

---

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

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

Code:

---

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 ?

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

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:

---

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.

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

Citation:

---

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:

---

RunDll32.exe kernel32.dll, GetTickCount

---

retourne autre chose que 0 ?

Perso ceci dans une console dos

Code:

---

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

---

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

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