[自动安装脚本生成器修改版]更新升级测试版

131738

回复  131738
不知为何，下载了新的版本的，在点击那个摄像机监视进程的图标后，代码行里没有添加监视的代 ...
5i365 发表于 2011-3-24 20:52

测试代码时，测试完成点击 Alt + F2 关闭监视程序，完整脚本是自动关闭监视程序！！！

5i365

回复 59# 131738
噢，又试了一下，只是还是不能阻止打开网页，并且安装后后，那个监视进程的框可有在任务管理器里结束才可以消失。

131738

本人是个新手，在几乎大部分的软件后都会有弹窗网页，确实很烦人的。试了上面软件，暂时还没有有效治止，本 ...
5i365 发表于 2011-3-24 20:58

新版我测试了皮皮软件，能有效阻止，你说的不是不行，除别在于这个在弹出 IE 窗口前已阻止！

结束进程目前我只会在 IE 已启动后强制关闭！

提供一个不能阻止的软件我试试！！！！

131738

回复  131738
噢，又试了一下，只是还是不能阻止打开网页，并且安装后后，那个监视进程的框可有在任务管理 ...
5i365 发表于 2011-3-24 21:06

61 楼已回复。。。。

5i365

回复 64# 131738
请问怎么传软件呀！我这里有源件

131738

回复  131738
请问怎么传软件呀！我这里有源件
5i365 发表于 2011-3-24 21:19

提供软件名称或下载地址即可。。。。

131738

回复 65# 5i365


    或回帖的地方点  高级模式

5i365

.

5i365

回复 67# 131738

#AutoIt3Wrapper_outfile = dsb_deluxe_full18_zd.exe
#AutoIt3Wrapper_Res_Description = 软件: [" & $TestPath[3] & "] 自动安装
#AutoIt3Wrapper_Res_Comment = 脚本生成于: " & $Time & "
 
#Include <D:\Documents\Desktop\Auto_Code2\Auto_Code\Resource\GuiLVTV.au3>
 
Opt("MouseCoordMode", 0)
Opt("MouseClickDelay", 250)
 
Global $hListView, $Path_Fitx, $Path_Fit, $Nem_Path
$Path_Fitx = StringInStr ( ClipGet(), ":", 2 )
If $Path_Fitx = 0 Then
        $Path_Fit = ""
Else
        $Path_Fit = ClipGet()
EndIf
If FileExists("D:\Documents\Desktop\Auto_Code2\Auto_Code\temp.txt") Then FileDelete("D:\Documents\Desktop\Auto_Code2\Auto_Code\temp.txt")
$file = FileOpen("D:\Documents\Desktop\Auto_Code2\Auto_Code\temp.txt", 1)
FileWriteLine($file, "dsb_deluxe_full18.exe")
FileWriteLine($file, "dsb_deluxe_full18_zd.exe")
FileClose($file)
 
Run("D:\Documents\Desktop\Auto_Code2\Auto_Code\ProcessMonitor.exe")
ProcessWait("ProcessMonitor.exe")

Run(@ScriptDir &  "\dsb_deluxe_full18.exe")

WinWait("Setup - Wondershare DVD Slideshow Builder Deluxe","Welcome ")
        WinActivate("Setup - Wondershare DVD Slideshow Builder Deluxe","Welcome ")
        Sleep(250)
        ControlClick("Setup - Wondershare DVD Slideshow Builder Deluxe", "","TNewButton1")

WinWait("Setup - Wondershare DVD Slideshow Builder Deluxe","License ")
        WinActivate("Setup - Wondershare DVD Slideshow Builder Deluxe","License ")
        Sleep(250)
        ControlClick("Setup - Wondershare DVD Slideshow Builder Deluxe", "","TNewRadioButton1")
        Sleep(250)
        ControlClick("Setup - Wondershare DVD Slideshow Builder Deluxe", "","TNewButton2")

WinWait("Setup - Wondershare DVD Slideshow Builder Deluxe","Select D")
        WinActivate("Setup - Wondershare DVD Slideshow Builder Deluxe","Select D")
        Sleep(250)
        ControlClick("Setup - Wondershare DVD Slideshow Builder Deluxe", "","TNewButton3")
        Sleep(250)
        ControlClick("Setup", "","")

WinWait("Setup - Wondershare DVD Slideshow Builder Deluxe","Select A")
        WinActivate("Setup - Wondershare DVD Slideshow Builder Deluxe","Select A")
        Sleep(250)
        ControlClick("Setup - Wondershare DVD Slideshow Builder Deluxe", "","TNewButton3")

WinWait("Setup - Wondershare DVD Slideshow Builder Deluxe","Ready to")
        WinActivate("Setup - Wondershare DVD Slideshow Builder Deluxe","Ready to")
        Sleep(250)
        ControlClick("Setup - Wondershare DVD Slideshow Builder Deluxe", "","TNewButton3")

WinWait("Setup - Wondershare DVD Slideshow Builder Deluxe","Completi")
        WinActivate("Setup - Wondershare DVD Slideshow Builder Deluxe","Completi")
        MouseClick ("left",190, 212, 1, 20)
        Sleep(250)
        ControlClick("Setup - Wondershare DVD Slideshow Builder Deluxe", "","TNewButton3")
FileDelete ("D:\Documents\Desktop\Auto_Code2\Auto_Code\temp.txt")
ToolTip("将延时 5 秒以监视目标程序退出后的弹窗进程!", @DesktopWidth/2, @DesktopHeight/2, "已完成 [ dsb_deluxe_full18 ] 的自动安装.", 1, 2)
Sleep ( 5000 )
Send("!{F2}");关闭进程监视

5i365

另外，问一下，版主，如果在安装软件的过程中出现已经安装的情况，并且提示，怎么用上面的软件不可以进行捕获操作呀？只能手动添加 if 语句代码吗？

131738

回复  131738
5i365 发表于 2011-3-24 21:33

这个也有弹窗吗？？？？？//我以为弹窗是中国的专利呢。。。。。

131738

回复 68# 5i365

明天试试。。。。。。

5i365

回复 71# 131738
这款软件是中国公司的，只是他们只专注作海外销售。

5i365

5i365

请问如何选择最上面的“全部安装”的下面的项目呀它的下面有一项是“基本安装”，试了多几次，不成功。