Mein persönlicher Mainchat-James

  • Mein persönlicher Mainchat-James

    Tach vb-Coder.
    Ich habe mir für meinen Mainchat einen James geprogt.
    (Chatbot)

    Quellcode

    1. 'Verbidnungsangaben in allen Subs typisieren udn bekannt machen
    2. Dim sock As Long
    3. Dim strServer As String
    4. Dim strHost As String
    5. Dim strRaum As String
    6. Dim strPost As String
    7. Dim strSend As String
    8. Dim strResponse As String
    10. 'Regex-Objekt vorbereiten!
    11. Dim myRegExp As RegExp
    12. Dim myMatches As MatchCollection
    13. Dim myMatch As Match
    15. Dim strSchreiben As String
    16. Dim Drin As Boolean
    17. Dim Rueckgabe As String
    19. 'Daten des Bots Subweit bekannt machen.
    20. Dim strBot_Name As String
    21. Dim strBot_Pass As String
    22. Dim strBot_Browser As String
    23. Dim strBot_uid As String
    25. Sub Verzoegerung(ByVal Dauer As Integer)
    26. start = Timer
    27. Do
    28. DoEvents
    29. Zeit = Timer - start
    30. Loop Until Zeit >= Dauer
    31. End Sub
    33. Public Function ScheckLog()
    34. 'Chatlog abhören.
    35. Rueckgabe = ""
    36. sock = Socket.Socket(istTCPSocket:=True)
    37. If Not Socket.Connect(sock, strServer, Port:=80) Then
    38. txtLog.Text = txtLog.Text + "Nope: '" + strBot_Name + "''s Anfrage zum Server wurde abgelehnt!"
    39. Else
    40. If Not Socket.Send(sock, "GET /chat.php?http_host=" + strHost + "&id=" + strBot_uid + "&back=1 HTTP/1.0" + vbCrLf + "Host: " + strServer + vbCrLf + strBot_Browser + vbCrLf + vbCrLf) Then
    41. txtLog.Text = txtLog.Text + "Nope: '" + strBot_Name + "' konnte seinen Chatlog nicht aktualisieren - Chat verlassen!"
    42. Else
    43. Rueckgabe = Right(Socket.Receive(sock, 1000), 1000)
    44. txtLog.Text = txtLog.Text + "LOG aktualisiert: '" + strBot_Name + "'!" + vbCrLf
    45. End If
    46. End If
    47. Socket.CloseSocket (sock)
    48. ScheckLog = Rueckgabe
    49. End Function
    51. Public Sub Chatten(ByVal Message As String)
    52. sock = Socket.Socket(istTCPSocket:=True)
    53. If Not Socket.Connect(sock, strServer, Port:=80) Then
    54. txtLog.Text = txtLog.Text + "Nope: '" + strBot_Name + "' konnte sich nicht zum Server verbinden!" + vbCrLf
    55. Else
    56. Schreiben = "GET /schreibe.php?http_host=" + strHost + "&id=" + strBot_uid + "&text=" + Message + "&text2=" + Message + " HTTP/1.0" + vbCrLf + "Host: " + strServer + vbCrLf + strBot_Browser + vbCrLf + vbCrLf
    57. If Not Socket.Send(sock, Schreiben) Then
    58. txtLog.Text = txtLog.Text + "Nope: " + strBot_Name + "' konnte die Nachricht nicht logen!" + vbCrLf
    59. Else
    60. txtLog.Text = txtLog.Text + "<" + strBot_Name + ">" + Message + vbCrLf
    61. End If
    62. End If
    63. Socket.CloseSocket (sock)
    64. End Sub
    65. Private Sub cmdNewBot_Click()
    66. If (txtNewBot_login = "") Then
    67. MsgBox "Gebe erst einen login-Nickname ein für den Bot!"
    68. Exit Sub
    69. End If
    71. If Not Socket.Initialize Then
    72. txtLog.Text = "Nix socket!" + vbCrLf
    73. Else
    74. 'Verbindung zum Server.
    75. strServer = txtServer.Text
    76. strHost = txtHost.Text
    77. strRaum = txtRaum.Text
    78. sock = Socket.Socket(istTCPSocket:=True)
    79. If Not Socket.Connect(sock, strServer, Port:=80) Then
    80. txtLog.Text = txtLog.Text + "Nope: Verbindung zu " + strServer + " fehlgeschlagen!" + vbCrLf
    81. Else
    82. 'Dem Bot Name, Passwort und seinen Browser zuweisen
    83. strBot_Name = txtNewBot_login
    84. strBot_Pass = txtNewBot_passwort
    85. strBot_Browser = txtBrowser.Text
    87. strPost = "http_host=" + strHost + "&aktion=login&login=" + strBot_Name + "&passwort=" + strBot_passwort + "&eintritt=" + strRaum + "&javascript=on"
    88. strSend = "POST /index.php HTTP/1.0" + vbCrLf + "Host: " + strServer + vbCrLf + strBot_Browser + "Content-Type: application/x-www-form-urlencoded" + vbCrLf + "Content-Length: " + Str(Len(strPost)) + vbCrLf + vbCrLf + strPost + vbCrLf + vbCrLf
    89. If Not Socket.Send(sock, strSend) Then
    90. txtLog.Text = txtLog.Text + "Nope: '" + strBot_Name + "' konnte sich nicht einlogen!" + vbCrLf
    91. Else
    92. strResponse = Socket.Receive(sock, 5000)
    93. Socket.CloseSocket (sock)
    95. Set myRegExp = New RegExp
    96. myRegExp.IgnoreCase = True
    97. myRegExp.Global = True
    98. myRegExp.Pattern = "FRAME SRC=.*http_host=.*&id=(.*)&aktion=chatuserliste.* MARGINWIDTH=4 MARGINHEIGHT=0 name=.*"
    99. strBot_uid = ""
    100. For Each m In myRegExp.Execute(strResponse)
    101. strBot_uid = m.SubMatches(0)
    102. Next
    104. 'Konnte keine uid des Bots rausgenommen werden und ist somit leer, kam er nicht rein. Wahrscheinlich Gastname besetzt.
    105. If strBot_uid = "" Then
    106. txtLog.Text = txtLog.Text + "Nope: '" + strBot_Name + "' kam nicht rein. login wahrscheinlich besetzt oder ungültig." + vbCrLf
    107. Exit Sub
    108. End If
    110. txtLog.Text = txtLog.Text + "Klopf: '" + strBot_Name + "' betritt den Raum Lobby!" + vbCrLf
    112. 'Chatlog abhören.
    113. sock = Socket.Socket(istTCPSocket:=True)
    114. If Not Socket.Connect(sock, strServer, Port:=80) Then
    115. txtLog.Text = txtLog.Text + "Nope: '" + strBot_Name + "''s Anfrage zum Server wurde abgelehnt!"
    116. Else
    117. If Not Socket.Send(sock, "GET /chat.php?http_host=" + strHost + "&id=" + strBot_uid + "&back=1 HTTP/1.0" + vbCrLf + "Host: " + strServer + vbCrLf + strBot_Browser + vbCrLf + vbCrLf) Then
    118. txtLog.Text = txtLog.Text + "Nope: '" + strBot_Name + "' konnte seinn Chatlog nicht aktualisieren - Chat verlassen!"
    119. Else
    120. txtLog.Text = txtLog.Text + "LOG aktualisiert: '" + strBot_Name + "'!" + vbCrLf
    121. End If
    122. End If
    123. Socket.CloseSocket (sock)
    125. 'Hallo sagen wenn jemand hi sagt
    126. Chatten "Test"
    128. Drin = True
    129. End If
    130. End If
    131. End If
    132. End Sub
    134. Private Sub Timer1_Timer()
    135. If Drin = True Then
    136. 'Hier wird später der Bot per Regex Befehle entnehmen und darauf Posten
    137. string1 = ScheckLog
    138. MsgBox string1
    139. End If
    140. End Sub
    Alles anzeigen


    Der soll sich einlogen und dort sitzen bleiben also
    der soll jede 3 Sekudnen den Log lesen
    und auf alle eintrittsbenachrichtigungen hören,
    also den Besuchern hallo sagen und auch
    auf auf wiedersehen bye tshcüss und muss los
    hören und bye sagen.

    ich wüsste wie es geht und soweit klappt auch alles bis auf...
    Wenn ich aus dem Log mehr als 1000 zeichen
    receiven möchte, stürzt mein prgramm ab udn es kommt
    ein "Probelmberich senden/nicht senden"
    was muss ich nur tun, dass mein bot den log kompeltt liest???
    bitte um hilfe :( :(

    Das Problem-Recieve liegt in Function ScheckLog...

    Die inputFelder:
    txtServer.Text der Chatserver
    txtHost.Text der Host auf dem Server
    txtBrowser.Text der firefox request
    txtLog.Text die meldungen kommen hierrein
    cmdNewBot Zum reinschicken
    txtNewBot_login Username des bots bei mir voreingabe James
    txtNewBot_passwort passwort das verwendet werden soll.

  • Hi.
    Sorry ich kapier's nid wirklich ._.
    Kann man das Script verwenden bzw.kannsu noch n bisschen erklären?
    Könnte wirklich sehr nützlich sein, so 'n Bot :)

    edit:
    Hab folgende Fragen:
    Ist der Bot in der Lage alle 59 Minuten (50 Minuten) sich selbst anzuflüstern?
    Kann der Bot nen Raum verwalten also quasi Besitzerrechte immer an die User x / y und z geben?
    Vll.indem sobald der Name fällt und er das Log ausliest er es mit /schenke Name raum versucht?

    Hab leider nur'n bisschen Ahnung mit HTML u.PHP wobei man das nid wirklich als Ahnung bezeichnen kann. :)