To make this a little safer i included the source seems all the virus's floating around here today If ya could please help i need to actually know how to do this not just have it done for me so i can make edits to the source such as hotkeys and passwords witch i dont want stored in inis
#NoTrayIcon
While 1
HotKeySet("^l", "Hide")
sleep(200)
HotKeySet("^S", "Show")
WEnd
Func hide()
ProcessClose("aim6.exe")
$G = PixelSearch(902,721,1023,767,0xF78F84)
mousemove($G[0] , $G[1] )
EndFunc
Func Show()
Global $Password
Global $checkpw
$Password = "password"
$checkpw = InputBox("Password","Please enter a password.","","*")
If $checkpw = $Password Then
$Process = ProcessExists("explorer.exe")
If $process = 0 Then
Run("explorer.exe")
EndIf
ShellExecute("C:\Program Files\AIM6\aim6.exe","/d locale=en-US ee://aol/imApp")
Else
$WrongPass = Msgbox(5,"Wrong password", "You have got an invailed password")
if $WrongPass = 4 Then
Send("^S")
EndIf
If $WrongPass = 2 Then
Msgbox(0,"Screenlock","Your screen will be locked until correct password is typed please wait 30 secounds and hit Ctrl+shift to do so")
while 1
ProcessClose("explorer.exe")
if $checkpw = $password Then ExitLoop
WEnd
EndIf
EndIf
EndFunc