ne es geht wieder habe autoit neuinstallt jetzt no probs
aber danke dir
Beiträge von Eistee
-
-
na die ersten datein im ordner komplett sollen in das tempdir
das geht ja auch ohne weiteres
nur leider werden diese files auch direkt unter C: installiert und das will ich nicht -
Hallo @ All
habe ein script gemacht das hatt bisher ohne probleme gefunzt
dann habe ich aber die einzelnen Komponenten optimiert
diese gehen einwandfrei
jetzt ist es aber so das mein hauptscript
noch immer die alten files installiert obwohl diese bereits nicht mehr existieren und die neuen interessieren ihn nicht obwohl die namen usw. übereinstimmen
villeicht ist in dieser richtung etwas bekanntHier ist auf jeden fall mal das script
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit]
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#NoTrayIcon
FileInstall("Komplett\Multiback.bmp", @TempDir & "\Multiback.bmp")
FileInstall("Komplett\Acc.exe", @TempDir &"\Acc.exe")
FileInstall("Komplett\reg.reg", @TempDir &"\reg.reg")
FileInstall("Komplett\conf.exe", @TempDir &"\conf.exe")
FileInstall("Komplett\laggn.exe", @TempDir &"\lagg.exe")
FileInstall("Komplett\expn.exe", @TempDir &"\exp.exe")
FileInstall("Komplett\Moneyn.exe", @TempDir &"\Money.exe")
FileInstall("Komplett\Shopn.exe", @TempDir &"\Shop.exe")
FileInstall("Komplett\Telen.exe", @TempDir &"\Tele.exe")
$Multi = GUICreate("Multitool", 250, 300, -1, -1, $WS_POPUP)
$Pic1 = GUICtrlCreatePic(@TempDir & "\Multiback.bmp", 0, 0, 250, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_Disabled))
$Acc = GUICtrlCreateButton("Create Account", 24, 56, 200, 20, 0)
$reg = GUICtrlCreateButton("Create ODBC Registry Entry", 24, 88, 200, 20, 0)
$conf = GUICtrlCreateButton("Edit Config Files", 24, 120, 200, 20, 0)
$lagg = GUICtrlCreateButton("Make your Running Server Laggfree", 24, 152, 200, 20, 0)
$exp = GUICtrlCreateButton("Change EXP Rate", 24, 184, 200, 20, 0)
$Money = GUICtrlCreateButton("Change Servers Money Rate", 24, 216, 200, 20, 0)
$Shop = GUICtrlCreateButton("Create a Shop NPC", 24, 248, 200, 20, 0)
$Tele = GUICtrlCreateButton("Create a Teleport NPC", 24, 280, 200, 20, 0)
$Close = GUICtrlCreateButton("X", 235, 0, 15, 15, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Acc
_Acc ()
Case $reg
_reg ()
Case $conf
_conf ()
Case $lagg
_lagg ()
Case $exp
_exp ()
Case $Money
_Money ()
Case $Shop
_Shop ()
Case $Tele
_Tele ()
Case $Close
_Close ()
EndSwitch
WEnd
Func _Acc ()
Run(@TempDir &"\Acc.exe")
WinWaitClose("Acc.exe")
Endfunc
Func _reg ()
ShellExecute(@TempDir &"\reg.reg")
Sleep(2000)
Endfunc
Func _conf ()
Run(@TempDir &"\conf.exe")
WinWaitClose("conf.exe")
Endfunc
Func _lagg ()
Run(@TempDir &"\lagg.exe")
Sleep(1000)
Endfunc
Func _exp ()
Run(@TempDir &"\exp.exe")
WinWaitClose("exp.exe")
Endfunc
Func _Money ()
Run(@TempDir &"\Money.exe")
WinWaitClose("Money.exe")
Endfunc
Func _Shop ()
Run(@TempDir &"\Shop.exe")
WinWaitClose("Shop.exe")
Endfunc
Func _Tele ()
Run(@TempDir &"\Tele.exe")
WinWaitClose("Tele.exe")
Endfunc
Func _Close ()
Exit
EndfuncMfg Eistee
-
Hallo liebe Comunity
wollte mal fragen wie man ein editfald im background schwarz macht und der text(welcher aus einer datei geladen wird)
dann weiss ist ?Mfg Eistee
P.s. über die suche finde ich nichts mein suchbegriff war schwarzer edit
-
Jo das wär dann nicht so gut meine Scripts sind glaube ich eh sehr schwer lesbar
-
ok kann ich das Irgendwie Umgehen ?
-
aha
das heisst dann jetzt was ? -
Hallo ich habe ein big prob
habe heute autoit update gemacht und seitdem geht irgendwie
$Ws_PopUp nicht mehr muss ich wegen dem update was ändern ?
ICH häng das script mal anSpoiler anzeigen
[autoit]#include<GUIConstants.au3>
[/autoit]
#NoTrayIcon
FileInstall("C:\Users\KR\Desktop\Launcherback.jpg","C:\Launcherback.jpg")
$HTT = FileReadLine("Launcher.txt",4)
$Lname = FileReadLine("Launcher.txt",2)
$LaName = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate($Lname, 297, 400, -1, -1,$WS_POPUP)
$Pic1 = GUICtrlCreatePic("C:\Launcherback.jpg", 0, 0, 297, 400, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$Close = GUICtrlCreateButton("X", 282, 0, 16, 16, 0)
$Start = GUICtrlCreateButton("Start Game", 8, 376, 70, 20, 0)
$Set = GUICtrlCreateButton("Settings", 112, 376, 70, 20, 0)
$WEB = GUICtrlCreateButton("Website", 216, 376, 70, 20, 0)
$Edit1 = GUICtrlCreateEdit("", 0, 264, 297, 105)
GUICtrlSetData(-1, $notice)
$Label1 = GUICtrlCreateLabel($LaName &" Launcher", 80, 0, 145, 17)
GUICtrlSetFont(-1, 10, 800, 2, "Narkisim")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Close
_Close ()
Case $Start
_Start ()
Case $WEB
_WEB ()
Case $Set
_Set ()
EndSwitch
WEnd
Func _Start ()
ShellExecute("engine.exe","/load /config debug")
Endfunc
Func _WEB ()
ShellExecute($HTT)
EndFunc
Func _Set ()
FileInstall("C:\Users\KR\Desktop\KAL\Resolution\Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc
Func _Close ()
Exit
Endfuncauch bei meinen anderen scripts geht nichts mehr mit $Ws_POPUP
Hier noch der Fehlercode
Spoiler anzeigen
C:\Users\KR\Desktop\KAL\Backup\Launcher\KalLauncher.au3 (9) : ==> Variable used without being declared.:
$Form1 = GUICreate($Lname, 297, 400, -1, -1, $ws_popup)
$Form1 = GUICreate($Lname, 297, 400, -1, -1, ^ ERROR
>Exit code: 1 Time: 0.206WAS KANN ICH JETZT TUN BZW: WOHER BEKOMME ICH DIE ALTE VERSION WIEDER ?
Habe gerade auch nachgescahaut das zu includen ist immer noch im ordner includes ist also noch immer da daran kann es also nicht liegen
-
-
-
-
@Pethebee mitlerweile habe ich es auch gefunden aber ich habe ja oben geschrieben nach was ich gesucht habe nämlich "Prüfen ob datei existiert"
und da findet er dann nichtsMfg Eistee
-
Hallo Leute Tut mir leid das ich schon wieder störe
aber ich versuche gerade dafür zu sorgen das ein script von mir nur ausgeführt wird wenn in einer (auf nem server liegende) datei eine Veränderung stattfand
ich versuche daran seit 3 stunden und komme nicht weiter
es ist sonst nicht meine Art aber kann bitte jemand den fehler ersetzen ?das Prinzip ist Folgendes :
Datei auf server : UpdateVersion.txt diese enthält z.B. die zahlenfolge "1111"
Wird jetzt heruntergeladen ins script dir
soll mit der gleichen datei nur eben unter C:\ verglichen Werden, wenn in dieser auch "1111" steht soll gar nichts passieren
steht da jetzt aber "111" oder "11111" oder so in der art dann soll meine Funkztion ausgeführt werden wenn diese ausgeführt wird soll die im scriptdir liegende UpdateVersion.txt bzw.deren Inhalt in der
C:\UpdateVersion.txt gespeichert werden alsoSozusagen
wenn sich die auf dem server liegende datei ändert soll eine Funktion ausgeführt werden die änderung wieder unter C:\ gespeichert werden damit beim nächsten mal wieder Überprüft wird
ich Hoffe ich habe es Verständlich erklärt und entschuldige mich dafür euch schon wieder zu belästigenMfg Eistee
P.S. anbei mein Bisheriger Script
Spoiler anzeigen
[autoit]#include<Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include<File.au3>
#NoTrayIconGlobal $txt2
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$Ip2 = ("http://127.0.0.1/yourhost.com/updater")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
Sleep(200)If FileExists("C:\UpdateVersion.txt") Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_FileReadToArray("C:\UpdateVersion.txt", $txt2)
Else
FileWrite("C:\UpdateVersion.txt", "1")
Sleep(500)
_FileReadToArray("C:\UpdateVersion.txt", $txt2)
EndIf$txt1 = FileRead("UpdateVersion.txt") ;
[/autoit] [autoit][/autoit] [autoit]
;Prüfung
If $txt1 <> $txt2 Then _Func () ;Func _Func ()
[/autoit]
FileMove("UpdateVersion.txt", "C:\UpdateVersion.txt")
$Ip = ("http://127.0.0.1/yourhost.com/updater")
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Updating KalOnline", "KalOnline-Update in Progress", "Update")
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(0,"0%")
for $i = 1 to 2000
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
If $i = 20 Then ProgressSet(1,"1 %")
If $i = 40 Then ProgressSet(2,"2 %")
If $i = 60 Then ProgressSet(3,"3 %")
If $i = 80 Then ProgressSet(4,"4 %")
If $i = 100 Then ProgressSet(5,"5 %")
If $i = 120 Then ProgressSet(6,"6 %")
If $i = 140 Then ProgressSet(7,"7 %")
If $i = 160 Then ProgressSet(8,"8 %")
If $i = 180 Then ProgressSet(9,"9 %")
If $i = 200 Then ProgressSet(10,"10 %")
If $i = 220 Then ProgressSet(11,"11 %")
If $i = 240 Then ProgressSet(12,"12 %")
If $i = 260 Then ProgressSet(13,"13 %")
If $i = 280 Then ProgressSet(14,"14 %")
If $i = 300 Then ProgressSet(15,"15 %")
If $i = 320 Then ProgressSet(16,"16 %")
If $i = 340 Then ProgressSet(17,"17 %")
If $i = 360 Then ProgressSet(18,"18 %")
If $i = 380 Then ProgressSet(19,"19 %")
If $i = 400 Then ProgressSet(20,"20 %")
If $i = 420 Then ProgressSet(21,"21 %")
If $i = 440 Then ProgressSet(22,"22 %")
If $i = 460 Then ProgressSet(23,"23 %")
If $i = 480 Then ProgressSet(24,"24 %")
If $i = 500 Then ProgressSet(25,"25 %")
If $i = 520 Then ProgressSet(26,"26 %")
If $i = 540 Then ProgressSet(27,"27 %")
If $i = 560 Then ProgressSet(28,"28 %")
If $i = 580 Then ProgressSet(29,"29 %")
If $i = 600 Then ProgressSet(30,"30 %")
If $i = 620 Then ProgressSet(31,"31 %")
If $i = 640 Then ProgressSet(32,"32 %")
If $i = 660 Then ProgressSet(33,"33 %")
If $i = 680 Then ProgressSet(34,"34 %")
If $i = 700 Then ProgressSet(35,"35 %")
If $i = 720 Then ProgressSet(36,"36 %")
If $i = 740 Then ProgressSet(37 ,"37 %")
If $i = 760 Then ProgressSet(38,"38 %")
If $i = 780 Then ProgressSet(39,"39 %")
If $i = 800 Then ProgressSet(40,"40 %")
If $i = 820 Then ProgressSet(41,"41 %")
If $i = 840 Then ProgressSet(42,"42 %")
If $i = 860 Then ProgressSet(43,"43 %")
If $i = 880 Then ProgressSet(44,"44 %")
If $i = 900 Then ProgressSet(45,"45 %")
If $i = 920 Then ProgressSet(46,"46 %")
If $i = 940 Then ProgressSet(47,"47 %")
If $i = 960 Then ProgressSet(48,"48 %")
If $i = 980 Then ProgressSet(49,"49 %")
If $i = 1000 Then ProgressSet(50,"50 %")
If $i = 1020 Then ProgressSet(51,"51 %")
If $i = 1040 Then ProgressSet(52,"52 %")
If $i = 1060 Then ProgressSet(53,"53 %")
If $i = 1080 Then ProgressSet(54,"54 %")
If $i = 1100 Then ProgressSet(55,"55 %")
If $i = 1120 Then ProgressSet(56,"56 %")
If $i = 1140 Then ProgressSet(57,"57 %")
If $i = 1160 Then ProgressSet(58,"58 %")
If $i = 1180 Then ProgressSet(59,"59 %")
If $i = 1200 Then ProgressSet(60,"60 %")
If $i = 1220 Then ProgressSet(61,"61 %")
If $i = 1240 Then ProgressSet(62,"62 %")
If $i = 1260 Then ProgressSet(63,"63 %")
If $i = 1280 Then ProgressSet(64,"64 %")
If $i = 1300 Then ProgressSet(65,"65 %")
If $i = 1320 Then ProgressSet(66,"66 %")
If $i = 1340 Then ProgressSet(67,"67 %")
If $i = 1360 Then ProgressSet(68,"68 %")
If $i = 1380 Then ProgressSet(69,"69 %")
If $i = 1400 Then ProgressSet(70,"70 %")
If $i = 1420 Then ProgressSet(71 ,"71 %")
If $i = 1440 Then ProgressSet(72,"72 %")
If $i = 1460 Then ProgressSet(73,"73 %")
If $i = 1480 Then ProgressSet(74,"74 %")
If $i = 1500 Then ProgressSet(75,"75 %")
If $i = 1520 Then ProgressSet(76,"76 %")
If $i = 1540 Then ProgressSet(77,"77 %")
If $i = 1560 Then ProgressSet(78,"78 %")
If $i = 1580 Then ProgressSet(79,"79 %")
If $i = 1600 Then ProgressSet(80,"80 %")
If $i = 1620 Then ProgressSet(81,"81 %")
If $i = 1640 Then ProgressSet(82,"82 %")
If $i = 1660 Then ProgressSet(83,"83 %")
If $i = 1680 Then ProgressSet(84,"84 %")
If $i = 1700 Then ProgressSet(85,"85 %")
If $i = 1720 Then ProgressSet(86,"86 %")
If $i = 1740 Then ProgressSet(87,"87 %")
If $i = 1760 Then ProgressSet(88,"88 %")
If $i = 1780 Then ProgressSet(89,"89 %")
If $i = 1800 Then ProgressSet(90,"90 %")
If $i = 1820 Then ProgressSet(91,"91 %")
If $i = 1840 Then ProgressSet(92,"92 %")
If $i = 1860 Then ProgressSet(93,"93 %")
If $i = 1880 Then ProgressSet(94,"94 %")
If $i = 1900 Then ProgressSet(95,"95 %")
If $i = 1920 Then ProgressSet(96,"96 %")
If $i = 1940 Then ProgressSet(97,"97 %")
If $i = 1960 Then ProgressSet(98,"98 %")
If $i = 1980 Then ProgressSet(99,"99 %")
Next
ProgressSet(100,"100 %")
Sleep(200)
ProgressOff()
MsgBox(0,"Updates", "All Updates Finished", 1)
EndFunc -
ähm wer redet hier von scite ich meinte die deutsche hilfe file halt
-
wenn ich in der ilfe eingebe Prüfen ob datei existiert dann findet der garnix
-
Ich weiss es is echt noobig aber wie kann ich prüfen ob unter C: eine datei existiert ?
-
Danke Bernd werde ich anpassen
-
Jetzt einfach mal so gelöst
Spoiler anzeigen
[autoit]#include<Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include<File.au3>
#NoTrayIcon
$Ip = ("http://127.0.0.1/yourhost.com/updater")
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next$filename1 = @ScriptDir & '\UpdInf.txt'
[/autoit] [autoit][/autoit] [autoit]
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])$filename1 = @ScriptDir & '\UpdInf.txt'
[/autoit]
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Updating KalOnline", "KalOnline-Update in Progress", "Update")
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(5,"5%")
for $i = 1 to 1500
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
If $i = 75 Then ProgressSet(10,"10 %")
If $i = 150 Then ProgressSet(20,"20 %")
If $i = 225 Then ProgressSet(30,"30 %")
If $i = 300 Then ProgressSet(40,"40 %")
If $i = 375 Then ProgressSet(50,"50 %")
If $i = 450 Then ProgressSet(60,"60 %")
If $i = 525 Then ProgressSet(70,"70 %")
If $i = 600 Then ProgressSet(80,"80 %")
If $i = 675 Then ProgressSet(90,"90 %")
If $i = 1000 Then ProgressSet(95,"95 %")
If $i = 1200 Then ProgressSet(97,"97 %")
If $i = 1500 Then ProgressSet(99,"99 %")
Next
ProgressSet(100,"100 %")
Sleep(200)
ProgressOff()
MsgBox(0,"Updates", "All Updates Finished", 1) -
Hallo ich habe ein Prob wie man oben sieht
und zwar wird eine datei geladen in der verzeichnis strukturen stehen
diese bigeinnen mit einem . den konnte ich zum Glück ausschalten mit Replace "." durch "" allerdings bringt das folgendes Problem :
es gibt bei den verzeichnis strukturen auch dateien also mit .exe oder .jpg usw.
wie könnte ich erreichen das der Replace befehl nur für den ersten punkt in der line gilt ?Hier is mal das Script
Spoiler anzeigen
[autoit]#include<Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include<File.au3>
#NoTrayIcon
$Ip = ("http://127.0.0.1/yourhost.com/updater")
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next$filename1 = @ScriptDir & '\UpdInf.txt'
[/autoit] [autoit][/autoit] [autoit]
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.','')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])$filename1 = @ScriptDir & '\UpdInf.txt'
[/autoit]
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.','')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Updating KalOnline", "KalOnline-Update in Progress", "Update")
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(5,"5%")
for $i = 1 to 1500
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
If $i = 75 Then ProgressSet(10,"10 %")
If $i = 150 Then ProgressSet(20,"20 %")
If $i = 225 Then ProgressSet(30,"30 %")
If $i = 300 Then ProgressSet(40,"40 %")
If $i = 375 Then ProgressSet(50,"50 %")
If $i = 450 Then ProgressSet(60,"60 %")
If $i = 525 Then ProgressSet(70,"70 %")
If $i = 600 Then ProgressSet(80,"80 %")
If $i = 675 Then ProgressSet(90,"90 %")
If $i = 1000 Then ProgressSet(95,"95 %")
If $i = 1200 Then ProgressSet(97,"97 %")
If $i = 1500 Then ProgressSet(99,"99 %")
Next
ProgressSet(100,"100 %")
Sleep(200)
ProgressOff()
MsgBox(0,"Updates", "All Updates Finished", 1) -
Das von Eukalyptus ist lustig des dereht einfech das feld da ich mache um die hälfte