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

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

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

如果你能够改用另一个方法，用 Internetexplorer.Application 来实现，那么就简单多了，甚至可以做到在后台进行，没有前台界面。好处就是速度快，不存