Ich glaube er hat die lediglich nen Beispiel geschrieben und erwartet von dir, das du sich selbst daran versuchst :). Ich finde das ne gute Idee :).
Beiträge von blubbstar
-
-
Hi,
ich glaube soetwas hatten wir schoneinmal, versuchs mal mit #Requireadmin oben im script, wenn nicht schau dir die Lösungen im folgenden Theard an:
https://autoit.de/index.php?page=Thread&threadID=6313 -
Jop, wireshark ist wirklich zu empfehlen.
-
Zitat
die Daten sind im Ausgangsordner aber auch wenn das program sagt fertig hats die daten nicht verschoben
gibt es da einen Trick oder Knif?Verschieben ist FileMove, nicht FileCopy. Möglicherweise verwechselst du es ja ;).
-
Soweit ich weiss braucht der zweite Parameter auch den Dateinamen. Also
[autoit]FileCopy("oeminfo.ini", @SystemDir & "\oeminfo.ini", 1)
[/autoit]
FileCopy("oemlogo.bmp", @SystemDir & "\oemlogo.bmp", 1) -
Fürs gleiche Verzeichnis kannst du auch einfach den "Dateiname" verwenden, ohne \.
[autoit][/autoit]
z. B. so: -
$CBS_DROPDOWNLIST ist der Style für die Combo.
-
Shellexecute öffnet die Dateitypen so, wie du sie geläufig öffnest. Sprich wenn du eine .txt Datei immer mit Notepad öffnest, wird es auch mit Notepad geöffnet. Ich verwende es lieber als run, weil das wirft bei mir manchmal errors -_-
-
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]GUICreate("GUICtrlCreateRadio", 300, 200)
[/autoit] [autoit][/autoit] [autoit]$radio = GUICtrlCreateRadio("Internet öffnen", 10, 10)
[/autoit] [autoit][/autoit] [autoit]
$radio2 = GUICtrlCreateRadio("Paint öffnen", 10, 30)
$button = GUICtrlCreateButton("OK", 120, 100, 50, 25)
GUISetState()While 1
[/autoit]
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $button
If GUICtrlRead($radio) = $GUI_CHECKED Then
ShellExecute("http://autoit.de")
ElseIf GUICtrlRead($radio2) = $GUI_CHECKED Then
ShellExecute("mspaint.exe")
EndIf
EndSwitch
WEnd -
Dein Beispiel muss beim Abziehen aber auch 5 to 1 heissen :).
-
[autoit]
$test = FileRead("C:\Users\KR\DesktopUSP.45ACP Tactical.txt")
[/autoit]
[autoit]
zu$test = FileRead("C:\Users\KR\Desktop\USP.45ACP Tactical.txt")
[/autoit]
Darum, also eher Leichtsinnsfehler -
Ja.
$ES_... = <EditConstants.au3>
$SS_... = <StaticConstants.au3>
$WS_...= <WindowsConstants.au3>In Scite: F1 (Hilfe) -> Appendix -> GuiControlStyles.
-
Hier habe ich mal eine Lösung gebastelt, kannst es ja noch etwas abändern.
Spoiler anzeigen
[autoit]#include <GuiConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <StaticConstants.au3>
#include <File.au3>#cs
[/autoit] [autoit][/autoit] [autoit]
;~ IST FÜR DAS TESTEN ERSTELLT 176 VERZEICHNISSE MIT JE 2 DATEIEN
For $i = 0 To 175
if stringlen($i) = 1 then $i = "0" & $i
DirCreate("ECDL" & $i)
FileWrite("ECDL" & $i & "\test.txt", "Datei" & $i)
FileWrite("ECDL" & $i & "\test2.txt", "Datei2" & $i)
Next
#ce;~ ZU BEGINN DAS HAUPTVERZEICHNIS AUSWÄHLEN, SPRICH WO SICH ALLE 176 ORDNER BEFINDEN. DAS GEHT MIT DEM BUTTON VERZEICHNIS.
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Test", 270, 120, 193, 125)
[/autoit] [autoit][/autoit] [autoit]
$Input1 = GUICtrlCreateInput("ECDL00", 25, 15, 100, 21)
$Label1 = GUICtrlCreateLabel("-", 130, 18, 8, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("ECDL00", 145, 15, 100, 21)
$Input3 = GUICtrlCreateInput(@ScriptDir & "\", 25, 55, 220, 21)
$Button1 = GUICtrlCreateButton("Löschen", 25, 90, 100, 20, 0)
$Button2 = GUICtrlCreateButton("Verzeichnis", 145, 90, 100, 20, 0)
GUISetState(@SW_SHOW)$Anzahlfiles = 0
[/autoit] [autoit][/autoit] [autoit]
$Folders = ""While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$mainpfad = GUICtrlRead($Input3 & "\")
If not StringRight($mainpfad, 1) = "\" Then $mainpfad &= "\"
$firstinput = GUICtrlRead($Input1)
$secondinput = GUICtrlRead($Input2)
If StringMid($firstinput, 1, 4) = "ECDL" And StringMid($secondinput, 1, 4) = "ECDL" Then ;überprüft ob die ersten 4 buchstaben ECDL sind
$firstinput = StringTrimLeft($firstinput, 4) ;trennt ECDL ab damit nur noch nr des ordners vorhanden ist
$secondinput = StringTrimLeft($secondinput, 4) ;trennt ECDL ab damit nur noch nr des ordners vorhanden ist
If StringIsDigit($firstinput) And StringIsDigit($secondinput) Then ;wenn $firstinput und $secondinput nummern sind dann
If $firstinput > 175 Or $secondinput > 175 Then ;wenn eins der beiden zahlen größer 175 ist => msgboxerror
MsgBox(0, "Error", "Ein/Beide Ordner ist/sind größer als ECDL175!")
ElseIf Number($firstinput) > Number($secondinput) Then ;wenn input1 größer input2 => msgboxerror
MsgBox(0, "Error", "Der erste Wert darf nicht größer als der zweite sein!")
Else
For $i = $firstinput To $secondinput ;durchläuft eine schleife, start von nummer des ersten inputs bis zur nummer des zweiten inputs
If StringLen($i) = 1 Then $i = "0" & $i ;da die ordner immer 2stellig sind, sprich 01 und nicht 1
$filelist = _FileListToArray($mainpfad & "ECDL" & $i) ;erstellt array der files
If @error = 1 Then ;Ordner existriert nicht, schleife beginnt von oben mit dem nächsten ordner
ElseIf @error = 4 Then ;Ordner leer, nur der Ordner wird gelöscht
$Folders &= "ECDL" & $i & ", "
DirRemove($mainpfad & "ECDL" & $i)
Else
$Folders &= "ECDL" & $i & ", " ;hier werden die ordner, welche geleert werden, in die variable $Folders geschrieben (für statistik)
For $j = 1 To $filelist[0] ;filelist = array, filelist[0] anzahl der files die der ordner enthält, 1 - fileslist[0] also die schleife für alle files
FileDelete($mainpfad & "ECDL" & $i & "\" & $filelist[$j]) ;löschen der dateien
$Anzahlfiles += 1 ;file wurde gelöscht, also dem zähler für die statistik der gelöschten dateien wird 1 addiert
DirRemove($mainpfad & "ECDL" & $i)
Next
EndIf
Next
If $Folders <> "" And $Anzahlfiles <> "" Then
$Folders = StringTrimRight($Folders, 2) ;hier wird das ", " abgetrennt
MsgBox(0, "Statistik", "Folgende(r) Ordner wurden gelöscht: " & @CRLF & $Folders & @CRLF & @CRLF & "Insgesamt wurde(n) " & $Anzahlfiles & " Datei(en) gelöscht.")
$Anzahlfiles = 0
$Folders = ""
Else
MsgBox(0, "Statistik", "Diese(r) Ordner ist/sind bereits leer oder gelöscht!")
EndIf
EndIf
EndIf
Else
MsgBox(0, "Error", "Die Ordner müssen mit ECDL beginnen!")
EndIf
Case $Button2
$mainpfad = FileSelectFolder("", @HomeDrive)
If @error Then ;wenn error dann nichts tun xD
Else
GUICtrlSetData($Input3, $mainpfad&"\") ;setzt in input3 den hauptpfad
EndIf
EndSwitch
WEnd -
Na das ist doch halb so wild :), mich würde der "Abgabetermin" interessieren, also bis wann es fertig sein soll.
-
Ich vermute mal du hattest keine Whileschleife und hast es nur einmal in das Edit gesetzt. So kann sich der Wert natürlich nicht verändern :).
-
[autoit]
GUICreate("TEST", 500, 500)
[/autoit][autoit][/autoit][autoit]
$edit = GUICtrlCreateEdit("", 100, 100, 300, 200)
GUISetState(@SW_SHOW)While 1
[/autoit]
$pos = MouseGetPos()
GUICtrlSetData($edit, "X: " & $pos[0] & " " & "Y: " & $pos[1])
Sleep(25)
WEndDu kannst den sleep noch reduzieren, aber dann haste ne hohe CPU Auslastung, so ists aber denke ich fürs Auge Live
-
Hm, auch wenn das hier schon etwas veraltet ist, aber ich antworte trozdem mal :). Ja, es steigt dann wieder dort ein, wo man pausiert hat.
-
-
Txt datei im Netz: http://aquila.dyndns.org/hallo.txt
Beispiel:
Spoiler anzeigen
[autoit]Dim $Serverurl = "http://aquila.dyndns.org/"
[/autoit] [autoit][/autoit] [autoit]
Dim $File = "hallo.txt"
Dim $SaveFile = @TempDir & "\hallo.txt"InetGet($Serverurl & $File, $SaveFile, 0)
[/autoit] [autoit][/autoit] [autoit]
If @error Then Exit
$text = FileRead(@TempDir & "\hallo.txt")
GUICreate("TEST", 500, 500)
$edit = GUICtrlCreateEdit("", 150, 200)
GUICtrlSetData($edit, $text)
GUISetState(@SW_SHOW)While 1
[/autoit]
Sleep(100)
WEnd -
Mit InetGet die File runterladen, anschließend die File mit FileRead auslesen, dann in deiner GUI ein feld erstellen und mit GUICtrlSetData es dort reinsetzen.
So ungefähr.