|
| Autor |
Nachricht |
schacky1995
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 14
|
Pausen einfügen bzw. 2 URL's im WebBrow aufrufen mit 1 Klick
Verfasst am: 05.01.2011, 01:02 |
|
|
Also
Ich arbeite in VB6 mit dem WebBrowser
Für ein Browsergamer soll es verschiedene Seiten aufrufen.
Zur Zeit funktioniert es ungefähr so:
Command1_Click()
... durch den ersten Button wird dafür gesorgt, dass sich mein Account einloggt.
... funktionert auch alles, daher unwichtig.
Command2_Click()
WebBrowser1.Navigate "www.ich-mache-hier-schon-keine-werbung.de/nachtwache"
Command3_Click()
WebBrowser1.Navigate "www.ich-mache-hier-schon-keine-werbung.de/logout.html"
Ich würde aber jetzt gerne, dass ich mit einem Button beide Links aufrufen kann - nicht gleichzeitig, sondern erst den ersten, dann den zweiten.
Nicht funktioniert hat:
CommandXYZ_Click()
WebBrowser1.Navigate "www.ich-mache-hier-schon-keine-werbung.de/logout.html"
WebBrowser1.Navigate "www.ich-mache-hier-schon-keine-werbung.de/nachtwache"
Ebenso nicht funktioniert hat:
CommandXYZ_Click()
WebBrowser1.Navigate "www.ich-mache-hier-schon-keine-werbung.de/logout.html"
Sleep 1000 bzw. 10000
WebBrowser1.Navigate "www.ich-mache-hier-schon-keine-werbung.de/nachtwache" |
|
| |
|
 |
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 05.01.2011, 17:08 |
|
|
mit sleep hälst du das ganze programm an!!!
probiers mit
| Code: |
do
doEvents
while webbrowser1.busy = True
|
lg |
|
| |
|
|
schacky1995
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 14
|
Verfasst am: 05.01.2011, 23:43 |
|
|
Okay..
Blicke aber nicht ganz durch..
könntest du mir mein Beispiel ersetzen?
Command1_Click()
WebBrowser1.Navigate "www.google.de"
<< hier soll nun eine 1-sekündige Pause gemacht werden (zum Laden etc.)
WebBrowser1.Navigate "www.youtube.com"
Hab extra die bekannten Adressen genommen und hoffe das wird nicht als Werbung gewertet 
EDIT: oder....
Busy bedeutet ja ca. beschäftigt..
Heißt es sozusagen, dass der WebBrowser erst die nächste Seite aufruft, wenn er "unbeschäftigt" ist (wenn nichts am Laden ist) =?
Das wäre nämlich auch nicht schlecht. |
|
| |
|
|
schacky1995
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 14
|
Verfasst am: 11.01.2011, 21:57 |
|
|
| push |
|
| |
|
|
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 16.01.2011, 10:19 |
|
|
hi das hast du ganz richtig verstanden...
jetzt brauchst dass nur mehr zusammen setzen
WebBrowser1.Navigate "www.google.de"
do
doEvents
while webbrowser1.busy = True
WebBrowser1.Navigate "www.youtube.com"
oder du suchst nach dem delay modul
und verwendest das
lg |
|
| |
|
|
schacky1995
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 14
|
Verfasst am: 26.02.2011, 12:57 |
|
|
Private Sub Command1_Click() (Account Nr. 1 )
### Hier werden die Accountdaten eingegeben und der Grafische Anmelde-Button wird geklickt
Private Sub Command100_Click()
### Diese Seite soll von jedem Account aufgerufen werden
Private Sub Command101_Click()
### Hier wird der Account ausgeloggt
Private Sub Command2_Click() (Account Nr. 2 )
### Account Nr.2 .... usw.
Wäre es möglich, dass ich mit einem Klick alle 3 Aktionen durchführen kann?
Der Button würde dann ungefähr so aussehen.
Ich wusste nicht genau, ob "Pause" das richtige wort ist, aber ihr wisst hoffentlich was gemeint ist.
Er soll halt alles nach der Reihe durchführen.
Kann mir jemand bitte den CommandXY_Click ausfüllen, dass ich ihn nurnoch einfügen muss ?
MfG |
|
| |
|
|
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 28.02.2011, 10:11 |
|
|
hi
hab ich schon mal gepostet
Private Sub CommandXY_Click()
WebBrowser1.Document.Forms(0).loginname.Value = "Name1"
WebBrowser1.Document.Forms(0).loginpwd.Value = "Passwort1"
On Error Resume Next
WebBrowser1.Document.Forms(0).submit.Click
do
doEvents
while webbrowser1.busy = True
WebBrowser1.Navigate "http://www.schulterglatze.de/truppe/wache/teilnehmen"
do
doEvents
while webbrowser1.busy = True
WebBrowser1.Navigate "www.schulterglatze.de/logout.php"
End Sub
mfg |
|
| |
|
|
schacky1995
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 14
|
Verfasst am: 16.03.2011, 22:22 |
|
|
Hab noch ein problem
Jetzt geht auf einmal was schief, was vorher exakt auf diese art ging
Method or Data Member not found.
Mit ner Verweisung auf die Zeilen wo jeweils steht "WebBrowser1.Navigate "www.adresse.de"" |
|
| |
|
|
Registrieren
Login
