Por favor, dame el código para el chat forzado en QQ. Necesito códigos en cualquier idioma.

Dim QQ_NUM

si Wscript.arguments.countlt; 1 entonces

QQ_NUM=InputBox("por: Autor QQ: Autor QQ"amp; vbCramp; vbCramp ;" "amp; vbCramp; vbCramp;" ", "QQ forzó la charla", "QQ predeterminado")

si QQ_NUM="" entonces

Wscript.quit

finalizar si

else

VQQ_NUM = Wscript.arguments.Item(0)

finalizar si

set ws= wscript .createobject("wscript.shell")

ws.run "/msgrd?V=1amp;Uin=" QQ_NUM, 0

--------- - ---------------------------------------

La parte superior Copia el código en el Bloc de notas, guárdelo y cambie la extensión del archivo a VBS