求教高手!如何复制指定内容
vbs吧
全部回复
仅看楼主
level 1
各位高手好!
315快乐,今年被坑了没。。
我好几个东西都要输入很长的密码,而且这些密码输入框都是可以粘贴的。
现在我每次输入密码都要打开文件,ctrl+a全选、ctrl+c复制、alt+f4关闭、alt+n不保存、alt+tab切换到要输入密码的窗口、ctrl+v输入密码太麻烦了。
请问这些东西可以用用vbs脚本实现么?批处理貌似是不行的。
比如说我执行123脚本,然后按ctrl+v就可以把“123”粘贴到QQ聊天框;
然后我执行asdf脚本,然后按ctrl+v就可以把“asdf”沾到某密码输入框。
心宿二 10:08:47

2010年03月16日 02点03分 1
level 0
你要复制的内容是数字字符还是文件
2010年03月16日 04点03分 2
level 1
谢谢二楼,当然是数字或者英文字母了。
2010年03月16日 05点03分 3
level 6
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.Document.ParentWindow.ClipboardData.SetData "text","123"
objIE.Quit
2010年03月16日 06点03分 4
level 0
我有个方法用sendkeys应该可以实现:
dim wshell,path
path="这里填你那个要登录文件的路径"
set wshell=createobject("wscript.shell")
2010年03月16日 14点03分 6
level 0
我有个方法用sendkeys应该可以实现:
dim wshell,path
path="这里填你那个要登录文件的路径"
set wshell=createobject("wscript.shell")
2010年03月16日 14点03分 7
level 0
还是明天用电脑给你写吧,其实这个很简单的,就用sendkeys这个键盘模拟就能实现,你甚至不需要按什么键,只在代码中输入你那个登录框的路径和所需的密码然后保存就OK了
2010年03月16日 14点03分 8
level 1
感谢您指导我的问题,手机打字受累了。
2010年03月17日 01点03分 9
level 0
dim wshshell,path
path="这里填你那个要登录文件的路径"
set wshshell=createobject("wscript.shell")
wshshell.run path
wscript.sleep 2000
wshshell.AppActivate "写你登陆框的标题"
wscript.sleep 200
wshShell.SendKeys "+{TAB}"
wscript.sleep 200
wshshell.sendkeys "你要输入的账号"
wscript.Sleep 200
wshShell.SendKeys "{TAB}"
wshshell.sendkeys "你要输入的密码"
wshshell.sendkeys "{ENTER}"
由于不清楚你所使用的文件 所以我只能粗略的做这个代码  

2010年03月17日 07点03分 10
level 1
老兄,再次感谢您的好意。
您的vbs大概意思我看懂了。
wshshell.run 是执行某程序;
wshshell.AppActivate是切换到某窗口;
wshShell.SendKeys是执行某些按键,我想问下"{ALT}+{TAB}"能否当做ALT+TAB使用?
我还要继续调试一下程序,等调试好了再次来道谢。
2010年03月17日 08点03分 11
level 0
不能 +号在sendkeys中是作SHIFT键使用
alt键是用^号表示
tan键是用{TAB}表示
两个合用是sendkeys "^{TAB}"
2010年03月17日 09点03分 12
level 1
1.确认路径是否正确
2.路径是不允许有空格的,可以用双引号,"""路径"""
2010年03月17日 15点03分 14
level 0
想追问下:
.AppActivate
对于IE8多选项卡页(而且不在最前)
就无效了,有没有什么简单的办法?
2010年03月18日 02点03分 17
1