Ah danke jetzt ergibt auch der Quellcode des Programms einen Sinn ;v
Beiträge von Litom2
-
-
Für was kann man alles den Befehl
"dllstructcreate" benutzen bzw was bringen dllstrukturen
?! -
ich glaub ich habs mom
hat sich erledigt
da kommt ja guictrlread hin das hab ich total vergessen o,o -
In einem anderen Forum hat jemand erklärt wie man eine sichere Passwortabfrage in autoit programmiert , nur bei mir funkt das nicht so ganz :s
[autoit]#include <Crypt.au3>
[/autoit][autoit][/autoit][autoit]$Passwort = "12345" ;dein pw
[/autoit][autoit][/autoit][autoit]
$Hashkey = "key" ;der hashkey muss im programm enthalten sein_Crypt_Startup()
[/autoit][autoit][/autoit][autoit]$Key = _Crypt_DeriveKey($Passwort, $Hashkey, $CALG_MD5) ;key generieren
[/autoit][autoit][/autoit][autoit]$Data = _Crypt_EncryptData($Passwort, $Key, $CALG_AES_256) ;encrypten
[/autoit][autoit][/autoit][autoit]Send(@CRLF & $Data & @CRLF)
[/autoit][autoit][/autoit][autoit]_Crypt_DestroyKey($Key) ;ende
[/autoit][autoit][/autoit][autoit][/autoit]
_Crypt_Shutdown()Hier wird der Hash generiert.
[autoit]#RequireAdmin
[/autoit][autoit][/autoit][autoit]
#include <Crypt.au3>$hGUI = GUICreate("Crackme 3", 222, 100, -1, -1)
[/autoit][autoit][/autoit][autoit]
$hPW_Label = GUICtrlCreateLabel("Enter Password:", 4, 8, 81, 17)
$Password = GUICtrlCreateInput("", 88, 4, 129, 21)
$hStart = GUICtrlCreateButton("Ok", 110, 28, 50, 25)
$q = Guictrlcreatebutton("Button",10,50,100,50)
GUISetState(@SW_SHOW, $hGUI)While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hStart
_Start()
EndSwitch
WEndFunc _Start()
[/autoit][autoit][/autoit][autoit]
$Passwort = GUICtrlRead($Password)
$Hashkey = "key" ;der hashkey sollte auch nochmal gesichert werden
$Hash = "0xF0DB6718284C2E372E5628815F40CA3E" ;der aes256 key, erzeugt aus dem hashkey und den pw_Crypt_Startup()
[/autoit][autoit][/autoit][autoit]
$Key = _Crypt_DeriveKey($Passwort, $Hashkey, $CALG_MD5)
$pw = _Crypt_DecryptData($Hash, $Key, $CALG_AES_256)$pass = Guictrlread($Password)
[/autoit][autoit][/autoit][autoit]If $pw = $pass Then
[/autoit][autoit][/autoit][autoit]Msgbox(0,"..", "Right")
[/autoit]
_Crypt_DestroyKey($Key) ;closen
_Crypt_Shutdown()
Else
msgbox(0,"...","Wrong")
_Crypt_DestroyKey($Key) ;closen
_Crypt_Shutdown()
Endif
EndFuncCode ist jetzt richtig ;D
-
[autoit]
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>$hgui = GUICreate("kk", 310, 190, 568, 120)
[/autoit][autoit][/autoit][autoit]
$open = GUICtrlCreateButton("Guiöffnen", 8, 24, 139, 49)GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$Msg = GUIGetMsg()
Switch $Msg
case $open
_bopen()
case -3
exit
EndSwitch
WEndfunc _bopen()
[/autoit][autoit][/autoit][autoit]$Bibliothekgui = GUICreate("...", 958, 472, 230, 261)
[/autoit][autoit][/autoit][autoit]
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)While 2
[/autoit]
$Msg = GUIGetMsg()
Switch $Msg
case -3
exit
EndSwitch
WEnd
Endfunc
Wie kann ich das zweite Fenster zu einer ChildGui machen? -
Wie schütz ich mein Autoit-script gegen decompiling?
-
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=little iconpack\icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<WindowsConstants.au3>
#include<Misc.au3>
$hGui = GUICreate("", 400, 400, default, default, $WS_POPUP)
$bhandle = GUICtrlCreateButton("Button :>", 30, 30, 60, 55)
GUISetBkColor(0x00FF00)
GUISetState()
while 1
$mPos = GUIGetCursorInfo()
if IsArray($mPos) And _IsPressed(01) Then
$Fenster_Position = WinGetPos($hGui) ; Fensterposition herrausfinden
$Maus_Position = MouseGetPos() ; Mausposition herrausfinden
$Maus_Position_Vorher = MouseGetPos() ; "
While _IsPressed(01) = 1
$Maus_Position = MouseGetPos() ; Die neue Mausposition herausfinden
WinMove($hGui, "", $Maus_Position[0] - $Maus_Position_Vorher[0] + $Fenster_Position[0], $Maus_Position[1] - $Maus_Position_Vorher[1] + $Fenster_Position[1])
; Keine ahnung warum, aber es geht^^
WEnd
EndIf
if _IsPressed("1B") Then exit ; ESC
WEndWhile 2
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $bhandle
_llo()
EndSwitch
WEndfunc _llo()
msgbox(0, "", "")
EndFuncWarum Funktioniert das mit dem button nicht?
-
keine schlechte idee.
Manche Sachen kann man echt nicht gut mit schreiben erklären. -
Ich will ja nicht rumnörgeln aber kann man das nicht irgendwie als .exe erstellen? D:
-
ne meinte ich nicht
Ich will bei erstellen eine Exe erstellen , die einfach nur eine Msgbox macht -
Danke , damit wär ein Problem gelöst
-
Ja, nur das wenn die Checkbox nichtmehr gecheckt ist, soll der Button wieder disabled sein ;D
-
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 389, 111, 254, 146, $GUI_SS_DEFAULT_GUI)
$Titel = GUICtrlCreateInput("", 48, 8, 121, 21)
$Text = GUICtrlCreateInput("", 48, 32, 233, 21)
$aktiv = GUICtrlCreateCheckbox("Aktivieren", 176, 8, 97, 17)
$Erstellen = GUICtrlCreateButton("Erstellen", 8, 64, 99, 41)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Text :", 8, 32, 36, 17)
$Label2 = GUICtrlCreateLabel("Titel :", 8, 8, 36, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Erstellen
_Erstellen()
EndSwitch
WEndfunc _Erstellen()
endfuncIf BitAnd(GUICtrlRead($aktiv),1) then
MsgBox(0,"23","23")
$Erstellen = GUICtrlCreateButton("Erstellen", 8, 64, 99, 41)
EndifHier ist mal mein Code , ich wollte ein Programm programmieren was ein Programm erstellt das eine Msgboxmacht mit dem Text/Titel der Input-Box
Nur leider hab ich 2 Probleme , die If Funktion mit der Checkbox funktioniert nicht , und ich hab keine Ahnung wie ich so einen "Programm-ersteller" programmiere -
Ich würd dir jedenfalls empfehlen 8gb oder mehr zu nehmen.
-
-
danke
Nur wie kann ich das jetzt noch machen , das automatisch wenn ich die Datei öffne der Pfad zu der Datei , in der Input box angezeigt wird? -
Wie kann ich einen "Browse" button erstellen mit dem ich eine Datei suchen kann auf dem Dekstop ( oder woanders ) und sie im Programm öffne um irgendetwas zu bearbeiten.Der Pfad sollte dannach dann in der Inputbox stehen ;>
Hier mal mein Anfangscode ;DAutoit Code buggt -.-
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>$Form1 = GUICreate("", 394, 486, 690, 279)
$File = GUICtrlCreateButton("Browse", 240, 78, 75, 25)
$Input1 = GUICtrlCreateInput("", 16, 80, 209, 21)
$Input2 = GUICtrlCreateInput("", 16, 128, 209, 21)
$Savefile = GUICtrlCreateButton("Browse", 240, 126, 75, 25)
GuiSetState(@Sw_Show)While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd -
check ich nicht D;
-
Hier ist der Code
[autoit]
[/autoit][autoit][/autoit][autoit][/autoit]
msgbox(4,"ö.ö","Das Programm startet nun nach jedem Computer Start")Wie kann ich einstellen , dass verschiedene Funktionen beim Klicken von Ja/nein passieren ?
Ich versteh das net D;
[autoit]
bei mir sieht das jetzt so aus
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
msgbox(0x40000+0x4,"d","Das Programm startet nun nach jedem Computer Start")If 6 Then
[/autoit][autoit][/autoit][autoit][/autoit]
msgbox(0,"d","Prozess Erfolgreich Ausgeführt")
elseif 7 Then
exit
Endif -
Ich will , dass die X Funktion bei einer/em Konsle/Fenster nichtmehr funktioniert und man sie nurnoch mit dem Taskmanager wegmachen kann.
Oder kann man auch so einen Non Style machen? D;