如何建一个批处理或者VBS 使其 打开软件后 可以输入字符并且确认 就像打开QQ省的每次都输入账号密码一样

例如:1如打开IE(唯一主页为百度)此时光标在输入栏输入baidu123后enter回车,执行此处理后实际我看到的网页就是百度搜索“baidu123”的结果例如:2打开c... 例如:1如打开IE(唯一主页为百度) 此时光标在输入栏
输入 baidu123 后enter回车,
执行此处理后 实际我看到的网页就是 百度搜索“baidu123”的结果

例如:2打开c盘Program Files下QQ软件并自动输入123--enter--456--enter
执行后实际我看到的效果是QQ账号123在登录密码456的情况确认

我知道按键精灵可以,这个不算办法,我只要VBS或者cmd执行
希望大家不吝赐教,
另:关于cmd延迟输入字符和当前窗口切换回软件继续输入的问题我没办法解决
希望大家写好可以在此留言,执行成功后追加分数,
也可以给我邮件iair@qq.com
大家交流一下,予人玫瑰,手有余香,用玫瑰砸死我吧
执行不成功,如有大师知道,直接写好代码,我负责复制粘贴。
展开
 我来答
百度网友868f21e
2011-04-21 · TA获得超过252个赞
知道小有建树答主
回答量:169
采纳率:0%
帮助的人:195万
展开全部
回答你第一个问题吧,楼主很聪明,应该可以触类旁通!
Dim sh
Set sh = WScript.CreateObject("Wscript.Shell")
sh.Run "iexplore.exe www.baidu.com" '这里我们自己打开一个ie窗口,以免激活窗口什么的太麻烦。
WScript.Sleep 5000 '这里等5秒,主要是看电脑cpu速度与网速,可以自己调的。确保百度主页被打开
sh.SendKeys "baidu123" '这就简单了吧,输入这几个字符
WScript.Sleep 2000 '这里再等2秒,确保输入完毕
sh.SendKeys "{ENTER}" '这里模拟回车的动作
set sh = nothing
关于第二个qq的问题呢,也很简单,手动打开也行,用代码打开也行,然后也是用sendkeys方法模拟键盘输入用户名和密码。输入密码之前需要用到一个tab动作来把焦点放到密码框,我们这样写sh.SendKeys "{tab}" ,然后再输入密码,最后再来一个模拟回车的动作,就登陆了。好了,这个如果有问题再联系。
楼主cmd延迟输入的我不是很懂,希望可以问的详细点;切回软件的话,就用vbs的激活窗口方法就可以sh.appactivate。这个有两种用法,一个是激活窗口的标题名字,窗口标题为汉字的会很麻烦,弄不好就不对,则激活不了;另一个是激活当前软件的process id,这个就要你自己找到这个软件的pid,然后激活之。好了,有问题再沟通。
一楼的心意挺好,不过代码有错,if语句没有关闭,另外即使正确也会一直循环,好比炸弹!
蔡瑀
2011-04-21 · TA获得超过231个赞
知道小有建树答主
回答量:424
采纳率:0%
帮助的人:326万
展开全部
2010qq后就不能自动登录了
如果想自动启动就把qq放到开机启动项并设为一键登录就好了

set shell=createobject("wscript.shell")
do
str=inputbox("输入网页",wscript.scriptname)
if str=false then wscript.quit
shell.run "http://www.baidu.com/s?wd="&str
loop
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
麦兜Terran
2011-04-24 · TA获得超过2570个赞
知道小有建树答主
回答量:1786
采纳率:0%
帮助的人:1149万
展开全部
ami4tj一看就是菜鸟,
一楼的代码没有问题.另外楼主的要求是可以输入账号与密码的,有些软件就是没有Tab切换焦点的功能,因此这里不可能用vbs实现qq自动登录.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式