Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Try
- Writer.WriteLine("")
- Writer.Flush()
- Writer.WriteLine("2" & vbNullChar & "Fifty! Bot v3")
- Writer.Flush()
- While Reader IsNot Nothing
- Dim Line As String = Reader.ReadLine
- Dim Token() As String = Line.Split(vbNullChar)
- If Line.StartsWith("ok") Then
- Dim sp() As String = Line.Split(vbNullChar)
- Writer.WriteLine("i" & vbNullChar & "e" & vbNullChar & "Fifty! Bot" & vbNullChar & Token(2) & vbNullChar & "_°E°Bot erfolgreich angenommen, viel Spaß noch! °>sm_dice.b.gif<°")
- Writer.Flush()
- Change(tb_channel, Token(2))
- Change(tb_nick, Token(1))
- Nachrichtsenden("/h", tb_channel.Text)
- isConnected = True
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement