AutoIT "IE" Hilfe bitte :)

03/30/2013 16:37 blackout617#1

Ich will ein auto-login bot machen f�r xblaster ich habe Login Und password geschaft aber nicht mehr kan mir jemand helfen ? das ist mein projekt:

Code:

#include <IE.au3>
;$oIE = _IECreate ("http://xblaster.bigpoint.com")
;$sHTML = _IEDocReadHTML ($oIE)
;FileWrite("XBlast.txt",$sHTML)
;_IEQuit ($oIE)
;/////////////////
;/////////////////
;Das ist f�r Quellen Text  :)


$name=Inputbox("Benutzername","Bitte gib deinen Benutzernamen ein") 
$passwort=Inputbox("Passwort","Bitte gib dein Passwort ein")  

$oIE=_IECreate("http://xblaster.bigpoint.com") 
$oForm = _IEFormGetCollection($oIE,0)

$oUsername = _IEFormElementGetObjByname($oForm,"name") 
    $oPassword = _IEFormElementGetObjByName($oForm,"passwd") 
    _IEFormElementSetValue ($oUsername,$name) 
    _IEFormElementSetValue ($oPassword,$passwort)
_IEFormSubmit($oForm)
$sHTML = _IEDocReadHTML ;quellen text ($oIE)
FileWrite("XBlast.txt",$sHTML) ;in xblast.txt schreiben

Ich habe es nicht geshaft bei server selection :)

kan mir jemand helfen und auch bitte erkleren :)
Und danach ,noch eine kleine hilfe bitte :)

Spoiler

Hier habe jetzt das gemacht aber weis immer noch nicht wie ich das server loging mache :/ Kan mir jemand das erklaren .

Mein web Request Project:
Edit :
Ich habe

Code:

$aSID = StringRegExp($sHTML,"javascript:f=open('index.php?sid=(\d+?)&r",3)
MsgBox(64,"Sid",$aSID)

gemacht aber bei msgbox komt dan 0 also ist das falsch :(

Spoiler

- English:

Spoiler

Danke :)

03/30/2013 16:39 Fl00d3R#2

Mache es per WebRequest und nicht �ber IE!

03/30/2013 16:55 blackout617#3

kanst du mir ein tutorial link sendn ?

03/30/2013 17:32 �Incinerate#4

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

03/30/2013 17:44 omer36#5

Quote:

Originally Posted by �ExtinCtioN

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

vb net...

[Only registered and activated users can see links. Click Here To Register...]
vllt. hilft das ja

03/30/2013 20:18 blackout617#6

Quote:

Originally Posted by omer36

vb net...

[Only registered and activated users can see links. Click Here To Register...]
vllt. hilft das ja

danke aber jetzt will i doch web request machen :)

Hier habe jetzt das gemacht aber weis immer noch nicht wie ich das server loging mache :/ Kan mir jemand das erklaren .

Mein web Request Project:

Spoiler

Edit :
Ich habe

Code:

$aSID = StringRegExp($sHTML,"javascript:f=open('index.php?sid=(\d+?)&r",3)
MsgBox(64,"Sid",$aSID)

gemacht aber bei msgbox komt dan 0 also ist das falsch :(

03/30/2013 20:21 �Incinerate#7

Ich wei� nicht richtig was du meinst ... aber versuch mal das.

Spoiler

PHP Code:


			
#include <ButtonConstants.au3>

#include <ComboConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <IE.au3>

#Region ### START Koda GUI section ### Form=

GUICreate("xBlaster Loginbot", 248, 132, 278, 216)

GUICtrlCreateLabel("Benutzername:", 8, 10, 91, 17, $SS_RIGHT)

GUICtrlCreateLabel("Passwort:", 8, 34, 91, 17, $SS_RIGHT)

GUICtrlCreateLabel("Server:", 8, 66, 91, 17, $SS_RIGHT)

$Account = GUICtrlCreateInput("", 112, 8, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))

$Password = GUICtrlCreateInput("", 112, 32, 121, 21, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL))

$Server = GUICtrlCreateCombo("Venus EU", 112, 64, 121, 25)

GUICtrlSetData(-1, "Erde|Mars|Neptune FR|Venus US|Neptune US|Singapur")

$Login = GUICtrlCreateButton("Login", 112, 96, 123, 20, $WS_GROUP)

$URL = "http://xblaster.bigpoint.com"

GUISetState(@SW_SHOW)



$Venus_EU = "http://xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=19&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de"

$Erde = "http://xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=19&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de"

$Mars = "http://mars-eu.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=81&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de"

$Neptune_FR = "http://neptune-fr.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=102&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de"

$Venus_US = "http://venus-us.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=292&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de"

$Neptune_US = "http://neptune-us.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=293&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de"

$Singapur = "http://mars-int.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=330&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de"







#EndRegion ### END Koda GUI section ###



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Login

            $Account_Read = GUICtrlRead($Account)

            $Password_Read = GUICtrlRead($Password)

            $Server_Read = GUICtrlRead($Server)



            $IE = _IECreate($URL)

            $Form = _IEFormGetCollection($IE,0)



            $Username = _IEFormElementGetObjByname($Form,"name")

            $Password1 = _IEFormElementGetObjByName($Form,"passwd")

            _IEFormElementSetValue ($Username,$Account_Read)

            _IEFormElementSetValue ($Password1,$Password_Read)

            _IEFormSubmit($Form)



            If $Server_Read = "Venus EU" Then

                $IE = _IECreate($Venus_EU)

            ElseIf $Server_Read = "Erde" Then

                $IE = _IECreate($Erde)

            ElseIf $Server_Read = "Mars" Then

                $IE = _IECreate($Mars)

            ElseIf $Server_Read = "Neptune FR" Then

                $IE = _IECreate($Neptune_FR)

            ElseIf $Server_Read = "Venus US" Then

                $IE = _IECreate($Venus_US)

            ElseIf $Server_Read = "Neptune US" Then

                $IE = _IECreate($Neptune_US)

            ElseIf $Server_Read = "Singapur" Then

                $IE = _IECreate($Singapur)

            EndIf



    EndSwitch

WEnd

03/30/2013 20:47 blackout617#8

Quote:

Originally Posted by �ExtinCtioN

Ich wei� nicht richtig was du meinst ... aber versuch mal das.

Spoiler

PHP Code:

#include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <IE.au3> #Region ### START Koda GUI section ### Form= GUICreate("xBlaster Loginbot", 248, 132, 278, 216) GUICtrlCreateLabel("Benutzername:", 8, 10, 91, 17, $SS_RIGHT) GUICtrlCreateLabel("Passwort:", 8, 34, 91, 17, $SS_RIGHT) GUICtrlCreateLabel("Server:", 8, 66, 91, 17, $SS_RIGHT) $Account = GUICtrlCreateInput("", 112, 8, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL)) $Password = GUICtrlCreateInput("", 112, 32, 121, 21, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL)) $Server = GUICtrlCreateCombo("Venus EU", 112, 64, 121, 25) GUICtrlSetData(-1, "Erde|Mars|Neptune FR|Venus US|Neptune US|Singapur") $Login = GUICtrlCreateButton("Login", 112, 96, 123, 20, $WS_GROUP) $URL = "http://xblaster.bigpoint.com" GUISetState(@SW_SHOW) $Venus_EU = "http://xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=19&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de" $Erde = "http://xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=19&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de" $Mars = "http://mars-eu.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=81&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de" $Neptune_FR = "http://neptune-fr.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=102&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de" $Venus_US = "http://venus-us.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=292&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de" $Neptune_US = "http://neptune-us.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=293&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de" $Singapur = "http://mars-int.xblaster.bigpoint.com/index.php?sid=6015032b8b213d638a1927804af26edc&r=default/instances&selInst=330&zinfo=VVZjMXBBQURTeTBoZlhlbWVIU2cza3E3eXhwcnRMeFY1YVRobkFIVU5PYktJWFEwczhqbERaUTBwVzM3WXpkbCt6RE5Celd3REJ2bVZ3Wkdma0pGeUZsN3J5K1FNMWhkU0IzN2c3cC9HL2pjQmtFOENxZWRsZz09&lang=de" #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Login $Account_Read = GUICtrlRead($Account) $Password_Read = GUICtrlRead($Password) $Server_Read = GUICtrlRead($Server) $IE = _IECreate($URL) $Form = _IEFormGetCollection($IE,0) $Username = _IEFormElementGetObjByname($Form,"name") $Password1 = _IEFormElementGetObjByName($Form,"passwd") _IEFormElementSetValue ($Username,$Account_Read) _IEFormElementSetValue ($Password1,$Password_Read) _IEFormSubmit($Form) If $Server_Read = "Venus EU" Then $IE = _IECreate($Venus_EU) ElseIf $Server_Read = "Erde" Then $IE = _IECreate($Erde) ElseIf $Server_Read = "Mars" Then $IE = _IECreate($Mars) ElseIf $Server_Read = "Neptune FR" Then $IE = _IECreate($Neptune_FR) ElseIf $Server_Read = "Venus US" Then $IE = _IECreate($Venus_US) ElseIf $Server_Read = "Neptune US" Then $IE = _IECreate($Neptune_US) ElseIf $Server_Read = "Singapur" Then $IE = _IECreate($Singapur) EndIf EndSwitch WEnd

Ich will einen bot/program machen der sol sich in account Login machen und Server auswahlen und mir TP/Credits etc. anzeigen das will ich machen mit Web Request .Deins funkt leider auch nicht und das IE :)

mein projekt:

Code:

#include <WinHTTP.au3>

$hSession = _WinHttpOpen("User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:19.0) Gecko/20100101 Firefox/19.0")
$hConnect = _WinhttpConnect($hSession, "www.xblaster.com")
$sHTML = _WinHttpSimpleRequest($hConnect, "GET", "")

FileWrite("LoginSeite.html" , $sHTML)

$name=Inputbox("Benutzername","Bitte gib deinen Benutzernamen ein") 
$passwort=Inputbox("Passwort","Bitte gib dein Passwort ein")  
$sHTML = _WinHttpSimpleRequest($hConnect,"POST","index.php", "", "sid=&r=default%2Findex&do=1&name=" & $name & "&passwd=" & $passwort)
FileWrite("Antwort.html" , $sHTML)
;///$aSID = StringRegExp($sHTML,"javascript:f=open('index.php?sid= (\d+?)&r",3)
$aSID2 = StringRegExp($sHTML,'tr  onclick="loadSite( "http://venus.xblaster.bigpoint.com/index.php?sid= (\d) &r=default/instances&selInst=276&zinfo=VVZjN1NRQUpBVk9HeHBRZHRZb2NHUXFxUUJUcDJjUUY4UUdqV0hNakFxYU8rTW5vN2RiN1NpTitwV1h0K0s1SDE2Vy9tS1krM2R2NmxPcWJYQTRmUlQ0aHZrTjJTclRtV0NVQitMRFpIcE1ZZFhYazVlY216RXNKaEFpamZuRWI%3D&lang=tr" )" onmouseover="showDetails( "Ven�s AB", "12.am.2009 tarihinde", "Avrupa", 0, 0 );" onmouseout="hideDetails();">"',3)
;/////MsgBox(64,"Sid",$aSID) ; SID
MsgBox(64,"Sid",$aSID2) ; SID
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hSession)

bei der msgbox komt 1 aber nicht die SID(session id ich brauche die um server auswahlen) :(
Aber das geht nicht :(

Keine hilfe ?
:(