5axp 发表于 2009-5-27 18:56:49

过滤王核心自动安装脚本

#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=12.ICO
#AutoIt3Wrapper_outfile=过滤王核心自动安装.exe
#AutoIt3Wrapper_Res_Comment=日喀则展望数码
#AutoIt3Wrapper_Res_Description=日喀则展望数码
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=ID控制台自动安装 日喀则展望数码
#Obfuscator_Parameters=12345612
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK and Cancel, Icon=Warning

Dim $WB=iniread(@ScriptDir& "\setup.ini","网吧信息","网吧名称","")
Dim $XM=iniread(@ScriptDir& "\setup.ini","网吧信息","老板姓名","")
Dim $DZ=iniread(@ScriptDir& "\setup.ini","网吧信息","网吧地址","")
Dim $DH=iniread(@ScriptDir& "\setup.ini","网吧信息","网吧电话","")

Dim $SN=iniread(@ScriptDir& "\setup.ini","过滤王安装信息","序列号","")
Dim $ID=iniread(@ScriptDir& "\setup.ini","过滤王安装信息","网吧编码","")
Dim $GL=iniread(@ScriptDir& "\setup.ini","过滤王安装信息","管理中心","")
Dim $SJ=iniread(@ScriptDir& "\setup.ini","过滤王安装信息","数据中心","")

If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(49,"过滤王安装","现在自动过滤王核心")
Select
        Case $iMsgBoxAnswer = 1 ;OK
        RUN("过滤王核心")
       
        WinWait("安装 - fgate 5.6","欢迎使用 fgate 5.6 安装向导")

    ControlClick("安装 - fgate 5.6","欢迎使用 fgate 5.6 安装向导","TButton1")
       
        WinSetTrans("安装 - fgate 5.6","",0)
       
        WinWait("安装 - fgate 5.6","许可协议")
        ControlClick("安装 - fgate 5.6","许可协议","TRadioButton1")
    ControlClick("安装 - fgate 5.6","许可协议","TButton2")
       
        WinWait("安装 - fgate 5.6","用户信息")
        ControlSetText("安装 - fgate 5.6","","TPasswordEdit1",$WB)
        ControlSetText("安装 - fgate 5.6","","TPasswordEdit2",$XM)
        ControlSetText("安装 - fgate 5.6","","TPasswordEdit3",$DZ)
        ControlSetText("安装 - fgate 5.6","","TPasswordEdit4",$DH)
    ControlClick("安装 - fgate 5.6","用户信息","TButton2")
       
        WinWait("安装 - fgate 5.6","注册信息")
        ControlSetText("安装 - fgate 5.6","","TPasswordEdit1",$SN)
        ControlSetText("安装 - fgate 5.6","","TPasswordEdit2",$ID)
        ControlSetText("安装 - fgate 5.6","","TPasswordEdit3",$GL)
        ControlSetText("安装 - fgate 5.6","","TPasswordEdit4",$SJ)
    ControlClick("安装 - fgate 5.6","注册信息","TButton2")
       
        WinWait("安装 - fgate 5.6","网卡选择")
        ControlClick("安装 - fgate 5.6","网卡选择","TButton2")
       
        WinWait("安装 - fgate 5.6","监控网段信息")
        ControlClick("安装 - fgate 5.6","监控网段信息","TButton4")
       
        WinWait("安装 - fgate 5.6","选择目标位置")
        ControlSetText("安装 - fgate 5.6","选择目标位置","TEdit1","d:\winfgate")
        ControlClick("安装 - fgate 5.6","选择目标位置","TButton5")
       
        WinWait("安装 - fgate 5.6","选择组件")
        ControlClick("安装 - fgate 5.6","选择组件","TButton5")
       
        WinWait("安装 - fgate 5.6","fgate 5.6 安装向导完成")
        ControlClick("安装 - fgate 5.6","fgate 5.6 安装向导完成","TButton5")
       
        MsgBox(4096,"过滤王安装","滤王核心安装完成,重启后运行控制台。")
       
    #Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=None, Modality=System Modal

#EndRegion --- CodeWizard generated code End ---
        Case $iMsgBoxAnswer = 2 ;Cancel

EndSelect
#EndRegion --- CodeWizard generated code End ---


Exit

hnzzlzj 发表于 2009-5-30 11:05:19

先占领沙发再说。呵呵

清清一色 发表于 2009-6-1 17:01:17

做板凳，学习了。

aidman 发表于 2009-6-4 16:58:28

学习了。.......

jisushizhe 发表于 2009-6-4 21:02:45

学习了。.......

dsya 发表于 2009-6-26 22:11:12

初学 没看大懂

skycn540 发表于 2009-6-27 08:36:45

高手啊..向高手学习！！

zhupengyue 发表于 2009-6-30 14:49:05

不知道如何用的

6732732 发表于 2009-9-4 19:47:12

先顶，再下来学习
页: [1]
查看完整版本: 过滤王核心自动安装脚本