qq强行聊天器代码.txt

各种QQ强行聊天的代码,是在记事本中就可以写的.我的QQ是315511893

QQ强行聊天VBS代码

VBS代码

ON ERROR RESUME NEXT 
    Dim QQ_NUM 
    if Wscript.arguments.count<1 then 
     QQ_NUM=InputBox("看看邓星林的个人主页；http://dxl0321.go1.icpcn.com/"&vbCr&vbCr&" "&vbCr&vbCr&" ","QQ强行聊天器","请输入MM的QQ号码") 
     if QQ_NUM="" then 
     Wscript.quit 
     end if 
    else 
     VQQ_NUM = Wscript.arguments.Item(0) 
    end if 
    set ws=wscript.createobject("wscript.shell") 
    ws.run "http://wpa.qq.com/msgrd?V=1&Uin="+ QQ_NUM+"&Site=ioshenmue&Menu=yes",0 


QQ强行聊天BAT代码

@Echo Off  
:send  
Set /p num=请输入你想要和哪个人聊天的QQ号码:  
If /I "%num%"=="n"  Exit  
start tencent://Message/?Uin=%num%  
cls  
Goto send  


如有问题，就Q我
我的QQ是315511893