问问三人行投票代码.--vbs

Set a=WScript.CreateObject("WScript.shell")  
a.run "http://wenwen.soso.com/z/sanrenxing.htm" '打开页面
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}"

a.Sendkeys "{ENTER}"
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}"
'------------------------------------------------
'一轮回完毕.     多复制就多轮回.

  '第一段不可以复制.复制内容如下....
     '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}"

     '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}"
'-------------------------------------
'保存为. ----（名字.vbs）
尽量不要复制太多.有时候会连接出错。太多-----嘿嘿.
'如果没有正确连接进去。请调用任务管理器.在进程管理里面.结束wscrip.进程.

呕吼