Listbox, Timer und WebBrowser Control

[CoderX]

Guten Abend,

Im Anhang findet ihr ein Screenshot von dem Programm. Also das mit Links hinzufügen hab ich ja schonmal geschafft, nur hackerts jetzt wenn ich die URL hinzugefügt habe und dann unten auf "Start" klicke, dass er die Links von oben bis unten durchgeht.

Der Timer dient dazu um ne Pause von 30 Sekunden dazwischen zu setzen, nur weiß ich nicht wie ich das dem Programm klarmachen kann. Also 30 Sekunden Pause -> nächster Link -> 30 Sekunden Pause usw...

Hoffe ihr könnt mir diesbezüglich ein wenig auf die Sprünge helfen.

Screenshot: http://img488.imageshack.us/img488/1928/listkm1.png

Mit freundlichen Grüßen und eine angenehme Nacht
coderX

 

[Alex F.]

für die 30 sek bräuchtest du einen Timer auf der form

timer1.Intervall = 30000 ' Millisec


Private Sub Timer1_Timer()
   
  ' link aufrufen
  if mycounter < List1.ListCount -1 then
   strlink =   list1.List (mycounter)
   Shell ("iexplore.exe " list1.(mycounter)
   mycounter = mycounter + 1
  end if 
End Sub

grüsse bb

 

[CoderX]

Hallo,

wenn ich den code bei mir Einfüge kommt ein Syntax Error und er springt zur Zeile:

Shell ("iexplore.exe " list1.(mycounter)

Ich hab auch nen Textfeld und noch nen Button hinzugefügt, weil ich das Interval vom Timer auch ändern will das klappt ja auch alles, nur halt bei deinem Stück Code spuckt er immer einen Fehler aus.

Hab ich was falsch gemacht?

Gruß
coderX

 

[DrSoong]

Sieht mir so aus, dass du ein Webbrowser-Control auf der Form hast, oder?

Würde dann so gehen:

'Im allgemeinen Teil, außerhalb aller Subs:
Dim myCounter As Long

'Jetzt in dein Timer-Element:
Private Sub Timer1_Timer()
 Dim curLink$
 If myCounter < List1.ListCount - 1 Then
   curLink = List1.List(myCounter)
   WebBrowser1.Navigate CurLink
   myCcounter = myCounter + 1
  End If
End Sub

Der Doc!

 

[CoderX]

Danke,

der Code von dir funktioniert, aber:

Er lädt nur die erste Seite aus der Liste also wenn ich als Beispiel Google.de hinzufüge und Web.de, öffnet er nur Google und danach macht er garnichts mehr.

\\Edit:

Und Ja, ich benutze das WebBrowser Control

Gruß
coderX

 

[DrSoong]

Habs gerade gesehen, kleiner Schreibfehler mit großer Wirkung. Hier das ganze korrigiert:

'Im allgemeinen Teil, außerhalb aller Subs:
Dim myCounter As Long

'Jetzt in dein Timer-Element:
Private Sub Timer1_Timer()
 Dim curLink$
 If myCounter < List1.ListCount - 1 Then
   curLink = List1.List(myCounter)
   WebBrowser1.Navigate CurLink
   myCounter = myCounter + 1 'hatte hier myCcounter stehen, daher zählte er nicht korrekt hoch
  End If
End Sub

Der Doc!

 

[CoderX]

Hi,

nun gut, jetzt ruft er zwar die erste URL auf die in der Listbox steht, bleibt aber dann wieder stehen und macht nix mehr weiter. Es is auch völlig egal welches Interval ich nehme.

 

[DrSoong]

Noch ne Korrektur, ein Fehler in der Zählung:

Private Sub Timer1_Timer()
 Dim curLink$
 If myCounter < List1.ListCount Then 'Hier war der Denkfehler
   curLink = List1.List(myCounter)
   WebBrowser1.Navigate curLink
   myCounter = myCounter + 1
  Else
   Timer1.Enabled = False
  End If
End Sub

Hab noch die Deaktivierung des Timers eingebaut, wenn die Anzahl erreicht wurde. Hab das Script getestet, funktioniert so 100%ig.


Der Doc!