[求助] ：大家帮我看看我这循环有什么问题，谢谢

houna305

Sub Main
    Dim Result As Integer
    dim id As integer
    dim i As integer
   
    id=234
    'Initially Recorded: 2004-8-9  15:24:47
    'Script Name: shanchu1
   
    Window SetContext, "Caption=http://192.168.102.252:7001/adm/welcome.jsp - Microsoft Internet Explorer", ""
    Browser SetFrame,"Type=HTMLFrame;HTMLId=mainFrame",""
    Browser NewPage,"HTMLTitle=角色管理",""
   
   do
   
   HTMLLink Click, "Type=HTMLLink;HTMLText=id", ""
   PushButton Click, "Type=PushButton;Name=delete"
  
    Window SetContext, "Caption=Microsoft Internet Explorer", ""
    PushButton Click, "Text=确定"

    id=id+1
  
   loop while id<237
   
End Sub
这是删除从234到236的记录，删除一个可以，怎么做了循环，就不能执行呢

betty

houna305

不好意思，可以说明么，我是新手，多多指教啊

pcl2004_27

id没有作为变量传入
HTMLLink Click, "Type=HTMLLink;HTMLText=id", ""
应该改为
HTMLLink Click, "Type=HTMLLink;HTMLText=“+ cstr(id), ""

pcl2004_27

变量 id  
HTMLLink Click, "Type=HTMLLink;HTMLText=id", ""

这两个id是否是一个？
如果不是一个？那么你尝试一下做到大循环里边，每次打开用户管理页面，再次删除！
do
  Window SetContext, "Caption=http://192.168.102.252:7001/adm/welcome.jsp - Microsoft Internet Explorer", ""
    Browser SetFrame,"Type=HTMLFrame;HTMLId=mainFrame",""
    Browser NewPage,"HTMLTitle=角色管理",""
   HTMLLink Click, "Type=HTMLLink;HTMLText=id", ""
   PushButton Click, "Type=PushButton;Name=delete"
  
    Window SetContext, "Caption=Microsoft Internet Explorer", ""
    PushButton Click, "Text=确定"

    id=id+1
  
   loop while id<237

houna305

谢谢各位大侠，我得问题解决了，非常感谢！