论坛 › 『 提问交流 』 › 判断脚本（先锋A6与PUBWIN2007）

fjndfrog 发表于 2008-10-15 13:37:00

判断脚本（先锋A6与PUBWIN2007）

哪位高手帮忙写个脚本
先判断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 发表于 2008-10-15 13:38:21

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

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

liongodmien 发表于 2008-10-15 14:06:07

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

fjndfrog 发表于 2008-10-15 17:24:30

大哥麻烦写具体些

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

liongodmien 发表于 2008-10-15 22:28:23

原帖由 fjndfrog 于 2008-10-15 17:24 发表 http://www.autoitx.com/images/common/back.gif
大哥麻烦写具体些

判断PUBWIN登陆成功后再运行先锋 最后自动登陆
我不知道你的ＰＵＢＷＩＮ有什么窗口或进程特征啊！

fjndfrog 发表于 2008-10-17 00:05:36

下面是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 发表于 2008-10-17 08:31:58

有可能性是这样：

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 发表于 2008-10-18 00:35:18

又学习了@@@

jiamei521 发表于 2008-10-23 11:48:29

学习了:face (34):

hutong01 发表于 2008-11-1 20:58:07

好东西不段学习中

查看完整版本: 判断脚本（先锋A6与PUBWIN2007）