Register for your free account! | Forgot your password?

Go Back   elitepvpers > Other Online Games > Browsergames
Rangersland Bot Beta Rangersland Bot Beta
You last visited: Today at 12:04

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

Advertisement


Advertise with us!

Rangersland Bot Beta

Discussion on Rangersland Bot Beta within the Browsergames forum part of the Other Online Games category.

Closed Thread
 
Old   #1
 
elite*gold: 0
The Black Market: 3/0/1
Join Date: Jan 2009
Posts: 372
Received Thanks: 260
Rangersland Bot Beta

Funktioniert nur für Opera
und nur in der Auflösund 1024x768

Ist mein erster voll funktionierender Bot also bitte nicht zu Wählerrisch sein^^

Er Handelt, heilt wenn es benötigt wird, hebt unterwechs gegenstände auf, und er hmm ne das wars ^^

würde ihn gerne weiterentwickeln allerdings als nonpub. wenn dazu jemand laune hat bitte bei mir melden

Skype the-lexx

bitte auch jemand scannen und hier bericht reinstellen

und falls zufrieden gibts nen thx knopf mein ich ^^
Attached Files
File Type: rar Breaker RL V 1.40.rar (284.6 KB, 78 views)
Lexx0505 is offline  
Thanks
3 Users
Old 02/19/2009, 19:07   #2
 
elite*gold: 0
The Black Market: 3/0/1
Join Date: Jan 2009
Posts: 372
Received Thanks: 260
Das Scrippt bitte mit diesem ersetzen

hatte in der originale eine letzte änderrung die die bilder nicht lesen läst

Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>

$Form2 = GUICreate("RL Breaker V 1.40", 215, 549, 2, 2, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_OVERLAPPEDWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x000000)
$Namebox = GUICtrlCreateInput("Name", 16, 24, 89, 25, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 9, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x716F64)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Passwortbox = GUICtrlCreateInput("Passwort", 112, 24, 89, 25, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 9, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x716F64)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Server1 = GUICtrlCreateButton("(Not allowed)", 32, 56, 73, 25, $BS_BITMAP)
GUICtrlSetImage(-1, "GUI\GUIclassic.bmp", 0)
$Server2 = GUICtrlCreateButton("(Not allowed)", 112, 56, 72, 25, $BS_BITMAP)
GUICtrlSetImage(-1, "GUI\GUIdakota.bmp", 0)
$handelbot = GUICtrlCreateButton("(Not allowed)", 56, 88, 111, 46, $BS_BITMAP)
GUICtrlSetImage(-1, "GUI\GUIhandelsbot.bmp", 0)
$Pic1 = GUICtrlCreatePic(@Scriptdir&"\GUI\GUI-BG.bmp", 8, 8, 201, 529, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Server1
            _classic()
        Case $Server2
            _dakota()
        Case $handelbot
            _trade()
    EndSwitch
WEnd


Func _exit()
    Exit
EndFunc
Func _classic()
    $Name = GUICtrlRead($Namebox)
    If $Name = $GUI_CHECKED Then
	EndIf
	$Passwort = GUICtrlRead($Passwortbox)
	If $Passwort = $GUI_CHECKED Then
    EndIf
	$Path = RegRead("HKEY_CURRENT_USER\Software\Opera Software", "Last CommandLine") 

Run ($Path)
Sleep (2000)
Send("{F2}")
WinWait("Adresse oder Kürzel aufrufen","")
If Not WinActive("Adresse oder Kürzel aufrufen","") Then WinActivate("Adresse oder Kürzel aufrufen","")
WinWaitActive("Adresse oder Kürzel aufrufen","")
Send("http{SHIFTDOWN}.{SHIFTUP}{SHIFTDOWN}77{SHIFTUP}rangersland.de{ENTER}")
WinWait("Rangers Land - Western Online Game - Opera","")
If Not WinActive("Rangers Land - Western Online Game - Opera","") Then WinActivate("Rangers Land - Western Online Game - Opera","")
WinWaitActive("Rangers Land - Western Online Game - Opera","")
Send("{TAB}"& $Name &" {TAB}"& $Passwort &"{TAB}{ENTER}")
Sleep (1000)
Send("{ENTER}")
$x1=0
$y1=0
$result = _WaitForImageSearch("Image\classic.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
	EndIf
	
EndFunc
Func _dakota()
    $Name = GUICtrlRead($Namebox)
    If $Name = $GUI_CHECKED Then
	EndIf
	$Passwort = GUICtrlRead($Passwortbox)
	If $Passwort = $GUI_CHECKED Then
    EndIf
	$Path = RegRead("HKEY_CURRENT_USER\Software\Opera Software", "Last CommandLine") 

Run ($Path)
Sleep (2000)
Send("{F2}")
WinWait("Adresse oder Kürzel aufrufen","")
If Not WinActive("Adresse oder Kürzel aufrufen","") Then WinActivate("Adresse oder Kürzel aufrufen","")
WinWaitActive("Adresse oder Kürzel aufrufen","")
Send("http{SHIFTDOWN}.{SHIFTUP}{SHIFTDOWN}77{SHIFTUP}rangersland.de{ENTER}")
WinWait("Rangers Land - Western Online Game - Opera","")
If Not WinActive("Rangers Land - Western Online Game - Opera","") Then WinActivate("Rangers Land - Western Online Game - Opera","")
WinWaitActive("Rangers Land - Western Online Game - Opera","")
Send("{TAB}"& $Name &" {TAB}"& $Passwort &"{TAB}{ENTER}")
Sleep (1000)
Send("{ENTER}")
$x1=0
$y1=0
$result = _WaitForImageSearch("Image\dakota.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
	EndIf
	
EndFunc
Func _trade()
	
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
MsgBox(0,"MSG","Du musst dich in Santa Fe befinden und direckt auf die Stadt blicken also die stadt ansehen^^")
MsgBox(0,"MSG","Vergewissere dich das nun nur noch das Spiel offen ist.  Im Normalen Modus")
MsgBox(0,"MSG","Manche ladezeiten sind aufgrund von Stabilität und verlässlichkeit nicht zu vermeiden")
MsgBox(0,"MSG","Scrippt Whritten by L@xx@r,   und los gehts")
MsgBox(0,"MSG","Ach fast vergessen, Scrippt beendet Ihr mit der Taste -F9-")
While 1
$x1=0
$y1=0

Sleep(3000)
$result = _WaitForImageSearch("Image\händler.bmp",600,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
$result = _WaitForImageSearch("Image\verkaufenlink.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
$result = _WaitForImageSearch("Image\offenhändler.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	Send("{PGDN}")
	Sleep(1000)
	Send("{PGDN}")
	MouseMove(698,592)
	MouseDown("left")
	MouseMove(648,591)
	MouseUp("left")
	Send("{CTRLDOWN}c{CTRLUP}")
	MouseMove(509,457)
	MouseDown("left")
	MouseUp("left")
	Send("{CTRLDOWN}v{CTRLUP}")
	MouseMove(567,457)
	MouseDown("left")
	MouseUp("left")
EndIf
$result = _WaitForImageSearch("Image\zurück.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\kaufenlink.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\offenhändler2.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	Send("{PGDN}")
	Sleep(1000)
	Send("{PGDN}")
	MouseMove(912,570)
	MouseDown("left")
	MouseMove(853,574)
	MouseUp("left")
	Send("{CTRLDOWN}c{CTRLUP}")
	MouseMove(270,455)
	MouseDown("left")
	MouseUp("left")
	Send("{CTRLDOWN}v{CTRLUP}")
	MouseMove(313,455)
	MouseDown("left")
	MouseUp("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\zurück.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\ausrüstung.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\braucheheilung.bmp",10,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\karte.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(20000)
$result = _WaitForImageSearch("Image\cocorro.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
	WinWait("JavaScript","")
	If Not WinActive("JavaScript","") Then WinActivate("JavaScript","")
	WinWaitActive("JavaScript","")
	Send("{ENTER}")
	Sleep (5000)
	Send("{F11}")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
Send("{F11}")
Sleep(3000)
$result = _WaitForImageSearch("Image\händler2.bmp",600,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\verkaufenlink.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\offenhändler.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	Send("{PGDN}")
	Sleep(1000)
	Send("{PGDN}")
	MouseMove(549,594)
	MouseDown("left")
	MouseMove(507,589)
	MouseUp("left")
	Send("{CTRLDOWN}c{CTRLUP}")
	MouseMove(276,456)
	MouseDown("left")
	MouseUp("left")
	Send("{CTRLDOWN}v{CTRLUP}")
	MouseMove(308,456)
	MouseDown("left")
	MouseUp("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\zurück.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\kaufenlink.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\offenhändler2.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	Send("{PGDN}")
	Sleep(1000)
	Send("{PGDN}")
	MouseMove(905,571)
	MouseDown("left")
	MouseMove(854,573)
	MouseUp("left")
	Send("{CTRLDOWN}c{CTRLUP}")
	MouseMove(276,455)
	MouseDown("left")
	MouseUp("left")
	Send("{CTRLDOWN}v{CTRLUP}")
	MouseMove(315,459)
	MouseDown("left")
	MouseUp("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\zurück.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\ausrüstung.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\braucheheilung.bmp",10,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(9000)
$result = _WaitForImageSearch("Image\karte.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(20000)
$result = _WaitForImageSearch("Image\santafe.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
	WinWait("JavaScript","")
	If Not WinActive("JavaScript","") Then WinActivate("JavaScript","")
	WinWaitActive("JavaScript","")
	Send("{ENTER}")
	Sleep (5000)
	Send("{F11}")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
$result = _WaitForImageSearch("Image\frack.bmp",60,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MouseClick ("left")
EndIf
Sleep(1000)
Send("{F11}")
Sleep (4000)






WEnd
EndFunc
Lexx0505 is offline  
Old 05/01/2009, 21:23   #3
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2009
Posts: 4
Received Thanks: 0
Und wie funzt das teil nun ??
Und wo soll man den text einfügen ??
mmmm_mmmm is offline  
Old 05/11/2009, 02:32   #4
 
elite*gold: 0
The Black Market: 3/0/1
Join Date: Jan 2009
Posts: 372
Received Thanks: 260
Neue Version

* Browser muss nicht offen bleiben
* Handelt wie gewohnt zwischen santafe und cocorro
* benutzt keine Bildersuche (html basierend)
* schnelllogin vorhanden muss allerdings nicht genutzt werden
* Testacc eingerichtet um vorher zu testen (in der ini anschliessend eigene daten eingeben bei bedarf für den schnelllogin)
* Heilt selbständig bei bedarf
* Alle Auflösungen Benutzbar

Manko

* Kann nur über rechtsklick bei dem autoitsympol beendet werden sobald bot gestartet wurde
* keine Pausefunktion
* Nur auf Win XP SP2 Getestet ( Vista und SP3 funktioniert er angeblich nicht)
* Eigener Browser (embeddet IE )


Falls zufrieden thx knopf ^^

Benötigt wird Autoit Downloadbar bei autoit.de
(alle includes bei download enthalten)

OK.exe ist ein externes Scrippt das der bot startet um die Abreise zu bestätigen (als ok.au3 klappt es nicht und den code in den scrippt einbauen klappt ebenfalls nicht)
Attached Files
File Type: rar rl-bot.rar (269.7 KB, 48 views)
Lexx0505 is offline  
Thanks
3 Users
Old 05/12/2009, 04:47   #5
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2009
Posts: 4
Received Thanks: 0
Hi,
soweit funzt der bot schon man muss nur immernoch die route manuell bestätigen.
Alles andere klappt einwandfrei
mmmm_mmmm is offline  
Old 05/12/2009, 05:37   #6
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2009
Posts: 4
Received Thanks: 0
Ach so sehe gerade ich habe bei meinem Xp das Service Pack3.
mmmm_mmmm is offline  
Old 05/12/2009, 10:04   #7
 
elite*gold: 0
The Black Market: 3/0/1
Join Date: Jan 2009
Posts: 372
Received Thanks: 260
Quote:
Originally Posted by mmmm_mmmm View Post
Ach so sehe gerade ich habe bei meinem Xp das Service Pack3.
Der Fehler ist mir bekannt

XP - SP2 = Bisslang Bugfrei

XP - SP3 = Der Bot Öffnet zwar die ok.exe aber diese erfüllt nicht ihre aufgabe und bestätigt das Abreisefenster nicht

Vista = geht garnix^^
Lexx0505 is offline  
Thanks
1 User
Old 05/16/2009, 19:59   #8
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2009
Posts: 4
Received Thanks: 0
Jupp der klappt soweit super Danke
mmmm_mmmm is offline  
Old 05/18/2009, 14:27   #9
 
elite*gold: 0
The Black Market: 3/0/1
Join Date: Jan 2009
Posts: 372
Received Thanks: 260


dort is die neue version zum download (klappt auch für SP3)

und noch andre schöne sachen ( seite is nagelneu nich zuviel erwarten)
Lexx0505 is offline  
Thanks
1 User
Old 07/23/2009, 11:07   #10
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jul 2009
Posts: 1
Received Thanks: 0
was für ein scheiß echt war der opera funzt nicht und der andere auf der seite mit den link kann ich mich nicht einloggen das ist erst so seit mein pc neu installiert wurde kann mir jemmand helfen evt liegt es ja an den explorer einstellungen
henry ford is offline  
Old 07/23/2009, 11:27   #11
 
elite*gold: 0
The Black Market: 3/0/1
Join Date: Jan 2009
Posts: 372
Received Thanks: 260
Die Aktuelste Version


Das Projekt Rangersland Bot liegt allerding´s zur zeit auf eis

(diese version ist auch schon älter)

Sollte er nach Einiger zeit abbrechen und sehr viele ok.exe öffnen einfach ok.exe löschen (dann musst du aber manuel bei reisen ok klicken)

Fehler bekannt das minimieren zwar funktioniert aber er dann nicht reisen kann
Attached Files
File Type: rar Rangersland v1.1.0.5.rar (745.5 KB, 46 views)
Lexx0505 is offline  
Old 10/17/2009, 02:14   #12
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Oct 2009
Posts: 4
Received Thanks: 0
hmmm schade, der bot funzt net und das projekt liegt auf eis :-(
besteht die möglichkeit an die source zu kommen?
p0ltergeist is offline  
Old 11/24/2009, 23:06   #13
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Oct 2009
Posts: 1
Received Thanks: 0
so weit ich weiß haben die da im game was geändert weil ging von einem auf dem anderen tag nicht mehr ... vielleicht sollte lexx0505 mal drüber schauen warum das nimmer geht oder jemand der sich damit noch auskennt
lordrin is offline  
Old 11/25/2009, 12:03   #14

 
elite*gold: 146
The Black Market: 9/0/0
Join Date: Apr 2008
Posts: 14,686
Received Thanks: 9,968
ist doch schon outdated.
Die Schnittstelle is offline  
Closed Thread

« Restaurant City Bot | Pennergame Flaschenbot Funkt mit neuen Captchas »

Similar Threads Similar Threads
Rangersland Bot
04/27/2010 - Browsergames - 0 Replies
Hi, nach den letzten Updates scheint der Bot nicht zu funktionieren. Hat jmd den vielleicht wieder zum Laufen gebracht oder einen anderen als den von Lexx? PM wäre toll! :handsdown: Dankeschön :handsdown:
Biete Age of Conen Beta Key -> Suche Warhammer Online Closed Beta Key!
05/09/2008 - Trading - 1 Replies
Biete einen funktionierenden Age of Conen Beta key gegen einen funktionierenden Warhammer Online Closed Beta Key. Bild vorhanden. mit freundlichen grüssen.
WTT AOC Closed Beta Acct with Uncapped level unlike upcoming Open beta which has cap.
04/28/2008 - Trading - 0 Replies
WTT my AOC Closed beta account with an uncapped level which you wont be able to get in the upcoming open beta for an alliance WoW account reply here or MSN Message me at [email protected]
WTT AoC Closed Beta W/uncapped level unlike Open beta which is capped
04/28/2008 - World of Warcraft Trading - 0 Replies
WTT my AOC Closed beta account with an uncapped level which you wont be able to get in the upcoming open beta for an alliance WoW account reply here or MSN Message me at [email protected]



All times are GMT +2. The time now is 12:04.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

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