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

Au3编程学习2022-10-29 17:05重庆

708

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