Hi, hab mir ein Script geschrieben der mir immer die aktuelle AutoIt Hilfe in Deutsch downloadet.
Leider bekomm ich immer folgenden Fehler. Weiss aber nicht wo der Fehler liegen könnte.
Vielen Dank
Spoiler anzeigen
Z:\_Programme\AutoIt v3.3.4.0\update_autoit_help.au3(35,24) : ERROR: undefined macro.
While @InetGetActive =
~~~~~~~~~~~~~~~~~~~~~^
Z:\_Programme\AutoIt v3.3.4.0\update_autoit_help.au3(36,36) : ERROR: undefined macro.
$Percentage = @InetGetBytesRead *
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Z:\_Programme\AutoIt v3.3.4.0\update_autoit_help.au3(37,62) : ERROR: undefined macro.
ProgressSet($Percentage,"Downloaded " & @InetGetBytesRead &
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
Z:\_Programme\AutoIt v3.3.4.0\update_autoit_help.au3 - 3 error(s), 0 warning(s)
Spoiler anzeigen
#Include <string.au3>
#include <array.au3>
#include <INet.au3>
dim $url = 'http://translation.autoit.de/autoitinfo/autoit_downloads.php'
dim $linkteil_1 = "http://translation.autoit.de/autoitinfo/hilfedateien"
dim $linkteil_2 = '.zip'
dim $downlaodfile = "true"
local $html = (_INetGetSource($url))
local $gesucht = _StringBetween($html, $linkteil_1, $linkteil_2)
if (@Error = 0) Then
local $au3_chm = $linkteil_1 & $gesucht[0] & $linkteil_2
local $link_elemente = StringSplit($au3_chm, "-")
local $au3_api = $linkteil_1 & '/au3-Stand-' & $link_elemente[($link_elemente[0])]
_DownloadFile ($au3_chm)
_DownloadFile ($au3_api)
EndIf
Func _DownloadFile ($FileURL)
$downlaodfile = "true"
$FileURLSplit = StringSplit($FileURL , "/")
$FileName = $FileURLSplit[($FileURLSplit[0])]
$FileSizeURL = InetGetSize($FileURL)
if FileExists (@ScriptDir & "\" & $FileName) Then
$FileSizeHD = FileGetSize(@ScriptDir & "\" & $FileName)
if ($FileSizeHD = $FileSizeURL) Then
local $downlaodfile = "false"
MsgBox(64,"Autoit Updater",$FileName & " ist aktuell")
EndIf
EndIf
if ($downlaodfile <> "false") Then
InetGet($FileURL,$FileName,0,1)
ProgressOn("","")
While @InetGetActive = 1
$Percentage = @InetGetBytesRead * 100 / $FileSizeURL
ProgressSet($Percentage,"Downloaded " & @InetGetBytesRead & " of " & $FileSizeURL & " bytes","Downloading " & $FileName )
Sleep(250)
Wend
ProgressOff()
EndIf
EndFunc