Question

VBS中使用CTRL+C，然后复制的内容复制到另外一个文本里该如何做？

Set a=CreateObject("WScript.shell")

login "abdef43k"
login "gf54gfew4555"

sub login(usernames)
WScript.Sleep 2000
a.run "iexplore.exe http://www.xxx.com"
WScript.Sleep 4000
a.AppActivate"朋友你好"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
WScript.Sleep 1000
a.SendKeys usernames
a.SendKeys "{TAB}"
a.SendKeys "{ENTER}"
WScript.Sleep 2000
a.SendKeys "{ENTER}"
wscript.sleep 3000
a.sendkeys "^C"
set f=fso.opentextfile("c:\新建文档.txt",2,true)
wscript.sleep 2000
a.sendkeys"%{f4}" '自动关闭
end sub
这段代码的意思是打开http://www.xxx.com这个网站停顿4秒按TAB键9次停顿1秒输入帐号，然后在TAB键一次按ENTER，然后后面的应该可以看懂了吧`
我需要的目的就是停顿3秒后按CTRL+C，把之前按ENTER的内容复制到C盘另外一个文本里，然后自动保存，然后自动关闭当前网页，然后在打开网站重新以上步骤（每次输入的帐号都不同，因为我想得到每个帐号按ENTER键后的结果）``有没有高手能帮我编写一个完整的代码，谢谢了`注：保存的内容是按顺序排下来的，这样我才知道哪个结果是对应的哪个帐号``高手帮帮忙，小弟先谢谢了，请喝酒`

Answer 1

你现在的想法没有问题，也能够同过代码实现，不过你这个思路有问题，不能判断页面是否已经正常调入，在网络情况不好的时候就不好用了，而且固定等待几秒钟的方法在对应大量的用户信息录入的情况就会减慢速度。而且你这个方法在运行的时候完全没发进行别的工作了，因为会影响程序运行。

如果你能够改用另一个方法，用 Internetexplorer.Application 来实现，那么就简单多了，甚至可以做到在后台进行，没有前台界面。好处就是速度快，不存在将IE窗口开开再关上，激活窗口什么的问题。完全不影响电脑前台的使用，你可以继续干你想干的事情。

不过这需要根据页面的情况来编写。所以你最好给出地址，或者给出那个页面中关于登录这一部分的源文件代码就能帮你做了，只要有<form 到 </form> 之间的内容就够了。

Answer 2

Set a=CreateObject("WScript.shell")
set fso=createobject("scripting.filesystemobject")
login("abdef43k")
login("gf54gfew4555")

sub login(usernames)
WScript.Sleep 2000
a.run "iexplore.exe http://www.xxx.com"
WScript.Sleep 4000
a.AppActivate"朋友你好"
a.SendKeys "{TAB 9}"
a.AppActivate"朋友你好"
WScript.Sleep 1000
a.SendKeys usernames
a.SendKeys "{TAB}"
a.SendKeys "~"
wscript.sleep 3000
set f=fso.opentextfile("c:\新建文档.txt",8,false)
f.write username
f.close
end sub