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