Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit EOBot;
- interface
- uses Windows, Graphics, SysUtils, ThreadUnit;
- type
- TRGB32 = packed record
- B, G, R, A: Byte;
- end;
- TRGB32Array = packed array[0..MaxInt div SizeOf(TRGB32) - 1] of TRGB32;
- PRGB32Array = ^TRGB32Array;
- EOBotClass = Class
- private
- function ColorRGB(SColor, i: Integer): Extended;
- function SimilarColors(Color1, Color2, Tolerance: Integer): Boolean;
- function StrGet(S: String; I: Integer) :Char;
- public
- Procedure KeyPress(keycode: char);
- Procedure ReadString(str: String);
- Procedure SendLetter(Letter: Char);
- Procedure Send(Msg: String);
- function FindColor(var x, y: Integer; Color, xs, ys, xe, ye, Tolerance: Integer; Window: Hwnd): Boolean;
- Procedure ClickMouse(x, y: Integer; bool: Boolean);
- Procedure ActivateClient;
- Procedure Login(Username, Password:String; Character:Integer);
- Procedure Initialize;
- end;
- var
- EO_Client:HWND;
- eo_rect:TRECT;
- x, y, null:integer;
- //COLORS BEGIN//
- Monsters, Health_Bar, Direction_Square:Integer;
- Relog_Lock, Ok_Button, Cancel_Button:Integer;
- SHealth_Potions, Health_Potions, Herbs:Integer;
- SpellTextYellow:Integer;
- //COLORS END//
- implementation
- function EOBotClass.ColorRGB(SColor, i: Integer): Extended;
- var
- Color: TColor;
- begin
- Color := ColorToRGB(SColor);
- Result := 0;
- case i of
- 1: result := GetRValue(Color);
- 2: result := GetGValue(Color);
- 3: result := GetBValue(Color);
- end;
- end;
- function EOBotClass.SimilarColors(Color1, Color2, Tolerance: Integer): Boolean;
- begin
- Result := False;
- if (Abs(Round(ColorRGB(Color1, 1)) - Round(ColorRGB(Color2, 1))) <= Tolerance) then
- if (Abs(Round(ColorRGB(Color1, 2)) - Round(ColorRGB(Color2, 2))) <= Tolerance) then
- if (Abs(Round(ColorRGB(Color1, 3)) - Round(ColorRGB(Color2, 3))) <= Tolerance) then
- Result := True;
- end;
- function EOBotClass.StrGet(S : String; I : Integer): Char;//Cazax
- begin
- Result := S[I];
- end;
- Procedure EOBotClass.KeyPress(keycode: char);
- Begin
- keybd_event(Ord(UpCase(KeyCode)), 0, 0, 0);
- sleep(50);
- keybd_event(Ord(UpCase(KeyCode)), 0, KEYEVENTF_KEYUP, 0);
- End;
- Procedure EOBotClass.ReadString(str:String);//Converted To Delphi
- var
- i,strLength :Integer;
- begin
- i:=1;
- strLength:=Length(str);
- while(i<strLength+1)do
- begin
- KeyPress(StrGet(str, i));
- i:=i+1;
- end;
- sleep(300);
- end;
- Procedure EOBotClass.SendLetter(Letter: Char);
- Begin
- if (Letter in ['0'..'9']) then
- Begin
- if (Letter = '0') then
- Begin
- keybd_event($30, 0, 0, 0);
- sleep(20);
- keybd_event($30, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = '1') then
- Begin
- keybd_event($31, 0, 0, 0);
- sleep(20);
- keybd_event($31, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = '2') then
- Begin
- keybd_event($32, 0, 0, 0);
- sleep(20);
- keybd_event($32, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = '3') then
- Begin
- keybd_event($33, 0, 0, 0);
- sleep(20);
- keybd_event($33, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = '4') then
- Begin
- keybd_event($34, 0, 0, 0);
- sleep(20);
- keybd_event($34, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = '5') then
- Begin
- keybd_event($35, 0, 0, 0);
- sleep(20);
- keybd_event($35, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = '6') then
- Begin
- keybd_event($36, 0, 0, 0);
- sleep(20);
- keybd_event($36, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = '7') then
- Begin
- keybd_event($37, 0, 0, 0);
- sleep(20);
- keybd_event($37, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = '8') then
- Begin
- keybd_event($38, 0, 0, 0);
- sleep(20);
- keybd_event($38, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = '9') then
- Begin
- keybd_event($39, 0, 0, 0);
- sleep(20);
- keybd_event($39, 0, KEYEVENTF_KEYUP, 0);
- End;
- End
- Else
- Begin
- if (Letter = UpCase(Letter)) then
- Begin
- keybd_event($A0, 0, 0, 0);
- if (Letter = 'A') then
- Begin
- keybd_event($41, 0, 0, 0);
- sleep(20);
- keybd_event($41, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'B') then
- Begin
- keybd_event($42, 0, 0, 0);
- sleep(20);
- keybd_event($42, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'C') then
- Begin
- keybd_event($43, 0, 0, 0);
- sleep(20);
- keybd_event($43, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'D') then
- Begin
- keybd_event($44, 0, 0, 0);
- sleep(20);
- keybd_event($44, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'E') then
- Begin
- keybd_event($45, 0, 0, 0);
- sleep(20);
- keybd_event($45, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'F') then
- Begin
- keybd_event($46, 0, 0, 0);
- sleep(20);
- keybd_event($46, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'G') then
- Begin
- keybd_event($47, 0, 0, 0);
- sleep(20);
- keybd_event($47, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'H') then
- Begin
- keybd_event($48, 0, 0, 0);
- sleep(20);
- keybd_event($48, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'I') then
- Begin
- keybd_event($49, 0, 0, 0);
- sleep(20);
- keybd_event($49, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'J') then
- Begin
- keybd_event($4A, 0, 0, 0);
- sleep(20);
- keybd_event($4A, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'K') then
- Begin
- keybd_event($4B, 0, 0, 0);
- sleep(20);
- keybd_event($4B, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'L') then
- Begin
- keybd_event($4C, 0, 0, 0);
- sleep(20);
- keybd_event($4C, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'M') then
- Begin
- keybd_event($4D, 0, 0, 0);
- sleep(20);
- keybd_event($4D, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'N') then
- Begin
- keybd_event($4E, 0, 0, 0);
- sleep(20);
- keybd_event($4E, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'O') then
- Begin
- keybd_event($4F, 0, 0, 0);
- sleep(20);
- keybd_event($4F, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'P') then
- Begin
- keybd_event($50, 0, 0, 0);
- sleep(20);
- keybd_event($50, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'Q') then
- Begin
- keybd_event($51, 0, 0, 0);
- sleep(20);
- keybd_event($51, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'R') then
- Begin
- keybd_event($52, 0, 0, 0);
- sleep(20);
- keybd_event($52, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'S') then
- Begin
- keybd_event($53, 0, 0, 0);
- sleep(20);
- keybd_event($53, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'T') then
- Begin
- keybd_event($54, 0, 0, 0);
- sleep(20);
- keybd_event($54, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'U') then
- Begin
- keybd_event($55, 0, 0, 0);
- sleep(20);
- keybd_event($55, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'V') then
- Begin
- keybd_event($56, 0, 0, 0);
- sleep(20);
- keybd_event($56, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'W') then
- Begin
- keybd_event($57, 0, 0, 0);
- sleep(20);
- keybd_event($57, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'X') then
- Begin
- keybd_event($58, 0, 0, 0);
- sleep(20);
- keybd_event($58, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'Y') then
- Begin
- keybd_event($59, 0, 0, 0);
- sleep(20);
- keybd_event($59, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'Z') then
- Begin
- keybd_event($5A, 0, 0, 0);
- sleep(20);
- keybd_event($5A, 0, KEYEVENTF_KEYUP, 0);
- End;
- keybd_event($A0, 0, KEYEVENTF_KEYUP, 0);
- End
- Else
- Begin
- if (Letter = 'a') then
- Begin
- keybd_event($41, 0, 0, 0);
- sleep(20);
- keybd_event($41, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'b') then
- Begin
- keybd_event($42, 0, 0, 0);
- sleep(20);
- keybd_event($42, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'c') then
- Begin
- keybd_event($43, 0, 0, 0);
- sleep(20);
- keybd_event($43, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'd') then
- Begin
- keybd_event($44, 0, 0, 0);
- sleep(20);
- keybd_event($44, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'e') then
- Begin
- keybd_event($45, 0, 0, 0);
- sleep(20);
- keybd_event($45, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'f') then
- Begin
- keybd_event($46, 0, 0, 0);
- sleep(20);
- keybd_event($46, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'g') then
- Begin
- keybd_event($47, 0, 0, 0);
- sleep(20);
- keybd_event($47, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'h') then
- Begin
- keybd_event($48, 0, 0, 0);
- sleep(20);
- keybd_event($48, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'i') then
- Begin
- keybd_event($49, 0, 0, 0);
- sleep(20);
- keybd_event($49, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'j') then
- Begin
- keybd_event($4A, 0, 0, 0);
- sleep(20);
- keybd_event($4A, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'k') then
- Begin
- keybd_event($4B, 0, 0, 0);
- sleep(20);
- keybd_event($4B, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'l') then
- Begin
- keybd_event($4C, 0, 0, 0);
- sleep(20);
- keybd_event($4C, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'm') then
- Begin
- keybd_event($4D, 0, 0, 0);
- sleep(20);
- keybd_event($4D, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'n') then
- Begin
- keybd_event($4E, 0, 0, 0);
- sleep(20);
- keybd_event($4E, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'o') then
- Begin
- keybd_event($4F, 0, 0, 0);
- sleep(20);
- keybd_event($4F, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'p') then
- Begin
- keybd_event($50, 0, 0, 0);
- sleep(20);
- keybd_event($50, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'q') then
- Begin
- keybd_event($51, 0, 0, 0);
- sleep(20);
- keybd_event($51, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'r') then
- Begin
- keybd_event($52, 0, 0, 0);
- sleep(20);
- keybd_event($52, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 's') then
- Begin
- keybd_event($53, 0, 0, 0);
- sleep(20);
- keybd_event($53, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 't') then
- Begin
- keybd_event($54, 0, 0, 0);
- sleep(20);
- keybd_event($54, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'u') then
- Begin
- keybd_event($55, 0, 0, 0);
- sleep(20);
- keybd_event($55, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'v') then
- Begin
- keybd_event($56, 0, 0, 0);
- sleep(20);
- keybd_event($56, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'w') then
- Begin
- keybd_event($57, 0, 0, 0);
- sleep(20);
- keybd_event($57, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'x') then
- Begin
- keybd_event($58, 0, 0, 0);
- sleep(20);
- keybd_event($58, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'y') then
- Begin
- keybd_event($59, 0, 0, 0);
- sleep(20);
- keybd_event($59, 0, KEYEVENTF_KEYUP, 0);
- End
- Else if (Letter = 'z') then
- Begin
- keybd_event($5A, 0, 0, 0);
- sleep(20);
- keybd_event($5A, 0, KEYEVENTF_KEYUP, 0);
- End;
- End;
- End;
- End;
- Procedure EOBotClass.Send(Msg: String);
- var
- i: Integer;
- Begin
- if (AnsiCompareStr(Msg, 'F1') = 0) then
- begin
- keybd_event(VK_F1, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F2') = 0) then
- begin
- keybd_event(VK_F2, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F3') = 0) then
- begin
- keybd_event(VK_F3, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F4') = 0) then
- begin
- keybd_event(VK_F4, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F4, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F5') = 0) then
- begin
- keybd_event(VK_F5, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F5, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F6') = 0) then
- begin
- keybd_event(VK_F6, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F6, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F7') = 0) then
- begin
- keybd_event(VK_F7, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F7, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F8') = 0) then
- begin
- keybd_event(VK_F8, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F8, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F9') = 0) then
- begin
- keybd_event(VK_F9, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F9, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F10') = 0) then
- begin
- keybd_event(VK_F10, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F10, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F11') = 0) then
- begin
- keybd_event(VK_F11, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F11, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'F12') = 0) then
- begin
- keybd_event(VK_F12, 0, 0, 0);
- sleep(20);
- keybd_event(VK_F12, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'Ctrl') = 0) or (AnsiCompareStr(Msg, 'Control') = 0) then
- begin
- keybd_event(VK_CONTROL, 0, 0, 0);
- sleep(20);
- keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'Tab') = 0) then
- begin
- keybd_event(VK_TAB, 0, 0, 0);
- sleep(20);
- keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'Enter') = 0) or (AnsiCompareStr(Msg, 'Return') = 0) then
- begin
- keybd_event(VK_RETURN, 0, 0, 0);
- sleep(20);
- keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'Windows') = 0) or (AnsiCompareStr(Msg, 'Windows Key') = 0) then
- begin
- keybd_event(VK_LWIN, 0, 0, 0);
- sleep(20);
- keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'Up') = 0) or (AnsiCompareStr(Msg, 'up') = 0) then
- begin
- keybd_event(VK_NUMPAD8, 0, 0, 0);
- sleep(20);
- keybd_event(VK_NUMPAD8, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'Right') = 0) or (AnsiCompareStr(Msg, 'right') = 0) then
- begin
- keybd_event(VK_NUMPAD6, 0, 0, 0);
- sleep(20);
- keybd_event(VK_NUMPAD6, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'Down') = 0) or (AnsiCompareStr(Msg, 'down') = 0) then
- begin
- keybd_event(VK_NUMPAD2, 0, 0, 0);
- sleep(20);
- keybd_event(VK_NUMPAD2, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end
- else if (AnsiCompareStr(Msg, 'Left') = 0) or (AnsiCompareStr(Msg, 'left') = 0) then
- begin
- keybd_event(VK_NUMPAD4, 0, 0, 0);
- sleep(20);
- keybd_event(VK_NUMPAD4, 0, KEYEVENTF_KEYUP, 0);
- sleep(10);
- Msg := '';
- end;
- for i := 1 to Length(Msg) do
- Begin
- SendLetter(Msg[i]);
- sleep(10);
- End;
- End;
- function EOBotClass.FindColor(var x, y: Integer; Color, xs, ys, xe, ye, Tolerance: Integer; Window: Hwnd): Boolean;
- var
- Bmp: TBitmap; // Bitmap of the client
- tmpDC: HDC; // Device context of the client's window handle
- Size: TRect; // Rect(angle) of the client's window
- cx, cy: Integer; // For-loop vars
- Line: PRGB32Array; // The scanline
- begin
- Result := False; // In case the color isn't found => Result = False
- x := -1; // In case the color isn't found => x = -1
- y := -1; // In case the color isn't found => y = -1
- Bmp := TBitmap.Create; // We create our bitmap instance
- tmpDC := GetWindowDC(Window); // We get the device context of the client's window handle
- GetWindowRect(Window, Size); // We get the rect(angle) of the client's window
- Bmp.Width := Size.Right - Size.Left; // We set the width of our bitmap
- Bmp.Height := Size.Bottom - Size.Top; // We set the height of our bitmap
- BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, tmpDC, 0, 0, SRCCOPY);
- // ^^^ We copy the client's canvas onto the bitmap
- Bmp.PixelFormat := pf32bit; // We set the bitmap to 32bits
- DeleteDC(tmpDC); // We delete the device context to avoid memory leakage
- for cy := ys to ye do // Loop for the rows of pixels (y)
- begin
- if cy >= Bmp.Height then Break; // Break the loop if you reach the end of the bitmap
- Line := Bmp.ScanLine[cy]; // We retrieve the scanline (line of pixels) from the bitmap for the current y
- for cx := xs to xe do // Loop for the colums of pixels (x)
- begin
- if cx >= Bmp.Width then Break; // Break the loop if you reach the end of the bitmap
- if (SimilarColors(RGB(Line[cx].R, Line[cx].G, Line[cx].B), Color, Tolerance)) then
- // ^^^ We convert the RGB values of the current pixel to a color and compare it with the tolerance to the entered color
- begin // If the color is similar (or for tol 0 the same) then...
- Result := True; // Result of the function
- x := cx; // Returned x-value
- y := cy; // Returned y-value
- Line := nil; // Free the scanline to avoid memory leaks
- Bmp.Free; // Free the bitmap to avoid memory leaks
- Exit; // Exit the function
- end;
- end;
- end;
- Line := nil; // Free the scanline to avoid memory leaks
- Bmp.Free; // Free the bitmap to avoid memory leaks
- end;
- Procedure EOBotClass.ClickMouse(x, y: Integer; bool: Boolean);
- Begin
- SetCursorPos(eo_rect.left + x, eo_rect.top + y);
- Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
- Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
- End;
- Procedure EOBotClass.ActivateClient;
- begin
- EO_Client:=FindWindowA('TMainForm','Endless Online');
- SetActiveWindow(EO_Client);
- SetForegroundWindow(EO_Client);
- BringWindowToTop(EO_Client);
- GetWindowRect(EO_Client, &eo_rect);
- end;
- Procedure EOBotClass.Login(Username: string; Password: string; Character: Integer);
- begin
- end;
- Procedure EOBotClass.Initialize;
- begin
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement