标题: [讨论] 一个vb脚本... [打印本页]

---

作者: bigblock    时间: 2007-4-1 00:26     标题: 一个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

复制代码

---

作者: fcts1230    时间: 2007-4-1 10:20

:o
看不明白

---

作者: chinanic    时间: 2007-4-1 11:16

VQQ_NUM=Wscript.arguments.Item(0)

这句是干嘛用的？

---

欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/)

Powered by Discuz! 7.2