Hi, ich probiere jetzt schon über ne Stunde ein Programm zu schreiben das mir ein Makro so oft ausführt wie ich es in das Textfeld schreibe. Aber es muss nachdem es das Makro ausführt 65 Sekunden warten und es erst dann erneut ausführen. Achja das Makro liegt als *.exe vor. Könnte mir irgendjemand dabei helfen bin echt am verzweifeln und finde nichts.
igoe Gast
Verfasst am: 05.02.2009, 08:02
Ich würde dir dein Makro in vb6 Selber schreiben, das wäre
viel besser zudem du dann entscheiden könntest, wann es loslegt, und aufhört.
' API Declaration
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Delay(nSekunden As Long) 'ist für die wartezeit
Dim TimeOut As Long
' Abbruchbedingung für die Do Loop Schleife ermitteln
TimeOut = (GetTickCount / 1000) + nSekunden
Do
' Systemevents zulassen
DoEvents
' TimeOut erreicht?
Loop Until TimeOut < (GetTickCount / 1000)
End Sub
private sub command1_click()
for i = 1 to text1.text
shell ("pfad\zu\deiner\exe.exe") 'die exe starten
Delay 65 '65sek warten
next
end sub
remember:
ein wahrer freund ersticht dich von vorne
Registrieren
Login
