Hallo zusammen,
mein Script startet und führt die ersten Aufgaben durch. Aber dann pausiert das Script und kein Button oder Menüitem führt eine Aktion aus.
Kann mir jemand das Script anpassen, so das dieser Fehler behoben ist und kurz erklären woran das lag?
Und das Fenster, wird auch nicht verschoben
Spoiler anzeigen
AutoIt
Func _dragsysprepwindow()
Global $alang[5][2]
Local $alang[5][2]
$alang[5][2]
$stext = "(Sysprep)"
$ifound = _arraysearch($alang, @OSLang)
If $ifound <> -1 Then $stext = $alang[$ifound][1]
$hwnd = WinGetHandle("[CLASS:#32770]", $stext)
$apos = WinGetPos($hwnd)
WinMove($hwnd, "", @DesktopWidth - $apos[2] - 15, @DesktopHeight - $apos[3] - (@DesktopHeight - 267 - 15))
EndFunc
Alles anzeigen
Hier das Script:
Spoiler anzeigen
AutoIt
Opt("GUIResizeMode", $gui_dockleft)
FileCreateShortcut(@WorkingDir & "WTP\asus-wtp\bin\UploadTool\UploadTool.exe", @WorkingDir & "WTP\finaltest\UploadTool.lnk", @WorkingDir & "WTP\asus-wtp\bin\UploadTool\")
FileCreateShortcut(@WorkingDir & "WTP\asus-wtp\bin\AsusWTP.exe", @WorkingDir & "WTP\finaltest\DiagEG.lnk", @WorkingDir & "WTP\asus-wtp\bin\")
Local $aarray = 0
RunWait(@WorkingDir & "WTP\finaltest\exbios.bat")
If NOT _filereadtoarray(@WorkingDir & "WTP\finaltest\exbios.txt", $aarray, 0) Then
MsgBox($mb_systemmodal, "", "There was an error reading the exbios file. @error: " & @error)
EndIf
Local $biosmodel = StringSplit($aarray[1], ".")
Local $model = StringStripWS($biosmodel[1], 8)
Local $bios = StringStripWS($biosmodel[2], 8)
#Region ### START Koda GUI section ### Form=
$final = GUICreate("Final Test Tools", 348, 357, 188, 140)
$menuextra = GUICtrlCreateMenu("Extras")
$backlightflash = GUICtrlCreateMenuItem("Keyboard Backlight Flash", $menuextra)
$batmonitor = GUICtrlCreateMenuItem("Battery Test", $menuextra)
$aspowercfg = GUICtrlCreateMenuItem("AsPowerCfg", $menuextra)
$audiotools = GUICtrlCreateMenuItem("AudioTools", $menuextra)
$uninstaller = GUICtrlCreateMenuItem("Deinstallation", $menuextra)
$menumodel = GUICtrlCreateMenu("MODEL: " & $model)
$findkeydef = GUICtrlCreateMenuItem("Tastaturlayouts", $menumodel)
$menubios = GUICtrlCreateMenu("BIOS: " & $bios)
$checkbios = GUICtrlCreateMenuItem("Nachprüfen", $menubios)
$fixbios = GUICtrlCreateMenuItem("BIOS-File FIX", $menubios)
$sortbios = GUICtrlCreateMenuItem("Bios Ordner sortieren", $menubios)
$winflash = GUICtrlCreateMenuItem("WinFlash ausführen", $menubios)
$menusystem = GUICtrlCreateMenu("SYSTEM: " & @CPUArch)
$menuhelp = GUICtrlCreateMenu("?")
$license = GUICtrlCreateMenuItem("Lizenz", $menuhelp)
$team = GUICtrlCreateMenuItem("Final Angels", $menuhelp)
$info = GUICtrlCreateMenuItem("Info", $menuhelp)
$group1 = GUICtrlCreateGroup("Final Test Tools", 8, 8, 329, 121)
$button1 = GUICtrlCreateButton("Start Final Test", 16, 32, 91, 41)
$button2 = GUICtrlCreateButton("AsusWTP", 72, 80, 91, 41)
$button3 = GUICtrlCreateButton("Windows Active", 176, 80, 91, 41)
$button4 = GUICtrlCreateButton("UploadTool", 224, 32, 91, 41)
$button5 = GUICtrlCreateButton("2ND Injection", 120, 32, 91, 41)
$group2 = GUICtrlCreateGroup("SN / KEY", 8, 136, 153, 169)
$button6 = GUICtrlCreateButton("ACTIVATE /ATO", 24, 160, 123, 41)
$button7 = GUICtrlCreateButton("KEY RESET (OA30)", 24, 208, 123, 41)
$button8 = GUICtrlCreateButton("SN BURNING", 24, 256, 123, 41)
$group3 = GUICtrlCreateGroup("Seconds", 184, 136, 153, 169)
$button9 = GUICtrlCreateButton("BATTERIE EATER", 200, 160, 123, 41)
$button10 = GUICtrlCreateButton("AUTOTIMER", 200, 208, 123, 41)
$button11 = GUICtrlCreateButton("FIND WTP", 200, 256, 123, 41)
$version = GUICtrlCreateLabel("v2 Beta", 56, 312, 41, 17)
GUICtrlSetColor($version, $color_red)
$copy = GUICtrlCreateLabel("(c) by Benjamin Böhnke", 200, 312, 116, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$bioscompare = StringRegExp(FileRead(@WorkingDir & "WTP\finaltest\NB_BIOS.txt"), $model & ".*?\ = (\d+)", 3)
If NOT ($bios = $bioscompare[0]) Then
$bios_check = MsgBox(4 + 48, "Nicht aktuell", "Bios aktualisieren" & @CRLF & "AKTUELL: " & $bios & @CRLF & "NEU: " & $bioscompare[0] & @CRLF & "WinFlash ausführen ?")
GUICtrlSetColor($bios, $color_red)
Switch $bios_check
Case 6
_winflash()
Case 7
Case 2
EndSwitch
EndIf
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
Exit
Case $findkeydef
_findkeydef()
Case $checkbios
_checkbios()
Case $fixbios
_fixbios()
Case $sortbios
ShellExecute(@WorkingDir & "WTP\finaltest\filetime\NewFileTime_x64.exe")
Case $winflash
_winflash()
Case $backlightflash
_backlightflash()
Case $batmonitor
_batmonitor()
Case $aspowercfg
ShellExecute(@WorkingDir & "WTP\finaltest\AsPowerCfg\AsPowerCfg_BAT.exe")
Case $audiotools
_audiotools()
Case $uninstaller
ShellExecute(@WorkingDir & "WTP\finaltest\appwizcontrol.bat")
Case $button1
_button1()
Case $button5
_button5()
Case $button4
ShellExecute(@WorkingDir & "WTP\finaltest\UploadTool.lnk")
Case $button2
ShellExecute(@WorkingDir & "WTP\finaltest\DiagEG.lnk")
Case $button3
ShellExecute(@WorkingDir & "WTP\WindowsActive\WindowsActive.exe")
Case $button6
ShellExecute(@WorkingDir & "WTP\finaltest\slmgr.bat")
Case $button7
_oa30()
Case $button8
ShellExecute(@WorkingDir & "WTP\finaltest\snburn.bat")
Case $button9
ShellExecute(@WorkingDir & "WTP\finaltest\bateater\BEPro.exe")
Case $button10
ShellExecute(@WorkingDir & "WTP\finaltest\time.bat")
Sleep(1000)
ShellExecute(@WorkingDir & "WTP\finaltest\time.bat")
Case $button11
ShellExecute(@WorkingDir & "WTP\finaltest\findwtp\FindWTPresult.exe")
Case $license
ShellExecute("notepad.exe", @WorkingDir & "WTP\finaltest\License.txt")
Case $team
MsgBox(64, "Das aktuelle Team", "Final Angels" & @CRLF & @CRLF & "Benny Böhnke" & @CRLF & "Daniel Agapov" & @CRLF & "Engin Tasbilek" & @CRLF & "Mathias Pernitzki" & @CRLF & "Hrvoje Majanovic")
Case $info
ShellExecute("notepad.exe", @WorkingDir & "WTP\finaltest\info.txt")
Case $final
EndSwitch
WEnd
Func _findkeydef()
$keydefus = @WorkingDir & "WTP\asus-wtp\bin\keydef\keydef" & $model & "us.ini"
$keydefeu = @WorkingDir & "WTP\asus-wtp\bin\keydef\keydef" & $model & "eu.ini"
$ifileexistsus = FileExists($keydefus)
$ifileexistseu = FileExists($keydefeu)
If $ifileexistsus Then
_winapi_shellopenfolderandselectitems($keydefus)
ShellExecute($keydefus)
ElseIf $ifileexistseu Then
_winapi_shellopenfolderandselectitems($keydefeu)
ShellExecute($keydefeu)
Else
MsgBox($mb_systemmodal, "", "Cant find US or EU keydef-File. Only JP or nothing.")
EndIf
EndFunc
Func _checkbios()
If NOT ($bios = $bioscompare[0]) Then
$biosold = MsgBox(4 + 48, "Nicht aktuell", "Bios aktualisieren" & @CRLF & "AKTUELL: " & $bios & @CRLF & "NEU: " & $bioscompare[0] & @CRLF & "Biso aktualisieren und WinFlash ausführen ?")
Select
Case $biosold = 6
_winflash()
Case $biosold = 1
EndSelect
Else
MsgBox(0 + $mb_iconinformation, "Aktuell", "Bios ist aktuell !" & @CRLF & "VERSION: " & $bios)
EndIf
EndFunc
Func _winflash()
If FileExists("C:\Program Files (x86)\ASUS\WinFlash\WinFlash.exe") Then
MsgBox(64 + $mb_iconinformation, "Installiert", "WinFlash ist installiert und wird ausgeführt.")
FileCreateShortcut("C:\Program Files (x86)\ASUS\WinFlash\WinFlash.exe", @WorkingDir & "WTP\finaltest\WinFlash.lnk", "C:\Program Files (x86)\ASUS\WinFlash\")
Sleep(500)
ShellExecute(@WorkingDir & "WTP\finaltest\WinFlash.lnk")
Else
MsgBox(64, "Nicht vorhanden", "WinFlash wird nun installiert")
ShellExecute(@WorkingDir & "WTP\finaltest\winflash_install\Setup.exe")
EndIf
EndFunc
Func _fixbios()
Switch MsgBox(3, "BIOS-Fix", "Möchtest du das BIOS-File korrigieren?")
Case 6
$rc = FileCopy(@WorkingDir & "WTP\finaltest\NB_BIOS.txt", @WorkingDir & "WTP\asus-wtp\bin\conf\", 1)
If $rc > 0 Then
MsgBox(64, "OK!", "BIOS-File erfolgreich korrigiert!")
Else
MsgBox(48, "Error", "BIOS-FILE konnte nicht korrigiert werden")
EndIf
Case 7
Case 2
EndSwitch
EndFunc
Func _backlightflash()
If NOT @CPUArch = "X86" Then
MsgBox(64, "Keyboard Backlight Flasher", @CPUArch & " Variante starten")
ShellExecute(@WorkingDir & "WTP\finaltest\kbBacklightFlash.bat")
Else
MsgBox(64, "Keyboard Backlight Flasher", @CPUArch & " Variante starten")
ShellExecute(@WorkingDir & "WTP\finaltest\kbBacklightFlash64.bat")
EndIf
EndFunc
Func _batmonitor()
FileCreateShortcut(@WorkingDir & "WTP\asus-wtp\advance_test\BatMonitor.exe", @WorkingDir & "WTP\finaltest\BatMonitor.lnk", @WorkingDir & "WTP\asus-wtp\bin\")
Sleep(500)
ShellExecute(@WorkingDir & "WTP\finaltest\BatMonitor.lnk")
EndFunc
Func _audiotools()
$realtek = "C:\Program Files\Realtek\Audio\HDA\RAVCpl64.exe"
$smartaudio = "C:\Program Files\CONEXANT\SAII\SmartAudio.exe"
$ifileexistsrealtek = FileExists($realtek)
$ifileexistssmartaudio = FileExists($smartaudio)
If $ifileexistsrealtek Then
ShellExecute($realtek)
ElseIf $ifileexistssmartaudio Then
ShellExecute($smartaudio)
Else
MsgBox(48, "Überprüfen", "Möglicherweise kein Audiotool vorhanden!")
EndIf
EndFunc
Func _button1()
ShellExecute(@WorkingDir & "WTP\finaltest\time.bat")
Sleep(6000)
ShellExecute(@WorkingDir & "WTP\finaltest\time.bat")
Sleep(2000)
ShellExecute(@WorkingDir & "WTP\finaltest\DisableLID.exe")
Sleep(2000)
ShellExecute(@WorkingDir & "WTP\finaltest\DisableLID_XP.exe")
Sleep(2000)
ShellExecute(@WorkingDir & "WTP\finaltest\nbsettings.bat")
Sleep(2000)
ShellExecute(@WorkingDir & "WTP\finaltest\DiagEG.lnk")
Sleep(3000)
ShellExecute(@WorkingDir & "WTP\finaltest\nbsettings.bat")
Sleep(20000)
Switch @OSVersion
Case "WIN_10"
ShellExecute(@WorkingDir & "WTP\WindowsActive\WindowsActive.exe")
_dragwindowsactivewindow()
Case "WIN_81"
ShellExecute(@WorkingDir & "WTP\WindowsActive\WindowsActive.exe")
_dragwindowsactivewindow()
Case "WIN_8"
ShellExecute(@WorkingDir & "WTP\WindowsActive\WindowsActive.exe")
_dragwindowsactivewindow()
EndSwitch
If ProcessExists("FINALTESTv2.exe") Then
_dragfinaltesttoolswindow()
EndIf
If ProcessExists("sysprep.exe") Then
_dragsysprepwindow()
EndIf
EndFunc
Func _dragsysprepwindow()
Global $alang[5][2]
Local $alang[5][2]
$alang[5][2]
$stext = "(Sysprep)"
$ifound = _arraysearch($alang, @OSLang)
If $ifound <> -1 Then $stext = $alang[$ifound][1]
$hwnd = WinGetHandle("[CLASS:#32770]", $stext)
$apos = WinGetPos($hwnd)
WinMove($hwnd, "", @DesktopWidth - $apos[2] - 15, @DesktopHeight - $apos[3] - (@DesktopHeight - 267 - 15))
EndFunc
Func _dragwindowsactivewindow()
WinWait("[CLASS:#32770; TITLE:WindowsActive]")
$hwnd = WinGetHandle("[CLASS:#32770; TITLE:WindowsActive]")
$apos = WinGetPos($hwnd)
WinMove($hwnd, "", @DesktopWidth - $apos[2] - 15, @DesktopHeight - $apos[3] - (@DesktopHeight - 284 - 267 - 10 - 15))
EndFunc
Func _dragfinaltesttoolswindow()
WinWait("[TITLE:Final Test Tools]")
$hwnd = WinGetHandle("[TITLE:Final Test Tools]")
$apos = WinGetPos($hwnd)
WinMove($hwnd, "", @DesktopWidth - $apos[2] - (@DesktopWidth - 329 - 12), @DesktopHeight - $apos[3] - (@DesktopHeight - 499 - 269 - 25))
WinWait("[CLASS: AutoIt v3 GUI; TITLE:Final Test Tools]")
$hwnd = WinGetHandle("[CLASS: AutoIt v3 GUI; TITLE:Final Test Tools]")
$apos = WinGetPos($hwnd)
WinMove($hwnd, "", @DesktopWidth - $apos[2] - (@DesktopWidth - 329 - 12), @DesktopHeight - $apos[3] - (@DesktopHeight - 499 - 269 - 25))
EndFunc
Func _button5()
Local $afilelist = _filelisttoarray("C:\Test Report\Detailed report\", "*")
If @error = 1 Then
MsgBox(52, "Pfadfehler", "Der Pfad scheint falsch zu sein!")
Exit
EndIf
If @error = 4 Then
MsgBox(52, "Keine Seriennummer", "Keine Seriennummer gefunden" & @CR & "Scheinbar ist keine Datei erstellt worden.")
Exit
EndIf
$sfile = $afilelist[1]
$sfile = StringRegExpReplace($sfile, "\.[^.]+$", "")
$array = StringSplit($sfile, "\")
$serial = StringTrimRight($array[$array[0]], 0)
$serial_final = StringReplace($serial, "-1", "")
MsgBox(64, "Zwischenablage", "SN: " & $serial_final & @CR & "Wurde in die Zwischenablage kopiert!")
ClipPut($serial_final)
EndFunc
Func _oa30()
Switch MsgBox(52, "Windows Aktivierung", "Möchtest du den Key für eine Windows Aktivierung löschen?")
Case 6
ShellExecute(@WorkingDir & "WTP\finaltest\keyReset.bat")
Case 7
Case 2
EndSwitch
EndFunc
Alles anzeigen
LG