Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Sat Sep 22, 2018 9:21 am

All times are UTC




Post new topic Reply to topic  [ 5 posts ] 
Author Message
 Post subject: [Release] Auto Relogin Script By Elrayes
Thanked: 1 time(s)  Unread post Posted: Mon Jan 22, 2018 9:02 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 822
Location: Egypt , Portsaid
Been thanked: 238 time(s)
Has thanked: 10 time(s)
Contribution Points: 1937
Hello BEM Community ,
i'm Ahmed Elrayes .
Today i'm Sharing my Relogin Script That Works With All Resolutions (Full Screen Only)
Youtube Tutorial :
https://www.youtube.com/watch?v=dkJa7T1D2xM
it Doesn't Require Many Edits , All What u need to do is to write your Game Path , ID , PW ,Passcode in the script ONLY .
As For The Passcode Section just use this script it gives you a pop up window and Says Please Enter your Passcode (This script without source code )
Attachment:
File comment: This Script With No Source Code For Passcode And Game Path Only
Account Info.rar [7.69 KiB]
Downloaded 108 times

That's The Skin i've Been Talking About (The Skin is Required To Let The script Detect That u've been Disconnected) :
Attachment:
File comment: That Skin is Important to Know that u've been Disconnected
Pack01.rar [2.16 KiB]
Downloaded 71 times

Put This Command in your Main Script Between Functions to Know Whether you're Disconnected or not :
Code:
Function.Execute("DC Check")

Put This Function in your Attacking Script
Code:
function("DC Check")
     begin
          System.Get combined screen resolution("DCX", "DCSY")
          Variable.Divide (Math)("DCX", "2")
          Variable.Add (Math)("DCX", "5")
          Variable.Divide (Math)("DCSY", "2")
          Variable.Evaluate (Math)("{DCSY}-145", "DCY")
          if  System.Process is running("GDMO")
               begin
                    // OK Button in DC Notice
                    if  Color.At coordinate is (RGB)("238", "0", "0", "{DCX}", "{DCY}")
                         and
                         Window.Is running("DMO", "yes")
                         begin
                              System.Terminate process("GDMO")
                         end
               end
          if  System.Process is not running("GDMO")
               and
               Window.Is not running("DMO", "yes")
               begin
                    Macro.Execute new("Elrayes Bot", "Relogin", "Yes")
               end
     end
function
 

As For The Relogin Script Here is IT :)
Code:
 begin
     Function.Execute("PSC")
     Function.Execute("Starting GDMO")
     Function.Execute with timeout("Wait For GDMO", "60000")
     Function.Execute("GDMO")
     Function.Execute with timeout("Info", "20000")
     Function.Execute("Info Fail")
     Function.Execute with timeout("Entire Passcode", "20000")
     Function.Execute("Pass Code Failed")
     Function.Execute with timeout("Server", "120000")
     Function.Execute("Server Fail")
    Macro.Resume all paused macros()
 end

function("Starting GDMO")
     begin
          // Checking GDMO if opened or no
          if  System.Process is not running("GDMO")
               begin loop()
                    // Create A Shortcut Of DMLauncher.exe then Type It's Path Exactly
                    File.Read first line("C:\GDMO\Account Information\Path.file", "Path")
                    System.Launch application with arguments("{Path}","DiMaOAuthKey.value", "no")
                    Macro.Pause("5000")
                    if  System.Process is running("GDMO")
                         begin
                              Macro.Break from loop("yes")
                         end
               end
     end
function

function("Info")
     // RGP of login area i use id area
     if  Color.At coordinate is (RGB)("255", "255", "255", "{IDX}", "{IDY}")
          begin
               Macro.Pause("500")
               // Your ID
               Keyboard.Insert text("ID")
               Macro.Pause("1000")
               Keyboard.Press keys("{<tab>}")
               Macro.Pause("1000")
               // Your Password
               Keyboard.Insert text("PW")
               Macro.Pause("100")
               Keyboard.Press key("{<enter>}")
               File.Read first line("C:\GDMO\Account Information\Passcode.file", "1st Code")
               Image.Wait for image to appear("{1st Code}", "100")
          end
function

function("Server")
     begin
          Mouse.Move in direction("Down", "50")
          Color.Wait for color at coordinate to be (RGB)("17", "43", "80", "{ServerX}", "{ServerY}")
          // Slide Icon in Server Select
          if  Color.Near coordinate is (RGB)("17", "43", "80", "{ServerX}", "{ServerY}", "50")
               begin loop()
                    Keyboard.Press key("{<enter>}")
                    // Slide Icon in Server Select
                    if  Color.Near coordinate is not (RGB)("17", "43", "80", "{ServerX}", "{ServerY}", "50")
                         begin
                              Macro.Break from loop("yes")
                         end
               end
          // Check the Cross Signature when selecting tamer
          Color.Wait for color at coordinate to be (RGB)("19", "67", "113", "{TamerX}", "{TamerY}")
          // Check the Cross Signature when selecting tamer
          if  Color.At coordinate is (RGB)("19", "67", "113", "{TamerX}", "{TamerY}")
               begin loop()
                    Keyboard.Press key("{<enter>}")
                    Macro.Pause("2000")
                    // Check the Cross Signature when selecting tamer
                    if  Color.At coordinate is not (RGB)("19", "67", "113", "{TamerX}", "{TamerY}")
                         begin
                              Color.Wait for color at coordinate to be (RGB)("36", "120", "181", "17", "95")
                              Macro.Break from loop("yes")
                         end
               end
     end
function

function("Wait For GDMO")
     begin
          Window.Wait for window to appear("DMO", "no")
          Window.Get window id("DMO", "no", "0", "DMOID")
          Window.Bring to front("{DMOID}", "no")
          Color.Wait for color at coordinate to be (RGB)("18", "54", "96", "{LoginX}", "{LoginY}")
          // White Color of the ID Bar
          Color.Wait for color at coordinate to be (RGB)("255", "255", "255", "{IDX}", "{IDY}")
     end
function

function("GDMO")
     begin
          if  Function.Did timeout("Wait For GDMO")
               begin
                    System.Terminate process("GDMO")
                    Macro.Restart("yes")
               end
     end
function

function("Info Fail")
     begin
          if  Function.Did timeout("Info")
               begin
                    System.Terminate process("GDMO")
                    Macro.Restart("yes")
               end
     end
function

function("Server Fail")
     begin
          if  Function.Did timeout("Server")
               begin
                    System.Terminate process("GDMO")
                    Macro.Restart("yes")
               end
     end
function

function("Entire Passcode")
     begin
          Window.Wait for window to appear("DMO", "no")
          Window.Bring to front("DMO", "no")
          File.Read first line("C:\GDMO\Account Information\Passcode.file", "1st Code")
          Image.Wait for image to appear("{1st Code}", "100")
          File.Read first line("C:\GDMO\Account Information\Length.file", "Length")
          if  Variable.Is equal to("Length", "4")
               begin
                    Function.Execute("Pass Code1")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code2")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code3")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code4")
                    if  Mouse.Coordinates are equal to("{X4}", "{Y4}")
                         begin loop()
                              Mouse.Move to coordinate("{PassCodeX}", "{PassCodeY}")
                              Mouse.Click("Left")
                              If  Image.Can not be located on screen("{1st Code}", "100")
                                   Begin
                                        Macro.Break from loop("yes")
                                   end
                         end
               end
          if  Variable.Is equal to("Length", "5")
               begin
                    Function.Execute("Pass Code1")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code2")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code3")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code4")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code5")
                    if  Mouse.Coordinates are equal to("{X5}", "{Y5}")
                         begin loop()
                              Mouse.Move to coordinate("{PassCodeX}", "{PassCodeY}")
                              Mouse.Click("Left")
                              If  Image.Can not be located on screen("{1st Code}", "100")
                                   Begin
                                        Macro.Break from loop("yes")
                                   end
                         end
               end
          if  Variable.Is equal to("Length", "6")
               begin
                    Function.Execute("Pass Code1")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code2")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code3")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code4")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code5")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code6")
                    if  Mouse.Coordinates are equal to("{X6}", "{Y6}")
                         begin loop()
                              Mouse.Move to coordinate("{PassCodeX}", "{PassCodeY}")
                              Mouse.Click("Left")
                              If  Image.Can not be located on screen("{1st Code}", "100")
                                   Begin
                                        Macro.Break from loop("yes")
                                   end
                         end
               end
          if  Variable.Is equal to("Length", "7")
               begin
                    Function.Execute("Pass Code1")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code2")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code3")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code4")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code5")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code6")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code7")
                    if  Mouse.Coordinates are equal to("{X7}", "{Y7}")
                         begin loop()
                              Mouse.Move to coordinate("{PassCodeX}", "{PassCodeY}")
                              Mouse.Click("Left")
                              If  Image.Can not be located on screen("{1st Code}", "100")
                                   Begin
                                        Macro.Break from loop("yes")
                                   end
                         end
               end
          if  Variable.Is equal to("Length", "8")
               begin
                    Function.Execute("Pass Code1")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code2")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code3")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code4")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code5")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code6")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code7")
                    Mouse.Move in direction("Up", "100")
                    Function.Execute("Pass Code8")
                    if  Mouse.Coordinates are equal to("{X8}", "{Y8}")
                         begin loop()
                              Mouse.Move to coordinate("{PassCodeX}", "{PassCodeY}")
                              Mouse.Click("Left")
                              If  Image.Can not be located on screen("{1st Code}", "100")
                                   Begin
                                        Macro.Break from loop("yes")
                                   end
                         end
               end
     end
function

function("Pass Code1")
     begin
          File.Read first line("C:\GDMO\Account Information\Passcode.file", "1st Code")
          Image.Find location of first occurrence on screen("{1st Code}", "100", "X", "Y")
          Mouse.Move to coordinate("{X}", "{Y}")
          Macro.Pause("500")
          Mouse.Click("Left")
          Macro.Pause("500")
     end
function

function("Pass Code2")
     begin
          File.Read line("C:\GDMO\Account Information\Passcode.file", "2", "2nd Code")
          Image.Find location of first occurrence on screen("{2nd Code}", "100", "X2", "Y2")
          Mouse.Move to coordinate("{X2}", "{Y2}")
          Macro.Pause("500")
          Mouse.Click("Left")
          Macro.Pause("500")
     end
function

function("Pass Code3")
     begin
          File.Read line("C:\GDMO\Account Information\Passcode.file", "3", "3rd Code")
          Image.Find location of first occurrence on screen("{3rd Code}", "100", "X3", "Y3")
          Mouse.Move to coordinate("{X3}", "{Y3}")
          Macro.Pause("500")
          Mouse.Click("Left")
          Macro.Pause("500")
     end
function

function("Pass Code4")
     begin
          File.Read line("C:\GDMO\Account Information\Passcode.file", "4", "4th Code")
          Image.Find location of first occurrence on screen("{4th Code}", "100", "X4", "Y4")
          Mouse.Move to coordinate("{X4}", "{Y4}")
          Macro.Pause("500")
          Mouse.Click("Left")
          Macro.Pause("500")
     end
function

function("Pass Code5")
     begin
          File.Read line("C:\GDMO\Account Information\Passcode.file", "5", "5th Code")
          Image.Find location of first occurrence on screen("{5th Code}", "100", "X5", "Y5")
          Mouse.Move to coordinate("{X5}", "{Y5}")
          Macro.Pause("500")
          Mouse.Click("Left")
          Macro.Pause("500")
     end
function

function("Pass Code6")
     begin
          File.Read line("C:\GDMO\Account Information\Passcode.file", "6", "6th Code")
          Image.Find location of first occurrence on screen("{6th Code}", "100", "X6", "Y6")
          Mouse.Move to coordinate("{X6}", "{Y6}")
          Macro.Pause("500")
          Mouse.Click("Left")
          Macro.Pause("500")
     end
function

function("Pass Code7")
     begin
          File.Read line("C:\GDMO\Account Information\Passcode.file", "7", "7th Code")
          Image.Find location of first occurrence on screen("{7th Code}", "100", "X7", "Y7")
          Mouse.Move to coordinate("{X7}", "{Y7}")
          Macro.Pause("500")
          Mouse.Click("Left")
          Macro.Pause("500")
     end
function

function("Pass Code8")
     begin
          File.Read line("C:\GDMO\Account Information\Passcode.file", "8", "8th Code")
          Image.Find location of first occurrence on screen("{8th Code}", "100", "X8", "Y8")
          Mouse.Move to coordinate("{X8}", "{Y8}")
          Macro.Pause("500")
          Mouse.Click("Left")
          Macro.Pause("500")
     end
function

function("Pass Code Failed")
     begin
          if  Function.Did timeout("Entire Passcode")
               begin
                    System.Terminate process("GDMO")
                    Macro.Restart("yes")
               end
     end
function

function("PSC")
     begin
          Macro.Pause all other macros()
          System.Get combined screen resolution("ResolutionX", "ResolutionY")
          Variable.Evaluate (Math)("{ResolutionX}/2", "ResolutionDX")
          Variable.Evaluate (Math)("{ResolutionY}/2", "ResolutionDY")
          Variable.Evaluate (Math)("{ResolutionDX}+5", "IDX")
          Variable.Evaluate (Math)("{ResolutionDY}-105", "IDY")
          Variable.Evaluate (Math)("{ResolutionDX}+61", "LoginX")
          Variable.Evaluate (Math)("{ResolutionDY}+27", "LoginY")
          Variable.Evaluate (Math)("{ResolutionDX}+19", "PassCodeX")
          Variable.Evaluate (Math)("{ResolutionDY}+202", "PassCodeY")
          Variable.Evaluate (Math)("{ResolutionX}-150", "ServerX")
          Variable.Evaluate (Math)("{ResolutionY}-47", "ServerY")
          Variable.Evaluate (Math)("{ResolutionDX}+50", "TamerX")
          Variable.Evaluate (Math)("{ResolutionY}-59", "TamerY")
         end
function
 

if you Like Just Hit Thanks Button Over there =========================================>

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] Auto Relogin Script By Elrayes
Thanked: 0 time(s)  Unread post Posted: Sun Feb 04, 2018 2:00 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 822
Location: Egypt , Portsaid
Been thanked: 238 time(s)
Has thanked: 10 time(s)
Contribution Points: 1937
Edited!!

Code:
EDIT LOG :
- The Script Had An Issue In Detecting the Ok Red Button Fixed It

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] Auto Relogin Script By Elrayes
Thanked: 0 time(s)  Unread post Posted: Mon Feb 05, 2018 5:38 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Sun Apr 03, 2016 3:32 pm
Posts: 469
Location: Digital World
Been thanked: 100 time(s)
Has thanked: 85 time(s)
Contribution Points: 1346
Elrayes wrote:
Edited!!

Code:
EDIT LOG :
- The Script Had An Issue In Detecting the Ok Red Button Fixed It


Hi, nice macro !

I just had a question, what exactly does the skin change in the game ? by that i mean the skin that is required to see that you disconnected.

Thanks

_________________
------------------------------------------------------------------------------------------------------

Image

Please Click that THANK YOU button if my post helped you !!! ----------------------------------------->


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] Auto Relogin Script By Elrayes
Thanked: 0 time(s)  Unread post Posted: Mon Feb 05, 2018 9:29 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 822
Location: Egypt , Portsaid
Been thanked: 238 time(s)
Has thanked: 10 time(s)
Contribution Points: 1937
XtremePerson wrote:
Elrayes wrote:
Edited!!

Code:
EDIT LOG :
- The Script Had An Issue In Detecting the Ok Red Button Fixed It


Hi, nice macro !

I just had a question, what exactly does the skin change in the game ? by that i mean the skin that is required to see that you disconnected.

Thanks

at first i'm glad that u liked it , as for ur question it transforms the Navy OK Button in Disconnected Window to a Red Button so it would be Easier to detect it .

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] Auto Relogin Script By Elrayes
Thanked: 0 time(s)  Unread post Posted: Tue Jul 10, 2018 8:37 pm 
New User
New User



Joined: Sun Jul 08, 2018 12:42 pm
Posts: 3
Been thanked: 0 time(s)
Has thanked: 1 time(s)
Contribution Points: 10
I have this error:
Quote:
Checking if: Color.At coordinate is (RGB)(R: 255, G: 255, B: 255, X coordinate: 685, Y coordinate: 279)
Error: Color sample could not be retrieved. Please make sure you are not trying to retrieve the color of an area outside the PRIMARY monitor
Executing: System.Terminate process(Process name: GDMO)

I have put the pack red button correctly and I have edited the ID and Password and the secondary code as shown at the video. When I start the bot it open the Client perfectly but it cannot write the ID and Password and just press after some time Enter. Also I've tested the secondary if it works and secondary password works fine, just the main log has problem.


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 5 posts ] 

All times are UTC


You cannot post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Jump to:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group