UEFI引导分区盘符提取源码

xztpc

玩了一年的易语言，因为易语言不能编译64位程序，今年硬着头皮转战AU3，去年实际上就接触了，看着满屏的英文没敢涉足！现在玩了半个月了！稍微有点进步！现在主要是研究引导自动修复！来抛砖引玉，也希望能得到大家指点！

#include <File.au3>
tiquefi()
Func tiquefi()
        FileInstall("cx.exe", @ScriptDir & "\cx.exe")
        RunWait(@ComSpec & " /C " & @ScriptDir & "\cx.exe -mohong >" & @ScriptDir & "\Part.Txt", @ScriptDir, @SW_HIDE)
        $filePath = @ScriptDir & "\Part.Txt"
    $searchString = "EFI"
    If FileExists($filePath) Then
                $fileHandle = FileOpen($filePath, 0)
        Local $lineNumber = 0
        While 1
            $line = FileReadLine($fileHandle, $lineNumber)
            If @error = -1 Then ExitLoop
                        $lineNumber += 1
            Local $pos = StringInStr($line, $searchString)
            If $pos > 0 Then
                $EfiPanfu = StringRight(StringLeft($line, 5), 1)
                MsgBox(0, "找到引导分区", 'EFI分区盘符是：' & $EfiPanfu)
            EndIf
        WEnd
    EndIf
EndFunc;==>提取EFI分区盘符

haijie1223

FileInstall("cx.exe", @TempDir & "\cx.exe")
RunWait(@ComSpec & " /C " & @TempDir & "\cx.exe -mohong >" & @ScriptDir & "\Part.Txt", @ScriptDir, @SW_HIDE)
Local $Text = FileRead(@ScriptDir & "\Part.Txt")
Local $aDrv = StringRegExp($Text, '(?m)^.+?(\w:)[^\v]+?EFI', 3)
If IsArray($aDrv) Then MsgBox(0, "找到引导分区", 'EFI分区盘符是：' & $aDrv[0])

繁星

玩玩Av3再看易语言会简单点