判断脚本（先锋A6与PUBWIN2007）

fjndfrog

哪位高手帮忙写个脚本
先判断PUBWIN2007登陆成功后再运行先锋A6  最后再运行先锋A6自动登陆

自动登陆脚本已有：
If FileExists("C:\WINDOWS\system32\sysclient\Svschost.exe") Then
    Run("C:\WINDOWS\system32\sysclient\Svschost.exe")
EndIf
While 1
    If WinActive("网吧监管系统客户端") Then
        BlockInput(1)
        $x = IniRead("C:\WINDOWS\system32\sysclient\myfile.ini", "SD", @ComputerName, "")
        If $x = '' Then Exit
        Send("{F2}" & $x & "{TAB}111111{Enter}")
        BlockInput(0)
        ExitLoop
    EndIf
    Sleep(10)
WEnd
Exit

[ 本帖最后由 fjndfrog 于 2008-10-15 13:39 编辑 ]

fjndfrog

先锋是  ("网吧监管系统客户端")
PUBWIN2007的就不知道了  可能是PUBWIN2007 客户机

[ 本帖最后由 fjndfrog 于 2008-10-15 13:52 编辑 ]

liongodmien

判断是否有某个窗口或进程用：Winexists()或ProcessExists()

fjndfrog

大哥麻烦写具体些

判断PUBWIN登陆成功后再运行先锋 最后自动登陆

liongodmien

原帖由 fjndfrog 于 2008-10-15 17:24 发表
大哥麻烦写具体些

判断PUBWIN登陆成功后再运行先锋 最后自动登陆

我不知道你的ＰＵＢＷＩＮ有什么窗口或进程特征啊！

fjndfrog

下面是PUBWIN2007自动登陆脚本 看不大懂 希望有需要的窗口或进程特征
While 60
    if WinExists("LockDlg") and WinExists("ActiveMovie Window") Then
        BlockInput(1)
        sleep(500)
        MouseClick("left")
        WinWaitActive("LockDlg","",5)
        ControlSetText("LockDlg", "", "Edit1", "admin" )
        sleep(500)
        WinWaitActive("LockDlg","",5)
        ControlSetText("LockDlg", "", "Edit2", "PUBWIN退出密码" )
        sleep(500)
        WinWaitActive("LockDlg","",5)
        ControlClick("LockDlg","","Button1")
        sleep(2000)
        if not WinExists("LockDlg") then
            BlockInput(0)
            exitloop
        EndIf
        if winexists("登录失败") Then
            WinWaitActive("登录失败","",5)
            ControlClick("登录失败","","Button1")
            BlockInput(0)
            exitloop
        endif
    EndIf
    sleep (1000)
WEnd
BlockInput(0)
if WinExists("LockDlg") then
    ;自动登陆失败后处理(如重新启动。。。。)
else
    ;自动登陆成功后处理(如批量更新)
EndIf

liongodmien

有可能性是这样：

Do
        Sleep(10)
        if WinExists("LockDlg") and WinExists("ActiveMovie Window") Then
                WinWaitClose("LockDlg")
                If winexists("登录失败") Then ContinueLoop
                ExitLoop
        EndIf
Until 0

If FileExists("C:\WINDOWS\system32\sysclient\Svschost.exe") Then Run("C:\WINDOWS\system32\sysclient\Svschost.exe")

While 1
    If WinActive("网吧监管系统客户端") Then
        BlockInput(1)
        $x = IniRead("C:\WINDOWS\system32\sysclient\myfile.ini", "SD", @ComputerName, "")
        If $x = '' Then
                        BlockInput(0)
                        Exit
                EndIf
        Send("{F2}" & $x & "{TAB}111111{Enter}")
        BlockInput(0)
        ExitLoop
    EndIf
    Sleep(10)
WEnd
Exit

[ 本帖最后由 liongodmien 于 2008-10-17 08:33 编辑 ]

xdfdnzhabo

又学习了@@@

jiamei521

学习了

hutong01

好东西不段  学习中