[color=#ff3300]Set a=WScript.CreateObject("WScript.shell")  
a.run "[/color][url=http://wenwen.soso.com/z/sanrenxing.htm][color=#ff3300]http://wenwen.soso.com/z/sanrenxing.htm[/color][/url][color=#ff3300]" '打开页面
WScript.Sleep 5000'延时几秒，等待页面载入

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}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"[/color]

[color=#ff3300]a.Sendkeys "{ENTER}"[/color]

[color=#ff0000]  '第一段执行完毕.[/color]
[color=#ff0000] '后面就是一个循环了.不会写.嘿嘿.根据别人的改的.试过可以 。只要不出那个界面就行.[/color]
[color=#ff0000]' 如果操作不当.引起很多外链的话.请调用Ctrl+Alt+Esc（Delete）或者右击任务栏选择任务管理器.结束。wscript.项.[/color]
WScript.Sleep 5000
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 "{ENTER}"

WScript.Sleep 5000'延时几秒，等待页面载入

a.SendKeys "{TAB}"

a.SendKeys "{TAB}"
a.Sendkeys "{ENTER}"

[color=#ff0000]'一轮回完毕.     多复制就多轮回.[/color]
[color=#ff0000]
  '第一段不可以复制.复制内容如下....[/color]
     [color=#ff00cc]'WScript.Sleep 5000
     'a.SendKeys "{TAB}"
     'a.SendKeys "{TAB}"  
     'a.SendKeys "{TAB}"
     'a.SendKeys "{TAB}"  
     'a.SendKeys "{TAB}"
     'a.SendKeys "{TAB}"  
     'a.SendKeys "{TAB}"
     'a.SendKeys "{TAB}"[/color]
[color=#ff00cc]     'a.Sendkeys "{ENTER}"[/color]

[color=#ff00cc]   'WScript.Sleep 5000'延时几秒，等待页面载入

     'a.SendKeys "{TAB}"

     'a.SendKeys "{TAB}"
     'a.Sendkeys "{ENTER}"[/color]