Beiträge von Litom2

Ah danke jetzt ergibt auch der Quellcode des Programms einen Sinn ;v

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
$Hashkey = "key" ;der hashkey muss im programm enthalten sein

[/autoit][autoit][/autoit][autoit]

_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
_Crypt_Shutdown()

[/autoit][autoit][/autoit][autoit][/autoit]

Hier wird der Hash generiert.

[autoit]

#RequireAdmin
#include <Crypt.au3>

[/autoit][autoit][/autoit][autoit]

$hGUI = GUICreate("Crackme 3", 222, 100, -1, -1)
$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)

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hStart
_Start()
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit]

Func _Start()
$Passwort = GUICtrlRead($Password)
$Hashkey = "key" ;der hashkey sollte auch nochmal gesichert werden
$Hash = "0xF0DB6718284C2E372E5628815F40CA3E" ;der aes256 key, erzeugt aus dem hashkey und den pw

[/autoit][autoit][/autoit][autoit]

_Crypt_Startup()
$Key = _Crypt_DeriveKey($Passwort, $Hashkey, $CALG_MD5)
$pw = _Crypt_DecryptData($Hash, $Key, $CALG_AES_256)

[/autoit][autoit][/autoit][autoit]

$pass = Guictrlread($Password)

[/autoit][autoit][/autoit][autoit]

If $pw = $pass Then

[/autoit][autoit][/autoit][autoit]

Msgbox(0,"..", "Right")
_Crypt_DestroyKey($Key) ;closen
_Crypt_Shutdown()
Else
msgbox(0,"...","Wrong")
_Crypt_DestroyKey($Key) ;closen
_Crypt_Shutdown()
Endif
EndFunc

[/autoit]

Code ist jetzt richtig ;D

[autoit]

#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$hgui = GUICreate("kk", 310, 190, 568, 120)
$open = GUICtrlCreateButton("Guiöffnen", 8, 24, 139, 49)

[/autoit][autoit][/autoit][autoit]

GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While 1
$Msg = GUIGetMsg()
Switch $Msg
case $open
_bopen()
case -3
exit
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

func _bopen()

[/autoit][autoit][/autoit][autoit]

$Bibliothekgui = GUICreate("...", 958, 472, 230, 261)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While 2
$Msg = GUIGetMsg()
Switch $Msg
case -3
exit
EndSwitch
WEnd
Endfunc

[/autoit]

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
WEnd

While 2
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $bhandle
_llo()
EndSwitch
WEnd

func _llo()
msgbox(0, "", "")
EndFunc

Warum 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
WEnd

func _Erstellen()
endfunc

If BitAnd(GUICtrlRead($aktiv),1) then
MsgBox(0,"23","23")
$Erstellen = GUICtrlCreateButton("Erstellen", 8, 64, 99, 41)
Endif

Hier 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 ;D

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 ;D

Autoit 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]

msgbox(4,"ö.ö","Das Programm startet nun nach jedem Computer Start")

[/autoit][autoit][/autoit][autoit][/autoit]

Wie kann ich einstellen , dass verschiedene Funktionen beim Klicken von Ja/nein passieren ?

Ich versteh das net D;
bei mir sieht das jetzt so aus

[autoit]

msgbox(0x40000+0x4,"d","Das Programm startet nun nach jedem Computer Start")

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

If 6 Then
msgbox(0,"d","Prozess Erfolgreich Ausgeführt")
elseif 7 Then
exit
Endif

[/autoit][autoit][/autoit][autoit][/autoit]

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;