Browser("网易通行证").Page("网易通行证").WebButton("登 录").Click
Browser("网易通行证").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
这个是我录制的,下面我加了点导入excel数据的简单代码,见笑了
DataTable.ImportSheet "C:\a.xls" ,1 ,"Action1"
Dim i
for i=1to 4 step 1
Browser("网易通行证").Page("网易通行证").WebEdit("username").Set DataTable("p_username", dtLocalSheet)
Browser("网易通行证").Page("网易通行证").WebButton("登 录").Click
Browser("网易通行证").Dialog("Microsoft Internet Explorer").WinButton("确定").Click