[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
随风

Rank: 8Rank: 8

帖子
1759 
积分
5387 
技术
51  
捐助
210  
注册时间
2007-10-26 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2011-1-4 22:59 | 只看该作者

[网络连接] 批处理能登录QQ空间吗？

已知QQ号码和密码，想用批处理直接登录QQ空间，能实现吗？vbs也可以，但不要模拟按键的那种。
收藏 分享
技术问题请到论坛发帖求助！

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
4楼
发表于 2011-1-5 12:44 | 只看该作者 
  1. '//测试环境WIN_XP SP3

  2. '//默认浏览器IE。注意：多次登陆不成功将需要验证码

  3. Dim objIE,url

  4. Set objIE=CreateObject("InternetExplorer.Application")

  5. url="http://qzone.qq.com/"  'QQ空间地址

  6. objIE.Visible=True

  7. objIE.Navigate url

  8. While objIE.Busy Or objIE.Readystate <> 4  

  9.   WScript.Sleep 200

  10. Wend

  11. objIE.document.getElementById("u").value="username" '此处替换为用户名

  12. objIE.document.getElementById("p").value="password" '此处替换为密码

  13. WScript.Sleep 100

  14. objIE.document.getElementById("subbtn").click

  15. Set objIE=nothing
复制代码
---学无止境---

TOP

caimingbing

Rank: 3Rank: 3

帖子
66 
积分
252 
技术
0  
捐助
0  
注册时间
2009-12-5 
3楼
发表于 2011-1-5 11:39 | 只看该作者
vbs有sendkey，批处理没有啊

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2011-1-5 00:31 | 只看该作者
试试这个：
http://bbs.bathome.net/thread-7819-1-1.html
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表