[VisualBasic] Bot für Website

PaRaD0X · 13. Dezember 2007

Bot für Website

hey,

ich brauche hilfe beim programmieren eines bots. dieser soll bestimmte befehle auf einer Website ausführen. u.a. sollte er sich einloggen und dann verschiedene aktionen tätigen.
allerdings hackts bei mir schon am einloggen. wäre nett wenn jemand ein tutorial hätte oder mit befehlen zu diesem thema.
wenn ihr morgen mittag zeit habt meldet euch mal im icq bei mir ()

Vielen dank im vorraus

greetz

Anzeige

Murdoc · 13. Dezember 2007

AW: Bot für Website

lass den bot doch gleich beim aufruf nen http-request mit post parametern senden? wenn du des scho ned schaffst, solltest dein vorhaben evtl. nochmal überlegen, weil im grunde macht ein webbot nix anderes außer http-requests senden und auswerten^^

PaRaD0X · 13. Dezember 2007

AW: Bot für Website

wie soll ich denn deiner Meinung nach sonst anfangen wenn nicht mit einem projekt wo ich selber bock drauf habe. "learning by doing" also die website wird aufgerufen und eigentlich sollten auch die daten eingegeben werden aber es kommt folgende fehlermeldung

{bild-down: http://imageshack.us/a/img141/4711/hizq0.jpg}

Gibbon · 13. Dezember 2007

AW: Bot für Website

Sehr gut, dass du deinen bisherigen Code nicht gepostet hast, ein Bild ist natürlich viel ausdrucksstärker!

Machs doch mit Winsock und HTTP-Requests, wie Murdoc-4D schon sagte. Bei Google gibts vieele VB Winsock-Tutorials.
Die nötigen Requests bekommst du, indem du die Pakete deines Browsers beim Aufruf der entsprechenden Seite(n) mit einem Packet-Sniffer ausliest...

PaRaD0X · 13. Dezember 2007

AW: Bot für Website

Code:

Private Sub Form_Load()
 Me.Show
 wb.Navigate "www.pennergame.de"
 While wb.Busy = True
 DoEvents
 Wend
 wb.Document.All("Spieler").Value = "xxxxxxxx"
 wb.Document.All("Passwort").Value = "xxxxxx"
 wb.Document.All("Login").Click
 While wb.Busy = True
 DoEvents
 Wend
 MsgBox "Du bist eingeloggt"




End Sub

das wäre mein code bis jetzt... wenn das klappen würde bräuchte ich nur noch eine navigation und wider eine "bestätigung".

bzw dieser hier wenn ich mich vorher schon eingeloggt habte

Code:

 Private Sub Form_Load()
 Me.Show
 wb.Navigate "http://www.pennergame.de/activity.php"
 While wb.Busy = True
 DoEvents
 Wend
 wb.Document.All("Sammeln gehen").Click
 While wb.Busy = True
 DoEvents
 Wend


End Sub

nur kommt da der gleiche error. wie lautet jetzt zum beispiel der richtige befehl um den butteon "sammeln gehen " zu betätigen

pyro · 13. Dezember 2007

AW: Bot für Website

Also,
so wie ich das deinem Bild entnehme, willst du das ganze mit dem Webbrowser-Controll machen. Das ist eine ziemlich schlechte Lösung, beispielsweise schleppst du die ganzen Sicherheitslücken vom IExplore mit, hast keinen Einfluss auf Cookies etc.

Mach es wirklich mit HTTP-Requests und Sockets. Für die Requests entweder den HTTP-Request durchlesen (dauert _sehr_ lange) oder einfach Wireshark runterladen und Firefox mitsniffen.
Dann einfach schicken und Antwort auswerten

Hardwarehunger · 13. Dezember 2007

AW: Bot für Website

oder bei google einfach "http header" eingeben und man findet einige seiten die einem den eigenen header ausgeben. außerdem ist der w3c artikel mal mehr als überschaubar.

PaRaD0X · 13. Dezember 2007

AW: Bot für Website

ja ich weiß das es bestimmt einfacher geht usw aber ich wollt den halt in vb programmieren dient auch vorwiegend zu lernzwecken

also ich habs jetzt geschafft das die aktion ausgeführt wird. ichbrauch jetzt quasi nur noch jemand der mir sagt wie cih das ding alle 11 minuten wiederhole. was auch super wäre wäre ne random time zwischen 11 und 16 minuten.

greetz und danke im vorraus.

BW hat jeder hier bis jetzt bekommen

edit code natürlich noch

Code:

Private Sub Form_Load()
 Me.Show
 wb.Navigate "http://pennergame.de/index.php"
 DoEvents
 While wb.Busy = True
 DoEvents
 Wend

 wb.Navigate2 "http://pennergame.de/activity.php"
 DoEvents
 While wb.Busy = True
 DoEvents
 Wend
 wb.Document.All("Submit2").Click
 DoEvents
 While wb.Busy = True
 DoEvents
 Wend
 

End Sub

Impact · 13. Dezember 2007

AW: Bot für Website

Beim Start des Programms muss ersteinmal randomize eingefügt werden. Mit RND(DeineZahl) kannst du eine Zufallszahl generieren. Diese kannst du ja prüfen. Such mal nach der Funktion Sleep. Das sollte dir weiterhelfen

Gibbon · 13. Dezember 2007

AW: Bot für Website

Probiers mal so:

Code:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub NewRand()
 Dim iRand As Integer 'Variable für die Zufallszahl
 
 Do
 Randomize 'Zufallsgenerator "anschmeißen"
 iRand = Int(Rnd * 16) + 1 '+ 1, weil der Zufallsgenerator bei 0 anfängt
 Loop While (iRand < 11 Or iRand > 16)
 
 Wait (iRand * 100) '1000 Millisekunden = 1 Sekunde
End Sub

Private Sub Wait(ByVal lMilliseconds As Long)
 Sleep lMilliseconds 'Warten...

 'Hier deine
 'Befehle
 '(das Zeug mit dem Webbrowser^^)
 
 NewRand
End Sub

Private Sub Form_Load()
 NewRand
End Sub

Sollte gehen^^

PaRaD0X · 13. Dezember 2007

AW: Bot für Website

jo sieht ganz gut aus allerdings kommt biem komplimieren mehrdeutiger name: form load

mfg

Gibbon · 13. Dezember 2007

AW: Bot für Website

Vermutlich hast du zweimal Form_Load() drin^^

PaRaD0X · 13. Dezember 2007

AW: Bot für Website

Code:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub NewRand()
 Dim iRand As Integer 'Variable für die Zufallszahl
 
 Do
 Randomize 'Zufallsgenerator "anschmeißen"
 iRand = Int(Rnd * 16) + 1 '+ 1, weil der Zufallsgenerator bei 0 anfängt
 Loop While (iRand < 11 Or iRand > 16)
 
 Wait (iRand * 100) '1000 Millisekunden = 1 Sekunde
End Sub

Private Sub Wait(ByVal lMilliseconds As Long)
 Sleep lMilliseconds 'Warten...
 
 Me.Show
 wb.Navigate "http://pennergame.de/index.php"
 DoEvents
 While wb.Busy = True
 DoEvents
 Wend
 
 Me.Show
 wb.Navigate2 "http://pennergame.de/activity.php"
 DoEvents
 While wb.Busy = True
 DoEvents
 Wend
 wb.Document.All("Submit2").Click
 DoEvents
 While wb.Busy = True
 DoEvents
 Wend
 

 End Sub
 
 
Private Sub Form_Load()
 NewRand
End Sub

so hab ichs jetzt . compilen funzt aber das programm an sich nicht so. also 1x macht er problemlos aber dann tut sich nüx mehr

Gibbon · 13. Dezember 2007

AW: Bot für Website

Du hast ja auch NewRand an folgender Stelle vergessen:

Zitat von PaRaD0X: ↑

Code:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub NewRand()
 Dim iRand As Integer 'Variable für die Zufallszahl
 
 Do
 Randomize 'Zufallsgenerator "anschmeißen"
 iRand = Int(Rnd * 16) + 1 '+ 1, weil der Zufallsgenerator bei 0 anfängt
 Loop While (iRand < 11 Or iRand > 16)
 
 Wait (iRand * 100) '1000 Millisekunden = 1 Sekunde
End Sub

Private Sub Wait(ByVal lMilliseconds As Long)
 Sleep lMilliseconds 'Warten...
 
 Me.Show
 wb.Navigate "http://pennergame.de/index.php"
 DoEvents
 While wb.Busy = True
 DoEvents
 Wend
 
 Me.Show
 wb.Navigate2 "http://pennergame.de/activity.php"
 DoEvents
 While wb.Busy = True
 DoEvents
 Wend
 wb.Document.All("Submit2").Click
 DoEvents
 While wb.Busy = True
 DoEvents
 Wend
 
 [COLOR="Red"]NewRand[/COLOR]

End Sub
 
 
Private Sub Form_Load()
 NewRand
End Sub

so hab ichs jetzt . compilen funzt aber das programm an sich nicht so. also 1x macht er problemlos aber dann tut sich nüx mehr

PaRaD0X · 13. Dezember 2007

AW: Bot für Website

sry wenn ich nerve aber der is eindutig zu schnell der hat garnicht wirklich gewartet befürchte ich. immerhin schon eine schleife xD

danke dir bis jetzt aufjeden fall mal hilfst mir sehr

Gibbon · 14. Dezember 2007

AW: Bot für Website

Ups, mein Fehler

Es muss heißen:

Code:

Wait (iRand * 1000 * 60)

Wenn iRand z. B. 13 ist, kommt raus: 13 * 1000 * 60 = 780.000 (Millisekunden) = 13 Minuten

Vorher wären 1.3 Sekunden rausgekommen: 13 * 100 = 1300 (Millisekunden) = 1.3 Sekunden

Hoffentlich stimmt das jetz =)

Impact · 2. Februar 2008

AW: Bot für Website

Ich würd mal sagen das das keiner für dich macht. Es gibt ein extra Thema "Suche Programmierer" darin kannst du soetwas stellen.
Vorallem hat das Pennergame einen Schutz eingebaut für solche Scripte und das umgehen wär ne größere Sache

Nash · 3. Februar 2008

AW: Bot für Website

Die Passage gefällt mir am Besten.

Jetzt noch zum Thema. War der Befehl "Sleep" nicht bei VB6 nit so doll, weil dann immer das ganze Programm einfriert? Hab damals glaub ich einen extra Programmierten "Wait" Befehl genutz.

mfg

DarkRaven · 3. Februar 2008

AW: Bot für Website

ich benutze immer GoSleep()

Code:

Public Sub GoSleep(ByVal Millisekunden As Long)
 Dim startzeit As Single
 startzeit = Timer
 Do
 DoEvents
 Loop Until Timer - startzeit > (Millisekunden / 1000)
End Sub

is aber denke mal von der funktionsweise das gleiche wie dein Wait() ^^

riverlove · 6. Februar 2008

AW: Bot für Website

auf der startseite von pennergame steht "Cheater werden ohne Vorwarnung gelöscht"..
mit kommt es vor, als ob du sowas bald machen willst..
junge lass es sein..cheater sind in jedem multiplayer spiel einfach nur beschissen

Nützliche Suchen

[VisualBasic] Bot für Website

Videos zum Themenbereich