自动判断系统，自动 挂载万能驱动ISO映像自动安装驱动

Func WLKD()
        If IniRead(@ScriptDir & "\Lan.ini", "Lan", "setup", "") = 1 Then
                WLKD10()
        Else
                        If IniRead(@ScriptDir & "\Lan.ini", "Lan", "setup", "") = 2 Then
              WLKD10()
        Else
        If IniRead(@ScriptDir & "\Lan.ini", "Lan", "setup", "") = 0 Then
              WLKD7()
                EndIf
        EndIf
        EndIf
EndFunc ;=====>


Func WLKD10()
                RunWait(@ComSpec & ' /c ' & 'imdisk -a  -f D:\MHT\10.iso  -m  y:', '', @SW_HIDE)
                Sleep(3000)
                GUICtrlSetData($tsyLEB, "正在安装驱动，请稍候......")
                BlockInput(1)
                ShellExecuteWait("y:\EasyDrv7(Win10.x64).exe", "/a")
                ProcessWaitClose("EasyDrv7(Win10.x64).exe")
                Sleep(1000)
                BlockInput(0)
                RunWait(@ComSpec & ' /c ' & 'imdisk -d -m y:', '', @SW_HIDE)
                Sleep(1000)
EndFunc ;===>
Func WLKD7()
                RunWait(@ComSpec & ' /c ' & 'imdisk -a  -f D:\MHT\7.iso  -m  y:', '', @SW_HIDE)
                Sleep(3000)
                GUICtrlSetData($tsyLEB, "正在安装驱动，请稍候......")
                BlockInput(1)
                ShellExecuteWait("y:\EasyDrv7(Win7.x64).exe", "/a")
                ProcessWaitClose("EasyDrv7(Win7.x64).exe")
                Sleep(1000)
                BlockInput(0)
                RunWait(@ComSpec & ' /c ' & 'imdisk -d -m y:', '', @SW_HIDE)
                Sleep(1000)
EndFunc   ;==>WLKD7

复用代码太多，函数传参改变特定系统和文件路径值就可以了。运行.exe用 RunWait 就可以了。

Skyfree 发表于 2022-10-30 15:14
复用代码太多，函数传参改变特定系统和文件路径值就可以了。运行.exe用 RunWait 就可以了。

你试试RunWait运行exe,能否帮助精简一下？

www8899 发表于 2022-10-30 15:46
你试试RunWait运行exe,能否帮助精简一下？

把WLKD10和7里一样的代码共用，不一样的代码写成函数参数。

Skyfree 发表于 2022-10-30 18:17
把WLKD10和7里一样的代码共用，不一样的代码写成函数参数。

说得容易，但是我不会呀

等等，我看看，学习学习