[eF_Hacks] AutoIT Key Recorder

Page 1 of 2 1 2
04/02/2009 20:08 buFFy!#1

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 -
[Only registered and activated users can see links. Click Here To Register...]

04/02/2009 20:23 __wadim#2
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 :)
04/02/2009 20:26 buFFy!#3
Quote:
Originally Posted by __wadim View Post
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^^
04/02/2009 20:45 Grenth#4
gleich mal testen denke schon nice :>
zeiten etc passen muss nun nurnoch rausfinden wie das zu nem bot wird ^^
04/02/2009 21:22 buFFy!#5
Im gui auf Compile klicken, source auswählen und compile.. dann ausführen :)
04/02/2009 21:28 Grenth#6
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:
[Only registered and activated users can see links. Click Here To Register...]
04/02/2009 21:32 buFFy!#7
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.
04/02/2009 21:42 Grenth#8
joar werde mich am wochenende mal mit auseinandersetzten und für den anfang nen laufbot schreiben ^^
04/02/2009 21:44 buFFy!#9
Quote:
Originally Posted by Grenth View Post
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 :)
09/13/2009 21:10 sw1#10
lol das is einmal gildwars bot und autoit compile script to .exe
09/13/2009 21:37 buFFy!#11
Du solltest Archäologe werden !
12/14/2010 22:18 speedyvonmexico#12
@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?
12/14/2010 22:20 beefm4ker#13
Quote:
Originally Posted by u-coRe View Post
Du solltest Archäologe werden !

;-)^^
12/14/2010 22:30 speedyvonmexico#14
sry das ich den thread ausgegraben habe u.u

#closereport
12/16/2010 18:05 in MIND#15
#closed
Page 1 of 2 1 2