1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. oh-ha-2

Beiträge von oh-ha-2

  • Altes Skript komplett neu machen?

    • oh-ha-2
    • 16. Dezember 2016 um 06:32

    Na das läuft hier eindeutig in die Richtung neu machen.
    Werde ich dann wohl neu machen, auch wenn es von der Zeit her echt knapp ist.

    Edit:
    @Alina das mit den Batch kenne ich auch noch, hatte mich mit Wbat von Horst Schaeffer's rumgeschlagen, da blicke ich heute aber auch nicht mehr durch.

    Danke euch
    oh-ha-2

  • Altes Skript komplett neu machen?

    • oh-ha-2
    • 15. Dezember 2016 um 20:30

    Danke für eure Antworten,


    jo das Skript rennt so weit einwandfrei mit den dazu gehörigen Dateien und Programmen wie zB Notepad++ 7zip usw.
    Es ist mir einfach nur zu Überladen, cmd geschichte und 7zip kann da raus und noch ein paar andere Dinge, hat wohl auch den ein oder anderen Bug der aber nicht so ins Gewicht fällt, habe das Programm nur mit meinen Kumpel in gebrauch gehabt vor ein paar Jahren.

    Dieses Skript war aber auch nur als Beispiel gedacht, ist nicht gerade sauber geschrieben und überladen.
    Deswegen wollte ich nur mal wissen wie ihr mit solchen "Werken" umgeht.

    Habe am anfang auch immer versucht die Skripte die ich brauche an den neueren Versionen von Autoit anzupassen, das lasse ich inzwischen und mache es so oder so ähnlich wie Alina.
    Lernen würde ich schon noch was dabei nur dafür würde mir dann aber auch die Zeit fehlen. Bin Beruflich leider zu sehr eingebunden um dafür noch groß Zeit zu haben.

    Edit:
    Hehe, jo mit den Arrays hatte ich damals echt meine Probleme gehabt :rolleyes: das ist jetzt aber schon viel besser geworden. :thumbup:

    Gruß
    oh-ha-2

  • Altes Skript komplett neu machen?

    • oh-ha-2
    • 15. Dezember 2016 um 08:24

    Hallo,

    habe hier ein altes Skript rumliegen das ich nun wieder gebrauchen könnte.

    Spoiler anzeigen
    AutoIt: ADBlog
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Constants.au3>
    #include <File.au3>
    #include <Array.au3>
    #include <Date.au3>
    #include <ComboConstants.au3>
    #include <GUIListBox.au3>
    #include <ScrollBarConstants.au3>
    #include <GuiEdit.au3>
    #include <GuiTab.au3>
    #include <Date.au3>
    #include <GuiIPAddress.au3>
    Const $wbemFlagReturnImmediately = 0x10
    Const $wbemFlagForwardOnly = 0x20
    Global $pid, $auswahl, $apps
    Global $speicherlog
    Global $pmmain, $batchimut
    Global $cmdmain
    Global $cmdbefehl
    Global $logcombo1,$logcombo2, $logcombo3
    Global $Logcat_ini_pfad = (@ScriptDir & '\Data\logcat.ini')
    Global $cmd_uebergabe = 0
    Global $ausw_allerlei, $allerlei
    Global $Edit_pm_3
    Global $auswahl
    Global $konsole_cmd = 'off'
    Global $Button2, $Button3, $Button6, $Form1
    Global $cmdcombo1
    			Local $pid = ProcessExists("adb.exe")
    		If $pid > 0 Then
    			ProcessClose($pid)
    		EndIf
    #Region ### START Koda GUI section ### Form=
    		Global $Form1 = GUICreate("ADBlog", 743, 558, 673, 177, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
    		Global $Button1 = GUICtrlCreateButton("Beenden", 660, 524, 75, 22)
    		Global $Group1 = GUICtrlCreateGroup("Auswahl", 8, 2, 297, 548)
    		Global $Group2 = GUICtrlCreateGroup("logcat", 16, 166, 281, 177)
    		Global $Button8 = GUICtrlCreateButton("Ausführen", 224, 251, 67, 22)
    		Global $Label5 = GUICtrlCreateLabel("adb Logcat", 25, 188, 58, 17)
    		Global $Combo1 = GUICtrlCreateCombo("", 140, 186, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    		Global $Combo2 = GUICtrlCreateCombo("", 140, 223, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    		Global $Label3 = GUICtrlCreateLabel("Optionen", 88, 188, 50, 17)
    		Global $Label4 = GUICtrlCreateLabel("Filter", 94, 225, 26, 17)
    		Global $Label7 = GUICtrlCreateLabel("adb Logcat", 24, 226, 58, 17)
    		Global $Combo3 = GUICtrlCreateCombo("", 140, 255, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    		Global $Label10 = GUICtrlCreateLabel("Priorität", 94, 257, 42, 17)
    		Global $Label11 = GUICtrlCreateLabel("adb Logcat", 24, 258, 58, 17)
    		Global $Label2 = GUICtrlCreateLabel("adb Logcat zusatz Filter", 24, 311, 118, 17)
    		Global $Combo6 = GUICtrlCreateCombo("", 140, 308, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    		Global $Button6 = GUICtrlCreateButton("-b", 164, 281, 27, 22)
    		Global $Label8 = GUICtrlCreateLabel("Schalter", 116, 285, 43, 17)
    		GUICtrlCreateGroup("", -99, -99, 1, 1)
    		Global $Group4 = GUICtrlCreateGroup("pm", 200, 346, 97, 53)
    		Global $Button13 = GUICtrlCreateButton("Ausführen", 224, 366, 67, 22)
    		GUICtrlCreateGroup("", -99, -99, 1, 1)
    		Global $Group5 = GUICtrlCreateGroup("Allerlei", 16, 101, 281, 57)
    		Global $Button5 = GUICtrlCreateButton("Ausführen", 224, 120, 67, 22)
    		Global $Combo4 = GUICtrlCreateCombo("Allerlei", 20, 119, 169, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    		GUICtrlCreateGroup("", -99, -99, 1, 1)
    		Global $Group3 = GUICtrlCreateGroup("dumpsys", 16, 21, 281, 77)
    		Global $Combo10 = GUICtrlCreateCombo("Vorauswahl", 20, 38, 169, 25, BitOR($GUI_SS_DEFAULT_COMBO,$WS_HSCROLL))
    		Global $Label6 = GUICtrlCreateLabel("alle Befehle", 31, 75, 56, 15)
    		Global $Button14 = GUICtrlCreateButton("neu Einlesen", 224, 39, 67, 22)
    		Global $Button9 = GUICtrlCreateButton("bugreport", 91, 70, 75, 22)
    		Global $Button2 = GUICtrlCreateButton("Ausführen", 224, 70, 67, 22)
    		GUICtrlCreateGroup("", -99, -99, 1, 1)
    		Global $Label1 = GUICtrlCreateLabel("als Batch speichern", 12, 462, 98, 17)
    		Global $Button17 = GUICtrlCreateButton("Ausführen", 224, 509, 67, 22)
    		Global $Checkbox2 = GUICtrlCreateCheckbox("zip gepackt", 112, 457, 69, 17)
    		Global $Input2 = GUICtrlCreateInput("", 10, 433, 289, 22)
    		GUICtrlSetFont(-1, 8, 400, 2, "AvantGarde Bk BT")
    		Global $Label15 = GUICtrlCreateLabel("Diesen Befehl", 14, 413, 106, 17)
    		Global $Label9 = GUICtrlCreateLabel("Name *.bat u. Logtext", 12, 513, 106, 17)
    		Global $Input3 = GUICtrlCreateInput("Testlog", 120, 509, 97, 21)
    		Global $Label16 = GUICtrlCreateLabel("Name  der *.zip", 12, 485, 77, 17)
    		Global $Input4 = GUICtrlCreateInput("Log", 96, 481, 121, 21)
    		Global $Group6 = GUICtrlCreateGroup("CMD", 18, 346, 97, 53)
    		Global $Button3 = GUICtrlCreateButton("Ausführen", 35, 365, 67, 22)
    		GUICtrlCreateGroup("", -99, -99, 1, 1)
    		GUICtrlCreateGroup("", -99, -99, 1, 1)
    		Global $Edit1 = GUICtrlCreateEdit("", 312, 8, 425, 453)
    		GUICtrlSetData(-1, "")
    		Global $Button4 = GUICtrlCreateButton("Log Speichern", 312, 468, 75, 22)
    		Global $Button7 = GUICtrlCreateButton("Log Abbruch", 488, 468, 75, 22)
    		Global $Label12 = GUICtrlCreateLabel("Created by jojono", 7, 543, 67, 13)
    		GUICtrlSetFont(-1, 6, 400, 0, "Calibri")
    		Global $Button12 = GUICtrlCreateButton("Log Leeren", 660, 468, 75, 22)
    		Global $Button16 = GUICtrlCreateButton("Öffnen", 312, 524, 75, 22)
    		Global $Label13 = GUICtrlCreateLabel("Log in Notepad++", 312, 508, 85, 15)
    		Global $Edit2 = GUICtrlCreateEdit("", 430, 496, 189, 49, BitOR($ES_CENTER,$ES_WANTRETURN,$WS_BORDER))
    		GUICtrlSetData(-1, "")
    		GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    			$tCur = @MDAY & '_' & @MON & '_' & @YEAR & '_' & @HOUR & "_" & @MIN & "_" & @SEC
    			GUICtrlSetData($Input4, $tCur)
    			GUICtrlSetData($Combo10, 'SurfaceFlinger|accessibility|account|activity|alarm|appwidget|audio|backup|battery'& _
    			'|batteryinfo|clipboard|connectivity|content|cpuinfo|device_policy|devicestoragemonitor|diskstats'& _
    			'|dropbox|entropy|hardware|input_method|iphonesubinfo|isms|location|media.audio_flinger|media.audio_policy'& _
    			'|media.player|meminfo|mount|netstat|network_management|notification|package|permission|phone|power|reboot|screenshot'& _
    			'|search|sensor|simphonebook|statusbar|telephony.registry|throttle|usagestats|vibrator|wallpaper|wifi|window')
    			GUICtrlSetData($Combo1,'c|d|g|s|v| ')
    			GUICtrlSetData($Combo2,'brief |process|tag|raw|time|threadtime|long| ')
    			GUICtrlSetData($Combo3,'Verbose |Debug|Info|Warning|Error|Fatal|Silent| ')
    			GUICtrlSetData($Combo4,'Screenshot|top|CPU auslastung top 10|build.prop|/sys/devices/system/cpu/|CPU Max|getprop|Prozesse|system_apps|Anwender_apps')
    			GUICtrlSetData($Combo6,'radio|events|main| ')
    Func wahl()
    			GUICtrlSetData($Input3, 'allerlei')
    			$allerlei = GUICtrlRead($Combo4)
    			GUICtrlSetData($Input2, $allerlei)
    		If $allerlei = 'Screenshot' Then
    			sceen()
    		EndIf
    			If $allerlei = 'CPU auslastung top 10' Then
    				$ausw_allerlei = 'adb shell top -m 10'
    				auswahl_oeffnen()
    			EndIf
    				If $allerlei = 'build.prop' Then
    					$ausw_allerlei = 'adb.exe pull /system/build.prop'
    					auswahl_oeffnen()
    				EndIf
    					If $allerlei = '/sys/devices/system/cpu/' Then
    						$ausw_allerlei = 'adb shell ls -l -a -R /sys/devices/system/cpu/'
    						auswahl_oeffnen()
    					EndIf
    						If $allerlei = 'getprop' Then
    							$ausw_allerlei = 'adb shell getprop'
    							auswahl_oeffnen()
    						EndIf
    							If $allerlei = 'system_apps' Then
    								$ausw_allerlei = 'adb shell ls /system/app/'
    								auswahl_oeffnen()
    							EndIf
    								If $allerlei = 'Anwender_apps' Then
    									$ausw_allerlei = 'adb shell ls /data/app/'
    									auswahl_oeffnen()
    								EndIf
    									If $allerlei = 'top' Then
    										$ausw_allerlei = 'adb shell top'
    										auswahl_oeffnen()
    									EndIf
    										If $allerlei = 'Prozesse' Then
    											$ausw_allerlei = 'adb shell ps'
    											auswahl_oeffnen()
    										EndIf
    											If $allerlei = 'CPU Max' Then
    												$ausw_allerlei = 'adb shell cat /sys/devices/system/cpu/cpu0/cpufreq/scaling_cur_freq > dummy.txt'
    												auswahl_oeffnen()
    											EndIf
    EndFunc;wahll
    Func auswahl_oeffnen()
    			GUICtrlSetBkColor($Edit_pm_3, 0x9966FF)
    			GUICtrlSetData($Edit_pm_3,'Arbeite')
    			GUICtrlSetData($Input2, $ausw_allerlei)
    			;GUICtrlSetData($Edit1, 'Bitte warten' & @CRLF &'Der Log kann über Abbruch beendet werden.' )
    			$apps = (@ScriptDir & "\Data\1.bat")
    			$appsbat = FileOpen($apps, 2)
    		If $appsbat = -1 Then
    			MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    			Exit
    		EndIf
    			FileWrite($appsbat, '@echo off' & @CRLF)
    			FileWrite($appsbat, 'cd Data/' & @CRLF)
    			FileWrite($appsbat, $ausw_allerlei & @CRLF)
    			FileWrite($appsbat, 'exit' & @CRLF)
    			FileClose($appsbat)
    	lesen()
    		If $allerlei = 'build.prop' Then
    				RunWait($appsbat, "", @SW_HIDE, 10)
    				$file = (@ScriptDir & '/Data/build.prop')
    				$count=_FileCountLines($file)
    			For $i=1 To $count
    				$read=FileReadLine($file,$i)
    				GUICtrlSetData($Edit1, $read &  @CRLF,"@CRLF")
    			Next
    		EndIf
    			GUICtrlSetBkColor($Edit_pm_3, 0xFFFFFF)
    			GUICtrlSetData($Edit_pm_3,'Bereit')
    EndFunc;auswahl_oeffnen
    Func pm()
    			GUICtrlSetData($Input3, 'pm')
    			$allegui_batch = 'pm'; zur auswahl bei der batcherstellung
    			Local $sizemain = WinGetPos($Form1)
    		If $sizemain[0] < 300 Then
    			$positionx = 50
    		Else
    			$positionx = $sizemain[0] - 255
    		EndIf
    			If $sizemain[1] < 10 Then
    				$position_y = 50
    			Else
    				$position_y = $sizemain[1] + 10
    			EndIf
    #Region ### START Koda GUI section ### Form=
    			$pmmain = GUICreate("adb shell pm", 240, 257, $positionx +300, $position_y +100, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE,$WS_EX_LAYERED,$WS_EX_COMPOSITED))
    			Global $Label12 = GUICtrlCreateLabel("Created by jojono", 5, 245, 59, 9)
    			GUICtrlSetFont(-1, 6, 400, 0, "Calibri")
    			Global $Schalter_pm1 = GUICtrlCreateButton("Beenden", 159, 213, 75, 22)
    			Global $Group1 = GUICtrlCreateGroup("", 3, 1, 233, 177)
    			Global $Label_pm1 = GUICtrlCreateButton("packages", 5, 10, 60, 17)
    			Global $Schalter_pm2 = GUICtrlCreateButton("-f", 23, 31, 19, 19)
    			Global $Schalter_pm3 = GUICtrlCreateButton("-d", 23, 51, 19, 19)
    			Global $Schalter_pm4 = GUICtrlCreateButton("-e", 23, 71, 19, 19)
    			Global $Schalter_pm5 = GUICtrlCreateButton("-s", 23, 91, 19, 19)
    			Global $Schalter_pm6 = GUICtrlCreateButton("-3", 23, 111, 19, 19)
    			Global $Schalter_pm7 = GUICtrlCreateButton("-i", 23, 131, 19, 19)
    			Global $Schalter_pm8 = GUICtrlCreateButton("-u", 23, 151, 19, 19)
    			Global $Label_pm2 = GUICtrlCreateButton("permissions", 68, 10, 65, 17)
    			Global $Schalter_pm9 = GUICtrlCreateButton("-g", 90, 31, 19, 19)
    			Global $Schalter_pm10 = GUICtrlCreateButton("-f", 90, 51, 19, 19)
    			Global $Schalter_pm11 = GUICtrlCreateButton("-s", 90, 71, 19, 19)
    			Global $Schalter_pm12 = GUICtrlCreateButton("-d", 90, 91, 19, 19)
    			Global $Schalter_pm13 = GUICtrlCreateButton("-u", 90, 111, 19, 19)
    			Global $Schalter_pm14 = GUICtrlCreateButton("features", 151, 31, 58, 19)
    			Global $Schalter_pm15 = GUICtrlCreateButton("users", 151, 59, 58, 19)
    			Global $Schalter_pm16 = GUICtrlCreateButton("path", 151, 87, 58, 19)
    			Global $Schalter_pm17 = GUICtrlCreateButton("get-install-location", 135, 115, 90, 19)
    			GUICtrlCreateGroup("", -99, -99, 1, 1)
    			Global $logcat_input1 = GUICtrlCreateInput("", 7, 181, 227, 21)
    			Global $Schalter_pm21 = GUICtrlCreateButton("Ausführen", 77, 213, 75, 22)
    			Global $Edit_pm_3 = GUICtrlCreateEdit("", 10, 208, 53, 29, BitOR($ES_CENTER,$ES_WANTRETURN))
    			GUICtrlSetData(-1, "edit2")
    			GUICtrlSetFont(-1, 8, 400, 0, "AR CENA")
    			GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    			WinSetOnTop($Schalter_pm1, "",1)
    			GUICtrlSetData($logcat_input1, 'adb shell pm ')
    			GUICtrlSetBkColor($Edit_pm_3, 0xFFFFFF)
    			GUICtrlSetData($Edit_pm_3,'Bereit')
    			GUICtrlSetBkColor($Edit2, 0xFF0000)
    			GUICtrlSetData($Edit2,'Gesperrt')
    	While 1
    		Sleep(10)
    		$nMsg = GUIGetMsg(1)
    		Switch $nMsg[0]
    			Case $GUI_EVENT_CLOSE
    					GUISetState(@SW_ENABLE, $Form1)
    					GUICtrlSetBkColor($Edit2, 0xFFFFFF)
    					GUICtrlSetData($Edit2,'Bereit')
    					If $nMsg[1] = $Form1 Then Exit
    					If $nMsg[1] = $pmmain Then GUIDelete($pmmain)
    					ExitLoop
    			Case $Schalter_pm1
    					GUISetState(@SW_ENABLE, $Form1)
    					GUICtrlSetBkColor($Edit2, 0xFFFFFF)
    					GUICtrlSetData($Edit2,'Bereit')
    					GUIDelete($pmmain)
    					ExitLoop
    			Case $Schalter_pm21
    					$ausw_allerlei = GUICtrlRead($logcat_input1)
    					GUICtrlSetData($Input2, $ausw_allerlei)
    					auswahl_oeffnen()
    			Case $Button7
    					ExitLoop
    			Case $Label_pm1
    					GUICtrlSetData($batchimut, 'adb shell pm list packages')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list packages')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list packages" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt alle Pakete an mit Optionen der Filterung")
    					$pmbefehl = GUICtrlRead($batchimut)
    			Case $Schalter_pm2
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_f = GUICtrlRead($batchimut)
    				If $pm_f = 0  Then
    					GUICtrlSetData($batchimut, 'adb shell pm list packages -f')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list packages -f')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list packages -f" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt die zugehörige Datei an (*.apk) ")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm3
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_d = GUICtrlRead($batchimut)
    				If $pm_d = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list packages -d')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list packages -d')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list packages -d " & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt alle deaktivierten Pakete an")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm4
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_e = GUICtrlRead($batchimut)
    				If $pm_e = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list packages -e')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list packages -e')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list packages -e " & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt alle aktivierten Pakete an")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm5
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_s = GUICtrlRead($batchimut)
    				If $pm_s = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list packages -s')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list packages -s')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list packages -s " & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt alle System Pakete an")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm6
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_3 = GUICtrlRead($batchimut)
    				If $pm_3 = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list packages -3')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list packages -3')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list packages -3 " & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt alle eigene Installierte Pakete an")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm7
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_i = GUICtrlRead($batchimut)
    				If $pm_i = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list packages -i')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list packages -i')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list packages -i " & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt den Pfad der Installation von den Paketen an")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm8
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_u = GUICtrlRead($batchimut)
    				If $pm_u = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list packages -u')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list packages -u')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list packages -u " & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "nicht installierte Pakete")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Label_pm2
    					GUICtrlSetData($batchimut,"adb shell pm list permissions")
    					GUICtrlSetData($logcat_input1,"adb shell pm list permissions")
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list permissions" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt eine Liste aller bekannten Berechtigungen")
    					$pmbefehl = GUICtrlRead($batchimut)
    			Case $Schalter_pm9
    					GUICtrlSetData($batchimut,"adb shell pm list permissions")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_per_g = GUICtrlRead($batchimut)
    				If $pm_per_g = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list permissions -g')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list permissions -g')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list permissions -g" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "in Gruppen angezeigt")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm10
    					GUICtrlSetData($batchimut,"adb shell pm list permissions")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_per_f = GUICtrlRead($batchimut)
    				If $pm_per_f = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list permissions -f')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list permissions -f')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list permissions -f" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt alles an ")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm11
    					GUICtrlSetData($batchimut,"adb shell pm list permissions")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_per_s = GUICtrlRead($batchimut)
    				If $pm_per_s = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list permissions -s')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list permissions -s')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list permissions -s" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Kurze Zusammenfassung ")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm12
    					GUICtrlSetData($batchimut,"adb shell pm list permissions")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_per_d = GUICtrlRead($batchimut)
    				If $pm_per_d = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list permissions -d')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list permissions -d')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list permissions -d" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Eine Liste gefährlicher Berechtigungen.")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm13
    					GUICtrlSetData($batchimut,"adb shell pm list permissions")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_per_u = GUICtrlRead($batchimut)
    				If $pm_per_u = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list permissions -u')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list permissions -u')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list permissions -u" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Eine Liste der Berechtigungen von User")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm14
    					GUICtrlSetData($batchimut,"adb shell pm list features")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_per_u = GUICtrlRead($batchimut)
    				If $pm_per_u = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list features')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list features')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list features" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Eine Liste der Funktionen des Systems")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm15
    					GUICtrlSetData($batchimut,"adb shell pm list users")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_per_u = GUICtrlRead($batchimut)
    				If $pm_per_u = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm list users')
    					GUICtrlSetData($logcat_input1, 'adb shell pm list users')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm list users" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Eine Liste aller User auf dem System"& @CRLF & 'Benötigt Root')
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm16
    					GUICtrlSetData($batchimut,"adb shell pm path")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_per_u = GUICtrlRead($batchimut)
    				If $pm_per_u = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm path com.google.android.calendar')
    					GUICtrlSetData($logcat_input1, 'adb shell pm path com.google.android.calendar')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm path com.google.android.calendar" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt den Pfad auf dem System zur *.apk Datei")
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    			Case $Schalter_pm17
    					GUICtrlSetData($batchimut,"adb shell pm get-install-location")
    					GUICtrlSetData($logcat_input1,"")
    					$pm_per_u = GUICtrlRead($batchimut)
    				If $pm_per_u = 0  Then
    					GUICtrlSetData($batchimut,"")
    					GUICtrlSetData($logcat_input1,"")
    					GUICtrlSetData($batchimut, 'adb shell pm get-install-location')
    					GUICtrlSetData($logcat_input1, 'adb shell pm get-install-location')
    					GUICtrlSetData($Edit1, '')
    					_GUICtrlEdit_AppendText($Edit1, "Packages:" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "als Beispiel: adb shell pm get-install-location" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "Zeigt an wohin eine App Installiert wird" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "0 = Das System entscheidet wohin die App Installiert wird (Standart)" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "1 = Installation im internen Speicher" & @CRLF)
    					_GUICtrlEdit_AppendText($Edit1, "2 = Installation der App auf einem externen Medium zB SD-Karte" & @CRLF)
    					$pmbefehl = GUICtrlRead($batchimut)
    				EndIf
    		EndSwitch
    					GUICtrlSetBkColor($Edit2, 0xFF0000)
    					GUICtrlSetData($Edit2,'Gesperrt' & @CRLF & ' ! So lange pm geöffnet ist!')
    WEnd
    EndFunc   ;==>pm
    Func erstelog()
    			$auswahl = GUICtrlRead($Combo10)
    		If $auswahl = "Vorauswahl" Then
    			GUICtrlSetData($Edit1, 'Bitte eine Auswahl treffen!')
    		Else
    			GUICtrlSetData($Edit1, 'Bitte warten')
    	app()
    EndIf
    EndFunc;erstelog
    Func app()
    			GUICtrlSetData($Input3, 'dumpsys')
    			GUICtrlSetBkColor($Edit2, 0x66FF66)
    			GUICtrlSetData($Edit2,'Arbeite')
    			$speicherlog_1 = GUICtrlRead($Combo10)
    			$speicherlog = ('dumpsys ' & $speicherlog_1)
    			GUICtrlSetData($Input2, 'adb shell dumpsys' & ' ' & $auswahl)
    			$apps = (@ScriptDir & "\Data\1.bat")
    			$appsbat = FileOpen($apps, 2)
    			If $appsbat = -1 Then
    				MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    				Exit
    			EndIf
    			FileWrite($appsbat, '@echo off' & @CRLF)
    			FileWrite($appsbat, 'cd Data/' & @CRLF)
    			FileWrite($appsbat, 'adb shell dumpsys'& ' ' & $auswahl & @CRLF)
    			FileWrite($appsbat, 'exit' & @CRLF)
    			FileClose($appsbat)
    	lesen()
    EndFunc;app
    Func lesen()
    			GUICtrlSetBkColor($Edit2, 0x66FF66)
    			GUICtrlSetData($Edit2,'Arbeite')
    			Local $hPID = Run($apps, "", @SW_HIDE, 10)
    			$oldData = ""
    While ProcessExists($hPID)
    			$nMsg = GUIGetMsg()
    			Switch $nMsg
    		Case $GUI_EVENT_CLOSE
    			Exit
    		Case $Button7
    			ExitLoop
    		EndSwitch
    			$readData = StdoutRead($hPID, 1)
    		If $readData <> $oldData Then
    			_GUICtrlEdit_Scroll($Edit1, $SB_PAGEDOWN)
    			GUICtrlSetData($Edit1, $Edit1 & @CRLF & $readData)
    			_GUICtrlEdit_Scroll($Edit1, $SB_PAGEDOWN)
    			$oldData = $readData
    			_GUICtrlEdit_Scroll($Edit1, $SB_PAGEDOWN)
    		EndIf
    			If ProcessExists($hPID) = 0 Then
    				ExitLoop
    			EndIf
    WEnd
    			FileDelete(@ScriptDir & '/Data/*.bat')
    		If WinExists($pmmain) Then
    			GUICtrlSetBkColor($Edit2, 0xFF0000)
    			GUICtrlSetData($Edit2,'Gesperrt')
    			GUICtrlSetBkColor($Edit_pm_3, 0xFFFFFF)
    			GUICtrlSetData($Edit_pm_3,'Bereit')
    		Else
    			GUICtrlSetBkColor($Edit2, 0xFFFFFF)
    			GUICtrlSetData($Edit2,'Bereit')
    		Endif
    			GUICtrlSetBkColor($Edit2, 0xFFFFFF)
    			GUICtrlSetData($Edit2,'Bereit')
    			Sleep(10)
    EndFunc;lesen
    Func logspeichern()
    			$logsp = GUICtrlRead($Edit1)
    			$tCur =@YEAR & '_' & @MON & '_' & @MDAY & '_' & @Hour & "_" & @Min & "_" & @SEC
    			$log = ($speicherlog &'_' & $tCur & ' ' & ".txt")
    			$logopen = FileOpen(@ScriptDir & "\Log\" & $log, 2)
    		If $logopen = -1 Then
    			MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    			Exit
    		EndIf
    			FileWrite($logopen, $logsp & @CRLF)
    			FileClose($logopen)
    EndFunc;logspeichern
    Func sceen()
    			$apps = (@ScriptDir & "\Data\1.bat")
    			$appsbat = FileOpen($apps, 2)
    			GUICtrlSetData($Input2, 'adb shell screencap -p')
    		If $appsbat = -1 Then
    			MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    			Exit
    		EndIf
    			FileWrite($appsbat, '@echo off' & @CRLF)
    			FileWrite($appsbat, 'cd Data/' & @CRLF)
    			FileWrite($appsbat, 'adb shell screencap -p /sdcard/screen.png' & @CRLF)
    			FileWrite($appsbat, 'adb pull /sdcard/screen.png' & @CRLF)
    			FileWrite($appsbat, 'exit' & @CRLF)
    			FileClose($appsbat)
    	lesen()
    			$tCur =@YEAR & '_' & @MON & '_' & @MDAY & '_' & @Hour & "_" & @Min & "_" & @SEC
    			FileMove(@ScriptDir & "\Data\screen.png", @ScriptDir & '\Sceens\screen' & $tCur & '.png')
    			ShellExecuteWait(@ScriptDir & '\Sceens\screen' & $tCur & '.png')
    	lesen()
    EndFunc;sceen
    Func logcat()
    			GUICtrlSetData($Input3, 'logcat')
    			GUICtrlSetBkColor($Edit2, 0xFFFFFF)
    			GUICtrlSetData($Edit2,'Bereit')
    			Local $logcombo1 = GUICtrlRead($Combo1)
    			Local $logcombo2 = GUICtrlRead($Combo2)
    			Local $logcombo3 = GUICtrlRead($Combo3)
    			Local $logcombo4 = GUICtrlRead($Combo6)
    	If $logcombo1 = 'c' Then
    	$logcombo1 = '-c'
        EndIf
    		If $logcombo1 = 'd' Then
    		$logcombo1 = '-d'
    		EndIf
    			If $logcombo1 = 'g' Then
    			$logcombo1 = '-g'
    			EndIf
    				If $logcombo1 = 's' Then
    				$logcombo1 = '-s'
    				EndIf
    					If $logcombo1 = 'v' Then
    					$logcombo1 = '-v'
    					EndIf
    						If $logcombo3 = 'Verbose' Then
    						$logcombo3 = '*:V'
    						EndIf
    							If $logcombo3 = 'Debug' Then
    							$logcombo2 = '*:D'
    							EndIf
    						If $logcombo3 = 'Info' Then
    						$logcombo2 = '*:I'
    						EndIf
    					If $logcombo3 = 'Warning' Then
    					$logcombo2 = '*:W'
    					EndIf
    				If $logcombo3 = 'Error' Then
    				$logcombo2 = '*:E'
    				EndIf
    			If $logcombo3 = 'Fatal' Then
    			$logcombo2 = '*:F'
    			EndIf
    		If $logcombo3 = 'Silent' Then
    		$logcombo2 = '*:S'
    		EndIf
    			GUICtrlSetData($Input2, 'logcat')
    			GUICtrlSetData($Edit1, 'Bitte warten')
    			$auswahl = 'logcat'
    			$apps = (@ScriptDir & "\Data\1.bat")
    			$appsbat = FileOpen($apps, 2)
    		If $appsbat = -1 Then
    			MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    			Exit
    		EndIf
    			FileWrite($appsbat, '@echo off' & @CRLF)
    			FileWrite($appsbat, 'cd Data/' & @CRLF)
    			FileWrite($appsbat, 'adb logcat' & ' ' & $logcombo1 & ' ' & $logcombo2 & ' ' &$logcombo3  & @CRLF)
    			GUICtrlSetData($Input2, 'adb logcat' & ' ' & $logcombo1 & ' ' & $logcombo2 & ' ' &$logcombo3)
    			$ausw_allerlei = ('adb logcat' & ' ' & $logcombo1 & ' ' & $logcombo2 & ' ' &$logcombo3)
    		If $logcombo1 = '-c' Then
    			FileWrite($appsbat, 'echo Die Logs sind gelöscht worden' & @CRLF)
    		Endif
    			FileWrite($appsbat, 'exit' & @CRLF)
    			FileClose($appsbat)
    	lesen()
    EndFunc;logcat
    Func bugr()
    			GUICtrlSetData($Edit1, 'Bitte warten')
    			GUICtrlSetData($Input2, 'adb bugreport')
    			$auswahl = 'bugreport'
    			$apps = (@ScriptDir & "\Data\1.bat")
    			$appsbat = FileOpen($apps, 2)
    		If $appsbat = -1 Then
    			MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    			Exit
    		EndIf
    			FileWrite($appsbat, '@echo off' & @CRLF)
    			FileWrite($appsbat, 'cd Data/' & @CRLF)
    			FileWrite($appsbat, 'adb bugreport' & @CRLF)
    			FileWrite($appsbat, 'exit' & @CRLF)
    			FileClose($appsbat)
    		lesen()
    EndFunc;bugr
    Func neu_einlesen()
    			GUICtrlSetBkColor($Edit2, 0x66FF66)
    			GUICtrlSetData($Edit2,'Lese die dumpsys Liste neu ein')
    			GUICtrlSetData($Edit1, 'Bitte warten')
    			GUICtrlSetData($Input2, 'adb shell service list')
    			$dumpbefehl_komplett = ('adb shell service list ')
    			$apps = (@ScriptDir & "\Data\1.bat")
    			$appsbat = FileOpen($apps, 2)
    		If $appsbat = -1 Then
    			MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    			Exit
    		EndIf
    			FileWrite($appsbat, '@echo off' & @CRLF)
    			FileWrite($appsbat, 'cd /d "%~dp0' & @CRLF)
    			FileWrite($appsbat, $dumpbefehl_komplett & ' > dumpsys' & @CRLF)
    			FileWrite($appsbat, 'exit' & @CRLF)
    			FileClose($appsbat)
    			RunWait($apps, "", @SW_HIDE, 10)
    			FileClose($apps)
    			Local $pid = ProcessExists("adb.exe")
    			ProcessClose($pid)
    		Sleep (1000)
    			$dumptext = (@ScriptDir & "\Data\dumpsys")
    			Local $dump, $i, $dump2D
    			$vfr = _FileReadToArray($dumptext, $dump)
    			Local $dump2D[$dump[0] + 1][2]
    	For $j = 1 To $dump[0]
    			$aSplit = StringSplit($dump[$j], ":")
    		If $aSplit[0] > 1 Then
                $i += 1
                $dump2D[$i][0] = $aSplit[1]
                $dump2D[$i][1] = $aSplit[2]
    		EndIf
    	Next
    			$abcde = FileOpen(@ScriptDir & "\Data\sektionen",10)
    			$dump2D[0][0] = $i
    	For $i = 1 To ($dump2D[0][0])
    			FileWriteLine($abcde, $dump2D[$i][0] & @CRLF)
    	Next
    			FileClose($abcde)
    			$fielesen = FileOpen(@ScriptDir & "\Data\sektionen",0)
    			$ccc = FileRead($fielesen)
    			$aaa =StringRegExpReplace($ccc, "\d", "")
    			FileClose($fielesen)
    			$fielesen_2 = FileOpen(@ScriptDir & "\Data\sektionen_1",10)
    			FileWrite($fielesen_2,$aaa)
    			FileClose($fielesen_2)
    			Local $file = FileOpen(@ScriptDir & "\Data\sektionen_1", 0)
    		If $file = -1 Then
    			MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    			Exit
    		EndIf
    			$menge =  _FileCountLines(@ScriptDir & "\Data\sektionen_1")
    			Local $neuerwert = FileOpen(@ScriptDir & "\Data\liste_dumsys", 10)
    	For $i = 2 To $menge
    			Local $line = FileReadLine($file,$i)
    			$result = StringTrimLeft($line, 1)
    			FileWrite($neuerwert,$result & @CRLF)
    	Next
    			FileClose($neuerwert)
    			FileClose($file)
    			FileDelete(@ScriptDir & "\Data\sektionen_1")
    			FileDelete(@ScriptDir & "\Data\sektionen")
    	While 1
    		Local $pid = ProcessExists("adb.exe")
    		If $pid > 0 Then
    			ProcessClose($pid)
    		Else
    			ExitLoop
    		EndIf
    	WEnd
    			FileDelete(@ScriptDir & "\Data\sektionen_1")
    			FileDelete(@ScriptDir & "\Data\sektionen")
    			FileDelete(@ScriptDir & "\Data\dumpsys")
    			FileDelete(@ScriptDir & "\Data\2")
    			FileDelete(@ScriptDir & "\Data\*.bat")
    			$file = (@ScriptDir & "\Data\liste_dumsys")
    			Dim $aRecords
    			If Not _FileReadToArray($file,$aRecords) Then
    			   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
    			EndIf
    	For $x = 1 to $aRecords[0]
    			GUICtrlSetData($Combo10, $aRecords[$x]&"|")
    	Next
    			GUICtrlSetData($Edit1, 'Die Liste ist eingelesen')
    			GUICtrlSetBkColor($Edit2, 0xFFFFFF)
    			GUICtrlSetData($Edit2,'Bereit')
    EndFunc;neu_einlesen
    Func logleer()
    			GUICtrlSetData($Edit1, '')
    EndFunc;logleer
    Func hilfe_dumpsys()
    			ShellExecute("http://android-test-tw.blogspot.de/2012/10/dumpsys-information-android-open-source.html")
    EndFunc
    Func hilfe_logcat()
    			ShellExecute("http://developer.android.com/tools/debugging/debugging-log.html")
    EndFunc
    Func hilfe_pm()
    			ShellExecute("http://kpbird.blogspot.de/2013/05/android-shell-command-pm-package-manager.html")
    EndFunc
    Func _ini_auslesen_combo1($sKey, $sValue)
    			$hEdit = GUICtrlGetHandle($Edit1)
    			_GUICtrlEdit_AppendText($hEdit,$sValue & @CRLF)
    EndFunc; _ini_auslesen
    Func _ini_auslesen_combo2($sKey, $sValue)
    			$hEdit = GUICtrlGetHandle($Edit1)
    			_GUICtrlEdit_AppendText($hEdit,$sValue & @CRLF)
    EndFunc; _ini_auslesen
    Func _ini_auslesen_combo3($sKey, $sValue)
    			$hEdit = GUICtrlGetHandle($Edit1)
    			_GUICtrlEdit_AppendText($hEdit,$sValue & @CRLF)
    EndFunc; _ini_auslesen
    Func _ini_auslesen_combo6($sKey, $sValue)
    			$hEdit = GUICtrlGetHandle($Edit1)
    			_GUICtrlEdit_AppendText($hEdit,$sValue & @CRLF)
    EndFunc; _ini_auslesen
    Func oeffnen_notepad()
    			GUICtrlSetBkColor($Edit2, 0xFF0000)
    			GUICtrlSetData($Edit2,'Gesperrt' & @CRLF & '!So lange Notepad geöffnet ist!')
    			GUISetState(@SW_DISABLE, $Form1)
    			$logsp = GUICtrlRead($Edit1)
    			$tCur = @MDAY & '_' & @MON & '_' & @YEAR & '_' & @HOUR & "_" & @MIN
    			$log = ($speicherlog & ' ' & $tCur & ' ' & "")
    			$logopen = FileOpen(@ScriptDir & "\Log\" & $log, 2)
    		If $logopen = -1 Then
    				MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    				Exit
    		EndIf
    			FileWrite($logopen, $logsp & @CRLF)
    			FileClose($logopen)
    			FileMove(@ScriptDir & "\Log\" & $log, @ScriptDir & "\Data\notepad++portable\dummy")
    			FileDelete(@ScriptDir & "\Log\" & $log)
    			ShellExecuteWait(@ScriptDir & "\Data\notepad++portable\notepad++.exe", @ScriptDir & "\Data\notepad++portable\dummy")
    			;FileMove(@ScriptDir & "\Data\notepad++portable\dummy", @ScriptDir & "\Data\dummy")
    			FileDelete(@ScriptDir & "\Data\notepad++portable\dummy")
    			GUISetState(@SW_ENABLE, $Form1)
    			GUICtrlSetBkColor($Edit2, 0xFFFFFF)
    			GUICtrlSetData($Edit2,'Bereit')
    EndFunc   ;==>oeffnen_notepad
    Func cmdgui()
    			$allegui_batch = 'cmd'; zur auswahl bei der batcherstellung
    		If $cmdmain > 0 Then GUIDelete($cmdmain)
    			Local $sizemain = WinGetPos($Form1)
    		If $sizemain[0] < 258 Then
    		$positionx = 50
    		Else
    			$positionx = $sizemain[0] - 250
    		EndIf
    		If $sizemain[1] < 10 Then
    			$position_y = 50
    		Else
    			$position_y = $sizemain[1] + 50
    		EndIf
    			#region ### START Koda GUI section ### Form=c:\users\jojono\desktop\log-tool neu\koda formen\cmd.kxf
    			$cmdmain = GUICreate("CMD", 242, 119, $positionx +300, $position_y +100, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE, $WS_EX_LAYERED, $WS_EX_COMPOSITED))
    			$Labelcmd12 = GUICtrlCreateLabel("Created by jojono", 1, 110, 59, 9)
    			GUICtrlSetFont(-1, 6, 400, 0, "Calibri")
    			$cmd1 = GUICtrlCreateButton("Ausführen", 80, 97, 67, 17)
    			$Input1 = GUICtrlCreateInput("", 5, 24, 233, 21)
    			Global $cmdcombo1 = GUICtrlCreateCombo("", 39, 69, 169, 25, BitOR($CBS_DROPDOWN, $WS_HSCROLL, $WS_VSCROLL))
    			$cndlabel1 = GUICtrlCreateLabel("cmd-Auswahl", 94, 52, 67, 17)
    			$Labelcmd1 = GUICtrlCreateLabel("Funkton", 100, 6, 43, 17)
    			$cmd2 = GUICtrlCreateButton("Beenden", 163, 97, 75, 17)
    			GUISetState(@SW_SHOW)
    			#endregion ### END Koda GUI section ###
    			WinSetOnTop($cmdmain, "",1)
    			GUISetState(@SW_DISABLE, $Form1)
    			#endregion ### END Koda GUI section ###
    			GUICtrlSetData($cmdcombo1, 'MdSched|msconfig|osk|fsquirt|cmd|CompMgmtLauncher|sdclt|cleanmgr|dfrgui' & _
    			'|dxdiag|eudcedit|Netplwiz|colorcpl|FirewallSettings|credwiz|comexp|SndVol' & _
    			'|perfmon|Magnify|mblctr|NetProj|notepad|StikyNot|NVUNINST|OptionalFeatures|mspaint|SystemPropertiesPerformance' & _
    			'|PresentationSettings|wercon|ComputerDefaults|msra|mstsc|SnippingTool|lpksetup|msdt|control|calc|TpmInit|hdwwiz' & _
    			'|mrt|FirewallControlPanel|WF|charmap')
    			$endfunktionbatch = 'Exit'
    	While 1
    			Sleep(10)
    				GUICtrlSetBkColor($Edit2, 0xFF0000)
    				GUICtrlSetData($Edit2,'Gesperrt' & @CRLF & '! So lange wie cmd geöffnet ist!')
    			$cmdlesen = GUICtrlRead($cmdcombo1)
    			GUICtrlSetData($batchimut, $cmdlesen)
    			;GUICtrlSetData($Inputcmd, $cmdlesen)
    			If $cmdlesen = 'Auswahl' Then GUICtrlSetData($Input1, 'Bitte einer der cmd Befehle auswählen')
    			If $cmdlesen = 'MdSched' Then GUICtrlSetData($Input1, 'Arbeitsspeicherdiagnose')
    			If $cmdlesen = 'msconfig' Then GUICtrlSetData($Input1, 'Autostartmanager ')
    			If $cmdlesen = 'osk' Then GUICtrlSetData($Input1, 'Bildschirmtastatur ')
    			If $cmdlesen = 'fsquirt' Then GUICtrlSetData($Input1, 'Bluetooth Datenübertragung  ')
    		If $cmdlesen = 'cmd' Then
    			GUICtrlSetData($Input1, 'Command Konsole')
    			$konsole_cmd = 'on'
    		Else
    			$konsole_cmd = ''
    		EndIf
    			If $cmdlesen = 'CompMgmtLauncher' Then GUICtrlSetData($Input1, 'Computerverwaltung ')
    			If $cmdlesen = 'sdclt' Then GUICtrlSetData($Input1, 'Datensicherung  ')
    			If $cmdlesen = 'cleanmgr' Then GUICtrlSetData($Input1, 'Datenträgerbereinigung   ')
    			If $cmdlesen = 'dfrgui' Then GUICtrlSetData($Input1, 'Defragmetiren ')
    			If $cmdlesen = 'dxdiag' Then GUICtrlSetData($Input1, 'DirectX Diagnose')
    			If $cmdlesen = 'eudcedit' Then GUICtrlSetData($Input1, 'Editor Benutzerdefinierte zeichen ')
    			If $cmdlesen = 'Netplwiz' Then GUICtrlSetData($Input1, 'Erweiterte Benutzerkonten ')
    			If $cmdlesen = 'colorcpl' Then GUICtrlSetData($Input1, 'Farbverwaltung ')
    			If $cmdlesen = 'FirewallSettings' Then GUICtrlSetData($Input1, 'Firewalleinstellungen ')
    			If $cmdlesen = 'credwiz' Then GUICtrlSetData($Input1, 'Kennwörter sichern')
    			If $cmdlesen = 'comexp' Then GUICtrlSetData($Input1, 'Komponettendienst   ')
    			If $cmdlesen = 'SndVol' Then GUICtrlSetData($Input1, 'Lautstärkemixer    ')
    			If $cmdlesen = 'perfmon' Then GUICtrlSetData($Input1, 'Leistungsüberwachung ')
    			If $cmdlesen = 'Magnify' Then GUICtrlSetData($Input1, 'Lupe ')
    			If $cmdlesen = 'mblctr' Then GUICtrlSetData($Input1, 'Mobilitätscenter  ')
    			If $cmdlesen = 'NetProj' Then GUICtrlSetData($Input1, 'Netzwerkprojektor  ')
    			If $cmdlesen = 'notepad' Then GUICtrlSetData($Input1, 'Notepad - Editor  ')
    			If $cmdlesen = 'StikyNot' Then GUICtrlSetData($Input1, 'Notizen ')
    			If $cmdlesen = 'NVUNINST' Then GUICtrlSetData($Input1, 'NvidiaTreiber endfernen ')
    			If $cmdlesen = 'OptionalFeatures' Then GUICtrlSetData($Input1, 'Optinale WindowsFunktionen   ')
    			If $cmdlesen = 'mspaint' Then GUICtrlSetData($Input1, 'Paint    ')
    			If $cmdlesen = 'SystemPropertiesPerformance' Then GUICtrlSetData($Input1, 'Performance optimieren ')
    			If $cmdlesen = 'PresentationSettings' Then GUICtrlSetData($Input1, 'Präsentationeinstellungen ')
    			If $cmdlesen = 'wercon' Then GUICtrlSetData($Input1, 'Problemberichte/lösungen')
    			If $cmdlesen = 'ComputerDefaults' Then GUICtrlSetData($Input1, 'Programmstandards verwalten ')
    			If $cmdlesen = 'msra' Then GUICtrlSetData($Input1, 'Remoteunterstützung  ')
    			If $cmdlesen = 'mstsc' Then GUICtrlSetData($Input1, 'Remotedesktopverbindung  ')
    			If $cmdlesen = 'SnippingTool' Then GUICtrlSetData($Input1, 'Screenshottool ')
    			If $cmdlesen = 'lpksetup' Then GUICtrlSetData($Input1, 'Sprachpaketinstaller    ')
    			If $cmdlesen = 'msdt' Then GUICtrlSetData($Input1, 'Support Diagnosetool ')
    			If $cmdlesen = 'control' Then GUICtrlSetData($Input1, 'Systemssteuerung ')
    			If $cmdlesen = 'calc' Then GUICtrlSetData($Input1, 'Taschenrechner  ')
    			If $cmdlesen = 'TpmInit' Then GUICtrlSetData($Input1, 'TpmInit')
    			If $cmdlesen = 'hdwwiz' Then GUICtrlSetData($Input1, 'Treiberinstallation ')
    			If $cmdlesen = 'mrt' Then GUICtrlSetData($Input1, 'Windows Virenscan  ')
    			$nMsg = GUIGetMsg(1)
    	Switch $nMsg[0]
    		Case $GUI_EVENT_CLOSE
    			GUICtrlSetBkColor($Edit2, 0xFFFFFF)
    			GUICtrlSetData($Edit2,'Bereit')
    			GUISetState(@SW_ENABLE, $Form1)
    			If $nMsg[1] = $cmdmain Then GUIDelete($cmdmain)
    			ExitLoop
    		Case $cmd1
    			$cmdbefehl = GUICtrlRead($cmdcombo1)
    			GUICtrlSetData($Input3, $cmdbefehl)
    			$cmd_uebergabe = 1
    	cmdlos()
    		Case $cmd2
    			GUIDelete($cmdmain)
    			GUISetState(@SW_ENABLE, $Form1)
    			GUICtrlSetBkColor($Edit2, 0xFFFFFF)
    			GUICtrlSetData($Edit2,'Bereit')
    			ExitLoop
    		EndSwitch
    	WEnd
    EndFunc   ;==>cmdgui
    Func cmdlos()
    			$cmdlesen = GUICtrlRead($cmdcombo1)
    			GUICtrlSetData($Input2, $cmdlesen)
    			$apps = (@ScriptDir & "\Data\1.bat")
    			$appsbat = FileOpen($apps, 2)
    		If $appsbat = -1 Then
    			MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    			Exit
    		EndIf
    			FileWrite($appsbat, '@echo off' & @CRLF)
    		If  $konsole_cmd = 'on' Then
    			Run('cmd.exe')
    		Else
    			FileWrite($appsbat, 'cd /d "%~dp0' & @CRLF)
    			FileWrite($appsbat, $cmdbefehl & @CRLF)
    			FileWrite($appsbat, 'exit' & @CRLF)
    		EndIf
    			FileClose($appsbat)
    	lesen()
    EndFunc   ;==>cmdlos
    Func Ende()
    	While 1
    		Local $pid = ProcessExists("adb.exe")
    		If $pid > 0 Then
    			ProcessClose($pid)
    		Else
    			ExitLoop
    		EndIf
    	WEnd
    			FileDelete('*.bat')
    			FileDelete('*.txt')
    			FileDelete('*.prop')
    			FileDelete(@ScriptDir & '/Data/screen.png')
    			FileDelete(@ScriptDir & '/Data/*.prop')
    			FileDelete(@ScriptDir & '/Data/*.bat')
    			Exit
    EndFunc   ;==>Ende
    While 1
    	Sleep(10)
    	$nMsg = GUIGetMsg(1) ;Erweiterte Rückgabe
    	Switch $nMsg[0]
    		Case $GUI_EVENT_CLOSE
    			Ende()
    		Case $GUI_EVENT_RESIZED
    			$fenster = WinGetPos($Form1, '') ;gibt [0]x-pos,[1]y-pos,[2]breite und [3]höhe zurück
    			If $fenster[2] < 790 Then ;wenn breite < 200
    				WinMove($Form1, '', $fenster[0], $fenster[1], 800, $fenster[3]) ;position + höhe bleibt, breite auf 200
    			ElseIf $fenster[3] < 590 Then ;wenn höhe < 200
    				WinMove($Form1, '', $fenster[0], $fenster[1], $fenster[2], 600) ;position + breite bleibt, höhe auf 200
    			EndIf
    		Case $Button1; 						Beenden
    			Ende()
    		Case $Button2; 						dumsys Ausführen
    			erstelog()
    		Case $Button3; 						CMD
    			cmdgui()
    		Case $Button4;						Log speichern
    			logspeichern()
    		Case $Button5; 						Allerlei Ausführen
    			wahl()
    		Case $Button6; 						Schalter -b bei logcat
    			GUICtrlSetData($Edit1, "")
    			$hEdit = GUICtrlGetHandle($Edit1)
    				_GUICtrlEdit_AppendText($hEdit,'Zusätzliche Filter' & @CRLF)
    				_GUICtrlEdit_AppendText($hEdit,'radio, events, main' & @CRLF)
    		Case $Button8;					logcat Ausführen
    			logcat()
    		Case $Button9; 						bugreport alle
    			bugr()
    		Case $Button12; 					Log Leeren
    			logleer()
    		Case $Button13; 					pm Ausführen
    			GUISetState(@SW_DISABLE, $Form1)
    			pm()
    		Case $Button14;						 dumpsys neu Einlesen
    			neu_einlesen()
    		Case $Button16
    			oeffnen_notepad()
    		Case $Button17;						 zip Speichern
    					Local $batchmaker = GUICtrlRead($Input2)
    					Local	$name_logtext = GUICtrlRead($Input3)
    					Local	$name_batch = GUICtrlRead($Input4)
    			If 	FileExists(@ScriptDir & '\Batch\' & $name_batch & '.zip') Then
    				$info_msg = MsgBox(68,'Info', 'Es befindet sich schon eine Datei mit dem Namen' & @CRLF & _
    								   $name_batch & '.zip in dem Ordner.' & @CRLF & ' Soll diese überschrieben werden?')
    				If 	$info_msg = 6 Then; =ja
    					FileDelete(@ScriptDir & '\Batch\' & $name_batch & '.zip')
    				EndIf
    			EndIf
    				If $name_batch = '' Then
    					$tCur = @MDAY & '_' & @MON & '_' & @YEAR & '_' & @HOUR & "_" & @MIN & "_" & @SEC
    					GUICtrlSetData($Input4, $tCur)
    				EndIf
    					$pfad = @ScriptDir & ("\Data\")
    					$apps = (@ScriptDir & '\Data\' & '1.bat')
    					$appsbat = FileOpen($apps, 2)
    				If $appsbat = -1 Then
    						MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    						Exit
    				EndIf
    			If $cmd_uebergabe = 1 Then
    					MsgBox(64, 'Info', 'Das Speichern von CMD-Programmen wird nicht unterstützt!')
    			Else
    					FileWrite($appsbat, '@echo off' & @CRLF)
    				If 	$Input3 = '' Then
    					FileWrite($appsbat, $batchmaker & @CRLF)
    				Else
    					FileWrite($appsbat, $batchmaker & ' >' & $name_logtext & '.txt' & @CRLF)
    				EndIf
    					FileWrite($appsbat, 'taskkill /IM adb.exe /F' & @CRLF)
    					FileWrite($appsbat, 'exit' & @CRLF)
    					FileClose($appsbat)
    		If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then
    					FileCopy(@ScriptDir & '/Data/adb.exe', @ScriptDir & '/adb.exe')
    					FileCopy(@ScriptDir & '/Data/AdbWinApi.dll', @ScriptDir & '/AdbWinApi.dll')
    					FileCopy(@ScriptDir & '/Data/AdbWinUsbApi.dll', @ScriptDir & '/AdbWinUsbApi.dll')
    					FileCopy(@ScriptDir & '/Data/1.bat', @ScriptDir & '/' & $name_logtext & '.bat')
    					ShellExecuteWait(@ScriptDir & '\Data\7z.exe', ' a -t7z archive.zip adb.exe *.dll *.bat -ms -mmt '); Funktioniert nur auf den hauptordner
    		Else
    					FileCopy(@ScriptDir & '/Data/1.bat', @ScriptDir & '/Batch/' & $name_logtext & '.bat')
    		EndIf
    					FileDelete(@ScriptDir & '\*.bat')
    					FileDelete(@ScriptDir & '\adb.exe')
    					FileDelete(@ScriptDir & '\*.dll')
    					FileDelete(@ScriptDir & '\*.bat')
    					FileMove(@ScriptDir & '\*.zip', @ScriptDir & '/Batch/' & $name_batch & '.zip')
    			EndIf
    		Case $Combo1
    					GUICtrlSetData($Edit1, "")
    					$logcombo1 = GUICtrlRead($Combo1)
    				If $logcombo1 =' ' Then
    				Else
    					$Lesen_sektionen = IniReadSectionNames($Logcat_ini_pfad)
    					$log_lesen_logcat_sektion = 'Logcat' & $logcombo1
    					$aData = IniReadSection($Logcat_ini_pfad, $log_lesen_logcat_sektion)
    					For $i = 1 To $aData[0][0]
    						_ini_auslesen_combo1($aData[$i][0], $aData[$i][1])
    					Next
    				EndIf
    		Case $Combo2
    					GUICtrlSetData($Edit1, "")
    					$logcombo2 = GUICtrlRead($Combo2)
    				If $logcombo2 =' ' Then
    				Else
    					$log_lesen_logcat_sektion = 'AusgabeFormat' & $logcombo2
    					$aData = IniReadSection($Logcat_ini_pfad, $log_lesen_logcat_sektion)
    					For $i = 1 To $aData[0][0]
    						_ini_auslesen_combo2($aData[$i][0], $aData[$i][1])
    					Next
    				EndIf
    		Case $Combo3
    					GUICtrlSetData($Edit1, "")
    					$logcombo3 = GUICtrlRead($Combo3)
    				If $logcombo3 =' ' Then
    				Else
    					$Lesen_sektionen = IniReadSectionNames($Logcat_ini_pfad)
    					$log_lesen_logcat_sektion = 'Priorität' & $logcombo3
    					$aData = IniReadSection($Logcat_ini_pfad, $log_lesen_logcat_sektion)
    					For $i = 1 To $aData[0][0]
    						_ini_auslesen_combo3($aData[$i][0], $aData[$i][1])
    					Next
    				EndIf
    		Case $Combo6
    					GUICtrlSetData($Edit1, "")
    					$logcombo4 = GUICtrlRead($Combo6)
    				If $logcombo4 =' ' Then
    				Else
    					$Lesen_sektionen = IniReadSectionNames($Logcat_ini_pfad)
    					$log_lesen_logcat_sektion = 'AlternativeAusgabeFormat' & $logcombo4
    					$aData = IniReadSection($Logcat_ini_pfad, $log_lesen_logcat_sektion)
    					For $i = 1 To $aData[0][0]
    						_ini_auslesen_combo6($aData[$i][0], $aData[$i][1])
    					Next
    				EndIf
    	EndSwitch
    WEnd
    Alles anzeigen

    Nur das mich das ein oder andere daran stört von der bedienung und Funktion her.
    Ist aber auch schon recht lange her das ich dies mal geschrieben hatte und blicke da fürs erste auch erst einmal nicht mehr durch.
    War auch in meinen Anfängen mit Autoit gemacht worden.
    Meine Überlegung war es das Teil komplett neu zu schreiben um mich gar nicht erst in mein altes, eher nicht gut gemachtes Skript wieder reinzudenken mit immerhin über 1100 Zeilen.
    Wie haltet ihr so etwas?

  • Bitte dieses Skript testen

    • oh-ha-2
    • 26. Juni 2016 um 18:32

    Hallo,


    bei mir rennt es auch ganz gut bis zum Ende durch, hier mal ein Video mit Taskmanager dabei vom Download.
    http://upk.one/autoit/download.mp4
    Habe Magenta Hybrit mit bis zu 50 MBit/s im LTE Netz.


    Gruß
    Uli

  • Englisch im Deutschen Forum

    • oh-ha-2
    • 6. März 2016 um 22:26

    @Andy
    Kann es sein das du meinen Post falsch verstanden hast?


    Gruß
    Uli

  • Englisch im Deutschen Forum

    • oh-ha-2
    • 6. März 2016 um 08:40

    Hallo,

    da hier der ein oder andere oder selbige User der Meinung ist das hier nur deutsch gesprochen werden soll und Links in Englische Foren wohl eher eine Unverschämtheit darstellen in einen
    deutschen Forum, gebe ich mal meine Meinung kund.

    Ich beherrsche das Englische auch nicht gerade gut, was mich in der Suche in Englischen Foren schon mal so gut wie ausgrenzt, was aber enorm hilft ist es dann wenn von hier aus ein User
    mir einen direkten Link zu einem Englischen Forum gibt der meine Problemstellung behandelt, wer erwartet das man das dann auch noch übersetzt bekommt hat den Sinn eines Forums nicht begriffen.
    Ich fummel mich da dann halt durch und habe bis jetzt auch noch nie auf Grund fehlender/schlechter Englischkenntnisse etwas nicht geschafft. Ist halt meine Faulheit, dummheit es nicht zu lernen.
    Wobei ich schon fast glaube das der Zeitaufwand für mein ganzes gefummele wohl schon gereicht hätte um das Englische zu erlernen. :rolleyes:

    Die Englische Sprache bei den Programmierern ist das selbige wie das Lateinische bei den Ärtzten und Apothekern, sie verstehen sich auf der gesamten Welt.

    Ich sehe dieses Forum als Anstoß/Anfang für alle die in diese Welt eintauchen wollen und sich Informieren wollen. Das geht natürlich am besten in seiner Muttersprache.
    Es ist schon äußerst traurig was heutzutage an den Schulen als Informatik verkauft wird, bisschen Excel, Word und das war es auch schon.
    Aus diesen Grund ist auch ein solches Forum in der Muttersprache enorm wichtig.


    Da ich das ganze nur als Hobby mache habe ich für mich entschieden es halt nicht in gänze zu erlernen.
    Wenn man es nicht so gut kann oder gar nicht, grenzt man sich halt dann auch ein stück weit aus.

    Deswegen halt auch auf diesen Wege im OT, danke an alle die hier in ihrer Freizeit anderen Helfen, was durchaus nicht selbstverständlich ist.


    Gruss
    Uli

  • StringReplace​ ändert mir zu viel

    • oh-ha-2
    • 23. Januar 2016 um 10:17

    Hallo BugFix,

    sau guter Gedanke, das vereinfacht recht viel. Habe mehrere css Dateien, form, style usw da kann ich dann auch eine nur für die News anlegen und muss
    nicht in der html Datei rumwühlen zumindest nicht um das Aussehen zu ändern.
    Man man man auf die einfachsten Dinge kommt man einfach nicht.


    Gruss
    Uli

  • StringReplace​ ändert mir zu viel

    • oh-ha-2
    • 22. Januar 2016 um 21:24

    Oh Danke dir,


    habe das so weit schon auf die Reihe bekommen Post 6, schaue mir das aber mal an ob es besser zu dem passt was ich vorhabe.
    Die Hompage ist so weit schon fertig und auch das ein oder andere Tool dazu.
    Die überflüssigen Includes habe ich drin gelassen, wie du schon richtig erkannt hattest habe ich ein Tool geschrieben und hier nur
    einen funktionierenden Auszug reingestellt der mir Kopfschmerzen gemacht hatte. Gefunden hatte ich eine Lösung nachdem du mich
    in die richtige Richtung gestoßen hattest.


    Gruss
    Uli

  • StringReplace​ ändert mir zu viel

    • oh-ha-2
    • 22. Januar 2016 um 15:54

    Danke dir

    Gruss
    Uli

  • StringReplace​ ändert mir zu viel

    • oh-ha-2
    • 22. Januar 2016 um 15:17

    Hallo Kanashius,


    habe mich breitschlagen lassen eine Homepage für meinen Schützenverein zu gestalten und auch Online zu stellen.
    Bin damit auch FAST durch. Möchte das ganze dann aber auch so gestalten das zB unser Schriftführer auch news Posten
    kann ohne html Kentnisse zu haben. Habe leider nicht die Zeit mich immer um diese Homepage zu kümmern.
    Im Grunde baue ich mir so etwas wie einen mini Editor für die einzelnen Seiten die dann auch von den Tool hochgeladen werden.
    Die html Datei die ich oben gepostet habe ist eine von 5 Top News Seiten die man dann halt gestalten kann.

    Habe aber auch gerade eine Möglichkeit für mein Problem gefunden,_StringReplaceEx() von SEuBo
    Habe immer in der falschen Richtung gesucht und es wohl deshalb nicht gefunden.

    Setzte das hier mal auf gelöst.


    Gruss
    Uli

  • StringReplace​ ändert mir zu viel

    • oh-ha-2
    • 22. Januar 2016 um 13:53

    Bekomme jetzt den Farbwert für die Überschrift geändert. Habe nur in Zeile 56

    AutoIt
    $fertig3 = StringReplace($text3, $aArray3[0], $farbwert)


    die Anzahl der Änderungen auf 1 gesetzt.

    AutoIt
    $fertig3 = StringReplace($text3, $aArray3[0], $farbwert, 1)

    Nur wie mache ich das wenn ich den Text unter der Überschrift dann auch ändern möchte?


    Gruss
    Uli

  • StringReplace​ ändert mir zu viel

    • oh-ha-2
    • 22. Januar 2016 um 12:10

    Du hast natürlich recht, geht wohl eher um das StringReplace was mir das Ergebnis von _StringBetween in die einzelnen
    Farbwerte schreibt.

    Habe den Titel mal angepaßt.

    Arbeite mit zwei Editoren für html Dateien, zum einen mit Expression Web und mit Dreamweaver cs6 wobei mir beide beim ändern der
    Farbe immer neue Styles machen was ich aber nicht gebrauchen kann.


    Gruss
    Uli

  • StringReplace​ ändert mir zu viel

    • oh-ha-2
    • 22. Januar 2016 um 11:23

    Hallo,


    komme irgendwie nicht weiter.
    Versuche eine Hompage per Autoit zu gestalten, zumindest einige Teile davon.
    Nun versuche ich mit "_StringBetween" die Formatierung einer Überschrift zu ändern.
    Was auch so weit gelingt, nur wenn ich die Farbe ändere wird auch die Farbe des drunter stehenden Textes geändert.
    Mir fällt da so langsam nichts mehr zu ein warum das so ist.

    AutoIt
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <FTPEx.au3>
    #include <Misc.au3>
    #include <ProgressConstants.au3>
    #include <WinAPISys.au3>
    #include <GDIPlus.au3>
    #include <File.au3>
    #include <Array.au3>
    #include <String.au3>
    #include <GuiStatusBar.au3>
    #include <GuiToolbar.au3>
    #include <ToolbarConstants.au3>
    #include <GuiEdit.au3>
    #include <IE.au3>
    #include <INet.au3>
    #include <GuiRichEdit.au3>
    #include <Color.au3>
    #include <GUIListBox.au3>
    
    
    Local $a_font = _ChooseFont("Arial", 12)
    If (@error) Then
        MsgBox(0, "", "_ChooseFont-Fehler: " & @error)
    Else
    $neulesen_font = $a_font[2]
    $neulesen_groesse = $a_font[3]
    $neulesen_farbe = $a_font[7]
    $farbwert = StringTrimLeft($a_font[7],2)
    
    
    ;###################### Font Überschrift ############
    $text = FileRead("1.txt")
    $aArray1 = _StringBetween($text, '.ueberschrift{text-align:center;font-family:', ';')
    If @error Then
    $aArray1 = _StringBetween($text, '.ueberschrift{text-align:center;font-family:"', '";')
    EndIf
    If @error Then MsgBox(64, "Fehler", "Diese Font geht nicht")
    $fertig = StringReplace($text, $aArray1[0], $neulesen_font)
    $fertig = StringToBinary($fertig, 4)
    FileWrite("2.txt", $fertig)
    
    
    
    
    ;###################### Größe Überschrift ############
    $text2 = FileRead("2.txt")
    $aArray2 = _StringBetween($text, '.ueberschrift{text-align:center;font-family:' &  $aArray1[0] & ';font-size:', 'px;')
    $fertig2 = StringReplace($text2, $aArray2[0], $neulesen_groesse)
    $fertig2 = StringToBinary($fertig2, 4)
    FileWrite("3.txt", $fertig2)
    
    
    
    
    ;###################### Farbe Überschrift ############
    $text3 = FileRead("3.txt")
    $aArray3 = _StringBetween($text, '.ueberschrift{text-align:center;font-family:' &  $aArray1[0] & ';font-size:'  & $aArray2[0]  & 'px;color:#', ';')
    $fertig3 = StringReplace($text3, $aArray3[0], $farbwert)
    $fertig3 = StringToBinary($fertig3, 4)
    FileWrite("4.txt", $fertig3)
    FileMove("4.txt", "1.html",1)
    FileDelete("3.txt")
    FileDelete("2.txt")
    
    
    EndIf
    Alles anzeigen


    Hier mal die html Datei als Text

    Spoiler anzeigen
    HTML
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <html>
    <head>
    <title>Test</title> 
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
     <style type="text/css">
     .ueberschrift{text-align:center;font-family:Arial;font-size:26px;color:#000000;
     }
     .text1 {font-family:"Times New Roman";font-size:12px;color:#000000;
     }
     .text2 {font-family:"Times New Roman";font-size:12px;color:#000000;
     }
     .tabelle {
    	 border-collapse: collapse;
    	 border: 4px solid #C0C0C0;
    	 background-color: #FFFFFF;
     }
     .auto-style1 {
    	 font-size: xx-large;
     }
     </style>			
     </head> 
    <body>	
    <p> </p>
    <table style="width: auto; height: auto;" align="center" class="tabelle">
    	<tr>
    		<td style="height: 23px; width: 692px;" class="ueberschrift">
    			<strong><br><br></strong>
    			<span class="ueberschrift_groesse"><strong>Dieses ist nur eine Testüberschrift</strong></span>
    									  <br><br>		
    		</td>
    	</tr>
    		<tr>
    			<td class="text1" style="width: 692px">Auch das hier  
    				ist nur von mir geschriebener müll um etwas da stehen zu haben. 
    				Wer das liest ist es wohl selber schuld, wenn auch nur ein bisschen. 
    				Hätte das ganze ja auch in unleserlichen zeichensätzen schreiben können,
    				wollte ich aber nicht. Hoffe mal das man mir dieses nicht ganz so übel nimmt.
    				Werde auch versuchen mich zu bessern, oder auch nicht.
    				Und noch etwas an fülltext, mir gehen langsam, oder aber auch schnell
    				die ideen die ich vieleicht oder hmmm naja was denn jetzt noch hier hin?
    				Das sollte aber langsam auch reichen an mülligen text der wie ich gestehen  
    				muss oder aber auch nicht schwer zu verdauen ist.
    				<br>
    				<!--Bild1-->
    				<br>
    				<!--Bild2--> 
    				<br>
    			</td>
    		 </tr>
    			<tr>						
    			<td class="text2" style="width: 692px">
    				Den zweiten Text erspare ich dir besser!! 
    				<br><br>
    				<img alt="" height="522" src="../../../img/Jahresabschluss/Jahresabschluss.jpg" width="800"><br><br><br>
    				<a href="https://de.wikipedia.org/wiki/ICalendar"> 
    				Hier noch weitere Bilder zum anschauen und Downloaden
    				</a><br><br>
    			</td>
    		</tr>
    </table>
    </body>
    </html>
    Alles anzeigen


    Wie kann man das abstellen das sich auch die Farbe unter der Überschrift ändert, oder einfacher was mache ich falsch?


    Gruss
    Uli

  • Laufzeit Dienststatusabfrage

    • oh-ha-2
    • 9. Januar 2016 um 13:13
    Code
    Ergebnis: CMD True t=0.295 s 	 WMI True t=0.127 s
    Ergebnis: CMD True t=0.305 s 	 WMI True t=0.144 s
    Ergebnis: CMD True t=0.295 s 	 WMI True t=0.146 s
    Ergebnis: CMD True t=0.321 s 	 WMI True t=0.134 s
    Ergebnis: CMD True t=0.301 s 	 WMI True t=0.130 s

    Win 10 x64

  • Account löschen

    • oh-ha-2
    • 1. Dezember 2015 um 12:36
    Zitat von x0r

    ...und du hast dich jetz neu angemeldet, um das mitzuteilen?

    Dein "alter" Benutzer ist übrigens gesperrt, kommt löschen gleich, also was willste noch?

    Hmm ist wohl nicht so ganz richtig.
    Nach § 13 Telemediengesetz muss auf Wunsch gelöscht werden. Ob das nun gleich ist oder nicht.
    Die Beiträges können bestehen bleiben sofern keine persönlichen Daten usw. enthalten sind.
    Ganz so einfach sollte man sich so etwas nicht machen, habe da schon recht herbe Dinge erlebt.

  • Treiber (in-/uninstall) mittels devcon - "Errorhandling"?

    • oh-ha-2
    • 28. November 2015 um 09:35

    Hallo,

    wenn du USB-Geräte zum installieren meinst da
    hatte ich mal etwas ähnliches gemacht, ADB-Treiber automatisch installieren, dabei hatte ich für das Errorhandling
    USBDeview genommen, vergleich vorher-nachher. USBDeview kann auch über die Kommandozeile gesteuert werden.


    Hier mal der Link zu dem Hersteller:USBDeview


    oh-ha

  • Zukunft für AutoIt.de - Impressionen und Ideen

    • oh-ha-2
    • 27. Juni 2015 um 14:55

    Was mich dabei nur stutzig macht ist das der Umzug und auch das Update so grotten schlecht abgelaufen ist.
    Habe das selbst schon mit meinen drei Foren gemacht ca 100000 User.
    Aber immer nur eine Sache auf einmal und auf gar keinen Fall beides, das verbietet sich normal schon von selbst.
    Bei einem Update haben wir das immer vorher getestet auf dem Server bevor das auf die User losgelassen worden ist.

    Nur ist das Kind jetzt leider schon in den Brunnen gefallen und man kann nur noch versuchen das es nicht absäuft.

    War vorher auch mal so drauf wie GunFood alles selber machen wollen ohne abzugeben, ist gelinde gesagt die schlechteste aller Lösungen für die User und für das Forum.
    Heute habe ich 2 Admins die im Grunde alle drei Foren im Griff haben und das besser als ich es jemals alleine hätte machen können. Einer von den beiden hat dabei auch vollen Zugriff
    auf den Server, der kennt sich da halt besser aus als meiner einer. Es wird vorher halt immer nur abgesprochen wenn einer etwas auf dem Sever ändert wobei dabei das "vorher" besondere Bedeutung hat.


    @Lottich
    Lösung 1 und 2 hören sich vernünftig an.
    Lösung 3 würdest du alles vernichten was autoit.de aussmacht.
    Lösung 4 ist eher was für neue User die sich dann aber auch immmer wieder beschweren werden das Anhänge fehlen usw.


    Zitat von BugFix

    Mir erschließt sich bis heute nicht, warum dieser Umzug durchgeführt wurde. Ich bin der Meinung, was läuft, sollte man auch laufen lassen.

    :thumbup::thumbup::thumbup: Besser kann man es nicht mehr ausdrücken. :thumbup::thumbup::thumbup:

    Gruss
    Uli

  • Suche protocol Nanoxx 9500/9800.

    • oh-ha-2
    • 16. Mai 2015 um 06:16

    Steht doch in der erweiterten BA welches Protokoll da verwendet wird.

    Zitat von NanoXX 9500 HD Ergänzende Bedienungsanleitung

    IV. Netzwerk:
    Bitte beachten Sie, dass zur Verwendung dieser Funktion Ihr Receiver mit Ihrem Netzwerk durch ein Ethernet Kabel verbunden sein muss. Es stehen Ihnen hier zwei weitere Untermenüs zur Verfügung:
    a. TCPIP Einstellungen: Dient zur Vergabe der Netzwerkadresse Ihres Receivers. Standardeinstellung ist DHCP, hierbei vergibt Ihr Router automatisch eine eindeutige IP an Ihre STB. Sollten Sie vorziehen, eine statische IP zuzuweisen, betätigen Sie bei Cursorstellung DHCP die OK Taste. Die blaue Markierung bei DHCP verschwindet, und Sie können nun Ihre Daten manuell über den Ziffernblock eintragen. Die rote Taste speichert Ihre Einstellung, back bringt sie zurück ins vorherige Menü.
    b. FTP Explorer: Werksseitig ist die NanoXX Download Site voreingestellt. Mit dieser Funktion können Sie aktuelle Software, ältere Software, Dokumentationen und Kanallisten von dem von NanoXX zu Verfügung gestellten Server auf Ihre Box laden. Gehen Sie mit dem Cursor auf das gewünschte Verzeichnis, bestätigen Sie mit OK und laden Sie dann mittels der grünen (Download) Taste die gewünschte Datei auf Ihr Speichermedium. Wenn Sie Ihren Receiver direkt mit einer neuen Software upgraden möchten, bewegen Sie den Cursor auf die gewünschte Software Version und bestätigen Sie nun mit OK. Das Upgrade wird jetzt sofort durchgeführt, ohne die Datei auf Ihrem Speichermedium zwischenzuspeichern.
    Bitte beachten Sie, dass das Herunterladen von Verzeichnissen nicht möglich ist.
    Wollen Sie auf einen eigenen oder fremden FTP Server zugreifen, wechseln Sie bei Webseite mit der Pfeiltaste rechts auf User Site. Sie können nun nach Betätigung der roten (Bearbeiten) Taste die Server Adresse, Ihren Benutzernamen und Ihr Passwort eingeben und wenn Ihnen der Zugang unter diesen Daten zum Server gestattet ist, verbinden Sie sich durch Betätigung der OK Taste. Gehen Sie mit dem Cursor auf das gewünschte Verzeichnis, wählen Sie es mit OK aus und laden Sie dann mittels der grünen (Download) Taste die gewünschte Datei auf Ihr Speichermedium.
    Bitte beachten Sie, dass das Herunterladen von Verzeichnissen nicht möglich ist.
    Wenn Sie die rote (Upload Media) Taste betätigen, können Sie auch Daten von Ihrem Speichermedium auf den FTP Server laden, mit dem Sie verbunden sind. Die Daten auf Ihrem Speichermedium werden angezeigt. Gehen Sie mit dem Cursor auf das gewünschte Verzeichnis, bestätigen Sie mit OK und laden Sie mittels der roten (Upload) Taste die gewünschte Datei auf den Server. Bitte beachten Sie, dass das Heraufladen von Verzeichnissen nicht möglich ist.

    Quelle: http://files.elv.de/service/manual…rznocomment.pdf

    Alles anzeigen

    Wenn du einen Webbrowser meinst den hat dieser Receiver nicht.

  • Doppelte Einträge aus *.ini löschen

    • oh-ha-2
    • 29. Dezember 2014 um 08:24

    Danke Lottich,

    IsArray, das war genau das was mir fehlte, kannte ich nicht und stand auch nicht in der Hilfe bei den Arrays.
    Muss dabei sagen das ich Arrays in der Vergangenheit gemieden hatte wie die Pest, dank BugFix aber inzwischen recht gut damit klar kam, dachte ich zumindest.
    Habe es nun, dank deiner Hilfe, so gelöst:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <DateTimeConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("GUIOnEventMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    Global $Form1 = GUICreate("Form1", 219, 438, 543, 159)
    Global $Input1 = GUICtrlCreateInput("0", 48, 272, 121, 21)
    Global $Input2 = GUICtrlCreateInput("0", 48, 328, 121, 21)
    $Label1 = GUICtrlCreateLabel("Übernachtungen", 64, 248, 84, 17)
    $Label2 = GUICtrlCreateLabel("Keine Übernachtungen", 56, 304, 114, 17)
    Global $Button1 = GUICtrlCreateButton("Eintragen", 72, 360, 75, 25)
    Global $Button2 = GUICtrlCreateButton("Beenden", 136, 408, 75, 25)
    Global $MonthCal1 = GUICtrlCreateMonthCal("2014/12/28", 16, 8, 191, 164)
    $Group1 = GUICtrlCreateGroup("Übernachtung", 48, 184, 129, 57)
    Global $Radio1 = GUICtrlCreateRadio("Ja", 65, 210, 49, 17)
    Global $Radio2 = GUICtrlCreateRadio("Nein", 120, 209, 49, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetState($Radio1, $GUI_CHECKED)
    GUICtrlSetOnEvent($Button1, "lesen_schreiben")
    GUICtrlSetOnEvent($Button2, "Ende")
    GUISetOnEvent($GUI_EVENT_CLOSE, "Ende")

    [/autoit] [autoit][/autoit] [autoit]

    Func Lesen_Schreiben()
    $kalender_lesen = GUICtrlRead($MonthCal1)
    $uebernachtungen = GUICtrlRead($Input1)
    $keine_uebernachtungen = GUICtrlRead($Input2)

    [/autoit] [autoit][/autoit] [autoit]

    If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED Then
    IniWrite(@ScriptDir & '\test.ini', 'Übernachtung', $kalender_lesen, '1')
    Local $uebernachtungen_vergleich_uebernachtung = IniReadSection(@ScriptDir & '\test.ini', 'Übernachtung')
    IniDelete(@ScriptDir & '\test.ini', 'Keine Übernachtung', $kalender_lesen)
    If IsArray($uebernachtungen_vergleich_uebernachtung) Then
    GUICtrlSetData($Input1, $uebernachtungen_vergleich_uebernachtung[0][0])
    Local $uebernachtungen_vergleich_keine = IniReadSection(@ScriptDir & '\test.ini', 'Keine Übernachtung')
    If IsArray($uebernachtungen_vergleich_keine) Then
    GUICtrlSetData($Input2, $uebernachtungen_vergleich_keine[0][0])
    EndIf
    EndIf
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    If BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) = $GUI_CHECKED Then
    IniWrite(@ScriptDir & '\test.ini', 'Keine Übernachtung', $kalender_lesen, '1')
    Local $uebernachtungen_vergleich_keine = IniReadSection(@ScriptDir & '\test.ini', 'Keine Übernachtung')
    IniDelete(@ScriptDir & '\test.ini', 'Übernachtung', $kalender_lesen)
    If IsArray($uebernachtungen_vergleich_keine) Then
    GUICtrlSetData($Input2, $uebernachtungen_vergleich_keine[0][0])
    Local $uebernachtungen_vergleich_uebernachtung = IniReadSection(@ScriptDir & '\test.ini', 'Übernachtung')
    If IsArray($uebernachtungen_vergleich_uebernachtung) Then
    GUICtrlSetData($Input1, $uebernachtungen_vergleich_uebernachtung[0][0])
    EndIf
    EndIf
    EndIf
    EndFunc;==>lesen_schreiben

    [/autoit] [autoit][/autoit] [autoit]

    Func Ende()
    Exit
    EndFunc;==>Ende

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep(100)
    WEnd

    [/autoit]
    Zitat von Raupi

    Ich denke für deine Daten ist eine Ini suboptimal.


    Da muss ich dir und auch BugFix recht geben. Werde ich mir in jeden Fall mal anschauen mit dem SQLite, nur für dieses Kalendarium bringt es mir jetzt nichts mehr. Ist fast fertig überarbeitet.

    So und nun mache ich etwas das ich wohl offensichtlich besser kann als hier eine verständliche Frage zu stellen. Baue meiner Tochter einen Schrank zusammen.

    Gruss und guten Rutsch ins neue Jahr
    oh-ha-2

  • Doppelte Einträge aus *.ini löschen

    • oh-ha-2
    • 28. Dezember 2014 um 23:01

    Ich gebe es auf.
    Werde schon dahinter kommen wie man die Anzahl in den Inputs anpasst zu den Einträgen in der Ini.
    Keine Ahnung warum hier auf den beiden Radios rumgeritten wird. Die waren nie das Problem, hätte wohl besser Zwei Buttons machen sollen im Beispielskript.
    einer mit "Übernachtung" und einer mit "keiner Übernachtung".


    Gruss
    oh-ha-2

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™