Script pausiert einfach und lässt keine Ausführungen mehr zu

Sumale.my

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

If ProcessExists("sysprep.exe") Then
		_dragsysprepwindow()
	EndIf

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

**BugFix**

Zitat von Sumale.my

Global $alang[5][2]
Local $alang[5][2]
$alang[5][2]
$stext = "(Sysprep)"
$ifound = _arraysearch($alang, @OSLang)

Du deklarierst 2 Array mit demselben Namen, beide sind leer und versuchst dann eines nach Inhalt zu durchsuchen. Die Suche wird also immer erfolglos sein - leeres Array: Kein Fund möglich.
1. Globale Variablen deklariert man nur im Notfall innerhalb einer Funktion
2. Was meinst du, auf welches der gleichnamigen Arrays deine Funktion jetzt zugreift, das Lokale oder das Globale? (leer sind ja beide )

**alpines**

Zitat von Sumale.my

Aber dann pausiert das Script

Wo genau pausiert es denn? Es muss ja in einer Schleife stecken bleiben, aber ich sehe keine.

Außerdem kannst du nicht einfach so fahrlässig Variablen deklarieren. Global, Lokal und dann ohne die beiden.
Funktioniert das Script bei dir überhaupt wenn du es nicht kompilierst? $array[4][5] ist nämlich kein zulässiger Ausdruck.

Sumale.my

Ich habe den Fehler gefunden.
Ich habe zwei gleiche Abfragen in einer Funktion gehabt, dass hat das Problem verursacht.
Dennoch Danke.

**alpines**

Haken setzen beim nächsten Mal nicht vergessen! (1. Beitrag bearbeiten)