返回列表 发帖

主题
0 
积分
2 
贝壳
2 个 
性别
男 
来自
陕西西安 
注册时间
2004-3-13 
最后登录
2012-3-11 

元老勋章
楼主 跳转到 » 倒序看帖
打印
tT
bigblock发表于 2007-4-1 00:26 | 只看该作者

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

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

  1. ON ERROR RESUME NEXT

  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
复制代码
附件: 您需要登录才可以下载或查看附件。没有帐号？注册
收藏 分享

主题
0 
积分
285 
贝壳
285 个 
性别
男 
注册时间
2006-10-22 
最后登录
2011-11-29 

热情勋章勤劳勋章贡献勋章
沙发
fcts1230发表于 2007-4-1 10:20 | 只看该作者
:o
看不明白
借我三千虎骑，复我浩荡中华！饮马恒河畔，剑指天山西；碎叶城揽月，库叶岛赏雪；黑海之滨垂钓，贝加尔湖面张弓；中南半岛访古，东京废墟遥祭华夏列祖。汉旗指处­，望尘逃遁——敢犯中华天威者、虽远必诛

TOP

主题
0 
积分
854 
贝壳
854 个 
性别
男 
来自
贵州遵义 
注册时间
2005-3-26 
最后登录
2011-2-26 

技术勋章热情勋章勤劳勋章
板凳
chinanic发表于 2007-4-1 11:16 | 只看该作者
VQQ_NUM=Wscript.arguments.Item(0)

这句是干嘛用的？
天行健，君子以自强不息
地势坤，君子以厚德载物
黑色海岸线欢迎您
QQ群：7212260
致力于探索WEB技术精髓：http://www.bitechcn.com
点这里加我！

TOP

返回列表 回复 发帖