Du kannst in Dein Script 7-zip integrieren
und damit zippen. Damit bist Du unabhängig von Einstellungen,
Umfang und Art des Betriebssystems (Muß halt Windows sein ...)
siehe Beitrag von Ritzeelrocker ... Link
Beiträge von Schnuffel
-
-
und GuiSetIcon ...
-
vielleicht "schreckt" dich ja das HowTo ein wenig ab...
http://www.scintilla.org/ScintillaDoc.html -
den Doppelklick hab ich eingeführt
-
ich hab mal das Beispiel aus der Hilfe um die Func _DblClick erweitert...
Spoiler anzeigen
[autoit]#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
[/autoit] [autoit][/autoit] [autoit]
#include <GUIListBox.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]$Debug_LB = False ; Check ClassName being passed to ListBox functions, set to True and use a handle to another control to see it work
[/autoit] [autoit][/autoit] [autoit]Global $hListBox
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
[/autoit] [autoit][/autoit] [autoit]
Local $hGUI; Create GUI
[/autoit] [autoit][/autoit] [autoit]
$hGUI = GUICreate("(UDF Created) List Box Create", 400, 296)
$hListBox = _GUICtrlListBox_Create($hGUI, "String upon creation", 2, 2, 396, 296)
GUISetState()MsgBox(4160, "Information", "Adding Items")
[/autoit] [autoit][/autoit] [autoit]GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
[/autoit] [autoit][/autoit] [autoit]; Add files
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlListBox_BeginUpdate($hListBox)
_GUICtrlListBox_ResetContent($hListBox)
_GUICtrlListBox_InitStorage($hListBox, 100, 4096)
_GUICtrlListBox_Dir($hListBox, @WindowsDir & "\win*.exe")
_GUICtrlListBox_AddFile($hListBox, @WindowsDir & "\Notepad.exe")
_GUICtrlListBox_Dir($hListBox, "", $DDL_DRIVES)
_GUICtrlListBox_Dir($hListBox, "", $DDL_DRIVES, False)
_GUICtrlListBox_EndUpdate($hListBox); Loop until user exits
[/autoit] [autoit][/autoit] [autoit]
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_MainFunc WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
[/autoit] [autoit][/autoit] [autoit]
#forceref $hWnd, $iMsg
Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
If Not IsHWnd($hListBox) Then $hWndListBox = GUICtrlGetHandle($hListBox)
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
$iCode = BitShift($iwParam, 16) ; Hi WordSwitch $hWndFrom
[/autoit] [autoit][/autoit] [autoit]
Case $hListBox, $hWndListBox
Switch $iCode
Case $LBN_DBLCLK ; Sent when the user double-clicks a string in a list box
_DebugPrint("$LBN_DBLCLK" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; no return value
_DblClick()
Case $LBN_ERRSPACE ; Sent when a list box cannot allocate enough memory to meet a specific request
_DebugPrint("$LBN_ERRSPACE" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; no return value
Case $LBN_KILLFOCUS ; Sent when a list box loses the keyboard focus
_DebugPrint("$LBN_KILLFOCUS" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; no return value
Case $LBN_SELCANCEL ; Sent when the user cancels the selection in a list box
_DebugPrint("$LBN_SELCANCEL" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; no return value
Case $LBN_SELCHANGE ; Sent when the selection in a list box has changed
_DebugPrint("$LBN_SELCHANGE" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; no return value
Case $LBN_SETFOCUS ; Sent when a list box receives the keyboard focus
_DebugPrint("$LBN_SETFOCUS" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
"-->IDFrom:" & @TAB & $iIDFrom & @LF & _
"-->Code:" & @TAB & $iCode)
; no return value
EndSwitch
EndSwitch
; Proceed the default Autoit3 internal message commands.
; You also can complete let the line out.
; !!! But only 'Return' (without any value) will not proceed
; the default Autoit3-message in the future !!!
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMANDFunc _DebugPrint($s_text)
[/autoit] [autoit][/autoit] [autoit]
$s_text = StringReplace($s_text, @LF, @LF & "-->")
ConsoleWrite("!===========================================================" & @LF & _
"+===========================================================" & @LF & _
"-->" & $s_text & @LF & _
"+===========================================================" & @LF)
EndFunc ;==>_DebugPrintFunc _DblClick()
[/autoit]
Local $k = _GUICtrlListBox_GetCurSel($hListBox)
MsgBox(0, '', "Index: "& $k & @CRLF & "Inhalt: "&_GUICtrlListBox_GetText($hListBox, $k))
EndFunc -
hättest du über die Suchfunktion auch gefunden ...
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>#region - GUI Create
[/autoit] [autoit][/autoit] [autoit]
GUICreate('',300,300,-1,-1,$WS_POPUP,$WS_EX_TOOLWINDOW)
GUISetBkColor(0x000000)
GUICtrlCreateLabel("Dies ist eine Gui ohne Leiste und ohne Taskleisten-Eintrag"&@CRLF&@CRLF&"Zum Beenden 'esc' drücken",10,10)
GUICtrlSetColor(-1,0xffffff)
GUISetState()
#endregion#region - GUI SelectLoop
[/autoit]
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
#endregion -
poste mal dein Script ...
-
komisch, bei mir geht das auch so ?!?!
Edit:
da war wohl gestern abend der Wurm bei mir drin. Sorry.
Das konnte so gar nicht gehen, da es die referenzierte Datei gar nicht gab.
Ich habe jetzt bei wachem Verstand das Script auf das notwendige gekürzt und natürlich getestet.Spoiler anzeigen
[autoit]Global $ping = "http://www.autoit.de/"
[/autoit] [autoit][/autoit] [autoit]_InternetDateienDownloaden("http://translation.autoit.de/autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.0.0-Stand-16_09_09.zip")
[/autoit] [autoit][/autoit] [autoit];Dateien die aus dem Internet herruntergeladen werden sollen, werden in dieser Funktion eingebettet.
[/autoit] [autoit][/autoit] [autoit]
Func _InternetDateienDownloaden($download);Prüft ob Verbindung zum Internet besteht
[/autoit] [autoit][/autoit] [autoit]
If Ping($ping,500) = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Sie haben keine Verbindung zum Internet!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")
;Exit Code Tabelle Nr. 10
Exit 10
EndIf;Dateien werden herruntergeladen
[/autoit] [autoit][/autoit] [autoit];data.txt wird heruntergeladen
[/autoit] [autoit][/autoit] [autoit];Prüft ob die Datei heruntergeladen wurde
[/autoit] [autoit][/autoit] [autoit]If InetGet($download,@DesktopDir&"\test.zip",1,1) = 0 Then
[/autoit]
;Fehlermeldung für User
MsgBox(48,"Fehler","Wichtige Dateien konnten nicht heruntergeladen werden!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")
;Exit Code Tabelle Nr. 11
Exit 11
EndIf
EndFunc -
alles Gute Euch beiden ...
-
Naja, mein ich ja
so, hab das mal etwas komprimiert ...
Spoiler anzeigen
[autoit]$default = Default
[/autoit] [autoit][/autoit] [autoit]
Global $ftp = "http://www.autoit.de/"
Global $download = "autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.0.0-Stand-16_09_09.zip"
_InternetDateienDownloaden($ftp);Dateien die aus dem Internet herruntergeladen werden sollen, werden in dieser Funktion eingebettet.
[/autoit] [autoit][/autoit] [autoit]
Func _InternetDateienDownloaden($ftp);Prüft ob Verbindung zum Internet besteht
[/autoit] [autoit][/autoit] [autoit]If Ping($ftp,500) = 0 Then
[/autoit] [autoit][/autoit] [autoit]
;Fehlermeldung für User
MsgBox(48,"Fehler","Sie haben keine Verbindung zum Internet!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.");Exit Code Tabelle Nr. 10
[/autoit] [autoit][/autoit] [autoit]
Exit 10
EndIf;Dateien werden herruntergeladen
[/autoit] [autoit][/autoit] [autoit];data.txt wird heruntergeladen
[/autoit] [autoit][/autoit] [autoit];Prüft ob die Datei herruntergeladen wurde
[/autoit]
If InetGet($ftp & $download,"test.zip",1,1) = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Wichtige Dateien konnten nicht herruntergeladen werden!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")
;Exit Code Tabelle Nr. 11
Exit 11
EndIf
EndFunc -
Du musst bei InetGet die Option angeben, dass die Funktion nicht warten soll, bis die Datei geladen ist, da ansonsten die Abfrage nach $default schneller kommt als die Wertzuweisung.
siehe:Spoiler anzeigen
[autoit]$default = Default
[/autoit] [autoit][/autoit] [autoit]
Global $ftp = "http://www.autoit.de/"_InternetDateienDownloaden($ftp)
[/autoit] [autoit][/autoit] [autoit]Global $download = "autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.0.0-Stand-16_09_09.zip"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];Dateien die aus dem Internet herruntergeladen werden sollen, werden in dieser Funktion eingebettet.
[/autoit] [autoit][/autoit] [autoit]
Func _InternetDateienDownloaden($ftp);Prüft ob Verbindung zum Internet besteht
[/autoit] [autoit][/autoit] [autoit]
$default = Ping($ftp,500)
MsgBox(0, '', $default)
If $default <> 0 Then
;Fortsetzen des Programmes ohne weitere Einstellungen
sleep(1)Else
[/autoit] [autoit][/autoit] [autoit]
;Fehlermeldung für User
MsgBox(48,"Fehler","Sie haben keine Verbindung zum Internet!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.");Exit Code Tabelle Nr. 10
[/autoit] [autoit][/autoit] [autoit]
Exit 10
EndIf;Dateien werden herruntergeladen
[/autoit] [autoit][/autoit] [autoit];data.txt wird heruntergeladen
[/autoit] [autoit][/autoit] [autoit]
$default = InetGet("http://www.autoit.de/autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.0.0-Stand-16_09_09.zip","test.zip",1,1)
MsgBox(0, '', $default)
;Prüft ob die Datei herruntergeladen wurde
If $default = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Wichtige Dateien konnten nicht herruntergeladen werden!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.");Exit Code Tabelle Nr. 11
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Exit 11
EndIfEndFunc
[/autoit]Edit: nicht warten soll
-
also bei mir kommt die Pingzeit zurück ...
und wenn es unter https://autoit.de/www.google.de/ die Datei data.txt nicht gibt, dann kann die auch nicht geladen werden
-
schau mal das Ergebnis meiner MsgBox an und denk darüber nach ...
Spoiler anzeigen
[autoit]$default = Default
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $ftp = "http://www.google.de/"
_InternetDateienDownloaden($ftp);Dateien die aus dem Internet herruntergeladen werden sollen, werden in dieser Funktion eingebettet.
[/autoit] [autoit][/autoit] [autoit]
Func _InternetDateienDownloaden($ftp);Prüft ob Verbindung zum Internet besteht
[/autoit] [autoit][/autoit] [autoit]
$default = Ping($ftp,500)
MsgBox(0, '', $default)
If $default Then
;Fortsetzen des Programmes ohne weitere Einstellungen
sleep(1)Else
[/autoit] [autoit][/autoit] [autoit]
;Fehlermeldung für User
MsgBox(48,"Fehler","Sie haben keine Verbindung zum Internet!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.");Exit Code Tabelle Nr. 10
[/autoit] [autoit][/autoit] [autoit]
Exit 10
EndIf;Dateien werden herruntergeladen
[/autoit] [autoit][/autoit] [autoit];data.txt wird heruntergeladen
[/autoit] [autoit][/autoit] [autoit]
$default = InetGet($ftp & 'data.txt',@TempDir & "/data.txt",1);Prüft ob die Datei herruntergeladen wurde
[/autoit] [autoit][/autoit] [autoit]
If $default = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Wichtige Dateien konnten nicht herruntergeladen werden!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.");Exit Code Tabelle Nr. 11
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Exit 11
EndIfEndFunc
[/autoit] -
ich wünsch Dir alles, alles Gute
-
oder so:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Herunterfahren", 362, 155, 236, 123, "", $WS_EX_TOOLWINDOW)
$Radio5 = GUICtrlCreateRadio("&Countdown", 32, 74, 87, 17)
$Button1 = GUICtrlCreateButton("&Initialisieren", 130, 10, 100, 30)
$Button2 = GUICtrlCreateButton("&Schließen", 230, 10, 100, 30)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$counter = 0
$input = 0
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)While 1
[/autoit]
$msg = GUIGetMsg()
Select
Case $msg = $Button2
Exit
Case $msg = $Button1
If GUICtrlRead($Radio5) = $GUI_CHECKED Then
;Für den Countdown zuständig
$progress = GUICtrlCreateProgress(0, 0, -1, -1)
$hProgress = GUICtrlGetHandle($progress)
_GUICtrlStatusBar_EmbedControl($StatusBar1, "", $hProgress)
GUICtrlSetData($progress, 0)
$r = GUICtrlRead($input)
For $i = 1 To 100
GUICtrlSetData($progress, $i)
Sleep($r*10)
Next
MsgBox(0, "Fertig!", "Hat geklappt!" &@CRLF& "Zeitdauer: "&$r & " Sek.")
Exit
;Ende des Countdown-Bereichs
EndIf
;Buttons auf Klick abfragen start
Case $msg = $Radio5
$counter = $counter + 1
$input = GUICtrlCreateInput("", 140, 74, 50, 20)
$Updown = GUICtrlCreateUpdown($input)
EndSelect
WEnd -
-
ich denke so:
Spoiler anzeigen
[autoit]$Text = "hihihi"
[/autoit]
$count = StringLen ($Text)
For $i = 0 to $count
ConsoleWrite(StringMid($Text,1,$i)&@CRLF)
Next -
Der_Doc meinte eigentlich, dass Du Dein Script in die "Geplanten_Task" eintragen sollst, damit es um 03:50Uhr startet.
Was Dein Script dann macht bleibt dann Dir überlassen ...*Edit: Schreibfehler korrigiert
-
Deinen Code wird wohl so niemand lesen wollen...
-
einfach mal die Suche-Funktion benutzen:http://www.autoit.de/index.php?page=Thread&postID=48404#