|
| Autor |
Nachricht |
Anonymous_
Newbie
Anmeldedatum: 03.11.2007
Beiträge: 15
|
Sleep function
Verfasst am: 13.01.2008, 20:50 |
|
|
Frage: warum führt er bei dieser Prozedur nicht die ganzen TAB schritte aus und bestätigt dann?
Das Programm schläft nur ein und schickt die MSGBOX mehr nicht,,,
| Code: | Private Sub Command3_Click()
WebBrowser1.SetFocus
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{ENTER}"
Sleep 2000
MsgBox "blabla"
End Sub
|
warum führt er bei dieser Prozedur nicht die ganzen TAB schritte aus und bestätigt dann?
Das Programm schläft nur ein und und sendet danach "blabla".
Was ist falsch?[/code] |
|
| |
|
 |
sollniss_
Coder
Anmeldedatum: 08.09.2007
Beiträge: 212
|
Verfasst am: 13.01.2008, 21:10 |
|
|
vielleicht so:
| Code: | sendkeys("{tab}")
sendkeys("{enter}") |
http://sollniss.1x.to/
 |
|
| |
|
|
Anonymous_
Newbie
Anmeldedatum: 03.11.2007
Beiträge: 15
|
Verfasst am: 13.01.2008, 21:31 |
|
|
ne ohne Sleep klappts...
Aber ich brauche da einige Sekunden Pause |
|
| |
|
|
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 13.01.2008, 21:33 |
|
|
Dann nehm die delay funktion!
 |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 13.01.2008, 21:42 |
|
|
Wenn du ne Pause in dein Programm einfügen möchtest
| Code: |
Sub Pause(Seconds As Single)
Dim Timer1 As Single, Timer2 As Single, currentDate As Date
currentDate = Date
Timer1 = Timer + Seconds
Timer2 = Timer1 - 86400 '24 Stunden
While ((Timer() < Timer1) And (currentDate = Date)) Or _
((Timer() < Timer2) And (currentDate + 1 = Date))
DoEvents 'Andere Prozesse nicht behindern
Wend
End Sub |
Aufgerufen wird das ganze durch:
Wobei x für die Anzahl der Sekunden steht
MFG RaG3 |
|
| |
|
|
toilette_
Coder
Anmeldedatum: 20.10.2007
Beiträge: 86
|
Verfasst am: 13.01.2008, 21:56 |
|
|
gib bei google: vb6 wait
ein, da gibts ne gaaaaaanz tolle warte function!!! |
|
| |
|
|
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 13.01.2008, 22:00 |
|
|
Modul
| Code: | ' *********************************************************
' *
' * Modul Delay
' *
' *********************************************************
Option Explicit
' API Declaration
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Delay(nSekunden As Long)
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 |
In Form:
= 5 Sekunden warten
|
|
| |
|
|
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
|
Verfasst am: 14.01.2008, 05:45 |
|
|
schreib einfach
rein -.-
das gibt dem Programm eigentlich die Zeit, die befehle auszuführen |
|
| |
|
|
Registrieren
Login
