SRL Archive - Other Scripts

program New;
//
var
pwd1,pwd2:String;
//
procedure three;
begin
repeat
if(isfkeydown(12))then
begin
pwd2:=Readln('Conform Password');
if(pwd1=pwd2)then
begin
getself.SHOW;
terminatescript;
end;
end;
MoveMouse(0,0);
until(false);
end;
//
procedure two;
begin
getapplication.messagebox('To Lock the Mouse push F2 and to stop push F12', 'Directions', 0);
repeat
if(isfkeydown(2))then
begin
getself.HIDE;
three;
end;
until(false);
end;
//
procedure one;
begin
pwd1:=readln('Set Password');
end;
//
begin
one;
two;
end.


i know thier is a glitch when you push F12 then you can move your mouse i cant figure out how to fix that.

use code tags.

hold on ill look at your code :p

procedure FindTaskManager;
begin
  if (FindWindowTitlePart('Task Manager', False)) then
  begin
    // Press Alt+F4 to kill Task Manager.
    KeyDown(18);
    KeyDown(115);
    KeyUp(18);
    KeyUp(115);
  end;
end; 

and

procedure SafeInitDetection;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('three', v);
end;

that might work, to use it, call SafeInitDetection; instead of three;

Make sure to add a small wait to the loop so that scar doesn't make the computer look like it's going to die. :p

Wait(100); // Should be sufficient. :)

You can also say that to shut off the script you need to press F12, say.. 3 times. Why? Because the person that is getting pissed off at the computer because the mouse isn't working will try pressing every key at least once.

So then just make an integer variable, and every time the person hits F12 after the mouse is locked, it will increment the variable by 1, and then make another if statement saying

if(SomeVar >= 3)then 
begin
  // confirm password
  // etc
end;

~Ron