[讨论] 一个vb脚本...

无事做的脚本.
功能是跟非QQ好友聊天.不过貌似问题蛮多.大家来改改.

1. ON ERROR RESUME NEXT
   
2. 
   
3. Dim QQ_NUM
   
4. if Wscript.arguments.count<1 then
   
5.    
   
6. QQ_NUM=InputBox(""&vbCr&vbCR&"黑色海岸线网站欢迎您.wwwthysea.com.     免费.共 享."&vbCr&vbCr&"","QQ强行聊天器.黑色海岸线专用版.","输入您想要聊天的QQ号码.如:123456")
   
7.    
   
8. if QQ_NUM="" then
   
9.       
   
10. Wscript_quit
    
11.    
    
12. end if
    
13. else
    
14.    VQQ_NUM=Wscript.arguments.Item(0)
    
15. end if
    
16. set ws=wscript.createobject("wscript.shell")
    
17. ws.run "http://wpa.qq.com/msgrd?V=I&Uin="+QQ_NUM+"&Site=ioshenmue&Menu=yes",0

复制代码