Beiträge von FlairSecret

FlairSecret

Danke hat geklappt
Ihr seid die besten!

FlairSecret

Zitat von Kanashius

Ich weiß jetzt nicht genau, wie dein Quelltext aussieht (nächstes mal am besten die au3 anhängen), aber:
Trag die Pfade in ein Array ein. Dann erstellst du die Buttons nach diesem Array in einer for-Schleife und trägst auch die in ein Array ein.
Beim erstellen der Buttons setzt du das guictrlsetonevent(-1,"_buttonPressed") für alle Buttons.
In der genannten Funktion nutzt du _ArraySearch($buttons,@GUI_CtrlId,0,0,0,0,1,[SubItem]) mit SubItem als die Zahl, wo die Buttons stehen. Die Funktion gibt dir den Index-Wert zurück. Mit diesem fragst du dann in dem Array das andere SubItem ab und dort hast du dann ja den Pfad zur Verknüpfung

Habe die Datei mal angehängt, verstehe nicht ganz wie du das meintest die Buttons werden schon mit einem array und einer Schleife generiert das Passt fehlt nur noch die Funktion für die Buttons.

FlairSecret

Hi Leute

hier erstmal mein skript:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****#AutoIt3Wrapper_Icon=Pixture-Board-Game-Dice-1.ico#AutoIt3Wrapper_Outfile=Spielewürfel.exe#AutoIt3Wrapper_Res_Fileversion=1.0#AutoIt3Wrapper_Res_Language=1031#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.12.0 Author: Idea: Rorco Hawis Scriptings: Marbert Hawis
Script Function: Random Game choice!
#ce ----------------------------------------------------------------------------#include <MsgBoxConstants.au3>#include <File.au3>#include <Array.au3>#include <StringConstants.au3>#include <Constants.au3>#include <GUIConstantsEx.au3>#include <WindowsConstants.au3>#include <GuiButton.au3>

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

#cs Pfad Selection--------------------------------------------------------------------------------#ce$Fileex = FileExists(@ScriptDir&"\Creul.txt")if $Fileex=0 Then $Dir1 = FileSelectFolder("Bitte Ordner Wählen.",@scriptdir) _FileCreate(@ScriptDir&"\Creul.txt")FileWrite(@ScriptDir&"\Creul.txt",$Dir1)EndIf$Dir = FileReadLine(@ScriptDir&"\Creul.txt")#cs Pfad Selection--------------------------------------------------------------------------------#ceAutoItSetOption("GUIResizeMode",802)Global $Gamewuerfel = GUICreate("Gamewürfel")$buttonR= GUICtrlCreateButton("Random",10,10)Dim $ButtonArray[0]$Pos1=10$Pos2=60$zaehler=0$z=_FileListToArray($Dir)for $o = 1 to UBound($z)-1 _ArrayAdd($ButtonArray, GUICtrlCreateButton($z[$o],$Pos1,$Pos2)) $zaehler+=1 $Pos2+=45 If $zaehler =7 Then $Pos1 += 250 $Pos2 = 60 $zaehler = 0 WinMove($Gamewuerfel,"",Default,Default,$Pos1+200,410)$size=WinGetClientSize($Gamewuerfel) EndIfNextGUICtrlSetPos($buttonR,$size[0]/2)GUISetState(@SW_SHOW)

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

While 1 Switch GUIGetMsg() Case $buttonR $answer = MsgBox(3,"Multiplayer?","Willst du ein Multiplayerspiel spielen?") if $answer = 2 Then stop() ElseIf $answer = 6 Then DiceingMS() ElseIf $answer = 7 Then DiceingNoMS() EndIf stop()
Case $GUI_EVENT_CLOSE ExitLoop EndSwitchWEnd
Func DiceingNoMS() $Spiel = _FileListToArray($Dir) $Wen = Random(1,UBound($Spiel),1) ShellExecute($Dir&""&$Spiel[$Wen])EndFunc

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

Func DiceingMS() $a = _FileListToArray($Dir)
Dim $Spielms[1] for $i = 0 to UBound($a)-1 If StringRegExp($a[$i],"ms1") Then _ArrayAdd($Spielms,$a[$i])
EndIf Next$Wenms = Random(1,Ubound($Spielms)-1,1)ConsoleWrite(UBound($Spielms))ShellExecute($Dir&""&$Spielms[$Wenms])
EndFunc

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

Func stop() ExitEndFunc

[/autoit]

Habe nun folgendes Problem, in dem Ordner den ich am Anfang angebe sind nur Verknüpfungen von Spielen. Die GUI wird erstellt und es werden soviele Buttons erstellt und angeordnet wie es Verknüpfungen gibt, denen wird auch der Name der in dem Array ist passend zugeordnet. Hat jemand eine Idee wie ich diesen Buttons dann automatisch die richtige Funktion zum ausführen der Verknüpfung zuweisen kann?

Danke im Vorraus
Gruß Flair

FlairSecret

Das mit den Arrays ist interessant schau ich mir mal an.

Danke euch hat sich soweit eig. erstmal erledigt

Wenn wieder was ist melde ich mich

FlairSecret

Ach daran habe ich garnicht gedacht.
Wäre wohl schlauer, dieses nur zu laden wenn sie auch gebraucht werden.
Dass Probiere ich mal aus.

Gibt es sonst noch irgendwas was ich sinvoller gestalten könnte oder kann ich das so weiterführen?

Dankeschön nochmal

Edit:
Schneller öffnen Funktioniert dadurch wunderbar!
DankeDankeDanke

FlairSecret

Hi habe folgendes Script geschrieben.
Es soll die angegebenen Dateien aus dem Internet herunterladen, im Scriptdir speichern und dann installieren. Allerdings dauert es schon jetzt sehr lange bis die GUI überhaupt erscheint.
Hat vll. jemand eine Idee wie man den Code allgemein kürzen bzw. vereinfachen kann?

Spoiler anzeigen

[autoit]

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

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

AutoIt Version: 3.3.8.1
Author: Keks alias Marco Haberstroh

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

Script Function:
Läd ausgewählte Standartprogramme wie Java und Flashplayer automatisch runter und installiert diese.
Downloading the choosed programes and installed them.
#ce ----------------------------------------------------------------------------

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

; Includes

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

#RequireAdmin
#include <GuiConstantsEx.au3>
#include <GuiButton.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <progressconstants.au3>
#include <windowsconstants.au3>

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

;Adressen/Adresses
$DJavax86 = "http://javadl.sun.com/webapps/download/AutoDL?BundleId=79063"
$DJavax64 = "1"
$DFlash = "http://download.macromedia.com/get/flashplayer/current/licensing/win/install_flash_player_11_plugin.exe"
$DReader = "ftp://ftp.adobe.com/pub/adobe/reader/win/11.x/11.0.00/de_DE/AdbeRdr11000_de_DE.exe"
$DShock = "http://get.adobe.com/de/shockwave/thankyou/?installer=Shockwave_12.0.3.133_Windows_Slim_Other_Browsers"
$DWinrarx86 = "http://www.winrar.de/dl/wrar420d.exe"
$DWinrarx64 = "http://www.winrar.de/dl/winrar-x64-420d.exe"
$DVLC = "http://get.videolan.org/vlc/2.0.7/win32/vlc-2.0.7-win32.exe"
$DFirefoxx86 = "http://www.mozilla.org/de/firefox/new/#download-fx"
$DFirefoxx64 = "2"
$DDeep = "http://www.deepburner.com/download/DeepBurner1.exe"

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

;Dateigrößen
$Sizejava86 = Round (InetGetSize($DJavax86)/1024/1024)
$sizejava64 = Round (InetGetSize($DJavax64)/1024/1024,2)
$Sizeflash = Round (InetGetSize($DFlash)/1024/1024,2)
$sizereader = Round (InetGetSize($DReader)/1024/1024,2)
$sizeshock = Round (InetGetSize($DShock)/1024/1024,2)
$sizerar86 = Round (InetGetSize($DWinrarx86)/1024/1024,2)
$sizerar64 = Round (InetGetSize($DWinrarx64)/1024/1024,2)
$sizevlc = Round (InetGetSize($DVLC)/1024/1024,2)
$sizefirefox86 = Round (InetGetSize($DFirefoxx86)/1024/1024,2)
$sizefirefox64 = Round (InetGetSize($DFirefoxx64)/1024/1024,2)
$sizedeep = Round (InetGetSize($DDeep)/1024/1024,2)

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

;GUI

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

GUICreate ("Keks Dwler", 350, 300) ;Erstellt GUI/Create a GUI

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

GUICtrlCreateTab (10,10,335,270)
GUICtrlCreateTabItem ("Win XP x86")
$Javaxp = GUICtrlCreateCheckbox ("Java",25,35)
$Flashxp = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Readerxp = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shockxp = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrarxp = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLCxp = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefoxxp = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deepxp = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges1 = GUICtrlCreateProgress (25, 135, 300,20)
$Label1 = GUICtrlCreateLabel("Nach dem Klicken auf Beginn, nichts mehr Klicken!",30,160)

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

$Beginn1 = GUICtrlCreateButton ("Beginn", 150, 200)

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

GUICtrlCreateTabItem ("Win XP x64")
$Javaxp64 = GUICtrlCreateCheckbox ("Java",25,35)
$Flashxp64 = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Readerxp64 = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shockxp64 = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrarxp64 = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLCxp64 = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefoxxp64 = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deepxp64 = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges2 = GUICtrlCreateProgress (25, 135, 300,20)
$Label2 = GUICtrlCreateLabel("Nach dem Klicken auf Beginn, nichts mehr Klicken!",30,160)

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

$Beginn2 = GUICtrlCreateButton ("Beginn", 150, 200)

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

GUICtrlCreateTabItem ("Win7 x86")
$Java7 = GUICtrlCreateCheckbox ("Java",25,35)
$Flash7 = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Reader7 = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shock7 = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrar7 = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLC7 = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefox7 = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deep7 = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges3 = GUICtrlCreateProgress (25, 135, 300,20)
$Label3 = GUICtrlCreateLabel("Nach dem Klicken auf Beginn, nichts mehr Klicken!",30,160)

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

$Beginn3 = GUICtrlCreateButton ("Beginn", 150, 200)

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

GUICtrlCreateTabItem ("Win7 x64")
$Javax64 = GUICtrlCreateCheckbox ("Java",25,35)
$Flashx64 = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Readerx64 = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shockx64 = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrarx64 = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLCx64 = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefoxx64 = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deepx64 = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges4 = GUICtrlCreateProgress (25, 135, 300,20)
$Label4 = GUICtrlCreateLabel("Nach dem Klicken auf Beginn, nichts mehr Klicken!",30,160)

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

$Beginn4 = GUICtrlCreateButton ("Beginn", 150, 200)

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

GUISetState(@SW_SHOW) ; Zum Anzeigen der GUI nötig/Show GUI
;Button Befehle
While 1
Switch GUIGetMsg ()
case $GUI_EVENT_CLOSE
Exit
case $Beginn1
xpCheck()
Case $Beginn2
xp64Check()
Case $Beginn3
Win7Check()
Case $Beginn4
Win764Check()
EndSwitch
WEnd

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

;checkbefehl ob überhaupt was markiert wurde
func XPCheck()
if GUICtrlRead($Javaxp) =4 and GUICtrlRead($Flashxp) =4 And GUICtrlRead($Readerxp)=4 and GUICtrlRead($Shockxp)=4 and GUICtrlRead($Winrarxp)=4 and GUICtrlRead($VLCxp)=4 and GUICtrlRead($Firefoxxp)=4 and GUICtrlRead($Deepxp)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
XPx86()
EndIf
EndFunc

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

Func xp64Check()
if GUICtrlRead($Javaxp64) =4 and GUICtrlRead($Flashxp64) =4 And GUICtrlRead($Readerxp64)=4 and GUICtrlRead($Shockxp64)=4 and GUICtrlRead($Winrarxp64)=4 and GUICtrlRead($VLCxp64)=4 and GUICtrlRead($Firefoxxp64)=4 and GUICtrlRead($Deepxp64)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
xpx64()
EndIf
EndFunc

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

Func Win7Check()
if GUICtrlRead($Java7) =4 and GUICtrlRead($Flash7) =4 And GUICtrlRead($Reader7)=4 and GUICtrlRead($Shock7)=4 and GUICtrlRead($Winrar7)=4 and GUICtrlRead($VLC7)=4 and GUICtrlRead($Firefox7)=4 and GUICtrlRead($Deep7)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
win7()
EndIf
EndFunc

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

Func Win764Check()
if GUICtrlRead($Javax64) =4 and GUICtrlRead($Flashx64) =4 And GUICtrlRead($Readerx64)=4 and GUICtrlRead($Shockx64)=4 and GUICtrlRead($Winrarx64)=4 and GUICtrlRead($VLCx64)=4 and GUICtrlRead($Firefoxx64)=4 and GUICtrlRead($Deepx64)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
Win764()
EndIf
EndFunc

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

;Hauptfunktionen

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

func XPx86()
msgbox(1,GUICtrlRead($Javaxp),"2")
If GUICtrlRead($Javaxp) =1 Then
$hDL1= InetGet($DJavax86,@ScriptDir&"\java.exe",1,1)
GUICtrlSetData($Label1, "Download gestartet")
Sleep(1000)
While InetGetInfo($hDL1,2) = False
$Info1 = Round (InetGetInfo($hDL1,0)/1024/1024,2)
$ipercent = Round(100/$Sizejava86*$info1)
ConsoleWrite($ipercent & @LF)
GUICtrlSetData($Label1, "Java Download: "&$info1&"MB"&" von "&$Sizejava86&" MB Geladen")
GUICtrlSetData($Prges1,$ipercent)
sleep (500)
WEnd
InetClose($hDL1)
EndIf

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

If GUICtrlRead($Flashxp)=1 Then
$hDL2 = Inetget($DFlash,@ScriptDir&"\Flashplayer.exe",1,1)
GUICtrlSetData($Label1,"Download gestartet")
sleep(1000)
While InetGetInfo($hDL2,2) = False
$info2 = Round(InetGetInfo($hDL2,0)/1024/1024,2)
$ipercent2 = Round(100/$Sizeflash*$info2)
ConsoleWrite($ipercent2 & @LF)
GUICtrlSetData($Label1, "Flash Download: "&$info2&"MB"&" von "&$Sizeflash&" MB Geladen")
GUICtrlSetData($Prges1, $ipercent2)
Sleep(500)
WEnd
InetClose($hDL2)
EndIf

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

If GUICtrlRead($Readerxp)=1 Then
$hDL3= InetGet($DReader,@ScriptDir&"\Reader.exe",1,1)
GUICtrlSetData($Label1,"Download gestartet")
Sleep(1000)
While InetGetInfo($hDL3,2) = False
$info3 = Round(InetGetInfo($hDL3,0)/1024/1024,2)
$ipercent3 = Round(100/$sizereader*$info3)
ConsoleWrite($ipercent3 & @LF)
GUICtrlSetData($Label1,"Reader Download: "&$info3&"MB"&" von "&$sizereader&" MB Geladen")
GUICtrlSetData($Prges1, $ipercent3)
Sleep(500)
WEnd
InetClose($hDL3)
EndIf

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

If GUICtrlRead($Shockxp)=1 Then
$hDL4= InetGet($DShock,@ScriptDir&"\Shockwave.exe",1,1)
GUICtrlSetData($Label1,"Download gestartet")
Sleep(1000)
While InetGetInfo($hDL4,2) = False
$info4 = Round(InetGetInfo($hDL4,0)/1024/1024,2)
$ipercent4 = Round(100/$sizeshock*$info4)
ConsoleWrite($ipercent4 & @LF)
GUICtrlSetData($Label1,"Shockwave Download: "&$info4&"MB"&" von "&$sizeshock&" MB Geladen")
GUICtrlSetData($Prges1, $ipercent4)
Sleep(500)
WEnd
InetClose($hDL4)
EndIf

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

If GUICtrlRead($Winrarxp)=1 Then
$hDL5= InetGet($DWinrarx86,@ScriptDir&"\Winrar.exe",1,1)
GUICtrlSetData($Label1,"Download gestartet")
Sleep(1000)
While InetGetInfo($hDL5,2) = False
$info5 = Round(InetGetInfo($hDL4,0)/1024/1024,2)
$ipercent5 = Round(100/$sizerar86*$info5)
ConsoleWrite($ipercent5 & @LF)
GUICtrlSetData($Label1,"Winrar Download: "&$info5&"MB"&" von "&$sizerar86&" MB Geladen")
GUICtrlSetData($Prges1, $ipercent5)
Sleep(500)
WEnd
InetClose($hDL5)
EndIf

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

If GUICtrlRead($VLCxp)=1 Then
$hDL6= InetGet($DVLC,@ScriptDir&"\VLC.exe",1,1)
GUICtrlSetData($Label1,"Download gestartet")
Sleep(1000)
While InetGetInfo($hDL6,2) = False
$info6 = Round(InetGetInfo($hDL6,0)/1024/1024,2)
$ipercent6 = Round(100/$sizevlc*$info6)
ConsoleWrite($ipercent6 & @LF)
GUICtrlSetData($Label1,"VLC Download: "&$info6&"MB"&" von "&$sizevlc&" MB Geladen")
GUICtrlSetData($Prges1, $ipercent6)
Sleep(500)
WEnd
InetClose($hDL6)
EndIf

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

If GUICtrlRead($Firefoxxp)=1 Then
$hDL7= InetGet($DFirefoxx86,@ScriptDir&"\Firefox.exe",1,1)
GUICtrlSetData($Label1,"Download gestartet")
Sleep(1000)
While InetGetInfo($hDL7,2) = False
$info7 = Round(InetGetInfo($hDL7,0)/1024/1024,2)
$ipercent7 = Round(100/$sizefirefox86*$info7)
ConsoleWrite($ipercent7 & @LF)
GUICtrlSetData($Label1,"Firefox Download: "&$info7&"MB"&" von "&$sizefirefox86&" MB Geladen")
GUICtrlSetData($Prges1, $ipercent7)
Sleep(500)
WEnd
InetClose($hDL7)
EndIf

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

if GUICtrlRead($Deepxp)=1 Then
$hDL8= InetGet($DDeep,@ScriptDir&"\Deep.exe",1,1)
GUICtrlSetData($Label1,"Download gestartet")
Sleep(1000)
While InetGetInfo($hDL8,2) = False
$info8 = Round(InetGetInfo($hDL8,0)/1024/1024,2)
$ipercent8 = Round(100/$sizedeep*$info8)
ConsoleWrite($ipercent8 & @LF)
GUICtrlSetData($Label1,"DeepBurner Download: "&$info8&"MB"&" von "&$sizedeep&" MB Geladen")
GUICtrlSetData($Prges1, $ipercent8)
Sleep(500)
WEnd
InetClose($hDL8)
EndIf
GUICtrlSetData($Label1,"Bin Fertig, was nun? :D")
EndFunc

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

Func xpx64()
MsgBox(1,"hallo","hallo")
EndFunc

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

func win7()
msgbox(1,"hallo","hallo")
EndFunc

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

func win764()
msgbox(1,"hallo","hallo")
EndFunc

[/autoit]

Wie ihr seht bin ich auch noch nicht ganz fertig damit.

Vielen Danke schonmal im Vorraus

Gruß
Marco

FlairSecret

Hab mir TCP mal angeschaut dafür müsste ich ja mein ganzes Script umbasteln.
Außerdem würde es dann Kompliziert werden mit der Progressbar xD
Ich bin grad dabei es mit WinHttp zu Probieren.

Denke mein Problem ist gelöst werde das mal aktualisieren.
Danke dir

FlairSecret

Also hat sich geklärt, Grund war das mein Internet zu langsam war und es ein WinHttpConnectIdle problem gab.

Irgendeine Idee wie ich das Problem lösen könnte wenn ich wieder langsames Internet hab?

FlairSecret

Das heißt es könnte an der For-Schleife liegen, dass er vorzeitig abbricht?

FlairSecret

Ah okay danke für die Antwort, gibts in dem Forum ein Bedanken Button?

Hätte noch jemand ne Idee warum mein Skript das Downloaden einfach aufhört?

FlairSecret

Hi Danke für die Schnelle Antwort,
Yeah Es funktioniert allerdings hört er nach ca. 1 MB das herunterladen auf.
Woran könnte das liegen?

Was macht Consolewrite genau und wozu ist @LF da?

FlairSecret

Hallo Liebe Community
Beim ausführen dieser Funktion wird die Datei Zwar runtergeladen allerdings verschwindet der Balken nach einer Zeit und erscheint dann wieder dann ist er wieder weg und der DL stoppt.

[autoit]

func XPx86()
$1 = GUICtrlRead($Javaxp)
$2 = GUICtrlRead($Deepxp)
If GUICtrlRead($Javaxp) =1 Then
$hDL= InetGet($DJavax86,@ScriptDir&"\java.exe",1,1)
MsgBox(1,"Download gestartet","djkal")
For $Info = Round (FileGetSize("java.exe")/1024/1024,2) To $Sizejava86
$ipercent = Round(100 / $Sizejava86 * $info ,2)
GUICtrlSetState($Prges1,$ipercent)
sleep (1000)
Next
InetClose($hDL)

[/autoit]

Habe es auch schon mit einer Version von Do... Until versucht da ging der Lade balken allerdings fast sofort auf 100% der DL wurde allerdings fertig gestellt.

[autoit]

Do
$Info = FileGetSize("java.exe")
Sleep(1000)
$iPercent = Round(100 / $Sizejava86 * $info * ,2)
if $iPercent <> GUICtrlRead($Prges1) Then
GUICtrlSetData($Prges1,$iPercent)
EndIf
Until $info=$Sizejava86

[/autoit]

Hoffe ihr Könnt mir helfen hier nochmal der das ganze Skript

Spoiler anzeigen

[autoit]

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

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

AutoIt Version: 3.3.8.1
Author: Keks alias Marco Haberstroh

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

Script Function:
Läd ausgewählte Standartprogramme wie Java und Flashplayer automatisch runter und installiert diese.
Downloading the choosed programes and installed them.
#ce ----------------------------------------------------------------------------

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

; Includes

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

#include <GuiConstantsEx.au3>
#include <GuiButton.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <progressconstants.au3>
#include <windowsconstants.au3>

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

;Adressen/Adresses
$DJavax86 = "http://javadl.sun.com/webapps/download/AutoDL?BundleId=79063"
$DJavax64 = "1"
$DFlash = "http://get.adobe.com/de/flashplayer/download/?installer=Flash_Player_11_for_Other_Browsers&os=XP&browser_type=Gecko&browser_dist=Firefox&d=McAfee_Security_Scan_Plus_FireFox_Browser&dualoffer=false"
$DReader = "http://get.adobe.com/de/reader/download/?installer=Reader_11.0.03_German_for_Windows&os=XP&browser_type=Gecko&browser_dist=Firefox&d=McAfee_Security_Scan_Plus_FireFox_Browser&dualoffer=false"
$DShock = "http://get.adobe.com/de/shockwave/thankyou/?installer=Shockwave_12.0.3.133_Windows_Slim_Other_Browsers"
$DWinrarx86 = "http://www.winrar.de/dl/wrar420d.exe"
$DWinrarx64 = "http://www.winrar.de/dl/winrar-x64-420d.exe"
$DVLC = "http://get.videolan.org/vlc/2.0.7/win32/vlc-2.0.7-win32.exe"
$DFirefoxx86 = "http://www.mozilla.org/de/firefox/new/#download-fx"
$DFirefoxx64 = "2"
$DDeep = "http://www.deepburner.com/download/DeepBurner1.exe"

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

;Dateigrößen
$Sizejava86 = Round (InetGetSize($DJavax86)/1024/1024,2)
$sizejava64 = Round (InetGetSize($DJavax64)/1024/1024,2)
$Sizeflash = Round (InetGetSize($DFlash)/1024/1024,2)
$sizereader = Round (InetGetSize($DReader)/1024/1024,2)
$sizeshock = Round (InetGetSize($DShock)/1024/1024,2)
$sizerar86 = Round (InetGetSize($DWinrarx86)/1024/1024,2)
$sizerar64 = Round (InetGetSize($DWinrarx64)/1024/1024,2)
$sizevlc = Round (InetGetSize($DVLC)/1024/1024,2)
$sizefirefox86 = Round (InetGetSize($DFirefoxx86)/1024/1024,2)
$sizefirefox64 = Round (InetGetSize($DFirefoxx64)/1024/1024,2)
$sizedeep = Round (InetGetSize($DDeep)/1024/1024,2)

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

;GUI

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

GUICreate ("Keks Dwler", 350, 300) ;Erstellt GUI/Create a GUI

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

GUICtrlCreateTab (10,10,335,270)
GUICtrlCreateTabItem ("Win XP x86")
$Javaxp = GUICtrlCreateCheckbox ("Java",25,35)
$Flashxp = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Readerxp = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shockxp = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrarxp = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLCxp = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefoxxp = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deepxp = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges1 = GUICtrlCreateProgress (25, 135, 300,20)
$Beginn1 = GUICtrlCreateButton ("Beginn", 150, 200)

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

GUICtrlCreateTabItem ("Win XP x64")
$Javaxp64 = GUICtrlCreateCheckbox ("Java",25,35)
$Flashxp64 = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Readerxp64 = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shockxp64 = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrarxp64 = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLCxp64 = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefoxxp64 = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deepxp64 = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges2 = GUICtrlCreateProgress (25, 135, 300,20)

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

$Beginn2 = GUICtrlCreateButton ("Beginn", 150, 200)

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

GUICtrlCreateTabItem ("Win7 x86")
$Java7 = GUICtrlCreateCheckbox ("Java",25,35)
$Flash7 = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Reader7 = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shock7 = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrar7 = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLC7 = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefox7 = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deep7 = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges3 = GUICtrlCreateProgress (25, 135, 300,20)

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

$Beginn3 = GUICtrlCreateButton ("Beginn", 150, 200)

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

GUICtrlCreateTabItem ("Win7 x64")
$Javax64 = GUICtrlCreateCheckbox ("Java",25,35)
$Flashx64 = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Readerx64 = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shockx64 = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrarx64 = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLCx64 = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefoxx64 = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deepx64 = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges4 = GUICtrlCreateProgress (25, 135, 300,20)

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

$Beginn4 = GUICtrlCreateButton ("Beginn", 150, 200)

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

GUISetState(@SW_SHOW) ; Zum Anzeigen der GUI nötig/Show GUI
;Button Befehle
While 1
Switch GUIGetMsg ()
case $GUI_EVENT_CLOSE
Exit
case $Beginn1
xpCheck()
Case $Beginn2
xp64Check()
Case $Beginn3
Win7Check()
Case $Beginn4
Win764Check()
EndSwitch
WEnd

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

;checkbefehl ob überhaupt was markiert wurde
func XPCheck()
if GUICtrlRead($Javaxp) =4 and GUICtrlRead($Flashxp) =4 And GUICtrlRead($Readerxp)=4 and GUICtrlRead($Shockxp)=4 and GUICtrlRead($Winrarxp)=4 and GUICtrlRead($VLCxp)=4 and GUICtrlRead($Firefoxxp)=4 and GUICtrlRead($Deepxp)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
XPx86()
EndIf
EndFunc

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

Func xp64Check()
if GUICtrlRead($Javaxp64) =4 and GUICtrlRead($Flashxp64) =4 And GUICtrlRead($Readerxp64)=4 and GUICtrlRead($Shockxp64)=4 and GUICtrlRead($Winrarxp64)=4 and GUICtrlRead($VLCxp64)=4 and GUICtrlRead($Firefoxxp64)=4 and GUICtrlRead($Deepxp64)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
xpx64()
EndIf
EndFunc

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

Func Win7Check()
if GUICtrlRead($Java7) =4 and GUICtrlRead($Flash7) =4 And GUICtrlRead($Reader7)=4 and GUICtrlRead($Shock7)=4 and GUICtrlRead($Winrar7)=4 and GUICtrlRead($VLC7)=4 and GUICtrlRead($Firefox7)=4 and GUICtrlRead($Deep7)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
win7()
EndIf
EndFunc

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

Func Win764Check()
if GUICtrlRead($Javax64) =4 and GUICtrlRead($Flashx64) =4 And GUICtrlRead($Readerx64)=4 and GUICtrlRead($Shockx64)=4 and GUICtrlRead($Winrarx64)=4 and GUICtrlRead($VLCx64)=4 and GUICtrlRead($Firefoxx64)=4 and GUICtrlRead($Deepx64)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
Win764()
EndIf
EndFunc

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

;Hauptfunktionen

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

func XPx86()
$1 = GUICtrlRead($Javaxp)
$2 = GUICtrlRead($Deepxp)
If GUICtrlRead($Javaxp) =1 Then
$hDL= InetGet($DJavax86,@ScriptDir&"\java.exe",1,1)
MsgBox(1,"Download gestartet","djkal")
For $Info = Round (FileGetSize("java.exe")/1024/1024,2) To $Sizejava86
$ipercent = Round(100 / $Sizejava86 * $info ,2)
GUICtrlSetState($Prges1,$ipercent)
sleep (1000)
Next
InetClose($hDL)
Else
MsgBox(1,"fehler",$2)

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

EndIf
EndFunc

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

Func xpx64()
MsgBox(1,"hallo","hallo")
EndFunc

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

func win7()
msgbox(1,"hallo","hallo")
EndFunc

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

func win764()
msgbox(1,"hallo","hallo")
EndFunc

[/autoit]

Beiträge von FlairSecret

Button automatisch einen Befehl zuweisen!

Button automatisch einen Befehl zuweisen!

Button automatisch einen Befehl zuweisen!

Autoit Programm dauert lange bis es offen ist; Vorschläge für vereinfachung benötigt!

Autoit Programm dauert lange bis es offen ist; Vorschläge für vereinfachung benötigt!

Autoit Programm dauert lange bis es offen ist; Vorschläge für vereinfachung benötigt!

ProgressBar bei Downloadmanager funktioniert nicht.

ProgressBar bei Downloadmanager funktioniert nicht.

ProgressBar bei Downloadmanager funktioniert nicht.

ProgressBar bei Downloadmanager funktioniert nicht.

ProgressBar bei Downloadmanager funktioniert nicht.

ProgressBar bei Downloadmanager funktioniert nicht.