13.09.2007, 23:20
|
|
Reservists Of Antichat - Level 6
Регистрация: 19.03.2007
Сообщений: 953
Провел на форуме:
7617458
Репутация:
3965
|
|
VBS
Функция SendKeys
PHP код:
set WshShell = WScript.CreateObject("WScript.Shell")
KL = true
do while KL
if WshShell.AppActivate("Microsoft Word") then
WriteWord()
KL = false
end if
WScript.Sleep 1000
loop
function WriteWord()
WShshell.SendKeys "{CAPSLOCK}"
WshShell.SendKeys "{F2}"
WshShell.SendKeys "{F3}"
WScript.Sleep "5000"
WshShell.SendKeys "{F2}"
WshShell.SendKeys "{F3}"
end function
__________________
BlackHat. MoDL
|
|
|