ich finde den fehler einfach nicht könnt ihr mir helfen?
er sagt immer download fehlgeschlagen
Spoiler anzeigen
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <GUIConstantsEx.au3>
$os = @OSVersion
;MsgBox(0,"",$os)
If $os = "WIN_7" Then
$down = "7"
ElseIf $os = "WIN_VISTA" Then
$down = "7"
ElseIf $os = "WIN_XP" Then
$down = "XP"
ElseIf $os = "WIN_2000" Then
MsgBox(0,"Falsche Version!","Sie haben Windows 2000. Diese Software ist nicht für Ihr Betriebssystem geeignet!")
Exit
Else
MsgBox(0,"OS ERROR","Betriebssystem nicht erkannt! Wenden sie sich an den Support!")
Exit
EndIf
;MsgBox(0,"",$down)
Global $bExpand = False
[/autoit] [autoit][/autoit] [autoit]Global $aGuiSize[2][2] = [[285,64],[285,184]]
[/autoit] [autoit][/autoit] [autoit]Opt("GuiOnEventMode",1)
Opt("GUIResizeMode",802)
$hMainGui = GUICreate("Download", 285, 56, 218, 249)
GUISetBkColor(0)
GUISetOnEvent(-3,"_Exit")
If $down = "7" Then
$hInpSearch = GUICtrlCreateInput("http://JuraX.square7.ch/Downloads/INRsetup_7.exe", 8, 8, 193, 21)
ProcessClose("iexplorer.exe")
ElseIf $down = "XP" Then
$hInpSearch = GUICtrlCreateInput("http://jurax.square7.ch/Downloads/INRsetup_XP.exe", 8, 8, 193, 21)
ProcessClose("iexplorer.exe")
EndIf
;$hInpSearch = GUICtrlCreateInput("http://www.jurax.square7.ch/Downloads/INRsetup_XP.exe", 8, 8, 193, 21)
;GUICtrlSetState(-1,$GUI_DISABLE)
$hButSearch = GUICtrlCreateButton("> Download >", 202, 8, 75, 21, $WS_GROUP)
GUICtrlSetOnEvent(-1,"_Download")
$hProg = GUICtrlCreateProgress(280,8,15,220,$PBS_VERTICAL)
$hLab = GUICtrlCreateLabel("",8, 42, 269, 60)
GUICtrlSetColor(-1,0x00ff00)
InetGet("http://www.autoitscript.com/autoit3/files/graphics/autoit_metal_wall_800x600.jpg",@ScriptDir&"\metal.jpg")
GUICtrlCreatePic("metal.jpg",55,42+65,80*2,60*2)
_WinSetSize($hMainGui,285,64);without animation
GUISetState()
#EndRegion ### END Koda GUI section ###
While 1
Sleep(500)
WEnd
Func _Exit()
Exit
EndFunc
Func _Download()
_WinSetSize($hMainGui,305,264,10,7);fast open
Local $sRead = GUICtrlRead($hInpSearch)
Local $sFileName = StringTrimLeft($sRead,StringInStr($sRead,"/",-1,-1))
Local $hRead = InetGet($sRead,@ScriptDir&"\"&$sFileName,1,1)
Do
$aInfo = InetGetInfo($hRead)
GUICtrlSetData($hLab,"File Name: "&$sFileName&@CRLF& _
"kbyte Downloaded: "&$aInfo[0]&@CRLF& _
"Size of Download: "&$aInfo[1]&@CRLF& _
"Download ongoing: "&Not $aInfo[2] & @cRLF)
GUICtrlSetData($hProg,100*$aInfo[0]/$aInfo[1])
Sleep(100)
Until $aInfo[2]
Sleep(500)
_WinSetSize($hMainGui,285,64,10,3);slow close
Install()
EndFunc
;By GtaSpider
Func _WinSetSize($hWnd, $iWidth, $iHeigth, $iSleep = -1,$iStep = 4)
If $iSleep < 0 Then Return WinMove($hWnd,"",Default,Default,$iWidth,$iHeigth)
Local $i, $iStepW = $iStep, $iStepH = $iStep,$iSin,$i2,$iLastI
Local $aWinPos = WinGetPos($hWnd)
If $iWidth < $aWinPos[2] Then $iStepW *= -1
If $iHeigth < $aWinPos[3] Then $iStepH *= -1
Local $iDegToRad = 3.14159265358979/180
Local $iSinMulW = ($iWidth - $aWinPos[2]) / 2.5
Local $iSinMulH = ($iHeigth - $aWinPos[3]) / 2.5
If $iSinMulW < 0 Then $iSinMulW *= -1
If $iSinMulH < 0 Then $iSinMulH *= -1
If $iWidth <> $aWinPos[2] Then
For $i = $aWinPos[2] To $iWidth Step $iStepW
$iLastI = $i
$iSin = $i - $aWinPos[2]
$iSin = Sin($iDegToRad * (180*$iSin/($iWidth - $aWinPos[2])))
WinMove($hWnd,"",Default,Default,$i + ($iSin * $iSinMulW),Default)
Sleep($iSleep)
Next
If Mod($iWidth - $aWinPos[2],$iStep) Then
If $iStepW < 0 Then
$iStepW = -1
Else
$iStepW = 1
EndIf
For $i = $iLastI -1 To $iWidth Step $iStepW
WinMove($hWnd,"",Default,Default,$i,Default)
Next
EndIf
EndIf
If $iHeigth <> $aWinPos[3] Then
For $i = $aWinPos[3] To $iHeigth Step $iStepH
$iLastI = $i
$iSin = $i - $aWinPos[3]
$iSin = Sin($iDegToRad*(180*$iSin/($iHeigth - $aWinPos[3])))
WinMove($hWnd,"",Default,Default,Default,$i + ($iSin * $iSinMulH))
Sleep($iSleep)
Next
If Mod($iHeigth - $aWinPos[3],$iStep) Then
If $iStepH < 0 Then
$iStepH = -1
Else
$iStepH = 1
EndIf
For $i = $iLastI -1 To $iHeigth Step $iStepH
WinMove($hWnd,"",Default,Default,Default,$i)
Next
EndIf
EndIf
EndFunc
Func Install()
ShellExecute("INRsetup_"&$down&".exe",@ScriptDir)
EndFunc
