Pennerbot NEUES Zahlen Captcha

Page 1 of 3 1 23
03/27/2009 21:46 DJ-Demus#1
HI hier is der neue Bot ich weiss jetz nich ob der schon im Forum drin is.
Also dieser Bot funktioniert mit der V3.1 mit den neuen großen Zahlen Captchas.
Passwort: penner
Viel Spaß
03/27/2009 23:31 Neutronium#2
welcher ist das ? micros oder der PGA ?
den PGA gibts noch nicht von micro gibt es die konsolenversion
03/28/2009 15:23 hmmja#3
wenn ich die config datei anklicke öffent sich ja der browser und dachte da muss ich meine datan und pw eintragen aber da oben steht : Mit dieser XML-Datei sind anscheinend keine Style-Informationen verknüpft. Nachfolgend wird die Baum-Ansicht des Dokuments angezeigt.

was mache falsch was muss ich machen um den bot zu verwenden wo meine daten eingeben?! bitte um schnelle antwort
03/28/2009 17:05 el_unterderbruecke#4
schönen guten tag zusammen, wenn ich die pennerbot.exe starte, seh ich zwar kurz wie sich die konsole öffnet, aber die schließt sich direkt wieder... kann mir einer weiterhelfen?
vielen dank im voraus....
03/28/2009 17:13 hmmja#5
problem hat sich erledigt habs hinbekommen...funzt einwandfrei :D
03/28/2009 18:18 oO_Penner_Oo#6
Was muss ich bei useragent eintragen : (
Und bei den andern auch gleich bitte antworten also alle auser Name und PW ...:(
Danke schonmal
03/28/2009 18:23 Autoitbot#7
Ich hab hier ne GUI erstellt für den neuen Pennerbot 2.1 BETA, damit man nicht immer die Einstellungen manuell in die .xml eintippen muss.

[Only registered and activated users can see links. Click Here To Register...]

Hier gibts den Download (inklusive Pennerbot 2.1 Beta):
[Only registered and activated users can see links. Click Here To Register...]

PennerbotGUI.exe muss im Ordner vom Pennerbot 2.1 Beta bleiben, da ansonsten die Einstellungen nicht in die config.xml geschrieben werden können und die pennerbot.exe auch nicht ausgeführt werden kann.

Virustotal:
Vom Archiv:
[Only registered and activated users can see links. Click Here To Register...]

Von der .exe
[Only registered and activated users can see links. Click Here To Register...]

Es gibt leider Virenmeldung weil AutoIt teilweise fäschlicherweise als böse eingestuft wird.
Deswegen auch noch der Sourcecode:

HTML Code:
#RequireAdmin
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         Wambo
 Website:         *************

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <IE.au3>

Global $useragent[10], $username = "Username", $passwort = "Passwort", $bottlecollect = "true", $bottlesell = "true", $umts = "false", $zeit = "10 Minuten", $port = "", $proxy = "", $proxyenabled = "false", $maxgeld = "100.00", $minkurs = "0.18", $dosser = "false"
Global Const $komma=','
$useragent[0] = "Mozilla/5.0 (Windows; U; Windows NT 5.2; de; rv:1.8.1.4) Gecko/20070515 Firefox/2.0.0.4"
$useragent[1] = "Mozilla/5.0 (compatible; Konqueror/3.2; Linux 2.6.2) (KHTML, like Gecko)"
$useragent[2] = "Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 5.1) Opera 7.04 [de]"
$useragent[3] = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7 (.NET CLR 3.5.30729)"
$useragent[4] = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3"
$useragent[5] = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7"
$useragent[6] = "Opera/9.64 (Windows NT 5.1; U; de) Presto/2.1.1"
$useragent[7] = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de-AT; rv:1.8.1.2) Gecko/20070222 SeaMonkey/1.1.1"
$useragent[8] = "Mozilla/5.0 (Windows; U; Windows NT 5.0; de-DE; rv:1.6) Gecko/20040206 Firefox/1.0.1"
$useragent[9] = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

Opt("TrayMenuMode",1)
Opt("TrayOnEventMode", 1)
Opt("GUIOnEventMode", 1)

load()

$maingui = GUICreate("Pennerbot OpenBeta 2.1 Interface - AutoItBot", 381, 288, 285, 287)
GUICtrlCreateGroup("Accountdaten", 4, 4, 185, 97, $BS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$gui_username = GUICtrlCreateInput($username, 35, 36, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$gui_password = GUICtrlCreateInput($passwort, 35, 72, 121, 21, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlCreateLabel("Username", 33, 21, 124, 15, $SS_CENTER)
GUICtrlCreateLabel("Passwort", 33, 57, 124, 15, $SS_CENTER)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Proxy", 4, 104, 185, 89, $BS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$check_proxy = GUICtrlCreateCheckbox("Proxy verwenden", 12, 123, 170, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_CENTER,$WS_TABSTOP))
If $proxyenabled = "true" Then
    GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUICtrlCreateLabel("Proxy IP", 10, 146, 124, 15, $SS_CENTER)
GUICtrlCreateLabel("Port", 129, 146, 51, 15, $SS_CENTER)
$gui_port = GUICtrlCreateInput($proxy, 135, 162, 43, 21)
$gui_proxy = GUICtrlCreateInput($port, 11, 162, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Andere Einstellungen", 4, 198, 185, 64, $BS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$check_umts = GUICtrlCreateCheckbox("UMTS", 68, 219, 64, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_LEFT,$WS_TABSTOP))
If $umts = "true" Then
    GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
$check_dossergame = GUICtrlCreateCheckbox("Dossergame", 54, 241, 79, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_LEFT,$WS_TABSTOP))
If $dosser = "true" Then
    GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Flaschen sammeln", 192, 4, 185, 68, $BS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$check_bottlecollect = GUICtrlCreateCheckbox("Flaschen sammeln aktivieren", 200, 23, 169, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_CENTER,$WS_TABSTOP))
If $bottlecollect = "true" Then
    GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
$combo_zeit = GUICtrlCreateCombo("10 Minuten", 213, 43, 145, 25)
If $zeit = "10" Then
    GUICtrlSetData(-1, "30 Minuten|1 Stunde|3 Stunden|6 Stunden|9 Stunden|12 Stunden", "10 Minuten")
ElseIf $zeit = "30" Then
    GUICtrlSetData(-1, "30 Minuten|1 Stunde|3 Stunden|6 Stunden|9 Stunden|12 Stunden", "30 Minuten")
ElseIf $zeit = "60" Then
    GUICtrlSetData(-1, "30 Minuten|1 Stunde|3 Stunden|6 Stunden|9 Stunden|12 Stunden", "1 Stunde")
ElseIf $zeit = "180" Then
    GUICtrlSetData(-1, "30 Minuten|1 Stunde|3 Stunden|6 Stunden|9 Stunden|12 Stunden", "3 Stunden")
ElseIf $zeit = "360" Then
    GUICtrlSetData(-1, "30 Minuten|1 Stunde|3 Stunden|6 Stunden|9 Stunden|12 Stunden", "6 Stunden")
ElseIf $zeit = "540" Then
    GUICtrlSetData(-1, "30 Minuten|1 Stunde|3 Stunden|6 Stunden|9 Stunden|12 Stunden", "9 Stunden")
ElseIf $zeit = "720" Then
    GUICtrlSetData(-1, "30 Minuten|1 Stunde|3 Stunden|6 Stunden|9 Stunden|12 Stunden", "12 Stunden")
Else
    GUICtrlSetData(-1, "30 Minuten|1 Stunde|3 Stunden|6 Stunden|9 Stunden|12 Stunden")
EndIf
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Flaschen verkaufen", 192, 77, 185, 105, $BS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$check_bottlesell = GUICtrlCreateCheckbox("Flaschen verkaufen aktivieren", 200, 96, 169, 17, BitOR($BS_CHECKBOX,$BS_AUTOCHECKBOX,$BS_CENTER,$WS_TABSTOP))
If $bottlesell = "true" Then
    GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
GUICtrlCreateLabel("Max. Geld", 214, 120, 52, 17)
$gui_maxgeld = GUICtrlCreateInput($maxgeld, 269, 118, 78, 21)
GUICtrlCreateLabel("Min. Kurs", 214, 145, 48, 17)
$gui_minkurs = GUICtrlCreateInput($minkurs, 269, 143, 78, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$gui_save = GUICtrlCreateButton("Speichern", 240, 189, 80, 24, 0)
GUICtrlSetOnEvent(-1, "save")
$gui_savestart = GUICtrlCreateButton("Speichern und Starten", 233, 218, 95, 38, $BS_MULTILINE)
GUICtrlSetOnEvent(-1, "saverun")
GUICtrlCreateLabel("www.*************", 198, 268, 106, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetOnEvent(-1, "autoitbot")
GUICtrlCreateLabel("Graphical User Interface by:", 63, 268, 136, 17)
GUISetState(@SW_SHOW)

GUICtrlSetOnEvent($check_proxy, "checkproxy")
GUICtrlSetOnEvent($check_bottlesell, "checkbottlesell")
GUICtrlSetOnEvent($check_bottlecollect, "checkbottlecollect")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

$trayhp = TrayCreateItem("Visit *************")
$trayexit = TrayCreateItem("Exit")

TrayItemSetOnEvent($trayhp, "autoitbot")
TrayItemSetOnEvent($trayexit, "_Exit")

checkproxy()
checkbottlecollect()
checkbottlesell()

While 1
Sleep(100)
WEnd

Func _Exit()
    GUISetState($maingui, @SW_HIDE)
    TrayTip("*************", "GUI by *************","", 1)
    Sleep(2000)
    Exit
EndFunc

Func load()
    $username = IniRead("settings.ini", "Settings", "Username", "")
    If $username = "" Then
        $username = "Username"
    EndIf
    $passwort = IniRead("settings.ini", "Settings", "Password", "")
    If $passwort = "" Then
        $passwort = "Passwort"
    EndIf
    $proxyenabled = IniRead("settings.ini", "Settings", "ProxyEnabled", "false")
    $proxy = IniRead("settings.ini", "Settings", "Proxy", "")
    If $proxy = "" Then
        $proxy = ""
    EndIf
    $port = IniRead("settings.ini", "Settings", "ProxyPort", "")
    If $port = "" Then
        $port = ""
    EndIf
    $umts = IniRead("settings.ini", "Settings", "umts", "false")
    $dosser = IniRead("settings.ini", "Settings", "dosser", "false")
    $bottlecollect = IniRead("settings.ini", "Settings", "bottlecollect", "true")
    $zeit = IniRead("settings.ini", "Settings", "zeit", "")
    $bottlesell = IniRead("settings.ini", "Settings", "bottlesell", "true")
    $maxgeld = IniRead("settings.ini", "Settings", "maxgeld", "")
    $minkurs = IniRead("settings.ini", "Settings", "minkurs", "")
EndFunc

Func checkbottlesell()
    If GUICtrlRead($check_bottlesell) = $GUI_CHECKED Or $bottlesell = "true" Then
        GUICtrlSetState($gui_maxgeld, $GUI_ENABLE)
        GUICtrlSetState($gui_minkurs, $GUI_ENABLE)
    Else
        GUICtrlSetState($gui_maxgeld, $GUI_DISABLE)
        GUICtrlSetState($gui_minkurs, $GUI_DISABLE)
        $bottlesell = "false"
    EndIf
EndFunc

Func checkbottlecollect()
    If GUICtrlRead($check_bottlecollect) = $GUI_CHECKED Or $bottlecollect = "true" Then
        GUICtrlSetState($combo_zeit, $GUI_ENABLE)
    Else
        GUICtrlSetState($combo_zeit, $GUI_DISABLE)
        $bottlecollect = "false"
    EndIf
EndFunc

Func checkproxy()
    If GUICtrlRead($check_proxy) = $GUI_CHECKED Or $proxyenabled = "true" Then
        GUICtrlSetState($gui_port, $GUI_ENABLE)
        GUICtrlSetState($gui_proxy, $GUI_ENABLE)
    Else
        GUICtrlSetState($gui_port, $GUI_DISABLE)
        GUICtrlSetState($gui_proxy, $GUI_DISABLE)
        $proxyenabled = "false"
    EndIf
EndFunc

Func autoitbot()
    _IECreate("http://www.*************",0,1,0)
EndFunc

Func save()
    $username = GUICtrlRead($gui_username)
    $passwort = GUICtrlRead($gui_password)
    $proxyenabled = GUICtrlRead($check_proxy)
    If $proxyenabled = $GUI_CHECKED Then
        $proxyenabled = "true"
        $proxy = GUICtrlRead($gui_proxy)
        $port = GUICtrlRead($gui_port)
    Else
        $proxyenabled = "false"
        $proxy = ""
        $port = ""
    EndIf
    $umts = GUICtrlRead($check_umts)
    If $umts = $GUI_CHECKED Then
        $umts = "true"
    Else
        $umts = "false"
    EndIf
    $dosser = GUICtrlRead($check_dossergame)
    If $dosser = $GUI_CHECKED Then
        $dosser = "true"
    Else
        $dosser = "false"
    EndIf
    $bottlecollect = GUICtrlRead($check_bottlecollect)
    If $bottlecollect = $GUI_CHECKED Then
        $bottlecollect = "true"
        $zeit = GUICtrlRead($combo_zeit)
        If $zeit = "10 Minuten" Then
            $zeit = "10"
        ElseIf $zeit = "30 Minuten" Then
            $zeit = "30"
        ElseIf $zeit = "1 Stunde" Then
            $zeit = "60"
        ElseIf $zeit = "3 Stunden" Then
            $zeit = "180"
        ElseIf $zeit = "6 Stunden" Then
            $zeit = "360"
        ElseIf $zeit = "9 Stunden" Then
            $zeit = "540"
        ElseIf $zeit = "12 Stunden" Then
            $zeit = "720"
        EndIf
    Else
        $bottlecollect = "false"
        $zeit = ""
    EndIf
    $bottlesell = GUICtrlRead($check_bottlesell)
    If $bottlesell = $GUI_CHECKED Then
        $bottlesell = "true"
        $maxgeld = GUICtrlRead($gui_maxgeld)
        If StringInStr($maxgeld, ",") = 0 Then
        Else
            $maxgeld = StringReplace($maxgeld,",",".")
            GUICtrlSetData($gui_maxgeld, $maxgeld)
        EndIf
        $minkurs = GUICtrlRead($gui_minkurs)
        If StringInStr($minkurs, ",") = 0 Then
        Else
            $minkurs = StringReplace($minkurs,",",".")
            GUICtrlSetData($gui_minkurs, $minkurs)
        EndIf
    Else
        $bottlesell = "false"
        $maxgeld = ""
        $minkurs = ""
    EndIf
    IniWrite("settings.ini", "Settings", "Username", $username)
    IniWrite("settings.ini", "Settings", "Password", $passwort)
    IniWrite("settings.ini", "Settings", "ProxyEnabled", $proxyenabled)
    IniWrite("settings.ini", "Settings", "Proxy", $proxy)
    IniWrite("settings.ini", "Settings", "ProxyPort", $port)
    IniWrite("settings.ini", "Settings", "umts", $umts)
    IniWrite("settings.ini", "Settings", "dosser", $dosser)
    IniWrite("settings.ini", "Settings", "bottlecollect", $bottlecollect)
    IniWrite("settings.ini", "Settings", "zeit", $zeit)
    IniWrite("settings.ini", "Settings", "bottlesell", $bottlesell)
    IniWrite("settings.ini", "Settings", "maxgeld", $maxgeld)
    IniWrite("settings.ini", "Settings", "minkurs", $minkurs)
    
    $rnd = Random(0,9,1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 2, "<username>"&$username&"</username>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 3, "<password>"&$passwort&"</password>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 4, "<useragent>"&$useragent[$rnd]&"</useragent>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 5, "<dossergame>"&$dosser&"</dossergame>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 7, "<proxy-ip>"&$proxy&"</proxy-ip>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 8, "<proxy-port>"&$port&"</proxy-port>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 10, "<umts>"&$umts&"</umts>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 13, "<enabled>"&$bottlecollect&"</enabled>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 14, "<thirtymin>"&$zeit&"</thirtymin>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 18, "<enabled>"&$bottlesell&"</enabled>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 19, "<maxmoney>"&$maxgeld&"</maxmoney>",1)
    _FileWriteToLine(@ScriptDir&"\config.xml", 20, "<minexchange>"&$minkurs&"</minexchange>",1)
EndFunc
Func saverun()
    save()
    Run(@ScriptDir&"\pennerbot.exe")
EndFunc
04/06/2009 14:01 sconda#8
auf elitepvpers ist echt immer verlass thx für den wie immer einwandfrei funktionierenden bot
04/08/2009 11:12 foerby#9
Hallo bei mir öffnet sich der Bot kurz, schließt sich aber wieder
04/09/2009 10:15 Abbls#10
helluuuuu,

geht der jetz auch wieder in teilweise größeren als 10 min intervallen sammeln? und wenn ja, kann ich das iwie ausschalten?

.o0 wenn schon risiko, dann bitte volles ;)

daaaankeeeeee
04/09/2009 10:50 GT4#11
ehhhhhhmbei mir geht der gar nicht ich kan nicht mals entpacken wen ich entpacken wil steht da fehler oder so . kan mir jemand HELFEN
04/09/2009 12:18 itelligence#12
Autoitbot?

es funktioniert alles einwandfrei, doch nach ca 20minuten oder 30 minuten weiß nicht so genau kommt "pennerbot.exe hat ein problem festgestellt und wird geschlossen" oder so ähnlich

was mach ich falsch?
04/09/2009 12:51 Abbls#13
Quote:
Originally Posted by Meisternuke View Post
Autoitbot?

es funktioniert alles einwandfrei, doch nach ca 20minuten oder 30 minuten weiß nicht so genau kommt "pennerbot.exe hat ein problem festgestellt und wird geschlossen" oder so ähnlich

was mach ich falsch?
Jo, so schauts bei mir auch aus..... ?!?!?
04/09/2009 16:20 ©ðvŠ©#14
ich hab das gleiche prob.
aber merkwürdigerweise erst seit 2 tagen.
vorher gab es keine probleme.
04/10/2009 22:19 foerby#15
bei mir kommt immer eine fehlermeldung:pennerbot hat ein problem festgestellt und muss beendet werden
Page 1 of 3 1 23