NKN
2013-08-14 23:06:16
Tried two other bots, neither worked for me.
When I switch off from PulseBot, I'm gonna be scripting this.
Here's a sneak peak.
When I switch off from PulseBot, I'm gonna be scripting this.
Here's a sneak peak.
function ProcessRunning(Str: string): boolean;
var
processes: TSysProcArr;
i: Integer;
begin
processes := GetProcesses();
for i := 0 to high(processes) do
begin
Wait(10);
Result := (Str = processes[i].Title);
if Result then
break;
end;
end;
procedure SetScreenAsTarget(Process:String);
var
ProcessArray: TSysProcArr;
I: Integer;
begin
ProcessArray := GetProcesses();
for I := 0 to high(ProcessArray) do
begin
if (process = ProcessArray[i].Title) then
begin
SetTarget(ProcessArray[i]);
ShowWindow(ProcessArray[i].Handle, 9);
ShowWindow(ProcessArray[i].Handle, 5);
end else ShowWindow(ProcessArray[i].Handle, 6);
end;
end;
procedure WaitForWindow(Window:String);
var
time:integer;
begin
time := GetSystemTime;
while((not(ProcessRunning(Window)))and(GetSystemTime - time < 40000)) do
Wait(500);
end;
procedure OpenLeague;
begin
ShellExecute(0, 'open', 'lol.launcher.admin.exe', '#0', LeagueLocation, 0);
WaitForWindow('PVP.net Patcher');
end;
function IsLeagueRunning:boolean;
var
Patcher,ErrorMessage,PVPClient,GameClient:String;
begin
Patcher := 'PVP.net Patcher';
ErrorMessage := 'Error';
PVPClient := 'PVP.net Client';
GameClient := 'League of Legends (TM) Client';
if (ProcessRunning(ErrorMessage) = false) and (ProcessRunning(PVPClient) = false) and (ProcessRunning(Patcher) = false)
and (ProcessRunning(GameClient) = false) then
result := false
else
result := true;
end;