Beiträge von autoBert

**autoBert**

Hallo Fabian,

so:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.6.0
Author: Fabian

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $CheckBox_[3]
Dim $Beschreibung_[3]

[/autoit] [autoit][/autoit] [autoit]

$Beschreibung_[0] = "Knopf 1"
$Beschreibung_[1] = "Knopf 2"
$Beschreibung_[2] = "Knopf 3"

[/autoit] [autoit][/autoit] [autoit]

$obkant = 10 ;Entfernung von Y-Achse des Fensters

[/autoit] [autoit][/autoit] [autoit]

$Form_1 = GUICreate( "Autostart-Einträge") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird
For $x = 0 To 2 Step + 1 ;For-Schlaufe 3x
$CheckBox_[$x] = GUICtrlCreateCheckbox($Beschreibung_[$x],40,$obkant,120,40) ;Erzeug einen Button mit Variablen Text
GUICtrlSetTip(-1, "tip von " & $Beschreibung_[$x])
$obkant+=60 ;Immer 20 weiter runter von Y-Achse des Fensters
Next ;For-Schleife fortfahren
GUISetState(@SW_SHOW) ; Zeigt das GUI-Fenster

[/autoit] [autoit][/autoit] [autoit]

While 1 ;Unendliche While-Schleife
$msg = GUIGetMsg()
Select ;Start der Select-Funktion
Case $msg = $CheckBox_[0] ;Wenn CheckBox_0 angehackt dann
MsgBox(0,"","Knopf 0 angehackt") ;Ausgabe CheckBox wurde angehackt
ExitLoop ;While-Schleife verlassen
Case $msg = $CheckBox_[1] ;Wenn CheckBox_1 angehackt dann
MsgBox(0,"","Knopf 1 angehackt") ;Ausgabe CheckBox wurde angehackt
ExitLoop ;While-Schleife verlassen
Case $msg = $CheckBox_[2] ;Wenn CheckBox_2 angehackt dann
MsgBox(0,"","Knopf 2 angehackt") ;Ausgabe CheckBox wurde angehackt
ExitLoop ; While-Schleife verlassen
Case $msg = $GUI_EVENT_CLOSE ;Wenn Schliessen betätigt wird
Exit ;Script verlassen &= Fenster wird geschlossen
EndSelect ;Ende der Select-Funktion
WEnd ;Ende der While-Schleife

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo,

kann keiner besser als die Hilfe zu

[autoit]

PixelSearch

[/autoit]

, einfach auf den Befehl klicken.

Oder blättere bis zum Schluss der Seite und schau dir dort die Links an,

mfg (Auto)Bert

**autoBert**

Hallo crocojunk,

nimm doch einfach

[autoit]

GuiDelete($NichtMehrGebrachteFormID)

[/autoit]

ansonsten stimme ich mit name22 überein, wofür gibt es denn

[autoit]

GuiCtrlSetData

[/autoit]

mfg (Auto)Bert

**autoBert**

Zitat von black_skorpi

wie jetzt?? die daten meiner onlineseite, damit ihr das dann testen könnt?
könnte ich machen, gib mir bitte erst eine antwort will nicht sinnlos meine seite preisgeben

Du kannst doch in einem abgesoderten und gesicherten Bereich die List.txt und ein paar Testfiles einstellen
hier ein Skript mit Progressbars für Anzahl der downgeloadeten Dateien und Bytes:

Spoiler anzeigen

[autoit]

#include <file.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt('MustDeclareVars', 1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Local $label1, $label2, $progressbar1, $progressbar2, $button, $wait, $s, $msg, $m, $afile, $aData
Local $iSize, $iCount, $iBytesDone, $iFilesDone, $iPercent, $iDown

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Updater", 220, 140, 100, 200)
$label1 = GUICtrlCreateLabel("Dateien", 10, 8, 200, 16)
$progressbar1 = GUICtrlCreateProgress(10, 25, 200, 20)
GUICtrlSetColor(-1, 32250); not working with Windows XP Style
$label2 = GUICtrlCreateLabel("Bytes", 10, 58, 200, 16)
$progressbar2 = GUICtrlCreateProgress(10, 75, 200, 20, $PBS_SMOOTH)
$button = GUICtrlCreateButton("Be&enden", 75, 115, 70, 20)
GUISetState()
If InetGet("http://beispiel.pytalhost.com/download/list.txt", @ScriptDir & "\list.txt", 1) > 0 Then
If _FileReadToArray(@ScriptDir & ".\" & "list.txt", $afile) Then
;Schleife für Gesamtgröße und Anzahl der Files
For $i = 1 To $afile[0]
If Not FileExists(@ScriptDir & "\" & $afile[$i]) Then
$iSize += InetGetSize("http://beispiel.pytalhost.com/download/" & $afile[$i], 1)
$iCount += 1
EndIf
Next
GUICtrlSetData($label1, "0/" & $iCount & " Dateien")

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To $afile[0]
If Not FileExists(@ScriptDir & "\" & $afile[$i]) Then
$iDown = InetGet("http://beispiel.pytalhost.com/download/" & $afile[$i], @ScriptDir & "\" & $afile[$i], 1)
$iFilesDone += 1
$iPercent = $iFilesDone / $iCount * 100
GUICtrlSetData($progressbar1, $iPercent)
GUICtrlSetData($label1, $iFilesDone & "/" & $iCount & " Dateien")
$iBytesDone += $iDown
$iPercent = $iBytesDone / $iSize * 100
GUICtrlSetData($progressbar2, $iPercent)
GUICtrlSetData($label2, $iBytesDone & "/" & $iSize & " Bytes")
EndIf
Next
EndIf
Else
MsgBox(16, "Fehler", "Updateliste nicht gefunden!")
EndIf
Do
$msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo black_skorbi,

[autoit]

InetGet("http://beispiel.pytalhost.com/download/" & $afile[$i],@ScriptDir & "\" & $afile[$i],1)

[/autoit]

Erklärung: http://translation.autoit.de/onlinehilfe/functions/InetGet.htm
schau dir

[autoit]

InetGetSize
InetGetInfo

[/autoit]

an, (einfach hier online auf den Befehl klicken. Es wäre schön, wenn du die Daten deiner Update-Seite einstellen könntest, dann ist das Testen einfacher,

mfg (Auto)Bert

**autoBert**

Hallo black_skorpi,

sieht gut aus.

Diese Zeile

[autoit]

InetGet("http://beispiel.pytalhost.com/download/" & $afile[$i],@ScriptDir & "\" & $afile[$i],1,1)

[/autoit]

könnte unterumständen bei einer grösseren Menge an Files Probleme bereiten, da alle Downloads im Background gestartet werden, das könnte dazu führen dass dein INet das laggen anfängt da ja nicht gewartet wird bis ein Download beendet wird, sondern sofort (beim nächsten Schleifendurchlauf) der nächste gestartet wird. (Ja, ich weis sie ist aus meinem Vorschlag, aber da wusste ich ja noch nicht, dass du ca. 500 Files downloaden möchtest.)Einfach ausprobieren und evtl. den Background-Modus ausschalten,

mfg (Auto)Bert

**autoBert**

Zitat von XovoxKingdom

Bei mir schon (Strichmännchen rennt mit dem Kopf voraus gegen eine Wand und wird zu Boden zurückgestoßen)

ja, der jetzige bewegt sich (wurde zwischenzeitlich geändert).

mfg (Auto)Bert

**autoBert**

Zitat von H43DSH0T

1. könnt ihr meinen animierten Avatar sehen also bewegt er sich
2. bei mir tut er das nicht help (und ja es ist eine .gif und kleiner als blablabla)

MFG H43DSH0T

sowas gehört doch wohl eher in OFF Topic. Übrigens der aktuelle bewegt sich nicht,

mfg (Auto)Bert

**autoBert**

Hallo black_skorpi,

einzige Beschränkungen: max. Größe der list.txt (wie bei dir auch) und max. Einträge in einem Array.
so sieht die list.txt aus:

Code

das script von mir.au3
list.txt
bsp.txt
prüfen.txt

wenn die Dateien nicht in @scriptdir liegen msst du natürlich anpassen,

mfg (Auto)Bert

**autoBert**

Hallo black_scorpi,

ich würde es so machen:

Spoiler anzeigen

[autoit]

; Example for Patcher
#include <file.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $afile

[/autoit] [autoit][/autoit] [autoit]

If _FileReadToArray(@ScriptDir & "\list.txt",$afile) Then
For $i = 1 To $afile[0]
If Not FileExists(@ScriptDir & "\" & $afile[$i]) Then
;InetGet("http://beispiel.pytalhost.com/download/" & $afile[$i],@ScriptDir & "\" & $afile[$i],1,1)
MsgBox(0, "Fehler", @ScriptDir & "\" & $afile[$i] & "konnte nicht gefunden werden." & @CRLF & "Der Download wird gestartet")
EndIf
Next
EndIf
MsgBox(0, "Gut", "Alles Korrekt!!")

[/autoit]

Edit: und so sieht dann die list,txt aus:

Code

das script von mir.au3
list.txt
bsp.txt
prüfen.txt

mfg (Auto)Bert

**autoBert**

Hallo Gianni,

die Stelle ist richtig, schau dir die Hilfe zu InetGetInfo und ProgressSet an, dann schaffst du das schon alleine.

mfg (Auto)Bert

**autoBert**

Hallo SEuBo,

Zitat von AutoBert

Entpacken musst du sie auf dem Computer so oder so. Du kannst sie aber bei beiden Verfahren, auch sofort nach dem erzeugen auf der Gui wieder von der Platte löschen, sie werden ja immer wieder neu auf die Platte geschrieben.

Im Zsammenhang ist sehr wohl ersichtlich, dass ich mit so oder so die beiden Verfahren

FileInstall
Fremddateien "includen" (ohne FileInstall)

gemeint habe und da muss man die Dateien zumindest temporär erzeugen,

mfg (Auto)Bert

**autoBert**

Hallo

mach es so

[autoit]

Sleep(10000)
$Ping = 0; Ping ("Server")

[/autoit][autoit][/autoit][autoit]

Switch $Ping
Case 0
ConsoleWrite("EXIT" & @CRLF)
Exit
Case Else
ConsoleWrite("MSTC" & @CRLF)
Run ("C:\Windows\system32\mstsc.exe")
Sleep(1000)
Send ("{ENTER}")
EndSwitch

[/autoit]

die Syntax war falsch umgesetzt:

[autoit]

Switch <expression>
Case <value> [To <value>] [,<value> [To <value>] ...]
statement1
...
[Case <value> [To <value>] [,<value> [To <value>] ...]
statement2
...]
[Case Else
statementN
...]
EndSwitch

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo chrisbyRRC,

Zitat von chrisbyRRC

Ok also "Fileinstall" ist die einzige Möglichkeit die Bilder für die Buttons mitzunehmen

nein, du kannst auch die Bilder als Binärdaten einbinden. Siehe dazu: Fremddateien "includen" (ohne FileInstall)

Zitat

Weil es schön wäre wenn es eine Möglichkeit gibt das es die Bilder direkt aus der exe liest und nicht erst irgendwo auf den Computer entpacken muss.

Entpacken musst du sie auf dem Computer so oder so. Du kannst sie aber bei beiden Verfahren, auch sofort nach dem erzeugen auf der Gui wieder von der Platte löschen, sie werden ja immer wieder neu auf die Platte geschrieben.

mfg (Auto)Bert

**autoBert**

Hallo Timo,

es geht auch ohne Adlib:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <array.au3>

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{Esc}", "_CloseIt") ;mit ESC kann Skript verlassen werden

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $aFiles, $sPath = "C:\Programme\AutoIt3\testWatch"

[/autoit] [autoit][/autoit] [autoit]

While 1
_searchFiles()
Sleep(1000)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _searchFiles()
$aFiles = _FileListToArray($sPath, "*", 1) ;alle File im Pfad in ein Array einlesen
If IsArray($aFiles) Then ;wenn Array
_ArrayDisplay($aFiles,"Dateien in " & $sPath) ;anzeigen der Files des überwahcten Pfades (kann auskommentiert werden)
For $i = 1 To $aFiles[0] ;Schleifenbegin für alle Files im Array
ConsoleWrite($aFiles[$i] & @CRLF) ;Consoleasgabe des Filenamens (kann auskommentiert werden)
FileDelete($sPath & "\" & $aFiles[$i]) ;<============= mit echter Aktion ersetzen
Next
EndIf
EndFunc ;==>_searchFiles

[/autoit] [autoit][/autoit] [autoit]

Func _CloseIt()
Exit
EndFunc

[/autoit]

mfg (Ato)Bert

**autoBert**

Hallo bentom,

schau dir das ScreenShotBeispiel in meiner Sig an, danach sollte dir einiges einfallen.

mfg (Auto)Bert

**autoBert**

Hallo Timo,

ich würde das Grundgerüst in dieser Art aufbauen:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <array.au3>

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{Esc}", "_CloseIt") ;mit ESC kann Skript verlassen werden

[/autoit] [autoit][/autoit] [autoit]

Opt("GuiOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

Global $aFiles, $sPath = "C:\Programme\AutoIt3\testWatch"

[/autoit] [autoit][/autoit] [autoit]

AdlibRegister("_searchFiles", 1000) ;alle 1000 ms _searchFiles aufrufen eventuell anpassen

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(100000)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _searchFiles()
AdlibUnRegister("_searchFiles") ;_searchFiles deregistrieren
$aFiles = _FileListToArray($sPath, "*", 1) ;alle File im Pfad in ein Array einlesen
If IsArray($aFiles) Then ;wenn Array
For $i = 1 To $aFiles[0] ;Schleifenbegin für alle Files im Array
ConsoleWrite($aFiles[$i] & @CRLF);Consoleasgabe des Filenamens (kann auskommentiert werden)
FileDelete($sPath & "\" & $aFiles[$i]) ;<============= mit echter Aktion ersetzen
Next
EndIf
AdlibRegister("_searchFiles", 1000) ;_searchFiles wieder registrieren
EndFunc ;==>_searchFiles

[/autoit] [autoit][/autoit] [autoit]

Func _CloseIt()
Exit
EndFunc

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo JuraX,

da ist doch standardmässig jedes Programm,

mfg (Auto)Bert

**autoBert**

Zitat von PokerFace

Natürlich nur bei eindeutigen Fällen.
Oft lese ich:
"Danke es funktioniert! Super Forum"
"Vielen Dank es funzt."
"Klasse es geht."
...

Dann kann man das als Mod wohl als gelöst makieren.

Denke nicht, dass das die Aufgabe eines MOD's ist, sondern die des Themenstarters. Die notorischen Verweigerer schneiden sich ja auch ins eigene Fleisch weil man deren Themen nicht mehr öffnet sobald Antwort(en) gegeben, da man vermutet das dies die Lösung war,

mfg (Auto)Bert

**autoBert**

klappt einwandfrei, am Icon liegts nicht:

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=COD.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

[/autoit]

Beiträge von autoBert

ToolTip beim überfahren einer Checkbox

Pixelsearch...so halb...

Fenster sollen sich schließen wenn ein anderes geöffnet wird

Eine Art Patcher

Eine Art Patcher

Eine Art Patcher

Avatar

Avatar

Eine Art Patcher

Eine Art Patcher

InetGet & Progress

Nach Compileren zur Exe ist das GUI ohne eingefügten Bildern (Background/Buttons)

Switch - Case: Falsches Case wird ausgeführt.

Nach Compileren zur Exe ist das GUI ohne eingefügten Bildern (Background/Buttons)

Verzeichnis überwachen

Wie ist das mit dem Fokus?

Verzeichnis überwachen

programm in taskleiste

Wie wäre es mit einem Co-Moderator?

Icon