关于判断的问题！~`

idic754 · 发表于 2009-6-23 13:08:51

本帖最后由 idic754 于 2009-6-23 15:30 编辑

Run("V.exe");运行
WinWait("VNC Viewer : 连接详细资料");程序暂停到指定窗口为止
WinActivate("VNC Viewer : 连接详细资料");激活指定窗口
Send("192.168.1.252");自动输入IP
Send("{enter}");回车

Dim $ver
$ver = 1
Do

        If WinExists("VNC Viewer: 警告") Then ;判断是否有指定窗口
                WinActivate("VNC Viewer: 警告");激活指定窗口
                Send("{TAB}");TAB切换
                Send("{enter}");回车
        EndIf


        If WinExists("VNC 验证: 192.168.1.252 [128-bit AES Encryption]") Then
                WinActivate("VNC 验证: 192.168.1.252 [128-bit AES Encryption]");激活指定窗口
                Send("123456")
                Send("{enter}");回车

                WinWait("NEWYEAR-08");程序暂停到指定窗口为止
                WinActivate("NEWYEAR-08");激活指定窗口
                Send("123456")
                Send("{enter}");回车
                $ver = 2
        EndIf

Until $ver = 2

MsgBox(0, "", "连接成功!")

-----------------------------------------------
一个远程的软件，我想做成自动的！~测试过好几次，第一次远程会出现一个（VNC Viewer: 警告）要点是才能继续下去！以后的运行不会出现（VNC Viewer: 警告）这一步，现在就是想做个判断，可是测试了好几次都不成功！~有知道问题出在那的能不能指点下！~谢谢！~

--------------------------------------------
谢谢（都市浪子666 ）的指教！问题解决了！~`````现在上面是正确代码！只要更换自己的密码个IP就可以用了！~`

l4ever · 发表于 2009-6-23 13:56:45

VNC 可以直接命令行连接把

idic754 · 发表于 2009-6-23 14:02:01

VCN 是可以直接连接，但是第一次连接多个提示！在机器不重启的情况下第二次连接少这个（VNC Viewer: 警告）提示！如果脚本不修改第二次连接的时候会出现卡在输入密码那！~

都市浪子666 · 发表于 2009-6-23 14:10:38

用这个判断是否有窗口

if WinExists("窗口标题","窗口文本") Then
        MsgBox(0,"有窗口","有窗口")
Else
                MsgBox(0,"没有窗口","没窗口")
        EndIf

idic754 · 发表于 2009-6-23 14:25:52

测试还是不成功！~不知道是那写错了！~

idic754 · 发表于 2009-6-23 14:26:35

窗口文本是什么意思？

都市浪子666 · 发表于 2009-6-23 14:50:39

试试这个,应该可以了

Run("V.exe");运行
WinWait("VNC Viewer : 连接详细资料");程序暂停到指定窗口为止
WinActivate("VNC Viewer : 连接详细资料");激活指定窗口
Send("192.168.1.252");自动输入IP
Send("{enter}");回车



dim $ver
$ver=1
do 

if  WinExists("VNC Viewer: 警告") Then  ;判断是否有指定窗口
           WinActivate("VNC Viewer: 警告");激活指定窗口
            Send("{TAB}");TAB切换
           Send("{enter}");回车
        EndIf


if WinExists("VNC 验证: 192.168.1.252 [128-bit AES Encryption]") Then
         WinActivate("VNC 验证: 192.168.1.252 [128-bit AES Encryption]");激活指定窗口
     Send("123456")
     Send("{enter}");回车

     WinWait("NEWYEAR-08");程序暂停到指定窗口为止
     WinActivate("NEWYEAR-08");激活指定窗口
     Send("123456")
     Send("{enter}");回车
     $ver=2
 EndIf
 
Until $ver=2

MsgBox(0,"","貌似OK了")

idic754 · 发表于 2009-6-23 14:58:38

OK了！~谢谢指教！```

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

关于判断的问题！~`

本帖子中包含更多资源