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?