判断脚本（先锋A6与PUBWIN2007）

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

哪位高手帮忙写个脚本
先判断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 发表
大哥麻烦写具体些

判断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

学习了

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

好东西不段学习中

		自动登录	找回密码
密码			加入

判断脚本（先锋A6与PUBWIN2007）

相关帖子