[eF_Hacks] AutoIT Key Recorder

buFFy! · 04/02/2009, 20:08

Sooo.. Er ist fertig - Mein AutoIT Key Recorder !

Mit ihm ist es möglich "Makros" und/oder Sleepzeiten aufzunehmen.
Probierts einfach aus.. Feedback ist gewünscht.. geflame auch

File ist clean, wers nicht glaubt [aufgrund der gefunden "Viren"] soll es bitte nicht nutzen.

Code:

Datei Key_Recorder_v1.0__eF_Hacks_.rar empfangen 2009.04.02 20:05:33 (CET)
Status: Laden ... Wartend Warten Überprüfung Beendet Nicht gefunden Gestoppt 


Ergebnis: 4/40 (10%)

Antivirus Version letzte aktualisierung Ergebnis 
a-squared 4.0.0.101 2009.04.02 - 
AhnLab-V3 5.0.0.2 2009.04.02 - 
AntiVir 7.9.0.129 2009.04.02 - 
Antiy-AVL 2.0.3.1 2009.04.02 - 
Authentium 5.1.2.4 2009.04.01 - 
Avast 4.8.1335.0 2009.04.02 - 
AVG 8.5.0.285 2009.04.02 - 
BitDefender 7.2 2009.04.02 - 
CAT-QuickHeal 10.00 2009.04.01 - 
ClamAV 0.94.1 2009.04.02 W32.Autoit.Obfus-4 
Comodo 1093 2009.04.01 - 
DrWeb 4.44.0.09170 2009.04.02 - 
eSafe 7.0.17.0 2009.04.02 - 
eTrust-Vet 31.6.6432 2009.04.02 - 
F-Prot 4.4.4.56 2009.04.01 - 
F-Secure 8.0.14470.0 2009.04.02 - 
Fortinet 3.117.0.0 2009.04.02 - 
GData 19 2009.04.02 - 
Ikarus T3.1.1.49.0 2009.04.02 - 
K7AntiVirus 7.10.690 2009.04.01 - 
Kaspersky 7.0.0.125 2009.04.02 - 
McAfee 5572 2009.04.02 W32/Autorun.worm.zf.gen 
McAfee+Artemis 5572 2009.04.02 W32/Autorun.worm.zf.gen 
McAfee-GW-Edition 6.7.6 2009.04.01 - 
Microsoft 1.4502 2009.04.02 - 
NOD32 3984 2009.04.02 - 
Norman 6.00.06 2009.04.02 - 
nProtect 2009.1.8.0 2009.04.02 - 
Panda 10.0.0.14 2009.04.02 - 
PCTools 4.4.2.0 2009.04.02 - 
Prevx1 V2 2009.04.02 - 
Rising 21.23.32.00 2009.04.02 - 
Sophos 4.40.0 2009.04.02 - 
Sunbelt 3.2.1858.2 2009.04.02 - 
Symantec 1.4.4.12 2009.04.02 - 
TheHacker 6.3.4.0.298 2009.04.01 - 
TrendMicro 8.700.0.1004 2009.04.02 - 
VBA32 3.12.10.2 2009.04.02 suspected of Trojan.Autoit.F 
ViRobot 2009.4.2.1673 2009.04.02 - 
VirusBuster 4.6.5.0 2009.04.02 -

~~__wadim~~ · 04/02/2009, 20:23

lol :P, was wird denn da mir erstellt?!?^^

Quote:

;==================================
;========= Guildwars Bot ========
;==================================
Opt('SendKeyDelay', 100)
Opt('SendKeyDownDelay', 100)
WinActivate('Guild Wars')
WinWaitActive('Guild Wars')
Sleep(1000)
;===MOVEMENT===
While True

ich hatte nichtma gw fenster auf. oder ist das hardcodiert mit WinActivate?
nix gegen dich, aber da gibs viel schönere sachen.
vlt macht ma azunai seinen public

buFFy! · 04/02/2009, 20:26

Quote:

Originally Posted by __wadim

lol :P, was wird denn da mir erstellt?!?^^

ich hatte nichtma gw fenster auf. oder ist das hardcodiert mit WinActivate?
nix gegen dich, aber da gibs viel schönere sachen.

Jop ist hard.
Naja ich sag ja ich bin nich so der AutoIT_Crack :P
Ging mir eigentlich darum das es von Hause aus drin steht.. weil ich es so gestalten wollte das jeder nappel der den pc an und ausmachen kann damit klar kommt^^

Grenth · 04/02/2009, 20:45

gleich mal testen denke schon nice :>
zeiten etc passen muss nun nurnoch rausfinden wie das zu nem bot wird ^^

buFFy! · 04/02/2009, 21:22

Im gui auf Compile klicken, source auswählen und compile.. dann ausführen

Grenth · 04/02/2009, 21:28

und das wars ? muss ich mal testen compile undso reagieren bei mir i-wie net

außerdem bei so sachen mit 2 spawnpoints at city muss man ja dann manuell machen ^^

compilen tut er auch net ^^

achja und wenn ich dann per autoit es manuell mache kommt beim ausführen:

buFFy! · 04/02/2009, 21:32

Joahh.. war auch nicht so gedacht das man auf Resign' Button drückt und dann

Code:

Func _Resign($x, $y)
	$Aktion = "Aufgeben..."
	$count = 0
	$rgn = True
	If ProcessExists("Gw.exe") Then
		Do
			$count = $count + 1
			$STRING = StringFormat("%s", "/resign")
			ControlSend($hwnd, "", "", "{enter}")
			Sleep(Random(1000, 1200))
			ControlSend($hwnd, "", "", $STRING, 1)
			Sleep(Random(1000, 1200))
			ControlSend($hwnd, "", "", "{enter}")
			Sleep(Random(3000, 4000))
			If $count = 3 Then
				$rgn = False
			EndIf
		Until _MemoryRead($memdeath, $hprocess) = 1 Or $count > 3
		$TIMER_INIT = TimerInit()
		While (_MemoryRead($memmap, $hprocess)) <> 0
			If $TIMER_INIT > 20000 Then
				ConsoleWriteError("Resign Failed at: " & StringFormat("%s:%s:%s \n", @HOUR, @MIN, @SEC))
				$rgn = False
                                                   ExitLoop
			EndIf
			ControlClick($hwnd, "", "", "left", 1, $x, $y)
		WEnd
		Sleep(Random(1000, 1200))
		Return ($rgn)
	EndIf
EndFunc   ;==>_Resign

kommt

.. bissel eigeninitiative sollte schon da sein.
Außerdem denke ich das ist ganz nett um überhaupt erstmal zu sehen wie so ein Bot aufgebaut ist. Mit If/Elseif/Endif und so kann man später auch noch anfangen.

Grenth · 04/02/2009, 21:42

joar werde mich am wochenende mal mit auseinandersetzten und für den anfang nen laufbot schreiben ^^

buFFy! · 04/02/2009, 21:44

Quote:

Originally Posted by Grenth

joar werde mich am wochenende mal mit auseinandersetzten und für den anfang nen laufbot schreiben ^^

Merke: While benötigt ein WEnd [ While End ].. also zu deinem Error. einfach

Code:

WEnd

Ans Ende vom Script schreiben

~~sw1~~ · 09/13/2009, 21:10

lol das is einmal gildwars bot und autoit compile script to .exe

buFFy! · 09/13/2009, 21:37

Du solltest Archäologe werden !

speedyvonmexico · 12/14/2010, 22:18

@u-core: mal ne frage...
das programm "schreibt" mir im prinzip den sourcecode und ich muss nur copy&pasten, compilen und ausführen, oder wie darf ich das verstehn?

beefm4ker · 12/14/2010, 22:20

Quote:

Originally Posted by u-coRe

Du solltest Archäologe werden !

;-)^^

speedyvonmexico · 12/14/2010, 22:30

sry das ich den thread ausgegraben habe u.u

#closereport

in MIND · 12/16/2010, 18:05

#closed