Channelhopper

[Sky.NET]

Lass doch mal die blöden Timer weg...
Wenn die Leute dir hier schon Tipps geben UND Source dazu, dann setz dich wenigstens hin und versuch es so zu machen wie vorgeschlagen und beharre nicht auf deinem jetzigen Kram, der weder aufwändig noch richtig ist.

[Sploxfreak14]

[VB.NET] Simpel Channelhopping - Pastebin.com

Meiner ist Cooler
Also mein Channelhopper

[x57.NET]

[VB.NET] Simpel Channelhopping - Pastebin.com

Meiner ist Cooler
Also mein Channelhopper

Vor allem die TextBox4 ist verdammt cool. (YY)

Aber jetzt mal ernst, warum lädst du den String in eine Textbox und übergibst ihn nicht gleich?

[The Don of NYC]

[VB.NET] Simpel Channelhopping - Pastebin.com

Meiner ist Cooler
Also mein Channelhopper

Ich weiß nicht wofür ich meinen Source gepostet habe, der dynamisch die aktuelle Channelliste ausliest und auch noch performanter ohne Timer arbeitet. Wieso arbeitet ihr nicht damit und seid so dickköpfig, dass ihr immer noch an den blöden Timern mit eurem Channelarray rumhängt, was nur max. 10 verschiedenen Channel beinhaltet? Wieso fragt ihr dann überhaupt nach Hilfe? Ich verstehe es nicht...

[DANP]

Ich weiß nicht wofür ich meinen Source gepostet habe, der dynamisch die aktuelle Channelliste ausliest und auch noch performanter ohne Timer arbeitet. Wieso arbeitet ihr nicht damit und seid so dickköpfig, dass ihr immer noch an den blöden Timern mit eurem Channelarray rumhängt, was nur max. 10 verschiedenen Channel beinhaltet? Wieso fragt ihr dann überhaupt nach Hilfe? Ich verstehe es nicht...

Weil sie kein c# in vb.net übersetzen können + wahrscheinlich keine Ahnung von schleifen haben.

[The Don of NYC]

Weil sie kein c# in vb.net übersetzen können + wahrscheinlich keine Ahnung von schleifen haben.

Es gibt paar gute Online-Konverter, diese kann man nutzen wenn man wirklich etwas lernen will.

[x BoooM x]

Imports KNLib
Imports System.Threading
Imports System.Collections.Generic
Imports System.Text.RegularExpressions

Namespace Channelhoppler
    Class Program
        Shared Channels As List(Of [String]) = Nothing
        Shared KSC As KSClient = Nothing

        Private Shared Sub Main(args As String())
            Console.Title = "Channelhoppler"

            KSC = New KSClient(New Applet("applet.jar"))
            KSC.OnTokenReceived += New KSClient.ReceivedHandler(AddressOf KSC_OnTokenReceived)
            KSC.Connect(ChatSystem.DE)
            KSC.Login("", "", "")
        End Sub

        Private Shared Sub KSC_OnTokenReceived(KSC As KSClient, packet As [String])
            Dim token As [String]() = packet.Split(ControlChars.NullChar)

            Select Case token(0)
                Case "u"

                    If Channels Is Nothing Then
                        Console.ForegroundColor = ConsoleColor.Green
                        Console.WriteLine("Erfolgreich eingeloggt.")
                        KSC.SendMessage("/wc")
                    End If

                    Exit Select

                Case "k"

                    If token(1).Contains("Channel") Then
                        Channels = New List(Of [String])()

                        For Each m As Match In Regex.Matches(token(46), "°>_h([^\|]+)\|")
                            If Not m.Value.Contains("Poker") AndAlso Not m.Value.Contains("MauMau") AndAlso Not m.Value.Contains("+") AndAlso Not m.Value.Contains("only") AndAlso Not m.Value.Contains("Suche") AndAlso Not m.Value.Contains("Private") AndAlso Not m.Value.Contains("Psssst") Then
                                Channels.Add(m.Groups(1).Value)
                            End If
                        Next

                        Console.ForegroundColor = ConsoleColor.White
                        Console.WriteLine("Es wurden insgesamt {0} Channel geladen.", Channels.Count)

                        Console.ForegroundColor = ConsoleColor.Gray
                        Console.WriteLine("Soll nun gehoppelt werden? <ENTER>")

                        Console.ReadLine()
                        New Thread(AddressOf Hoppeln).Start()
                    End If

                    Exit Select
            End Select
        End Sub

        Private Shared Sub Hoppeln()
            For Each Channel As [String] In Channels
                Console.ForegroundColor = ConsoleColor.Yellow
                Console.WriteLine("Hopple nun in den Channel {0}.", Channel)
                KSC.SendMessage([String].Format("/go {0}", Channel))

                Dim sleep As Integer = New Random(DateTime.Now.Millisecond).[Next](2500, 3500)
                Console.ForegroundColor = ConsoleColor.Gray
                Console.WriteLine("Warte nun {0} Millisekunden." & vbLf, sleep)
                Thread.Sleep(sleep)
            Next
        End Sub
    End Class
End Namespace

Weiß nicht ob man unter dem Import der KNLib auch noch die anderen 3 Sachen brauch, nur bei C# steht da manches schon Standardmäßig da oder?

Musst du mal probieren ob es so geht

[Sploxfreak14]

Ich weiß nicht wofür ich meinen Source gepostet habe, der dynamisch die aktuelle Channelliste ausliest und auch noch performanter ohne Timer arbeitet. Wieso arbeitet ihr nicht damit und seid so dickköpfig, dass ihr immer noch an den blöden Timern mit eurem Channelarray rumhängt, was nur max. 10 verschiedenen Channel beinhaltet? Wieso fragt ihr dann überhaupt nach Hilfe? Ich verstehe es nicht...

Ich meine damit nicht besser als dein Source ich meine besser als der Source von getsha ich habe den thread nur überflogen und daher nicht alles mit gelesen^^

[getsha]

Sploxfreak14 Kann ja sein das dein Source besser ist aber dein code nimmt vb.net bei mir nicht an ka why der macht fehler...

& mein source der mit die timers geht auch nicht obwohl da alles richtig ist aber ich weiß nicht was vb von mir will...