[H] VB Text Senden

[AmJano]

Hallo,

ich bin gerade dabei mir ein StayOnline-Bot zumachen ein eigenes.
Aber ich brauche da mal eure Hilfe. Also.

Ich will das der Bot Texte Automatisch jede 2-3Minuten einen Langen Text von Wikipedia Schreibt/Schickt ?

Und was ich halt noch Suche ist ein Anti-Admin für VB
->Admin hat dir /m & /p geschrieben das er dann off geht
->Sound Abspielen wenn Admin Room rein kommt
->Sound bei Ping.


Könnt Ihr mir bitte da weiter Helfen? Danke

Mfg
Adrian

Besser zu sagen mein Code VB sieht jetzt so aus:

Imports KNLib
Imports System.Text.RegularExpressions
Public Class Form1
Dim adminList As New List(Of String)
Dim applet As Applet
Dim WithEvents client As KSClient
Dim WithEvents c As New KSClient(New Applet())
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.View = View.Details
ListView1.Columns.Add("Username").Width = 120
Control.CheckForIllegalCrossThreadCalls = False
applet = New Applet
client = New KSClient(applet)
End Sub
Private Sub c_OnTokenReceived(ByVal sender As Object, ByVal token As String) Handles c.OnTokenReceived
Dim tokens As String() = token.Split(vbNullChar)
Select Case (tokens(0))
Case "u" ' Userlist"
If tokens(5).Contains("pics/cm.png") Then
' CM hat den Channel betreten.
End If
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CSystem As New ChatSystem
Select Case ComboBox1.Text
Case "Knuddels.DE"
CSystem = ChatSystem.DE
Case "Knuddels.AT"
CSystem = ChatSystem.AT
Case "Knuddels.CH"
CSystem = ChatSystem.CH
End Select
client.Connect(CSystem)
client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
client.Disconnect()
End Sub
Private Sub WriteText(ByVal Absender As String, ByVal AbsenderFarbe As Color, ByVal Text As String, ByVal TextFarbe As Color)
RichTextBox1.SelectionColor = AbsenderFarbe
RichTextBox1.AppendText(Absender & ": ")
RichTextBox1.SelectionColor = TextFarbe
RichTextBox1.AppendText(Text & vbLf)
End Sub
Private Sub WriteText(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage
WriteText(Nick, Color.Red, Message, Color.Black)
End Sub

Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
RichTextBox1.AppendText(fromNick & " an " & toNick & ": " & Message & vbLf)
End Sub
Private Sub client_OnPing(ByVal sender As Object, ByVal Nick As String, ByVal Key As String) Handles client.OnPing
MessageBox.Show("Ping erhalten von " & Nick)
End Sub
Private Sub client_OnPopup(ByVal sender As Object, ByVal Message As String, ByVal token() As String) Handles client.OnPopup
MessageBox.Show(Message, "Popup")
If Message.Contains("Admins sind derzeit:#") Then

Dim mc As MatchCollection = Regex.Matches(Message, "°>_h(.*?)\|")

For Each match As Match In mc

adminList.Add(match.Groups(1).Value.Replace("\", ""))

Next

' MessageBox.Show(adminList.Count.ToString)
Label6.Text = "" & (adminList.Count.ToString)


End If

'MessageBox.Show(Message, "Popup")
End Sub
Private Sub client_OnUserListReceive(ByVal sender As Object, ByVal UserList As System.Collections.Generic.List(Of KNLib.User)) Handles client.OnUserListReceive
ListView1.Items.Clear()
For Each User As KNLib.User In UserList
ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
Next
End Sub
Private Sub client_OnChannelJoin(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelJoin
ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
End Sub

Private Sub client_OnChannelLeave(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelLeave
ListView1.FindItemWithText(User.Name).Remove()
End Sub
Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
System.Environment.Exit(0)
End Sub

Private Sub TextBox4_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
If client.IsConnected = True Then
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
client.SendMessage(TextBox4.Text)
TextBox4.Clear()
End If
Else
MessageBox.Show("Sind wir eingeloggt?")
End If
End Sub

End Class

E: Admin List Code habe ich drinne. Aber wenn ich mich ein Loge Zeigt er mich keine anzahl wieviele Admin drinne sind ?

[Pwned]

Wie wärs, wenn du dich mal mit den Grundlagen befasst?
[highlight=vb]Label6.Text = "" & (adminList.Count.ToString)[/highlight]
Die Zeile ist kompletter Schwachsinn. Kann ja fast nicht funkionieren.
VB Labeltext ändern


Beim Ping einfach im Event OnPing noch den Sound wiedergeben.
Wenn jemand in den Channel kommt, überprüfen ob er auf der AdminListe steht. Wenn ja, Sound abspielen.
Wenn man angeschrieben wird, überprüfen ob Absender ein Admin ist, wenn ja ausloggen.

[AmJano]

Das mit dem Sound so:

Private Sub client_OnPing(ByVal sender As Object, ByVal Nick As String, ByVal Key As String) Handles client.OnPing

' Wenn uns jemand gepingt hat (Ping wird natürlich automatisch zurückgeworfen)

writeText("Bot", "Empfange Ping von " + Nick + " mit dem Key " + Key + "...", Color.Red)
My.Computer.Audio.Play("C:\Dokumente und Einstellungen\Administrator\Desktop\....\.....\bin \Debug\beep.wav", AudioPlayMode.Background)