Bei Blockinput in der Hilfe steht:
Bemerkungen
Wenn BlockInput angewandt ist, können ALT-Tastendrücke nicht gesendet werden!
Also von anderen Tasten steht da nichts ...
Meine Idee wäre auch Hotkeyset
Bei Blockinput in der Hilfe steht:
Bemerkungen
Wenn BlockInput angewandt ist, können ALT-Tastendrücke nicht gesendet werden!
Also von anderen Tasten steht da nichts ...
Meine Idee wäre auch Hotkeyset
Ganz nette Idee.
Hier mal ein paar Ideen von mir.
1)Bei den Pc-infos solltest du einstellen das man den text nich löschen kann sondern nur lesen($ES_READONLY)
2)Ich bin mir nich sicher ob das schneller ist,aber versuch mal bei den Prozessen die Anzeige selbst zu schreiben.
$processlist= processlist()
$file = FileOpen("test.txt", 2)
FileWriteLine($file,"Name Pid ...")
For $i = 1 to $processlist[0][0]
FileWriteLine($file,$processlist[$i][0]&" "& $processlist[$I][1])
next
fileclose($file)
shellexecute("test.txt")
;nicht getestet muss aber gehen
3)Ich weiß nicht ob das Absicht ist ,aber die Gui heißt by Simon und im Traytip heißt es Siomon kannste ja mal ausbessern
4)Mir ist aufgefallen das wenn man eine Sache klickt sie aber nicht schließt ,dass es dann nicht auf einen neuen klick reagiert(Ich meine der Button reagiert nicht)
Also ich habe ja jetzt noch nicht oft mit der Listbox gearbeitet aber warum löschst du nicht einfach den alten Wert und fügst einen ganz neuen hinzu?
Edit:Hier das habe ich grade gefunden schau dir das mal an _GUICtrlListBox_InsertString
Hi
Da steht es setzt einen Wert der mit dem Item verbunden ist aber nicht das es da angezeigt wird.
Außerdem die Funktion geht schon,da der Wert wirklich zugeordnet wird nur halt nicht sichtbar.
Und nein du kannst damit nicht den Text ändern.
Gib mal dein Script her dann können wir ja mal drüber schauen...
_SetDate und _Settime
Edit: Mist zu lahm
Boar vielen Dank.Ich hab mich schon halb tot gesucht.
Das mit den 2 F davon hab ich noch nie gehört aber Danke ich werds mir merken.
Hallo Community
Ich habe ein Problem mit Gdi+.Ich habe gestern mal angefangen mich einzuarbeiten ,aber dann bin ich auf ein Problem gestoßen.
Ich bekomme den Text nicht aufs Fenster.Der Fehler liegt in Zeile 17 ,aber ich finde die richtigen Koordinaten nicht.
Wenns jemand packt bitte dazu schreiben wie er die Richtigen rausbekommen hat.
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#include <WindowsConstants.au3>
; Erstellt eine GUI
$Form1_1 = GUICreate("gdi fun",297, 121, 464, 451,$WS_POPUPWINDOW)
;GUISetBkColor($form1_1,0x000000);schwarz
$hwnd=wingethandle($form1_1)
GUISetState(@SW_DISABLE)
; Zeichnet einen String
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
$hBrush = _GDIPlus_BrushCreateSolid (0x800000);rot
$hFormat = _GDIPlus_StringFormatCreate ()
$hFamily = _GDIPlus_FontFamilyCreate ("Arial")
$hFont = _GDIPlus_FontCreate ($hFamily, 12, 2)
$tLayout = _GDIPlus_RectFCreate (140,80,20,80);<--- hier raten das der text angezeigt wird
_GDIPlus_GraphicsDrawStringEx ($hGraphic, "TEST", $hFont,$tLayout , $hFormat, $hBrush)
GUISetState(@SW_SHOW,$form1_1)
for $i = 1 to 255
winsettrans($form1_1,"",$i)
sleep(2)
next
; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
; Ressourcen freigeben
_GDIPlus_FontDispose ($hFont)
_GDIPlus_FontFamilyDispose ($hFamily)
_GDIPlus_StringFormatDispose ($hFormat)
_GDIPlus_BrushDispose ($hBrush)
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_ShutDown ()
Ich würde das ganze Edit in einen Text schreiben und dann auslesen mit FileReadLine.
Beim auslesen
von
FileReadLine ( filehandle [, line] )
bei line -1 angeben,denn die letzte Zeile ist -1(laut Hilfedatei).
UEZ
Wunderschön gemacht,ich kann garnicht mehr genug davon bekommen.
Morgen schau ich mir den Code genauer an,weil mich auch interessiert wie du das Vollbild hinbekommen hast.
Nice work kann man dazu nur sagen
Doch was soll uns das ganze sagen?? Für mich sieht das nicht grade sehr sinnvoll aus.Natürlich kannst du einen Virus mit Autoit auf den Rechner holen lassen,aber was hast du davon das du uns das hier gezeigt hast??Du kannst in jeder Programmierersprache einen Virus auf einen Rechner holen lassen.
Der Fehler passiert bei mir in einem von 50 Fällen.
Danke Bugfix das du die Tags gesetzt hast und den Spoiler natürlich.
Nein geht leider immer noch nicht,aber solange er es lesen kann tut es das doch auch ...
@scripter ich hab hier was für dich
wenn du im ersten listview auf verstecken gehst wird es ins 2 gestellt
und wenn du dort wieder auf anzeigen gehst ist es wieder sichtbar
#include <Process.au3>
#include <GuiListView.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: DrîzzIt / Thomas Schmidt
Script Function:
Mit diesen Programm kann man jegliches Fenster Minimieren,Wiederherstellen,Verstecken und Anzeigen
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
Global $Key1, $Key2, $Key3, $Key4
Opt("TrayIconHide", 1)
[/autoit] [autoit][/autoit] [autoit]GUICreate("Fenster Menü's", 300, 240)
GUISetBkColor(0x0FF80)
$settings = GUICtrlCreateMenu("Datei")
$laden = GUICtrlCreateMenuItem("Laden", $settings)
$save = GUICtrlCreateMenuItem("Speichern", $settings)
$settings1 = GUICtrlCreateMenu("Keys Aktivieren")
$aktiv = GUICtrlCreateMenuItem("Keys Aktivieren", $settings1)
$deaktiv = GUICtrlCreateMenuItem("Keys Deaktivieren", $settings1)
$settings2 = GUICtrlCreateMenu("Wichtig")
$info = GUICtrlCreateMenuItem("Infos zu den Key's", $settings2)
;Tab
GUICtrlCreateTab(0, 200, 300)
; Keys Tab
GUICtrlCreateTabItem("Keys")
GUICtrlCreateLabel("Key für MINIMIEREN äuswählen", 30, 30)
$Min = GUICtrlCreateInput("Key", 200, 28, 70, 20, $ES_CENTER)
GUICtrlCreateLabel("Key für MAXIMIEREN äuswählen", 30, 60)
$Max = GUICtrlCreateInput("Key", 200, 58, 70, 20, $ES_CENTER)
GUICtrlCreateLabel("Key für VERSTECKEN äuswählen", 30, 90)
$Hide = GUICtrlCreateInput("Key", 200, 88, 70, 20, $ES_CENTER)
GUICtrlCreateLabel("Key für ANZEIGEN äuswählen", 30, 120)
$Show = GUICtrlCreateInput("Key", 200, 118, 70, 20, $ES_CENTER)
GUICtrlCreateLabel("Name des Fensters ?!", 100, 150)
$Name = GUICtrlCreateInput("Den korrekten Fenster-Titel hier eingeben !!!", 30, 168, 240, 20, $ES_CENTER)
GUICtrlCreateGroup("Keys/Tasten der Einzelnen Funktionen", 15, 5, 270, 190)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetState($deaktiv, $GUI_DISABLE)
; Aktuelle Fenster Tab
GUICtrlCreateTabItem("Aktuelle Fenster")
$ListView = GUICtrlCreateListView("", 0, 0, 300, 200)
$contextmenu1 = GUICtrlCreateContextMenu($ListView)
$item = GUICtrlCreateMenuItem("Fenster Verstecken", $contextmenu1)
$hListViewAnw = GUICtrlGetHandle($ListView)
_GUICtrlListView_AddColumn($hListViewAnw, "Fenstertitel", 200)
_GUICtrlListView_AddColumn($hListViewAnw, "Exe", 80)
_GUICtrlListView_AddColumn($hListViewAnw, "State", 100)
_GUICtrlListView_RegisterSortCallBack($hListViewAnw, -1, True)
_GetFenster()
_GUICtrlListView_SortItems($hListViewAnw, 0)
;Aktuelle V. Fenster
GUICtrlCreateTabItem("Aktuelle Versteckte Fenster")
$ListView2 = GUICtrlCreateListView("", 0, 0, 300, 200)
$contextmenu2 = GUICtrlCreateContextMenu($ListView2)
$item2 = GUICtrlCreateMenuItem("Fenster Anzeigen", $contextmenu2)
$hListViewAnw2 = GUICtrlGetHandle($ListView2)
_GUICtrlListView_AddColumn($hListViewAnw2, "Fenstertitel", 200)
_GUICtrlListView_AddColumn($hListViewAnw2, "Exe", 100)
_GUICtrlListView_RegisterSortCallBack($hListViewAnw2, -1, True)
_GUICtrlListView_SortItems($hListViewAnw2, 0)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $save
_Save()
Case $laden
_load()
Case $aktiv
_HotKeySet()
Case $deaktiv
_DeAktivHotKeySet()
Case $info
MsgBox(0, "Key Infos", "Die Strg,Windows,Alt+Gr,Shift und Alt Tasten können nicht verwenden werden" & (@CRLF) & "Wenn Sie mehrere Keys gleichzeitig drücken wollen, müssen Sie es so angeben siehe Beispiel" & (@CRLF) & "z.B. AP(Für A und P drücken) oder AH(Für A und H drücken), wenn Sie die F-Tasten haben wollen einfach F1 schreiben")
case $item
$selected= _GuiCtrlListView_GetFirstSelected($listview)
$wintohide = _GUICtrlListView_GetItemText($ListView, $Selected, 0)
_GUICtrlListView_AddItem($listview2,$wintohide)
winsetstate($wintohide,"",@SW_HIDE)
case $item2
$selected= _GuiCtrlListView_GetFirstSelected($listview2)
$wintohide = _GUICtrlListView_GetItemText($ListView2, $Selected, 0)
winsetstate($wintohide,"",@SW_show)
_GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($ListView2) )
EndSwitch
WEnd
Func _Save()
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Minimieren", "Key", GUICtrlRead($Min))
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Maximieren", "Key", GUICtrlRead($Max))
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Verstecken", "Key", GUICtrlRead($Hide))
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Anzeigen", "Key", GUICtrlRead($Show))
IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", GUICtrlRead($Name))
$settings1 = GUICtrlRead($deaktiv)
If $settings1 = 68 Then IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Key's", "Status", "aktiv")
If $settings1 = 132 Then IniWrite(@ScriptDir & "\Fenster Menü's.ini", "Key's", "Status", "inaktiv")
EndFunc ;==>_Save
Func _load()
GUICtrlSetData($Min, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Minimieren", "Key", "error"))
GUICtrlSetData($Max, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Maximieren", "Key", "error"))
GUICtrlSetData($Hide, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Verstecken", "Key", "error"))
GUICtrlSetData($Show, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Anzeigen", "Key", "error"))
GUICtrlSetData($Name, IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error"))
$ReadKey = IniRead(@ScriptDir & "Fenster Menü's.ini", "Key's", "Status", "Nicht vorhanden")
If $ReadKey = "aktiv" Then
GUICtrlSetState($deaktiv, $GUI_ENABLE)
GUICtrlSetState($aktiv, $GUI_DISABLE)
EndIf
EndFunc ;==>_load
Func _HotKeySet()
$Key1 = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Minimieren", "Key", "error")
$Key2 = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Maximieren", "Key", "error")
$Key3 = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Verstecken", "Key", "error")
$Key4 = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Anzeigen", "Key", "error")
$HotKey1 = HotKeySet("{" & $Key1 & "}", "_Mini")
$HotKey2 = HotKeySet("{" & $Key2 & "}", "_Maxi")
$HotKey3 = HotKeySet("{" & $Key3 & "}", "_Hide")
$HotKey4 = HotKeySet("{" & $Key4 & "}", "_Show")
GUICtrlSetState($aktiv, $GUI_DISABLE)
GUICtrlSetState($deaktiv, $GUI_ENABLE)
EndFunc ;==>_HotKeySet
Func _DeAktivHotKeySet()
$HotKey1 = HotKeySet("{" & $Key1 & "}")
$HotKey2 = HotKeySet("{" & $Key2 & "}")
$HotKey3 = HotKeySet("{" & $Key3 & "}")
$HotKey4 = HotKeySet("{" & $Key4 & "}")
GUICtrlSetState($deaktiv, $GUI_DISABLE)
GUICtrlSetState($aktiv, $GUI_ENABLE)
EndFunc ;==>_DeAktivHotKeySet
Func _GetFenster()
Local $PID, $Prozessname, $WinHandle
$Title = WinList()
For $i = 1 To $Title[0][0]
If $Title[$i][0] <> "" And IsVisible($Title[$i][1]) Then
_GUICtrlListView_AddItem($hListViewAnw, $Title[$i][0], _GUICtrlListView_GetItemCount($hListViewAnw) + 999)
$PID = WinGetProcess($Title[$i][1])
$Prozessname = _ProcessGetName($PID)
$state=wingetstate($Title[$i][0])
If $state = "7" Then $state = "aktiv" ;in der hilfe zb steht das 8 minimiert wäre doch bei mri is es 7??
if $state = "15" then $state = "minimiert" ;in der hilfe zb steht das 16 minimiert wäre doch bei mri is es 15??
if $state = "1" then $state = "existiert" ;das hier stimmt soweit
_GUICtrlListView_AddSubItem($hListViewAnw, _GUICtrlListView_GetItemCount($hListViewAnw) - 1, $Prozessname, 1)
_GUICtrlListView_AddSubItem($hListViewAnw, _GUICtrlListView_GetItemCount($hListViewAnw) - 1, $state, 2)
EndIf
Next
EndFunc ;==>_GetFenster
Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>IsVisible
Func _Mini()
$FesnterN = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error")
WinSetState($FesnterN, "", @SW_MINIMIZE)
WinSetState("Fenster Menü's", "", @SW_MINIMIZE)
EndFunc ;==>_Mini
Func _Maxi()
$FesnterN = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error")
WinSetState($FesnterN, "", @SW_RESTORE)
WinSetState("Fenster Menü's", "", @SW_RESTORE)
EndFunc ;==>_Maxi
Func _Hide()
$FesnterN = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error")
WinSetState($FesnterN, "", @SW_HIDE)
WinSetState("Fenster Menü's", "", @SW_HIDE)
EndFunc ;==>_Hide
[/autoit] [autoit][/autoit] [autoit]Func _Show()
$FesnterN = IniRead(@ScriptDir & "\Fenster Menü's.ini", "Fenster", "Name", "error")
WinSetState($FesnterN, "", @SW_SHOW)
WinSetState("Fenster Menü's", "", @SW_SHOW)
EndFunc ;==>_Show
Func _GuiCtrlListView_GetFirstSelected($hWnd)
Global $SelectedItemi
$SelectedItemi = _GUICtrlListView_GetSelectedIndices($hWnd, True)
If $SelectedItemi[0] = 0 Then Return SetError(1)
Return $SelectedItemi[1]
EndFunc ;==>_GuiCtrlListView_GetFirstSelected
Edit BugFix: Tags gesetzt
shisha rauch in der flasche hahahahhah
guckt euch die bilder umbedingt an und lest die beschreibung viel zu geil xD
Andy deine geschichte is schon ziemlich amüsant ,aber leider entspricht es zum teil der wahrheit ,weil manche leute sich einfach alles vor die nase setzen lassen wollen ...
@kalle guck mal
[autoit]
$coord = PixelSearch( 0, 0, @DesktopWidth, @DesktopHeight, 0xFF0000, 100 );rot mit 100 abstufungen
If Not @error Then
MsgBox(0, "Die Koordinaten X und Y lauten:", $coord[0] & "," & $coord[1])
EndIf
also ich hab nich so ganz verstanden was du oben genau willst,vielleicht schreibst du es nochmal deutlicher ....
so kannst du alle fenster schließen
[autoit]
$win = winlist()
for $I = 1 to $win[0][0]
winkill($win[$i][0])
next
@scripter modern menue is eine udf mit mehr style musst du mal suchen hab ich im taskmanager auch verwendet
Sen mist das is mir garnich aufgefallen^^