Charla QQ
Dim QQ_NUM
si Wscript.arguments.count<1 entonces
QQ_NUM=InputBox("by:authorQQ:authorQQ"&vbCr&vbCr&" "&vbCr&vbCr&" ", "QQ charla forzada","QQ predeterminado")
si QQ_NUM="" entonces
Wscript.quit
finaliza si
else
VQQ_NUM = Wscript.arguments.Item(0)
end if
set ws=wscript.createobject("wscript.shell")
ws.run "/msgrd?V=1&Uin="+QQ_NUM,0
----------------------- --- --------------------
Copie el código anterior en el Bloc de notas, guárdelo y luego simplemente cambie el extensión de archivo a VBS