Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
Rshard
Newbie
Newbie

Anmeldedatum: 21.12.2009
Beiträge: 1
Aktion doppelt Ausführen
Verfasst am: 21.12.2009, 15:04
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label3.Text = "Es wurden " & Ticks & " Freunde Geaddet."
        If Ticks <= 20 Then Wenn es noch nicht 20 durchgänge waren
            Ticks += 1
            WebBrowser1.Navigate("xxxxxxxxxxxxxxxxxxxxxxxxxxx")
        Else
            Timer1.Enabled = False
            If SeitenTicks <= Seiten Then
                SeitenTicks += 1
                Ticks = 0
                WebBrowser1.Navigate("http://www.xxxxxxxx.xx/xxxxx,xxxxx.php?x=" & TextBox1.Text & "&xxxxx=xxxx&xxxx=" & SeitenTicks)
                ListBox1.Items.Add("xxxx")
                Do
                    Application.DoEvents()
                Loop Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
                Timer1.Enabled = True
            End If
        End If
    End Sub


Nun suche ich folgendes, ich will das der Code nochmal Ausgeführt wird aber anstatt Textbox1.Text soll bei 2 Ausführen Textbox2.Text und beim 3 Ausführen Textbox3.Text
_________________
 
StarTrekkker_
Newbie
Newbie

Anmeldedatum: 05.12.2007
Beiträge: 8

Verfasst am: 23.12.2009, 00:24
Moin,
Ich würde das mit einem Array machen, welches die Werte der TextBoxen enthält und vorm Start des Timers Deklariert wird:

Code:

Dim TextArray(2) as String
Sub Btn_Start_Click ()
    TextArray(0) = TextBox1.Text
    TextArray(1) = TextBox2.Text
    TextArray(2) = TextBox3.Text
    Timer1.Start()
End Sub
' Wo ich mir jetzt deinen Code noch mal genauer angeschaut habe, finde ich die Zeile mit Label3 etwas bedenklich... Du willst automatisch Freunde adden? Betreiber sozialer Netzwerke neigen dazu, sowas gar nicht witzig zu finden.
' I'm just sayin'.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label3.Text = "Es wurden " & Ticks & " Freunde Geaddet."
        Static ArrayCount As Integer
        If Ticks <= 20 Then 'Wenn es noch nicht 20 durchgänge waren
            Ticks += 1
            WebBrowser1.Navigate("xxxxxxxxxxxxxxxxxxxxxxxxxxx")
        Else
            ArrayCount += 1
            Timer1.Enabled = False
            If SeitenTicks <= Seiten Then
                SeitenTicks += 1
                Ticks = 0
                WebBrowser1.Navigate("http://www.xxxxxxxx.xx/xxxxx,xxxxx.php?x=" & TextBox1.Text & "&xxxxx=xxxx&xxxx=" & SeitenTicks)
                ListBox1.Items.Add("xxxx")
                Do
                    Application.DoEvents()
                Loop Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
                Timer1.Enabled = True
            End If
        End If
    End Sub


Wäre es nicht eventuell sinnvoller, das ganze parallel in verschiedenen Threads ablaufen zu lassen?

StarTrekkker
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: ausführen, doppelt, php, ausgeführt, aktion

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 868 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2432 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1242 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.1469s ][ Queries: 87 (0.0159s) ][ GZIP on - Debug on ]