HI,
ich verschlüssel mit folgender Zeile einen Ordner:
[autoit]_Crypt_EncryptFile(@ScriptDir & "\system", @ScriptDir & "\system.save", "123qwe", $CALG_AES_256)
[/autoit]wenn ich aber nun mit dieser Zeile entschlüssel bekomme ich keinen Ordner sondern eine Datei ohne Endung.
[autoit]_Crypt_DecryptFile(@ScriptDir & "\system.save", @ScriptDir & "\system", "123qwe", $CALG_AES_256)
[/autoit]Ne leider nicht, da ich keine Feste Anzahl an Edit/Label-Feldern habe.Wäre es möglich das man bei dem Buttonklick das Editfeld beschreibbar macht und beim Focusverlust/betätigen der Entertaste wieder unbeschreibbar?
Mh funktioniert irgendwie nicht so ganz. Wie kann ich den den aktuelle Style einen Controllers erfragen. GUICtrlGetStyle gibt es ja leider nicht. Hab bis jetzt:
[autoit]#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
GUICreate("", 260, 80)
$edit = GUICtrlCreateEdit("Input1", 8, 8, 240, 20, 0, 0)
$button = GUICtrlCreateButton("Button1", 8, 40, 240, 30)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button
If Hier prüfen ob $ES_READONLY gesetzt wurde Then
GUICtrlSetStyle("",-1,$edit)
Else
GUICtrlSetStyle($ES_READONLY,-1,$edit)
EndIf
EndSwitch
WEnd
Hi,
bei GUICtrlCreateEdit führ der Link bei "style" ("Anhang GUI-Stile für Controls") zu "#include <ButtonConstants.au3>" anstatt zu "#include <EditConstants.au3>".
Das ist natürlich auch eine Idee, kann man das irgendwie verhindern das die Schrift dann grau wird?
Hi,
ich es möglich den Typ eines Control zu ändern als zum Beispiel ein Label in ein Editfeld umändern? Wenn ja ist es dann möglich das die Control-ID die gleiche bleibt?
Wenn beide Bedingungen zutreffen solllen dann so
If ProcessExists($test1) AND ProcessExists($test2) then
[/autoit]wenn nur eine zutreffen muss dann so:
[autoit]If ProcessExists($test1) OR ProcessExists($test2) then
[/autoit]Hier hast einen Portscanner in Autoit: http://www.autoitscript.com/forum/index.php?showtopic=50236
@Pinguin94 zum hundertstenmal, was verstehst du unter Netzwerkkarte auslesen, den Typ, die Mac, die Technischen Daten??
Oscar schau mal zwei Posts höher den Link an ;). UEZ will das ja mit DLL machen ohne WMI.
Hi,
im Beispil zu ShellExecute Wait steht:
[autoit]$val = ShellExecuteWait("Notepad.exe")
[/autoit][autoit][/autoit][autoit]; Skript wartet bis Notepad beendet ist.
MsgBox(0, "Programm beendete mit dem "exit code":", $val)
müsste aber heißen
[autoit]$val = ShellExecuteWait("Notepad.exe")
[/autoit][autoit][/autoit][autoit]; Skript wartet bis Notepad beendet ist.
MsgBox(0, 'Programm beendete mit dem "exit code":', $val)
Naja wenn die Dateine in einzelen Zipfilest splittest die dann nach dem Downlaod wieder zusammenfügst dann ja.
Danke das _pathsplit() war genau das was ich gesucht hatte :).
Hi,
ich lese mit folgenem Script alle Dateien/Verzeichnisse aus einem Ordner aus und übergebe die Namen an eine Funktion:
$search = FileFindFirstFile(@ScriptDir & "\Desktop\*.*")
[/autoit] [autoit][/autoit] [autoit]If $search = -1 Then
Else
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
If @extended = 1 Then
_button($Desktop, "Folders\Closed.ico", "Desktopshort", $file)
Else
_button($Desktop, "File Types\TextDocument.ico", "Desktopshort", $file, ".txt")
EndIf
WEnd
EndIf
Wie könnte ich hier nun noch erkennen welchen Dateityp die Datei hat. Habe schon überlegt mit StringInStr nach einem Punkt zu suchen, ist aber aber nicht das richtige weil in einem Dateinamne ja auch Punkte vorkommen können. Und prüfen auf z.b. ".txt" wäre auch umständlich weil ich dann ja für alle Dateitypen die auf der Welt existieren prüfen müsste.
Danke Raupi :). Funktioniert tadellos.
Dann sind ei Punkte zwar wieder da, aber nicht als Untermenü vom Menü "Neu".
Hi,
ich erstelle mit dieser Funktion ein Rechtsklickmenü in einer GUI:
Func WM_CONTEXTMENU($hWnd, $iMsg, $iwParam, $ilParam)
Local $hMenu
If $iwParam = $Desktop Then
$hMenu = _GUICtrlMenu_CreatePopup()
_GUICtrlMenu_InsertMenuItem($hMenu, 1, "Neu")
_GUICtrlMenu_InsertMenuItem($hMenu, 2, "Neue Textdatei")
_GUICtrlMenu_InsertMenuItem($hMenu, 3, "Neuer Ordner")
_GUICtrlMenu_InsertMenuItem($hMenu, 4, "")
_GUICtrlMenu_InsertMenuItem($hMenu, 5, "exit")
_GUICtrlMenu_TrackPopupMenu($hMenu, $iwParam)
_GUICtrlMenu_DestroyMenu($hMenu)
EndIf
Return True
EndFunc ;==>WM_CONTEXTMENU
Laut Hilfe sollte ich nun so den Menupunkte "Neue Textdatei" und "Neuer Ordner" als Unterpunkte unter dem Menüpunkt neu anlegen könnte:
Func WM_CONTEXTMENU($hWnd, $iMsg, $iwParam, $ilParam)
Local $hMenu
If $iwParam = $Desktop Then
$hMenu = _GUICtrlMenu_CreatePopup()
_GUICtrlMenu_InsertMenuItem($hMenu, 1, "Neu")
_GUICtrlMenu_InsertMenuItem($hMenu, 2, "Neue Textdatei",0,1)
_GUICtrlMenu_InsertMenuItem($hMenu, 3, "Neuer Ordner",0,1)
_GUICtrlMenu_InsertMenuItem($hMenu, 4, "")
_GUICtrlMenu_InsertMenuItem($hMenu, 5, "exit")
_GUICtrlMenu_TrackPopupMenu($hMenu, $iwParam)
_GUICtrlMenu_DestroyMenu($hMenu)
EndIf
Return True
EndFunc
Nur leider sind die beiden Menüpunkte dann ganz weg.
Wow perfekt, funktionier einwandfrei :).
Hier mein aktueller Code, wichtig ist das hier noch einige weiter GUIs hinzukommen werden:
#include <Array.au3>
#include <ArrayMore.au3>
#include <Misc.au3>
#include <GuiMenu.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
Opt("GUIEventOptions", 1)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUIRegisterMsg($WM_CONTEXTMENU, "WM_CONTEXTMENU")
$dll = DllOpen("user32.dll")
Global $button[1][2]
$button[0][0] = "buttons"
Dim $deskneutext
;~ Desktop
#Region ### START Koda GUI section ### Form=
Global $Desktop = GUICreate("Desktop", 400, @DesktopHeight, 0, 0, BitOR($WS_POPUP, $WS_VISIBLE), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;~ Startmenübutton
$Start = GUICtrlCreateButton("", 2, @DesktopHeight - 48, 75, 48, BitOR($BS_NOTIFY, $BS_ICON, $WS_GROUP, $WS_TABSTOP, $WS_VISIBLE, $BS_FLAT))
GUICtrlSetImage(-1, @ScriptDir & "\Icons\Ico\Extras\Home.ico", -1)
_button($Desktop, "Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ _button("Desktop\My_Computer.ico", "Arbeitsplatz", "Desktop")
;~ Startmenü
#Region ### START Koda GUI section ### Form=
$Startmenu = GUICreate("Startmenu", 250, 500, 2, @DesktopHeight - 550, BitOR($WS_VISIBLE, $WS_BORDER, $WS_CLIPSIBLINGS, $WS_POPUP), -1, $Desktop)
$icon = GUICtrlCreateIcon(@ScriptDir & "\Icons\Ico\Start Menu\Settings_ControlPanel.ico", -1, 10, 408, 32, 32, 0)
$Systemeinstellungen = GUICtrlCreateButton("Systemeinstellungen", 0, 400, 250, 48, BitOR($BS_CENTER, $BS_VCENTER, $WS_CLIPSIBLINGS, $BS_BOTTOM))
$Ausloggen = GUICtrlCreateButton("", 0, 452, 83, 48, BitOR($BS_NOTIFY, $BS_ICON, $WS_GROUP, $WS_TABSTOP, $WS_VISIBLE, $BS_FLAT))
GUICtrlSetImage(-1, @ScriptDir & "\Icons\Ico\Extras\LogOff.ico", -1)
$Neustart = GUICtrlCreateButton("", 83, 452, 83, 48, BitOR($BS_NOTIFY, $BS_ICON, $WS_GROUP, $WS_TABSTOP, $WS_VISIBLE, $BS_FLAT))
GUICtrlSetImage(-1, @ScriptDir & "\Icons\Ico\Extras\Restart.ico", -1)
$Beenden = GUICtrlCreateButton("", 166, 452, 83, 48, BitOR($BS_NOTIFY, $BS_ICON, $WS_GROUP, $WS_TABSTOP, $WS_VISIBLE, $BS_FLAT))
GUICtrlSetImage(-1, @ScriptDir & "\Icons\Ico\Extras\Shutdown.ico", -1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
;~ Arbeitsplatz
#Region ### START Koda GUI section ### Form=
$Arbeitsplatz = GUICreate("Arbeitsplatz", 625, 443, 192, 124, -1, -1, $Desktop)
GUISetIcon(@ScriptDir & "\Icons\Ico\Desktop\My_Computer.ico", -1)
_Arbeitsplatz()
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
;~ Desktopaktionen
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case 0
ContinueLoop
Case $GUI_EVENT_CLOSE
GUIDelete($nMsg[1])
Case $Beenden
Exit
Case $Start
_Startmenu()
Case $GUI_EVENT_RESTORE
GUISetState(@SW_RESTORE, $nMsg[1])
Case $GUI_EVENT_MINIMIZE
GUISetState(@SW_MINIMIZE, $nMsg[1])
ControlMove("", "", $nMsg[1], 100, 100)
Case Else
If UBound($button) > 1 Then
$desktopklick = _ArraySearch($button, $nMsg[0])
If $desktopklick > 0 Then
MsgBox(0, "", "lala")
EndIf
EndIf
EndSwitch
_Desktopmove()
WEnd cry1pt
;~ buttons erstellen
Func _button($handle, $pfad, $name, $typ)
If $typ = "Desktop" Then
$anzahl = UBound(_ArrayFindAll($button, "Desktop", 0, 0, 0, 1, 1))
$max = Int((@DesktopHeight - 70) / 70)
$left = 30
If $anzahl >= $max Then
$anzahl = ($anzahl - $max)
$left = ((Int($anzahl / $max) + 1) * 70) + 30
EndIf
$top = ($anzahl * 70) + 30
$icon = _GUICtrlButton_Create($handle, "", $left, $top, 60, 60, BitOR($BS_NOTIFY, $BS_ICON, $WS_GROUP, $WS_TABSTOP, $WS_VISIBLE, $BS_FLAT))
EndIf
_GUICtrlButton_SetImage($icon, @ScriptDir & "\Icons\Ico\" & $pfad, -1)
_Array2DAdd($button, $icon & "|" & $typ & "#" & $name)
EndFunc ;==>_button
;~ Desktopbuttons bewegen
Func _Desktopmove()
If _IsPressed("04", $dll) Then
$CursorInfo = GUIGetCursorInfo($Desktop)
$moveid = $CursorInfo[4]
$wert = _ArraySearch($button, $moveid)
If $wert > 0 Then
Sleep(250)
While 1
If _IsPressed("04", $dll) Then
$CursorInfo = GUIGetCursorInfo($Desktop)
ControlMove("Desktop", "", $moveid, $CursorInfo[0] - 30, $CursorInfo[1] - 30)
Else
ExitLoop
EndIf
WEnd
EndIf
EndIf
EndFunc ;==>_Desktopmove
;~ Startmenüaktionen
Func _Startmenu()
GUISetState(@SW_SHOW, $Startmenu)
Sleep(1000)
While 1
$pos = MouseGetPos()
If $pos[0] > 252 Or $pos[1] < @DesktopHeight - 532 Then
GUISetState(@SW_HIDE, $Startmenu)
ExitLoop
EndIf
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $Beenden
Exit
EndSwitch
WEnd
EndFunc ;==>_Startmenu
;~ Arbeitsplatzaktionen
Func _Arbeitsplatz()
$festplatten = DriveGetDrive("Fixed")
If Not @error Then
$festplattenteiler = 3
For $i = 1 To $festplatten[0]
If $i = $festplattenteiler Then
$festplattenteiler = $festplattenteiler + 2
EndIf
Next
EndIf
EndFunc ;==>_Arbeitsplatz
;~ Rechtsklickemenübefehle
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Switch $iwParam
Case $deskneutext
_button($Desktop, "File Types\TextDocument.ico", "Textdatei", "Desktop")
EndSwitch
EndFunc ;==>WM_COMMAND
;~ Rechtsklickemenü
Func WM_CONTEXTMENU($hWnd, $iMsg, $iwParam, $ilParam)
Local $hMenu
If $iwParam = $Desktop Then
$hMenu = _GUICtrlMenu_CreatePopup()
_GUICtrlMenu_InsertMenuItem($hMenu, 0, "Neue Textdatei", $deskneutext)
_GUICtrlMenu_InsertMenuItem($hMenu, 1, "neu")
_GUICtrlMenu_InsertMenuItem($hMenu, 3, "")
_GUICtrlMenu_InsertMenuItem($hMenu, 3, "exit")
_GUICtrlMenu_TrackPopupMenu($hMenu, $iwParam)
_GUICtrlMenu_DestroyMenu($hMenu)
EndIf
Return True
EndFunc ;==>WM_CONTEXTMENU
Sicher das es an Autoit liegt? Weil die aktuelle Version von S4 ist recht verbugt und läuft bei vielen nichtmehr, sprich Blackscreen, Prozess friert ein, Maus geht nicht usw.
