【已解决】窗口激活的问题 有图 求解

superpangya

回复 15# lixiaolong

Run("C:\wodewyc\FramePkg.exe")


While 1

        Sleep(100)

                If WinActive('McAfee Agent','McAfee Agent 的安装已成功完成。') Then

                        Send("{ENTER}")

                        Exit

        EndIf

WEnd

如果目标窗口未激活，会一直循环下去？
刚才试了一下，在有弹出窗口的情况下，程序无法继续（激活目标窗口并send），关闭弹出窗口，程序反而结束退出了，而且未发送“确定”。

lixiaolong

回复 16# superpangya


如果目标窗口未激活，会一直循环下去

如果实行下代码后打开其他窗口，If WinActive('McAfee Agent', 'McAfee Agent 的安装已成功完成。')这句就不好使了
因为窗口是未激活状态，你手动点击那个窗口，让它激活，程序会继续下去

Run("C:\wodewyc\FramePkg.exe")

While 1

        Sleep(100)

        If WinActive('McAfee Agent', 'McAfee Agent 的安装已成功完成。') Then

                WinActivate('McAfee Agent', 'McAfee Agent 的安装已成功完成。')

                Send("{ENTER}")

                Exit

        EndIf

WEnd

那么换个函数吧，使用WinExists
If WinExists('McAfee Agent', 'McAfee Agent 的安装已成功完成。') Then
这个代码主要是存在'McAfee Agent', 'McAfee Agent 的安装已成功完成。'的窗口就让它激活，
不管现在是激活未激活状态

Run("C:\wodewyc\FramePkg.exe")

While 1

        Sleep(100)

        If WinExists('McAfee Agent', 'McAfee Agent 的安装已成功完成。') Then

                WinActivate('McAfee Agent', 'McAfee Agent 的安装已成功完成。')

                Send("{ENTER}")

                Exit

        EndIf

WEnd

superpangya

回复 17# lixiaolong

嗯，可以了。谢谢啊。。

aux649350702

嗯。学习了。！！

zzm0163

好贴好贴好贴好贴

23070205

关于这个，在查看帮助文件后，我得出如下结论。这个脚本是针对金山词霸写的。后边的部分，没有总标题了。也没有默认激活，怎么办？呵呵，编译成exe后，关闭其他的目录和ie等程序窗口。这个就可以被激活了。当然也就可以运行了。大家可以测试下，好用不？

Run (@ScriptDir& "\powerwordpes.34922.0.exe")

ToolTip("正在为你进行powerwordpes.31053.0 安装,请不要移动鼠标和键盘！"&@CR&"F11可以终止安装脚本！", @DesktopWidth - 460, @DesktopHeight - 120)
WinWait ( "金山词霸2010 Beta版  安装","金山词霸2010 Beta版" )
WinActivate( "金山词霸2010 Beta版  安装","金山词霸2010 Beta版" )
send("!N")

WinWait ( "金山词霸2010 Beta版  安装","许可证协议" )
WinActivate( "金山词霸2010 Beta版  安装","许可证协议" )
send("!I")

WinWait ( "金山词霸2010 Beta版  安装","选择安装位置" )
WinActivate( "金山词霸2010 Beta版  安装","选择安装位置" )
ControlSetText("金山词霸2010 Beta版  安装","选择安装位置","Edit1","C:\Program Files\Kingsoft\PowerWord PE")
send("!I")

WinWait ( "金山词霸2010 Beta版  安装","安装完成" )
WinActivate( "金山词霸2010 Beta版  安装","安装完成" )
send("!N")
Sleep(4000);只是为了有些脚本会打开ie，而加入了下面5行。如需要可以取消前面的分号。以便代码能收效。
$PID = ProcessExists("iexplore.exe")
If $PID Then ProcessClose($PID)
Sleep(1000)

WinWait ( "[active]", "全真情景的实用句库，包含：" )
WinActivate( "[active]","全真情景的实用句库，包含：" )
send("!N")

WinWait ("[active]","键盘轻松唤出或隐藏写作助手：" )
WinActivate("[active]","键盘轻松唤出或隐藏写作助手：" )
send("!N")

WinWait ("[active]","屏幕取词划译设置：" )
WinActivate("[active]","屏幕取词划译设置：" )
MouseClick ( "left",33, 260, 1 )
send("!N")

WinWait ("[active]","汉语功能" )
WinActivate("[active]","汉语功能" )
send("!N")

WinWait ("[active]","1.  免费下载本地的专业独立词典包，优" )
WinActivate("[active]","1.  免费下载本地的专业独立词典包，优" )
send("!N")

WinWait ("[active]","参与用户体验改善计划" )
WinActivate("[active]","参与用户体验改善计划" )
MouseClick ( "left",38, 247, 1 )
MouseClick ( "left",38, 268, 1 )
send("!F")

hzcjd

ygs6e4xys4xe6ysx4y6s6y

转角遇到囜

原来是这样，明白了！