如何建一个批处理或者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
大家交流一下,予人玫瑰,手有余香,用玫瑰砸死我吧
执行不成功,如有大师知道,直接写好代码,我负责复制粘贴。 展开
输入 baidu123 后enter回车,
执行此处理后 实际我看到的网页就是 百度搜索“baidu123”的结果
例如:2打开c盘Program Files下QQ软件并自动输入123--enter--456--enter
执行后实际我看到的效果是QQ账号123在登录密码456的情况确认
我知道按键精灵可以,这个不算办法,我只要VBS或者cmd执行
希望大家不吝赐教,
另:关于cmd延迟输入字符和当前窗口切换回软件继续输入的问题我没办法解决
希望大家写好可以在此留言,执行成功后追加分数,
也可以给我邮件iair@qq.com
大家交流一下,予人玫瑰,手有余香,用玫瑰砸死我吧
执行不成功,如有大师知道,直接写好代码,我负责复制粘贴。 展开
3个回答
展开全部
回答你第一个问题吧,楼主很聪明,应该可以触类旁通!
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语句没有关闭,另外即使正确也会一直循环,好比炸弹!
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语句没有关闭,另外即使正确也会一直循环,好比炸弹!
展开全部
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
如果想自动启动就把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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
ami4tj一看就是菜鸟,
一楼的代码没有问题.另外楼主的要求是可以输入账号与密码的,有些软件就是没有Tab切换焦点的功能,因此这里不可能用vbs实现qq自动登录.
一楼的代码没有问题.另外楼主的要求是可以输入账号与密码的,有些软件就是没有Tab切换焦点的功能,因此这里不可能用vbs实现qq自动登录.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询