怎么实现不了循环

apple69

Sub Main
    Dim Result,i As Integer

    'Initially Recorded: 2007-1-26  11:23:12
    'Script Name: 11
     i=1
    if  i<=6 then
    Window SetContext, "Caption=Program Manager", ""
    ListView DblClick, "Text=FolderView;\;ItemText=服务", "Coords=32,54"
    Window SetContext, "Type=Form;Name=FrmServer", ""
    PushButton Click, "Type=PushButton;Name=btnClose"
    i=i+1
    end if
End Sub

sidneylover

if只起到了个判断作用,用while或for语句来实现循环
while i<=6
  Window SetContext, "Caption=Program Manager", ""
    ListView DblClick, "Text=FolderView;\;ItemText=服务", "Coords=32,54"
    Window SetContext, "Type=Form;Name=FrmServer", ""
    PushButton Click, "Type=PushButton;Name=btnClose"
    i=i+1
wend

rivermen

看来编程的流程结构方面知识需要加强！！！

xzxu

可以用 for 语句实现循环
修改后程序如下 :
-------------------------------------------------

Sub Main
    Dim Resulti As Integer

    Dim n

    for n = 1 to 6

    Window SetContext, "Caption=Program Manager", ""
    ListView DblClick, "Text=FolderView;\;ItemText=服务", "Coords=32,54"
    Window SetContext, "Type=Form;Name=FrmServer", ""
    PushButton Click, "Type=PushButton;Name=btnClose"

next

End Sub