Level+Farmbot+Relogger (Auto-Login)+Source-Script Shiro2

Page 2 of 4 1 2 34
05/07/2013 15:39 oOI3LACKOo#16
Quote:
Originally Posted by kRAiNNN View Post
kann mal jemand wirklich bekannt geben ob es nen keylogger trojaner etc ist?
oder ob der clean ist?
123Klo kannst du fragen der hat sich meine Script angesehen ^^
Und wenn du immer noch Bedenken hast, dann gib einfach bei account und passwort nicht ein ;)

ich bin kein betrüger!!! ich hab mir viel mühe gemacht um den Bot für euch zu schreiben!!! und dann bekomme ich nur 5 THX bei 300 downloads?!?
Ich werde heute mit dem neuen Bot fertig sein, der auf jedem server funktioniert bei jeder auflösung!!
Und dann mache ich ein video und Tut in deutsch + englisch
Jedoch stell ich den Source script dann erst für euch bereit, wenn ich sehe das ihr meine Arbeit auch schätzt!!
Ihr könnt euch gar nicht vorstellen,wie viel arbeit in hacks/ bots steckt!!
Und den anderen Programmieren könnt ihr auch mehr Dankbarkeit zeigen!!!
Sie haben so gut sachen für euch gemacht und ihr macht euch nicht mal die mühe auf THX zu drücken oder danke zu sagen!!!
05/07/2013 15:56 marykillsjane#17
Quote:
Originally Posted by kRAiNNN View Post
kann mal jemand wirklich bekannt geben ob es nen keylogger trojaner etc ist?
oder ob der clean ist?
Code:
#RequireAdmin
AutoItSetOption ("MouseCoordMode",2)
AutoItSetOption ("PixelCoordMode",2)

HotKeySet ("{F5}","Start")  ; Mit F5 Startet man den Bot
HotKeySet ("{F6}","Pause")	; Mit F6 Pausiert man ihn für 1 Stunde
HotKeySet ("{F7}","Ende")	; Mit F7 Stoppt man den Bot

Global $zaehler = 0						; Wenn man 10 mal stirbt, dann reloggt er sich
Global $slotX = 1765					; X-Wert vom 1st Slot der 4ten Zeile
Global $slotY = 785						; Y-Wert vom 1st Slot der 4ten Zeile

$account = InputBox("Daten","Account")
$passwort = InputBox("Daten","Passwort")


while 1 
   Sleep (500)				; Es wird alle 500ms geguckt ob die Hotkeys gedrueckt worden sind
WEnd

Func Start()				
   While (1)
	  
	  if WinExists ("runtimeerror") Then	; Sollte mal ein RuntimeError kommen ^^
		 WinActivate ("runtimeerror")
		 Send ("{ENTER}")
		 Sleep (1000)
	  EndIf
	  
	  if WinExists ("SHIRO2") Then  ; @@@@@@@@@ Den Fensternamen DEINES METIN2 FENSTERS mit "SHIRO2" ersetzten... Wenn es dein Fenster( Metin2) gibt dann stell es in den Vordergrund
		 WinActivate ("SHIRO2")	    ; @@@@@@@@@ Den Fensternamen DEINES METIN2 FENSTERS mit "SHRIO2" ersetzten
		 Sleep (500)
	  Else
		 $metin = "C:\DesktopIcons\Shiro2"			; @@@@@@@@@ Pfad zur !!Verknuepfung!! der Metin2.exe die geoeffnet werden soll
		 ShellExecute ($metin)
		 Sleep (10000)
		 WinActivate ("SHRIO2")						; @@@@@@@@@ euer Metin2-Fenstername
	  EndIf
	  
	  Call ("Relogger")								; Ruft die Funktion Relogger auf
	  

	  $ingame = PixelGetColor (300,1004)			; @@@@@@@@@ Ein Pixel(x,y) den es nur INGAME gibt
	  $aufstehen = PixelGetColor (244,54)   		; Hier WiederneustartenRahmen...Pixel vom Rahmen des "Hier Neustarten" Knopfes
	  $inventar = PixelGetColor (1766,975)   		; Farbwert vom Pixel im Inventarfenster
	  $buff = PixelGetColor (903,1007)				; Farbwert vom 1 Slot, wo ich Verzauberte Klinge habe
	  $buff2 = PixelGetColor (921,1000)				; Farbwert vom 2 Slot, wo ich Verzauberte Ruesstung habe
	  $antiexp = PixelGetColor (172,1016)			; Farbwert von der 1st Exp Kugel, wenn sie gefuellt ist
	  $antiexp2 = PixelGetColor (222,1012)			; Farbwert von der 3te Exp Kugel, wenn sie gefuellt ist
	  $moblock = PixelGetColor (988,1013)			; Farbwert von den Umhaengen auf Slot 4
	   
	  
   If $ingame = 0x1C2027 Then
	  
	  If $aufstehen = 0x7E7E7E Then   				; Das ist ein "Wiederaufsteher" :D
		 
		 Send ("{SPACE up}")
		 
		 If $zaehler = 9 Then
			MouseClick ("left",1891,1011,1,5)
			Sleep (3000)
			MouseClick ("left",960,560,1,5)
			MouseClick ("left",961,561,3,5)
			Sleep (20000)
			$zaehler = 0
			Send ("{F5 3}")
			Sleep (1000)
		 EndIf
		  
		 Send ("{1 3}")
		 MouseClick ("left",143,78,1,5)  		; Klickt auf "Hier Neustarten"
		 Sleep (2000)
		 MouseClick ("right",1770,755,1,3)		; Benutzt Deff-Traenke
		 Sleep (1000)
		 MouseClick ("right",1801,755,1,3)
		 Sleep (500)
		 MouseClick ("right",1835,755,1,3)
		 Sleep (500)
		 MouseClick ("right",1865,755,1,3)
		 Sleep (5000)
		 Send ("{F3}")							; Noch mehr Traenke ^^
		 Sleep (500)
		 Send ("{F4}")
		 Sleep (500)
		 
		 If $buff = 0x3B3525 Then			; Schaltet die Fertigkeit auf Slot 1 an
			Sleep (500)
			Send ("^{G 3}")
			Sleep (1000)
			Send ("{1 3}")
			Sleep (500)
			Send ("{3 3}")
			Sleep (1000)
			Send ("{3 3}")
			Sleep (1000)
		 EndIf
	  
		 If $buff2 = 0x6F4620 Then			 ; Schaltet die Fertigkeit auf Slot 2 an
			   Sleep (500)
			   Send ("^{G 3}")
			   Sleep (1000)
			   Send ("{2 3}")
			   Sleep (500)
			   Send ("{3 3}")
			   Sleep (1000)
			   Send ("{3 3}")
			   Sleep (1000)
			EndIf
	  
		 Send ("{3 3}")							 ; Steigt auf das Reittier, weil ich es auf dem dritten Slot habe ^^
		 Sleep (1000)
		 Send ("{3 3}")							 ; Steigt auf das Reittier, weil ich es auf dem dritten Slot habe ^^
		 Sleep (1000)
		 $zaehler = $zaehler + 1
	  EndIf
	  
	  If $inventar <> 0xDECF8C Then	       ; Wenn der Farbwert von der Variable "Inventar" KLEINER oder GROESSER ist als der Farbwert vom Pixel im Inventar... DANN druecke I
		 Send ("{I}")
		 Sleep (1000)
	  EndIf
	  
	  If $antiexp = 0xF1CD59 Then
		 MouseClick ("right",1900,690,2,5)
		 Sleep (2000)
	  EndIf
	  
	  If $antiexp2 = 0xE5C039 Then
		 MouseClick ("right",1900,690,1,5)
		 Sleep (1000)
	  EndIf
	  
	  If $buff = 0x3B3525 Then			   ; Schaltet die Fertigkeit auf Slot 1 an
		 Sleep (500)
		 Send ("^{G 3}")
		 Sleep (1000)
		 Send ("{1 3}")
		 Sleep (500)
		 Send ("{3 3}")
		 Sleep (1000)
		 Send ("{3 3}")
		 Sleep (1000)
	  EndIf
	  
	  If $buff2 = 0x6F4620 Then			 ; Schaltet die Fertigkeit auf Slot 2 an
		 Sleep (500)
		 Send ("^{G 3}")
		 Sleep (1000)
		 Send ("{2 3}")
		 Sleep (500)
		 Send ("{3 3}")
		 Sleep (1000)
		 Send ("{3 3}")
		 Sleep (1000)
	  EndIf
	  
	  If $moblock = 0x181410 Then				; Stetzt neue Umhaenge aus dem Inventar auf "F4"
		 MouseClick ("left",$slotX,$slotY,1,3)	; Die Umhaenge muessen auf dem 1st Slot der 4ten Zeile bis zum letzten Slot der 1st Seite liegen ^^ 
		 Sleep (500)
		 MouseClick ("left",988,1013,1,3)
		 $slotX = $slotX + 35
		 
		 If $slotX > 1905 Then
			$slotY = $slotY + 35
			$slotX = 1765
		 EndIf
		 
		 If $slotY > 960 Then
			$slotY = 785
		 EndIf	
			
	  EndIf
		 
	  
	  Send("{SPACE down}")					; Wenn ALLE IF Abfragen geprueft worden sind, dann soll er Leerzeichen gedrueckt halten
	  Send ("{4 1}")
	  Sleep (5000)
	  Send ("^{G 3}")						; Von Pferd ab und auf steigen
	  Sleep (1000)
	  Send ("{3 3}")						; Steigt auf das Reittier
	  Sleep (1000)
	  Send ("{3 2}")
	  Sleep (1000)
	  Send ("{3 1}")
	  Sleep (500)
	  Send ("{4 1}")
	  Sleep (5000)
	  Send ("{3 3}")						; Steigt auf das Reittier
	  Sleep (1000)
	  Send ("{3 2}")
	  Sleep (1000)
	  Send ("{3 1}")
	  
   EndIf
 WEnd
EndFunc

Func Ende()								   ; Hier hab ich die Funktion "Ende" deklariert 
   Exit
EndFunc

Func Pause()							   ; 1 stunde Pause...einfach den Wert aendern auf deine Bedürfnisse ^^
   Sleep (3600000) 						   
   EndFunc

Func Relogger()
   
		 $pixel1 = PixelGetColor (110,1000) 	; @@@@@@@@@ Ein BESTIMMTER Pixel vom Login-Bildschirm
		 $pixel2 = PixelGetColor (1090,466)		; @@@@@@@@@ Pixel von der Anzeige..."Wird mit Server verbunden"
  Global $var[5] = [625,645,660,675,695]		; @@@@@@@@@ Variable mit 5 gespeicherten Y-Werten der Channel Koordinaten..."650" ist der Y-Wert vom button "CH2"..."665" der Y-Wert von "CH3" usw. ...also die Werte gegebenfalls aendern ^^
		 $rnd = Random (0, 4, 1)			 	; Variable mit zufaelliger Zahl von 0 bis 4
		 
	  if $pixel2 = 0x3F3124 Then				; @@@@@@@@@ Farbwert (0x3F3124) aendern 
			Send ("{ENTER}")
			MouseClick ("left",1030,600,1,5)
		 EndIf
	  
	  if $pixel1 = 0x121212 Then		    	; @@@@@@@@@ Farbwert (0x121212) aendern
		 MouseClick ("left",1060,$var[$rnd]) 	; @@@@@@@@@ Klickt zufaellig auf einen der 4 Channel (ihr muesst gegebenfalls die "1060" aendern...das ist der x-Wert)
		 MouseClick ("left",1080,920)		 	; @@@@@@@@@ Klickt auf "Ok" (x,y Koordinate vom "Ok" Button)
		 Send ("{BACKSPACE 20}")
		 Send ($account) 					 	; Hier ACC ID...keine Umlaute
		 Send ("{ENTER}")
		 Send ("{BACKSPACE 20}")
		 Send ($passwort) 					 	; Hier PASSWORT...keine Umlaute
		 Send ("{ENTER}")
		 Sleep (15000)
	  EndIf
	  
	  
	  $charw = PixelGetColor (28,969)			; @@@@@@@@@ ein Pixel den es NUR im Charackterfenster gibt 
	  
	  If $charw = 0x090706 Then					; @@@@@@@@@ Der Farbwert vom Pixel "charw"
		 Send ("{ENTER 10}")					; Drueckt "ENTER" im CHARACKTERFENSTER
		 Sleep (20000)
	  EndIf
EndFunc
Code:
#RequireAdmin
AutoItSetOption ("MouseCoordMode",2)
AutoItSetOption ("PixelCoordMode",2)

HotKeySet ("{F5}","Start")  ; Mit F5 Startet man den Bot
HotKeySet ("{F6}","Pause")	; Mit F6 Pausiert man ihn für 1 Stunde
HotKeySet ("{F7}","Ende")	; Mit F7 Stoppt man den Bot

$account = InputBox("Daten","Account")
$passwort = InputBox("Daten","Passwort")

while 1 
   Sleep (500)				; Es wird alle 500ms geguckt ob die Hotkeys gedrueckt worden sind
WEnd

Func Start()				
   While (1)
	  
	  if WinExists ("runtimeerror") Then	; Sollte mal ein RuntimeError kommen ^^
		 WinActivate ("runtimeerror")
		 Send ("{ENTER}")
		 Sleep (1000)
	  EndIf
	  
	  if WinExists ("SHIRO2") Then  ; @@@@@@@@@ Den Fensternamen DEINES METIN2 FENSTERS mit "SHIRO2" ersetzten... Wenn es dein Fenster( Metin2) gibt dann stell es in den Vordergrund
		 WinActivate ("SHIRO2")	    ; @@@@@@@@@ Den Fensternamen DEINES METIN2 FENSTERS mit "SHRIO2" ersetzten
		 Sleep (500)
	  Else
		 $metin = "C:\DesktopIcons\Shiro2"			; @@@@@@@@@ Pfad zur !!Verknuepfung!! der Metin2.exe die geoeffnet werden soll
		 ShellExecute ($metin)
		 Sleep (10000)
		 WinActivate ("SHRIO2")						; @@@@@@@@@ euer Metin2-Fenstername
	  EndIf
	  
	  Call ("Relogger")					; Ruft die Funktion Relogger auf
	  

	  $ingame = PixelGetColor (300,1004)			; @@@@@@@@@ Ein Pixel(x,y) den es nur INGAME gibt
	  
   If $ingame = 0x1C2027 Then						; @@@@@@@@@ Der Farbwert des Pixels "ingame"
	  Sleep (60000)  				    			; Hier die Zeit (1min) wie lange er WARTEN soll BIS er alles wieder von Anfang wiederholt und prueft ^^
   EndIf
 WEnd
EndFunc

Func Ende()								   ; Hier hab ich die Funktion "Ende" deklariert 
   Exit
EndFunc

Func Pause()							   ; 1 stunde Pause...einfach den Wert aendern auf deine Bedürfnisse ^^
   Sleep (3600000) 						   
   EndFunc

Func Relogger()
   
		 $pixel1 = PixelGetColor (110,1000) 	; @@@@@@@@@ Ein BESTIMMTER Pixel vom Login-Bildschirm
		 $pixel2 = PixelGetColor (1090,466)		; @@@@@@@@@ Pixel von der Anzeige..."Wird mit Server verbunden"
  Global $var[5] = [625,645,660,675,695]		; @@@@@@@@@ Variable mit 5 gespeicherten Y-Werten der Channel Koordinaten..."650" ist der Y-Wert vom button "CH2"..."665" der Y-Wert von "CH3" usw. ...also die Werte gegebenfalls aendern ^^
		 $rnd = Random (0, 4, 1)			 	; Variable mit zufaelliger Zahl von 0 bis 4
		 
	  if $pixel2 = 0x3F3124 Then				; @@@@@@@@@ Farbwert (0x3F3124) aendern 
			Send ("{ENTER}")
			MouseClick ("left",1030,600,1,5)
		 EndIf
	  
	  if $pixel1 = 0x121212 Then		    	; @@@@@@@@@ Farbwert (0x121212) aendern
		 MouseClick ("left",1060,$var[$rnd]) 	; @@@@@@@@@ Klickt zufaellig auf einen der 4 Channel (ihr muesst gegebenfalls die "1060" aendern...das ist der x-Wert)
		 MouseClick ("left",1080,920)		 	; @@@@@@@@@ Klickt auf "Ok" (x,y Koordinate vom "Ok" Button)
		 Send ("{BACKSPACE 20}")
		 Send ($account) 					 	; Hier ACC ID...keine Umlaute
		 Send ("{ENTER}")
		 Send ("{BACKSPACE 20}")
		 Send ($passwort) 					 	; Hier PASSWORT...keine Umlaute
		 Send ("{ENTER}")
		 Sleep (15000)
	  EndIf
	  
	  
	  $charw = PixelGetColor (28,969)			; @@@@@@@@@ ein Pixel den es NUR im Charackterfenster gibt 
	  
	  If $charw = 0x090706 Then					; @@@@@@@@@ Der Farbwert vom Pixel "charw"
		 Send ("{ENTER 10}")					; Drueckt "ENTER" im CHARACKTERFENSTER
		 Sleep (20000)
	  EndIf
EndFunc
Ist clean , er hat doch sogar extra sein Script beigelegt.Wenn ihr ihm nicht vertraut kompilliert ihr halt seine 2 scripts neu , denn die sind defenitiv clean.
05/07/2013 19:28 oOI3LACKOo#18
Danke marrykillsjane, endlich mal jemand der Ahnung hat ^^
05/08/2013 16:57 cid123456789#19
bei mir fängt er nich an zu lvln.. obwohl ich f5 drücke
05/08/2013 17:45 oOI3LACKOo#20
Quote:
Originally Posted by cid123456789 View Post
bei mir fängt er nich an zu lvln.. obwohl ich f5 drücke
zockst du auf shiro2 mit der auflösung 1920x1080??
Wenn nicht dann kein wunder ^^
Aber warte einfach ich habe schon eine neue version gemacht, die auf jedem server geht und mit jeder auflösung ;)
Ich will nur das es perfekt ist und werde deshalb erstmal den bot testen und kleine "fehler" beheben damit dann bei euch alles klappt ^^

Außerdem wird mir ewolord1 beim video helfen!! :D

Ich werde vorraussichtlich morgen die neue Version hochladen, unter einem anderen account, da mir mein name nicht gefällt xD
05/08/2013 21:50 cid123456789#21
bei mir is max. 1680x1050 oder so
05/08/2013 22:15 radulinio#22
Its for Pserver or GF server?I dont understand nothing in german:(
05/08/2013 22:22 cid123456789#23
its for Pserver :)
05/09/2013 14:01 Borres#24
Was schafft man denn an Yang in einer Stunde ?
05/09/2013 16:33 oOI3LACKOo#25
Quote:
Originally Posted by cid123456789 View Post
bei mir is max. 1680x1050 oder so
Oke dann musst du warten bis ich heute abend oder morgen die neue version hochlade ....erst lesen dann posten...hab das schon öfters geschrieben :)

Quote:
Originally Posted by radulinio View Post
Its for Pserver or GF server?I dont understand nothing in german:(
Its for EVERY SERVER!!!!
05/09/2013 17:52 IceCreamx3#26
funkt. der noch immer?
05/09/2013 21:50 oOI3LACKOo#27
Quote:
Originally Posted by IceCreamx3 View Post
funkt. der noch immer?
klar ...aber nur mit den genannten bedingungen!! :)
05/09/2013 22:14 IceCreamx3#28
Okey, naja derweil ist der SD2 auf allen CH so stark besetzt, das es sich nur geringfügig lohnt ..
05/10/2013 08:33 niconico99#29
sugeti pl ;;)
05/10/2013 16:38 NewMen21#30
A testat cineva?
Page 2 of 4 1 2 34