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

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

Code :

1 2 3 4 5 6 7 8 9 10 11 12

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

Hallo,

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

Code :

1	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

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

Würde dann so gehen:

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12

'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!

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

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

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12

'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!

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.

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

Code vb:

1 2 3 4 5 6 7 8 9 10

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!