找回密码
 加入
搜索
查看: 3592|回复: 9

判断脚本(先锋A6与PUBWIN2007)

[复制链接]
发表于 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 编辑 ]
 楼主| 发表于 2008-10-15 13:38:21 | 显示全部楼层
先锋是  ("网吧监管系统客户端")
PUBWIN2007的就不知道了  可能是PUBWIN2007 客户机

[ 本帖最后由 fjndfrog 于 2008-10-15 13:52 编辑 ]
发表于 2008-10-15 14:06:07 | 显示全部楼层
判断是否有某个窗口或进程用:Winexists()或ProcessExists()
 楼主| 发表于 2008-10-15 17:24:30 | 显示全部楼层
大哥麻烦写具体些

判断PUBWIN登陆成功后再运行先锋 最后自动登陆
发表于 2008-10-15 22:28:23 | 显示全部楼层
原帖由 fjndfrog 于 2008-10-15 17:24 发表
大哥麻烦写具体些

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

我不知道你的PUBWIN有什么窗口或进程特征啊!
 楼主| 发表于 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
发表于 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 编辑 ]
发表于 2008-10-18 00:35:18 | 显示全部楼层
又学习了@@@
发表于 2008-10-23 11:48:29 | 显示全部楼层
学习了
发表于 2008-11-1 20:58:07 | 显示全部楼层
好东西不段  学习中
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 02:24 , Processed in 0.077926 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表