Opt("WinTitleMatchMode", 2) $file = FileOpenDialog("選擇點字檔案: ", "@WorkingDir" & "\", "Text files (*.brl;*.cbe)") If NOT $file Then Exit Run("c:\\wcbe\\wcbe " & $file) Func check() $text = ControlGetText("英文", "", "Edit1") $line = StringSplit($text, @CR) $error = 0 for $i = 1 To $line[0]-1 If StringLen($line[$i]) > 41 Then $error = 1 Beep() ExitLoop EndIf Next If $error Then Send("^g" & String($i) & "{Enter}") EndFunc HotKeySet("!c","check") While ProcessExists("Wcbe.exe") Wend