Habe einige Probleme und sachen die ich trotz tuts einfach nicht alleine realisieren kann. Wäre sehr froh wenn ihr mir zum warscheinlich 10x150³ mal helft^^
hier mein erneuerter code
#include <String.au3>
#include<IE.au3>
HotKeySet("{ESC}","_Exit")
;================Benutzername&Passwort speichern======================
$name=""
$pw=""
$name1=""
$pw1=""
$EncryptPW = "0175874" ;Hier bitte das PW anpassen, kannst nehmen was du willst. Wird aber für die Verschlüsselung gebraucht
$ini = "config.ini"
$iniread = IniRead($ini,"Nutzung","ja/nein","NotFound")
If $iniread = "ja" Then
$EncryName = IniRead($ini,"Login","Name","")
$EncryPW = IniRead($ini,"Login","PW","")
$name = _StringEncrypt(0, $EncryName, $EncryptPW, 7)
$pw = _StringEncrypt(0, $EncryPW, $EncryptPW, 7)
Else
Global $input[2]
$input[0] = InputBox("Username","Geben sie bitte hier ihren Benutzernamen ein", "","#" )
$input[1] = InputBox("Password","Geben sie bitte hier ihr Passwort ein", "", "#")
IniWrite($ini,"Login","Name",_StringEncrypt(1, $input[0], $EncryptPW, 3))
IniWrite($ini,"Login","PW",_StringEncrypt(1, $input[1], $EncryptPW, 3))
IniWrite($ini,"Nutzung","ja/nein","ja")
EndIf
Func _Exit()
Exit
EndFunc
;============================Login Script==========================================
$post = "username=" & $name1 & "&password=" & $pw1 & "&x=" & Random(10, 40, 1) & "&y=" & Random(5, 18, 1)
GuiCreate("Wrestlegame.de Bot",321,294,947,6)
$Start=GuiCtrlCreateButton("Start",6,38,131,42)
$choose=GuiCtrlCreateButton("Shows auswählen",7,85,130,39)
$info=GuiCtrlCreateButton("Anleitung",2,203,317,48)
$credits=GuiCtrlCreateButton("Credits",5,252,314,40)
$Exit=GuiCtrlCreateButton("Exit",170,40,122,150)
$link=GuiCtrlCreateButton("www.elitepvpers.com",7,129,130,45)
$label1=GuiCtrlCreateLabel("Build No.0.0.1",110,6,54,15)
GuiSetState()
While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$Start Then Start()
If $msg=$Exit Then EXITT()
If $msg=$credits Then Credits()
If $msg=$info Then Info()
If $msg=$link then link()
If $msg=$choose then choose()
Wend
Func Info()
MsgBox (0, "Anleitung", "1.Klicke auf Show wählen")
MsgBox (0, "Anleitung", "2.Klicke auf Start")
MsgBox (0, "Anleitung", "3.Es öffnet sich kein Fenster aber keine Angst zu diesem Zeitpunkt bottest du schon^^")
Endfunc
Func link()
$oIE=_IECreate("www.elitepvpers.com")
Endfunc
Func choose()
Global $input[16];hier soll mann auswählen welche urls dann aufgerufen werden sollen
$input[2] = Inputbox ("Initiative","Ja oder Nein")
$input[3] = Inputbox("Accelerate","Ja oder Nein")
$input[4] = Inputbox("Night of Glory","Ja oder Nein")
$input[5] = Inputbox("Beatdown","Ja oder Nein")
$input[6] = Inputbox("War Zone","Ja oder Nein")
$input[7] = Inputbox("Wildcard Roulette","Ja oder Nein")
$input[8] = Inputbox("Doomsday Lite","Ja oder Nein")
$input[9] = Inputbox("Doomsday","Ja oder Nein")
$input[10] = Inputbox("Championsnite","Ja oder Nein")
$input[11] = Inputbox("TT-Accelerate","Ja oder Nein")
$input[12] = Inputbox("TT-Beatdowm","Ja oder Nein")
$input[13] = Inputbox("TT-War Zone","Ja oder Nein")
$input[14] = Inputbox("TT-Free 4 all","Ja oder Nein")
$input[15] = Inputbox("TT-Championsnite","Ja oder Nein")
IniWrite($ini,"Initiative","Ja oder Nein"(1, $input[2],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Accelerate","Ja oder Nein"(1, $input[3],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Night of Glory","Ja oder Nein"(1, $input[4],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Beatdown","Ja oder Nein"(1, $input[5],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"War Zone","Ja oder Nein"(1, $input[6],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Wildcard Roulette","Ja oder Nein"(1, $input[7],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Doomsday Lite","Ja oder Nein"(1, $input[8],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Doomsday","Ja oder Nein"(1, $input[9],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"Championsnite","Ja oder Nein"(1, $input[10],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-Accelerate","Ja oder Nein"(1, $input[11],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-Beatdowm","Ja oder Nein"(1, $input[12],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-War Zone","Ja oder Nein"(1, $input[13],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-Free 4 all","Ja oder Nein"(1, $input[14],, 3));hier kommt missing right bracket wo liegt der fehler?
IniWrite($ini,"TT-Championsnite","Ja oder Nein"(1, $input[15],, 3));hier kommt missing right bracket wo liegt der fehler?
Endfunc
Func EXITT()
MsgBox (0, "Exit", "Bot wird beendet")
Exit
EndFunc
Func Credits()
MsgBox (0, "Credits", "Shadow992 "&@CRLF&"Skollhunter")
EndFunc
Func Start()
TCPStartup()
$ip = TCPNameToIP("www.wrestlegame.de")
TCPShutdown()
$source = TCPRequest($ip, "www.wrestlegame.de", "/login.php", $post)
$cookies = GetCookies($source)
;===========================================================
;Ich hab keine Ahnung wie ich weitermachen muss also wo ich die urls hinpacken muss die nach dem login aufgerufen werden sollen?!
;Also hier soll auch die config.ini ausgelesen werden und halt wenn oben bei der show mit ja geantwortet wurde dann soll er die url aufrufen wenn nicht zur nächsten springen!
While 1
;das unterstrichene müsste er auslesen und an www.wrestlegame.de anfügen und aufrufen
<a href="[U]?action=compete&showid=4&c=ff333497ace6929e1277664151[/U]"><b style="text-align:center; vertical-align:middle; font-size:8pt; text-transform: uppercase; font-weight:bold; font-family:Tahoma; line-height:16pt; color:#FFFFFF">
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=17";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=1";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=2";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=3";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=4";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=6";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=7";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=8";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=9";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=10";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=11";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=12";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=13";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=14";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
TcpRequest $sSeite = "www.wrestlegame.de/show.php?showid=15";Ist das so Richtig?
;Hier müsste der aus dem Quelltext die variable auslesen.Wie müsste der Befehl bei mir Aussehen?
Wend
;===========================================================
Endfunc
Func GetCookies($sQuellcode)
Local $sCookies, $i, $aCookies
$sCookies = ''
$aCookies = _StringBetween($sQuellcode, 'Set-Cookie: ', ';', 1)
For $i = 0 To UBound($aCookies) - 1
$sCookies &= $aCookies[$i] & ';'
Next
Return $sCookies
EndFunc ;==>GetCookies
Func TCPRequest($sIp, $sHost, $sSeite = "", $sPost = '', $sCookies = '', $sReferer = '', $iMaxTime = 10000)
Local $sPacket, $iSocket, $iTimer
If $sPost = '' Then
$sPacket = 'GET /' & $sSeite & ' HTTP/1.1' & @CRLF
Else
$sPacket = 'POST /' & $sSeite & ' HTTP/1.1' & @CRLF
EndIf
$sPacket &= 'Host: ' & $sHost & @CRLF & _
'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.10) Gecko/20100504 Firefox/3.5.10 (.NET CLR 3.5.30729)' & @CRLF & _
'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' & @CRLF & _
'Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3' & @CRLF & _
'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' & @CRLF & _
'Keep-Alive: 300' & @CRLF & _
'Content-Type: application/x-www-form-urlencoded' & @CRLF & _
'Connection: keep-alive' & @CRLF
If $sReferer <> '' Then
$sPacket &= 'Referer: ' & $sReferer & @CRLF
EndIf
If $sCookies <> '' Then
$sPacket &= 'Cookie: ' & $sCookies & @CRLF
EndIf
If $sPost <> '' Then
$sPacket &= 'Content-Length: ' & StringLen($sPost) & @CRLF
EndIf
$sPacket &= @CRLF
If $sPost <> '' Then
$sPacket &= $sPost
EndIf
TCPStartup()
If @error Then Return SetError(1, 0, "")
$iSocket = TCPConnect($sIp, 80)
If @error Then Return SetError(2, 0, "")
TCPSend($iSocket, $sPacket)
If @error Then Return SetError(3, 0, "")
$iTimer = TimerInit()
Do
$sRecv = TCPRecv($iSocket, 1024)
If TimerDiff($iTimer) > $iMaxTime Then Return SetError(4, 0, "")
Until $sRecv <> ""
Do
$sRecv &= TCPRecv($iSocket, 1024)
Until @error Or StringInStr($sRecv, '</html>')
TCPCloseSocket($iSocket)
TCPShutdown()
Return $sRecv
EndFunc ;==>TCPRequest
Func Change($string)
$string = StringReplace($string, "%", "%25")
$string = StringReplace($string, "†", "%E2%80%A0")
$string = StringReplace($string, "ä", "%C3%A4")
$string = StringReplace($string, "ö", "%C3%B6")
$string = StringReplace($string, "ü", "%C3%BC")
$string = StringReplace($string, "!", "%21")
$string = StringReplace($string, '"', "%22")
$string = StringReplace($string, "§", "%C2%A7")
$string = StringReplace($string, "$", "%24")
$string = StringReplace($string, "&", "%26")
$string = StringReplace($string, "/", "%2F")
$string = StringReplace($string, "+", "%2B")
$string = StringReplace($string, " ", "+")
$string = StringReplace($string, "(", "%28")
$string = StringReplace($string, ")", "%29")
$string = StringReplace($string, "=", "%3D")
$string = StringReplace($string, "?", "%3F")
$string = StringReplace($string, "[", "%5B")
$string = StringReplace($string, "]", "%5D")
$string = StringReplace($string, "{", "%7B")
$string = StringReplace($string, "}", "%7D")
$string = StringReplace($string, "ß", "%C3%9F")
$string = StringReplace($string, ",", "%2C")
$string = StringReplace($string, ":", "%3A")
$string = StringReplace($string, ";", "%3B")
$string = StringReplace($string, "#", "%23")
$string = StringReplace($string, "~", "%7E")
$string = StringReplace($string, "²", "%C2%B2")
$string = StringReplace($string, "³", "%C2%B3")
$string = StringReplace($string, "<", "%3C")
$string = StringReplace($string, ">", "%3E")
$string = StringReplace($string, "|", "%7C")
$string = StringReplace($string, "^", "%5E")
$string = StringReplace($string, "°", "%C2%B0")
$string = StringReplace($string, "´", "%C2%B4")
$string = StringReplace($string, "@", "%40")
$string = StringReplace($string, "€", "%E2%82%AC")
Return $string
EndFunc ;==>Change
[Brauche eure Hilfe] 12/06/2009 - Metin2 - 3 Replies Hallo ,
Ich wollte nun mal ein ACC auf Metin2.de Mosha oder auf Erfoo kaufen.
So, nun will ich mich nicht überm ohrhauen.
Also das ich bei dem Verkauf iwie ver***** werde.
Meine Bitte an euch ist,
Ich brauche eure Hilfe! 10/19/2009 - General Coding - 4 Replies Nabend Leute...
das wird jtz. vielleicht lächerlich Klingen oder so aber ich brauche eure Hilfe.
Ich habe mir jtz. fest vorgenommen C++ zu lernen.
Ich weiß das es kein Zuckerschlecken wird aber ich will einen KindheitsTraum wahr werden lassen.
Da dies nicht nur zum Spaß sein soll und ich auch in weiterer Zukunft vllt. im Berufs-Leben Programmierer von Spielen werden will, will ich mir erstmal die Grundlagen von c++ anlegen.
BRAUCHE EURE HILFE!!! PLS 10/17/2009 - Metin2 Private Server - 2 Replies also, ich hab nen eig. Server Spiele dort alleine drauf.
hab es geschafft mit den GM rechten und bla bla!
hatte 2 Tage GM rechte, bis dahin war alles Super.
aber als ich dann VIT STR und so auf 999 gepackt habe und mich wieder eingeloggt habe war das GM zeichen über dem kopf weg und hatte keine GM Rechte mehr, obwohl vor dem Namen das war? ich verstehe es nicht, wer kann mir Helfen, woran liegt es?
Ich brauche eure hilfe :) 08/24/2009 - Metin2 Private Server - 9 Replies So da metin2 langweilig geworden ist und p server kein bog mehr machen weil sie immer down gehen.... oder der wie z.b ein gm server keiner wirt dir die sagen alles egos...
naja egal drum wollte ich frage kan mir wer ein gutes game entfehlen
sollte schon wie metin2 seien :)
sollte fun machen und nicht nach 2 tagen wieder langweilig werden :)
Puh brauche eure hilfe
