GUICtrlSetOnEvent(-1, "_do")
[/autoit]bedeutet das dem zuletzte erstellten control die funktion zugewießen wird
dein fehler is relativ klein:
es sollte GUICtrlSetOnEvent() heißen und nicht GUISetOnEvent()
oder Du kannst die Hotkey-Definition auch zustandsabhängig ändern:
- wenn GUI, dann HotKeySet("{F5}", "_func")
- wenn Browser, dann HotKeySet("{F5}") -->> Zuweisung gelöscht
- wenn wieder GUI aktiv, dann HotKeySet("{F5}", "_func")
jup hatte ich auch erst überlegt. aber das denke ich is doch n gutes stück aufwendiger
ok erhältst du irgendwelche rückgabewerte, fehlermeldungen oder ähnliches?
was genau funzt denn nich? kannst du's bisschen eingrenzen?
zur nächsten shoutboxfrage:
so fügt man das array einem listview zu
(quick and dirty)
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 388, 338, 193, 125)
$ListView1 = GUICtrlCreateListView("Spalte 1", 8, 8, 369, 321)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $array[5]
$array[0] = "Hallo"
$array[1] = "Peter"
$array[2] = "sagte"
$array[3] = "Susie"
$array[4] = "froh"
For $i = 0 To 4
$array[$i] = GUICtrlCreateListViewItem($array[$i], $ListView1)
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $array[0]
MsgBox(0,"","0")
Case $array[2]
MsgBox(0,"","1")
Case $array[2]
MsgBox(0,"","2")
Case $array[3]
MsgBox(0,"","3")
Case $array[4]
MsgBox(0,"","4")
EndSwitch
WEnd
puh auf die schnelle würd ich mal sagen:
bau in die funktion einfach ne abfrage ein
wenn gui aktiv dann mach das
ansonsten send F5
das geht wohl auch, aber wie springe ich in die Funktion, wenn ich per fileexist abfrage ob die konfig Datei da ist?
musst du doch garnicht oder?
wenn die ini nicht da ist wird sie automatisch erstellt und die beiden werte eingetragen
falls du doch mit fileexists abfragen willst:
[autoit]If Fileexists($konfig) Then konfig()
[/autoit]If $read = "p" & $random Then
GUICtrlSetData ($List,"Passwort richtig." & @CRLF)
aufgrund dieser 2 zeilen würde ich sagen das passwort is "p"
hast du dir durchgelesen was das script alles macht? scheint ja paar probleme gegeben zu haben.
ui das is ja mal n bisschen viel text 
hab dir ne Beispielfunktion zum entschlüsseln geschrieben.
vom handling und den fehlerabfragen aber noch gut erweiterbar
#include <Array.au3>
#include <String.au3>
Global $array[5]
$array[0] = _StringEncrypt(1, "Hallo", "a", 2)
$array[1] = _StringEncrypt(1, "Peter", "a", 2)
$array[2] = _StringEncrypt(1, "sagte", "a", 2)
$array[3] = _StringEncrypt(1, "Susie", "a", 2)
$array[4] = _StringEncrypt(1, "froh", "a", 2)
_ArrayDisplay($array)
[/autoit] [autoit][/autoit] [autoit]$array = _ArrayEncrypt($array, "a", 2, 0)
_ArrayDisplay($array)
Func _ArrayEncrypt($array, $encryptpassword, $encryptlevel, $firstindex = 0)
If Not IsArray($array) Then Return -1
If Not IsInt($encryptlevel) Then Return -2
For $i = $firstindex To Ubound($array) -1
$array[$i] = _StringEncrypt(0, $array[$i], $encryptpassword, $encryptlevel)
Next
Return $array
EndFunc
Hallo,
HIER mal ein Beispiel wie man so etwas abfragt...
*g* ich sag ja ihm onevent isses viel leichter. aber er will wohl getmsg
wenn ich mich nicht irre müsste es mit so einer while schleife gehen:
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $FrmPic[0][0] To $FrmPic[$Feld - 1][0]
MsgBox(0,"","Handle des Controls: " &$nMsg[2])
EndSwitch
WEnd
kann aber gut sein das es falsch ist.
ich benutz meistens den OnEvent-Modus. damit gehts sehr viel leichter
ja die datei wird immer in dem verzeichnis erstellt wo sich auch das script befindet
genaugenommen wärs so noch besser: @ScriptDir & "\konfig.ini"
ganau für sowas wäre doch iniread und iniwrite ideal.
wenn der wert noch nich existiert wird er erstellt und wenn er schon existiert überschrieben.
man hat außerdem ziemlich sichere zugriffe
und schneller sind sie auch noch
Achso, gar nicht bemerkt.
nur gut dass die lösung eh nicht wirklich optimal ist
EDIT: So besser :D?
finde das sehr unverschämt. sowas gehört hier nicht her und du wurdest darauf hingewießen. das ganze dann umzuändern und auch noch so einen kommentar zu posten. 
naja einer weniger dem ich helfe
Unter die Forenregeln?
ja jetz nichmehr aber schön dass er jemanden findet der antwortet obwohl ers auch noch sagt :pinch:
EDIT: So besser :D?
sry aber das fällt unter die forenregeln
https://autoit.de/index.php?page=Forumrules
- Programme, die anderen, auch Freunden, einen Schreck einjagen sollen oder sich sonst über andere Nutzer lustig machen ("Spaßviren")
mit ein bisschen nachdenken sollte es aber lösbar sein^^
frag mich nicht woher ich das hab. ich weiß es nicht.
aber war mal iwo hier im forum.
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global Const $SV_TYPE_WORKSTATION = 0x1
Global Const $SV_TYPE_SERVER = 0x2
Global Const $SV_TYPE_SQLSERVER = 0x4
Global Const $SV_TYPE_DOMAIN_CTRL = 0x8
Global Const $SV_TYPE_DOMAIN_BAKCTRL = 0x10
Global Const $SV_TYPE_TIME_SOURCE = 0x20
Global Const $SV_TYPE_AFP = 0x40
Global Const $SV_TYPE_NOVELL = 0x80
Global Const $SV_TYPE_DOMAIN_MEMBER = 0x100
Global Const $SV_TYPE_PRINTQ_SERVER = 0x200
Global Const $SV_TYPE_DIALIN_SERVER = 0x400
Global Const $SV_TYPE_XENIX_SERVER = 0x800
Global Const $SV_TYPE_NT = 0x1000
Global Const $SV_TYPE_WFW = 0x2000
Global Const $SV_TYPE_SERVER_MFPN = 0x4000
Global Const $SV_TYPE_SERVER_NT = 0x8000
Global Const $SV_TYPE_POTENTIAL_BROWSER = 0x10000
Global Const $SV_TYPE_BACKUP_BROWSER = 0x20000
Global Const $SV_TYPE_MASTER_BROWSER = 0x40000
Global Const $SV_TYPE_DOMAIN_MASTER = 0x80000
Global Const $SV_TYPE_WINDOWS = 0x400000
Global Const $SV_TYPE_CLUSTER_NT = 0x1000000
Global Const $SV_TYPE_TERMINALSERVER = 0x2000000
Global Const $SV_TYPE_CLUSTER_VS_NT = 0x4000000
Global Const $SV_TYPE_LOCAL_LIST_ONLY = 0x40000000
Global Const $SV_TYPE_DOMAIN_ENUM = 0x80000000
Global Const $SV_TYPE_ALL = 0xFFFFFFFF
$aCompList = _NetServerEnum($SV_TYPE_WORKSTATION)
[/autoit] [autoit][/autoit] [autoit]_ArrayDisplay($aCompList)
[/autoit] [autoit][/autoit] [autoit]Func _NetServerEnum ($iSrvType = -1, $sDomain = '')
Local $uBufPtr = DllStructCreate("ptr;int;int"), $res[1]=[0], $i
Local $uRecord = DllStructCreate("dword;ptr"), $iRecLen = DllStructGetSize($uRecord)
Local $uString = DllStructCreate("char[16]")
Local $uDomain = DllStructCreate("byte[32]"), $pDomain = 0
If Not ($sDomain='' Or $sDomain='*') Then
DllStructSetData($uDomain, 1, StringToBinary($sDomain,2))
$pDomain = DllStructGetPtr($uDomain)
EndIf
Local $ret = DllCall ("netapi32.dll", "int", "NetServerEnum", _
"ptr", 0, "int", 100, _
"ptr", DllStructGetPtr($uBufPtr,1), "int", -1, _
"ptr", DllStructGetPtr($uBufPtr,2), _
"ptr", DllStructGetPtr($uBufPtr,3), _
"int", $iSrvType, "ptr", $pDomain, "int", 0 )
If $ret[0] Then Return SetError(1, $ret[0], '')
Local $res[DllStructGetData($uBufPtr,3)+1]=[DllStructGetData($uBufPtr,3)]
For $i=1 To DllStructGetData($uBufPtr,3)
Local $uRecord = DllStructCreate("dword;ptr", DllStructGetData($uBufPtr,1)+($i-1)*$iRecLen)
Local $sNBName = DllStructCreate("byte[32]", DllStructGetData($uRecord,2))
DllStructSetData($uString,1,BinaryToString(DllStructGetData($sNBName,1),2))
$res[$i] = DllStructGetData($uString,1)
Next
$ret = DllCall ("netapi32.dll", "int", "NetApiBufferFree", "ptr", DllStructGetData($uBufPtr,1))
Return $res
EndFunc
edit: ah ich glaub ich habs gefunden:
https://autoit.de/index.php?page=Thread&postID=51440#post51440
wie du die einzelnen befehle aufbauen musst siehst du am besten in der hilfe
hier gibts downloads:
http://translation.autoit.de/hilfe.php
mit selber probieren lernt mans immer noch am besten
da biste bei Dirremove schon richtig
DirRemove
--------------------------------------------------------------------------------
Löscht ein Verzeichnis oder einen Ordner.
DirRemove ( "path" [, recurse] )
Parameter
path Pfad des Verzeichnisses, das gelöscht werden soll.
recurse [optional] Verwende dieses Flag, um auch alle Unterverzeichnisse zu entfernen.
0 = (Standard) Lösche Dateien und Unterverzeichnisse nicht
1 = Lösche Dateien und Unterverzeichnisse (wie beim DOS-Befehl "DelTree")
Rückgabewert
Erfolg: Gibt 1 zurück.
Fehler: Gibt 0 zurück, wenn ein Fehler beim Löschen auftrat oder das Verzeichnis nicht existiert.
Bemerkungen
Manche Ordnerattribute können das Löschen unmöglich machen.Hallo, was ist hierdran falsch?
öhm eher: was ist hier richtig.
shellexecute führt eine datei aus. eine zip wird mit dem standard-zip programm geöffnet.
dirremove ist um ein verzeichnis zu löschen. (zip is kein verzeichnis)
und auch so passen deine beiden befehle zumindest in der kombination nicht zusammen^^
joa sollte ja kein problem sein.
so in etwa wärs recht einfach gelöst
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form2 = GUICreate("Form2", 413, 298, 472, 164)
$Pic1 = GUICtrlCreatePic("Bild.jpg", 8, 10, 396, 283, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreatePic("", 163, 121, 83, 57)
GUISetState(@SW_SHOW)
GUICtrlSetState($Pic1, $GUI_DISABLE)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0,"","")
EndSwitch
WEnd