Hallo,
Da ich immer wieder autoitscripte speichere und nach der zeit nicht mehr finde habe ich diesen script geschrieben.
Wem es nützlich ist kann es ja haben
Hallo,
Da ich immer wieder autoitscripte speichere und nach der zeit nicht mehr finde habe ich diesen script geschrieben.
Wem es nützlich ist kann es ja haben
Hallo Deepred.
Das ist doch ein Dir *.* /s von der Festplatte und das in einem Fenster ausgegeben. Aber ich habe festgestellt, das es bei mir nicht kein AutoIt-Script anzeigt. Erstens weil die nicht auf dem Laufwerk C liegen und dann wohl auch, weil nicht speziell nach *.au3 gesucht wird.
Aber von der Grafischen Oberfläche, möchte ich noch einen Tip geben. Im Ergebnis sollte man dann noch suchen können nach Zeilen wo .au3 enthalten ist.
Gruß, Lina.
Hi,
Source wäre nett!
greetz
qon: Warum willst du source? ist dich net so schwer:
cmd DIR *.au3 -> hier hat Deepred nur *.* außerdem wird nur auf C: gesucht. Menine liegen aber auf D:\
Alles in GuiCtrlEdit packen und nen Button mit _GUICtrlEdit_Find dazu
Tja auf die leichtesten sachen kommen ja nicht alle leute .
Außerdem kann man daran noch vieles verbessern
z.b laufwerke auswählen usw...
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
$rueckgabe = ""
$fehler = ""
GUICreate("Desktop Suchmaschine 1.00",500,535)
$edit = GUICtrlCreateEdit("Bitte warten...",0,0,500,500,BitOR($ES_AUTOVSCROLL, $WS_VSCROLL, $ES_MULTILINE, $WS_HSCROLL, $ES_NOHIDESEL))
$Button1 = GUICtrlCreateButton("Suchen", 3, 502, 100, 30)
$Button2 = GUICtrlCreateButton("Log Speichern", 110, 502, 100, 30)
GUISetState()
$pid = run(@comspec & " /c DIR /S CMD.* c:\","",@SW_HIDE,2)
[/autoit][autoit][/autoit][autoit]While 1
$rueckgabe &= StdOutRead($pid)
If @error Then ExitLoop
sleep(10)
WEnd
;~ $Rueckgabe = StringReplace($Rueckgabe, '', 'ü')
GUICtrlSetData($edit,$Rueckgabe)
[/autoit][autoit][/autoit][autoit]While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
_GUICtrlEdit_Find ($Edit)
Case $msg = $Button2
$log_save = FileOpen("FileLog.log",1)
FileWrite($log_save,$rueckgabe)
FileClose($log_save)
EndSelect
WEnd
Ich führe nicht gerne kompiliierte exen aus von leuten den ich nicht absolut vertraue
hab schon genug erfahrungen damit gesammelt
und n tipp deepred:
den code im quelltextmodus einfügen, dann treten keine bugs mit der formatierung sowie includes auf
greetz
So?
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include<GUIConstants.au3>
#include <WindowsConstants.au3>
$rueckgabe = ""
$fehler = ""
GUICreate("Desktop Suchmaschine 1.00",500,535)
$edit = GUICtrlCreateEdit("Bitte warten...",0,0,500,500,BitOR($ES_AUTOVSCROLL, $WS_VSCROLL, $ES_MULTILINE, $WS_HSCROLL, $ES_NOHIDESEL))
$Button1 = GUICtrlCreateButton("Suchen", 3, 502, 100, 30)
$Button2 = GUICtrlCreateButton("Log Speichern", 110, 502, 100, 30)
GUISetState()
$pid = run(@comspec & " /c DIR /S CMD.* f:\","",@SW_HIDE,2)
[/autoit] [autoit][/autoit] [autoit]While 1
$rueckgabe &= StdOutRead($pid)
If @error Then ExitLoop
sleep(10)
WEnd
;~ $Rueckgabe = StringReplace($Rueckgabe, '', 'ü')
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($edit,$Rueckgabe)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
_GUICtrlEdit_Find ($Edit)
Case $msg = $Button2
$log_save = FileOpen("FileLog.log",1)
FileWrite($log_save,$rueckgabe)
FileClose($log_save)
EndSelect
WEnd
bernd670: Bitte den Editor vorm Einfügen von Quellcode in den Quellcode-Modus umschalten -> Wie editiere ich meinen Post richtig.