Gutne MOrgen.
vor einiger Zeit wahr hatte ich mal mit hilfe des Forums hier das Script im Anhang erstellt.
Nun wollte ich es erweitern, aber komme keinen schritt vorran.
Bisher durchsucht es einen Ordner nach datein.
nun habe ich noch eine Anwendung dazubekommen, nämlich das er doch ein Dokument erstellen soll.
Also einen Button Neues Dokument.
Dieser soll einen neuen GUI öffnen mit 3 Eingabe Feldern einmal Nummer dann Bezeichnung und text.
Das Gui erstellen ist ja dsa geringe Problem.
Eher wie ich dahin komme.
Wenn ich nun einen 2ten Button einfüge, kann ich ihn irgendwie nicht mit einer funktion belegen.
Ev kann mir jemand helfen.
Gruß und danke
Spoiler anzeigen
#include <GuiListBox.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
HotKeySet("{F6}", "eintragen")
HotKeySet("{F7}", "media")
HotKeySet("{F8}", "neu")
Global $ORDNER = IniRead("Datei.ini", "InterneInfos", "Laufwerk", "c:")
Global $ORDNER23 = ""
Opt("GUIOnEventMode", 1)
$GUI = GUICreate("InterneInfos", 220, 600, -1, -1)
GUISetOnEvent(-3, "_Ende")
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
Global $INPUT = ""
Global $INPUTREFRESH = GUICtrlCreateInput("", 10, 10, 130, 25)
Global $TEST = GUICtrlCreateButton("Suche", 150, 10, 60, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_Refresh")
Global $LIST = GUICtrlCreateList("", 10, 40, 200, 550)
Global $HLIST = GUICtrlGetHandle(-1)
Global $AORDNER = _FILELISTTOARRAY($ORDNER, "*" & GUICtrlRead($INPUTREFRESH) & "*.*", 1)
If @error = 4 Then
MsgBox(0, "HINWEIS", "Keine Dokumente hinterlegt", 2)
$AORDNER = _FILELISTTOARRAY($ORDNER, "*", 1)
$AORDNER[0] = "0"
EndIf
For $I = 1 To $AORDNER[0]
GUICtrlSetData($LIST, $AORDNER[$I])
Next
GUISetState()
While 1
Sleep(1000)
WEnd
[/autoit] [autoit][/autoit] [autoit]Func _CHECK_EINGABE($IWPARAM)
Switch $IWPARAM
Case 50331651
_GUICTRLLISTBOX_SETCURSEL($HLIST, _GUICTRLLISTBOX_FINDSTRING($HLIST, GUICtrlRead($INPUT)))
EndSwitch
EndFunc
Func _OPEN_ORDNER()
If GUICtrlRead($LIST) <> "" Then ShellExecute($ORDNER & "\" & GUICtrlRead($LIST))
EndFunc
Func _ENDE()
Exit
EndFunc
Func _REFRESH()
GUICtrlSetData($LIST, "")
Local $FILTER = "*" & GUICtrlRead($INPUTREFRESH) & "*.*"
$AORDNER = _FILELISTTOARRAY($ORDNER, $FILTER, 1)
If @error = 4 Then
MsgBox(0, "HINWEIS", "Keine Dokumente hinterlegt", 2)
$AORDNER = _FILELISTTOARRAY($ORDNER, "*", 1)
EndIf
For $I = 1 To $AORDNER[0]
GUICtrlSetData($LIST, $AORDNER[$I])
Next
EndFunc
Func WM_COMMAND($HWND, $IMSG, $IWPARAM, $ILPARAM)
_CHECK_EINGABE($IWPARAM)
Local $HWNDFROM, $IIDFROM, $ICODE, $HWNDLISTBOX
If Not IsHWnd($LIST) Then $HWNDLISTBOX = GUICtrlGetHandle($LIST)
$HWNDFROM = $ILPARAM
$IIDFROM = BitAND($IWPARAM, 65535)
$ICODE = BitShift($IWPARAM, 16)
Switch $HWNDFROM
Case $LIST, $HWNDLISTBOX
Switch $ICODE
Case $LBN_DBLCLK
_OPEN_ORDNER()
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
Func EINTRAGEN()
$STATE = WinGetState("(Untitled) - IBM Lotus Notes", "")
$NAME = IniRead("Datei.ini", "Lotus Notes", "Name", "NichtGefunden")
$TEL = IniRead("Datei.ini", "Lotus Notes", "Telefon", "NichtGefunden")
$FAX = IniRead("Datei.ini", "Lotus Notes", "Fax", "NichtGefunden")
If BitAND($STATE, 
Then
Hier stehen vertrauliche daten
Else
MsgBox(0, "ACHTUNG", "Lotus Notes ist nicht Aktiviert.")
EndIf
EndFunc
Func MEDIA()
$STATE = WinGetState("Telefonische Vorgangsannahme", "")
$KUNDEN = IniRead("Datei.ini", "Mediatrix", "Kundenummer", "NichtGefunden")
If BitAND($STATE, Then
Send($KUNDEN)
Send("{ENTER}")
Else
MsgBox(0, "ACHTUNG", "Anforderungs Maske ist nicht aktiv.")
EndIf
EndFunc