Channelhopper

[Manipulate]

Den code hab ich doch so
Code:

MsgBox("Werde in den Channel Hanau wechseln'")
        Timer1.Interval = 120000
        client.SendMessage("/go /Hanau")
        Timer2.Start()

Aber geht auch nicht

Nein hast du nicht.
Ich meine, einzelnd, Button 1 Klick, msg und Timer1.Start
Dann!

        Timer1.Interval = 120000
        client.SendMessage("/go /Hanau")
        Timer2.Start()

[getsha]

Für jeden timer 1 butten wtf?
wenn mach ich alle timer1/2/3.start in login button wäre doch auch gehen oder ?

[x BoooM x]

Du hast 3 Timer + 1 Button (Login)
Nachdem du dich eingeloggt hast starten die Timer:
Timer1.Start
Timer2.Start
Timer3.Start

Timer1 Interval = 9000
Timer2 Interval = 14000
Timer3 Interval = 19000
Stell die Intervalle direkt in den Eigenschaften ein

Button1:
Timer1.Start
Timer2.Start
Timer3.Start

Timer1:
client.SendMessage("/go /Hanau")

Timer2:
client.SendMessage("/go /Erfurt")

Timer3:
client.SendMessage("/go /Hamburg")

[rVs14]

Den code hab ich doch so
Code:

MsgBox("Werde in den Channel Hanau wechseln'")
        Timer1.Interval = 120000
        client.SendMessage("/go /Hanau")
        Timer2.Start()

Aber geht auch nicht

Code:
MsgBox("Werde in den Channel Hanau wechseln'")
        Timer1.Interval = 120000
        client.SendMessage("/go Hanau")
        Timer2.Start() 

. Funktioniert das?

[getsha]

Hi x BoooM x,
Dein Code sieht ja gut aus habe ihn auch dieregt in mein projekt reingeschrieben.. aber vb zeigt mir nen Fehler an

Fehler:
Es ist keine Quelle Verfügbar
Es sind keine Symbole für Aufruflistenrahmen geladen. Der Quellcode kann nicht angezeigt werden.

Mein Code:

Imports KNLib
Public Class Form1
    Dim applet As New Applet
    Dim WithEvents client As KSClient

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        applet = New Applet
        client = New KSClient(applet)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        client.Connect(ChatSystem.DE)
        client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 9000
        client.SendMessage("/go /Hanau")
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Timer2.Interval = 14000
        client.SendMessage("/go /Erfurt")
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Timer3.Interval = 19000
        client.SendMessage("/go /Hamburg")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        client.Disconnect()
        Timer1.Stop()
        Timer2.Stop()
        Timer3.Stop()
    End Sub
End Class

aber der Nick hat sich eingeloggt aber nur dieser fehler da o.o

[getsha]

Code:
MsgBox("Werde in den Channel Hanau wechseln'")
        Timer1.Interval = 120000
        client.SendMessage("/go Hanau")
        Timer2.Start() 

. Funktioniert das?

Nein leider auch nicht da macht er mir 1000x Msgboxen auf,

[Manipulate]

Nein leider auch nicht da macht er mir 1000x Msgboxen auf,

Schick mir ne PN mit TV Daten, ich machs dir.

[getsha]

habe den code jetzt mehrmals verbessert aber vb macht mir immer fehler ich komm nicht drauf klar weß nicht was ich noch ändern soll. Also der loggt sich zwar ein und wenn ich den hopper starte wechselt er in ein channel und danach mach vb dieregt ne fehler meldung kp warum. und der bot Hängt sich auf -.-
kann mir einer sagen an was das liegt?

hier nochmals mein code wie er JETZT aussieht
Code: [VB.NET] Channelhopper - Pastebin.com
Fehlermeldung: http://i42.tinypic.com/vijz37.png
Channelhopper: http://i44.tinypic.com/okndhu.png

Bitte Helfen ich weiß net mehr was ich machen soll -.- Danke Schonnmal,

[getsha]

Komme nicht weiter

[Sploxfreak]

Ich kapier nicht wiso so kompliziert?

/e
Dirty aber naja

Spoiler:

Public Class Form1
Dim Rndm As New Random
Dim Channel() As String = {"/go /kisssparty", "/go /bot", "/go /lol", "/go /seveneleven", "/go /masterdiice", "/go /abc"}

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Channel = Channel(Rndm.Next(0, Channel.Length))
client.sendmessage(Channel)

End Sub
End Class