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