Red de conocimiento del abogados - Respuesta jurídica de la empresa - Por favor, dame el código para el chat forzado en QQ. Necesito códigos en cualquier idioma.

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