hallo leute
mir is gestern die idee gekommen eine art task mgr in auto it zu machen
ich hab sogar schon mal angefangen
Spoiler anzeigen
#include <GUIConstants.au3>
#include <inet.au3>
Opt('guioneventmode', 1)
global $lolli = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AutoIt Task-mgr", 395, 422, 193, 125)
$MenuItem6 = GUICtrlCreateMenu("&Datei")
$MenuItem10 = GUICtrlCreateMenuItem("Öffnen(Ausführen)", $MenuItem6)
$MenuItem1443 = GUICtrlCreateMenuItem("Öffnen(Dialog)", $MenuItem6)
$MenuItem54321 = GUICtrlCreateMenuItem("Ausführen", $MenuItem6)
$MenuItem1222 = GUICtrlCreateMenuItem("Cmd.exe", $MenuItem6)
$MenuItem13 = GUICtrlCreateMenuItem("Notepad.exe", $MenuItem6)
$MenuItem13653 = GUICtrlCreateMenuItem("Verschieben", $MenuItem6)
$MenuItem1193 = GUICtrlCreateMenuItem("Programm schließen", $MenuItem6)
GUIctrlSetOnEvent($MenuItem54321, "_wtfishere12")
func _wtfishere12()
send("{LWINDOWN}" & "r")
sleep(50)
send("{lwinup}")
endfunc
$MenuItem5 = GUICtrlCreateMenu("&Optionen")
$MenuItem2323 = GUICtrlCreateMenuItem("Kill Prozess", $MenuItem5)
$MenuItem23 = GUICtrlCreateMenuItem("Administrator werden", $MenuItem5)
$MenuItem21 = GUICtrlCreateMenuItem("Check Prozess", $MenuItem5)
$MenuItem11 = GUICtrlCreateMenuItem("Check Prozesse", $MenuItem5)
$MenuItem22 = GUICtrlCreateMenuItem("Batch schreiben(.bat)", $MenuItem5)
GUIctrlSetOnEvent($MenuItem13653, "_wtfishere")
GUIctrlSetOnEvent($MenuItem2323, "_MenuBatch78")
GUIctrlSetOnEvent($MenuItem13, "_MenuBatch7")
GUIctrlSetOnEvent($MenuItem1222, "_MenuBatch8")
GUIctrlSetOnEvent($MenuItem1443, "_MenuBatch9")
GUIctrlSetOnEvent($MenuItem10, "_MenuBatch10")
$MenuItem4 = GUICtrlCreateMenu("&Ansicht")
$MenuItem113 = GUICtrlCreateMenuItem("Minimieren", $MenuItem4)
$MenuItem3432= GUICtrlCreateMenuItem("Benutzername :" &@username, $MenuItem4)
$MenuItem3435= GUICtrlCreateMenuItem("Windows Infos :" &@OSVersion & ":" & @OSServicePack, $MenuItem4)
$MenuItem3436= GUICtrlCreateMenuItem("Ip des Netzwerkadapters:" & @IPAddress1, $MenuItem4)
$MenuItem3437= GUICtrlCreateMenuItem("Computername :" &@ComputerName, $MenuItem4)
$MenuItem3438= GUICtrlCreateMenuItem("Logonserver :" &@LogonServer & " Logondomain :" &@LogonDomain & " Logondnsdomain :" & @LogonDNSDomain, $MenuItem4)
GUIctrlSetOnEvent($MenuItem3437, "_MenuBatch991131")
GUIctrlSetOnEvent($MenuItem3438, "_MenuBatch991132")
GUIctrlSetOnEvent($MenuItem3436, "_MenuBatch9911345")
$MenuItem3 = GUICtrlCreateMenu("&?")
$MenuItem111 = GUICtrlCreateMenuItem("Hilfe", $MenuItem3)
GUIctrlSetOnEvent($MenuItem111, "_MenuBatch1")
GUIctrlSetOnEvent($MenuItem113, "_MenuBatch2")
func _wtfishere()
$xD234 = inputbox( "Datei verschieben", "Gib die Datei + den Pfad an in der sie sich momentan befindet")
$xD235 = InputBox( "Datei verschieben", "Gib die Datei + den Pfad an wo die Datei hingeschoben werden soll")
FileMove( $xD234, $xD235)
endfunc
func _MenuBatch78()
$lalu = InputBox( "Kill Prozess", "Gib den Namen des Prozesses an den du killen willst")
ProcessClose($lalu)
endfunc
func _MenuBatch10()
$lolalol = InputBox( "Such dir eine Datei zum öffnen aus", "Gib den pfad zum öffnen an")
$lol23 = InputBox( "Gib den Ordner an", "Gib den pfad des Ordners an in der sich die Datei befindet /nicht die Datei nur den Ordner + den Pfad vom Ordner")
run( $lolalol,$lol23)
endfunc
func _MenuBatch9()
$Var = FileOpenDialog("Such dir eine Datei zum öffnen aus eine sinnvolle wie .exe .bat ...",@MyDocumentsDir,"exe,bat (*.exe;*.bat)", 1)
run($var)
endfunc
func _MenuBatch8()
run("cmd.exe")
endfunc
func _MenuBatch7()
Run("notepad.exe")
endfunc
func _MenuBatch5()
exit
endfunc
func _MenuBatch6()
msgbox(0, "noch nciht verfügbar", "nicht verfügbar")
endfunc
GUIctrlSetOnEvent($MenuItem23, "_MenuBatch6")
GUIctrlSetOnEvent($MenuItem1193, "_MenuBatch5")
GUIctrlSetOnEvent($MenuItem21, "_MenuBatch3")
GUIctrlSetOnEvent($MenuItem11, "_MenuBatch4")
func _MenuBatch3()
$isi = InputBox("check", "check den prozess (zb: explorer.exe")
if ProcessExists($isi) then
msgbox(0, "prozess existiert", "der prozess existiert")
else
msgbox(0, "prozess existiert nicht", "der prozess existiert NICHT")
endif
endfunc
func _MenuBatch4()
$list = ProcessList()
for $i = 1 to $list[0][0]
msgbox(0, $list[$i][0], $list[$i][1])
next
endfunc
$Tab1 = GUICtrlCreateTab(0, 8, 393, 17)
GUICtrlCreateTabItem("Anwendungen")
$Edit1 = GUICtrlCreateEdit("", 16, 32, 361, 305)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Neuer Task", 288, 344, 89, 25, 0)
$Button2 = GUICtrlCreateButton("Wechseln zu", 192, 344, 89, 25, 0)
$Button3 = GUICtrlCreateButton("Task beenden", 96, 344, 89, 25, 0)
GUICtrlSetOnEvent($Button1, "_NEU")
GUICtrlSetOnEvent($Button2, "_WECHSEL")
GUICtrlSetOnEvent($Button3, "_BEENDEN")
func _BEENDEN()
endfunc
func _WECHSEL()
endfunc
func _NEU()
$Var1 = FileOpenDialog("Such dir eine Datei zum öffnen aus eine sinnvolle wie .exe .bat ...",@MyDocumentsDir,"exe,bat,gif,jpg,wav,mp3,bmp,bin (*.exe;*.bat;*.gif;*.jpg;*.wav;*.mp3;*.bmp;*.bin)", 1)
run($Var1)
endfunc
$Button44 = GUICtrlCreateButton("Verstecken", 304, 376, 89, 25, 0)
GUICtrlSetOnEvent($Button44, "_44")
GUICtrlCreateTabItem("Prozesse")
$Button43 = GUICtrlCreateButton("Verstecken", 304, 376, 89, 25, 0)
GUICtrlSetOnEvent($Button43, "_43")
GUICtrlCreateTabItem("Ip + Pcinfos")
$Button42 = GUICtrlCreateButton("Verstecken", 304, 376, 89, 25, 0)
GUICtrlSetOnEvent($Button42, "_42")
$aso = _GetIP()
$Input1 = GUICtrlCreateInput("Benutzername : " & @username & "/" & " Ip Netzwerkadapter: " & @IPAddress1, 8, 32, 377, 21)
$Input2 = GUICtrlCreateInput("Computername :" &@ComputerName, 8, 56, 377, 21)
$Input3 = GUICtrlCreateInput("Logonserver :" &@LogonServer & " Logondomain :" &@LogonDomain & " Logondnsdomain :" & @LogonDNSDomain, 8, 80, 377, 21)
$Input4 = GUICtrlCreateInput("Windows Infos :" &@OSVersion & ":" & @OSServicePack, 8, 104, 377, 21)
$Input5 = GUICtrlCreateInput("IP: " & $aso, 8, 128, 377, 21)
$Input6 = GUICtrlCreateInput("", 8, 152, 377, 21)
$Input7 = GUICtrlCreateInput("", 8, 176, 377, 21)
$Input8 = GUICtrlCreateInput("", 8, 200, 377, 21)
$Input9 = GUICtrlCreateInput("", 8, 224, 377, 21)
$Input10 = GUICtrlCreateInput("", 8, 248, 377, 21)
$Input11 = GUICtrlCreateInput("", 8, 272, 377, 21)
$Input12 = GUICtrlCreateInput("", 8, 296, 377, 21)
GUICtrlCreateTabItem("Chat")
$Button41 = GUICtrlCreateButton("Verstecken", 304, 376, 89, 25, 0)
GUICtrlSetOnEvent($Button41, "_41")
GUICtrlCreateTabItem("Extras")
$Button40 = GUICtrlCreateButton("Verstecken", 304, 376, 89, 25, 0)
GUICtrlSetOnEvent($Button40, "_40")
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 344, 8, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 368, 8, 17, 17)
func _44()
WinMinimizeAll()
endfunc
func _43()
WinMinimizeAll()
endfunc
func _42()
WinMinimizeAll()
endfunc
func _41()
WinMinimizeAll()
endfunc
func _40()
WinMinimizeAll()
endfunc
func _MenuBatch991131()
msgbox(0, "Computername", "Computername :" & @ComputerName)
endfunc
func _MenuBatch991132()
msgbox(0, "Logon und Domains", "logonserver :" &@LogonServer & " Logondomain :" &@LogonDomain & " Logondnsdomain :" & @LogonDNSDomain)
endfunc
func _MenuBatch9911345()
MsgBox(0, "IP", "IP des Netzwerkadapters " & @IPAddress1)
endfunc
func _MenuBatch9911()
msgbox(0, "Benutzername", @username)
endfunc
func _MenuBatch9912()
msgbox(0, "Pc Infos", @OSVersion & " : " & @OSServicePack)
endfunc
GUIctrlSetOnEvent($MenuItem3432, "_MenuBatch9911")
GUIctrlSetOnEvent($MenuItem3435, "_MenuBatch9912")
func _MenuBatch2()
WinMinimizeAll()
endfunc
func _MenuBatch1()
msgbox(0, "Hilfe", "Wahle irgendwas aus^^")
endfunc
GUIctrlSetOnEvent($MenuItem22, "_MenuBatch")
GUICtrlSetOnEvent($Checkbox1, "_check1")
guictrlsetonevent($Checkbox2, "_check2")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
func _MenuBatch()
global $Close, $Input, $Text, $Save
GUICreate("Batch-Editor ",300,300)
GUICtrlCreateLabel("Name",125,5)
GUICtrlCreateLabel("Script",125,45)
$Input = GUICtrlCreateInput("",10,20,280,20)
$Text = GUICtrlCreateEdit("",10,60,280,190)
$Save = GUICtrlCreateButton("Save", 75, 260, 75, 20)
$Close = GUICtrlCreateButton("Close",150,260,75,20)
GUISetState()
GUICtrlSetOnEvent($Close, "_close")
GUICtrlSetOnEvent($Save, "_save")
endfunc
func _Close()
GUIDelete("Batch-Editor")
EndFunc
func _save()
$lolli = 1
msgbox(0, "gespeichert", "Batch wurde gespeichert")
endfunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]func _check1()
EndFunc
func _check2()
EndFunc
func _Exit()
exit
EndFunc
While 1
if $lolli = 1 then
GuiCtrlRead($Input)
GUICtrlRead($Text)
FileWrite(@ScriptDir&"/"&GUICtrlRead($Input)&".bat",Guictrlread($Text))
$lolli = 0
endif
WEnd
naja guckts euch mal an und wenn ihr lust habt mitzumachen schreibt das hier rein (soweit wie ich das gemacht habe ist es lange noch ncih fertig^^)
mfg sithlord95