windows messenger

http://www.dougknox.com/x...s/xp_messenger_remove.vbs linkindeki visual basic scriptiyle winxp den kaldirilabilir programdir.


--vbs--

Option Explicit
On Error Resume Next

Dim WSHShell, MyBox, p1, q1, rcmd
Dim jobfunc

Set WSHShell = WScript.CreateObject("WScript.Shell")
p1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\Hide Messenger"
q1 = 2
rcmd = "RunDll32 advpack.dll,LaunchINFSection %windir%\inf\msmsgs.inf,BLC.Remove"

WSHShell.RegWrite p1, q1

WshShell.Run(rcmd)

--vbs--