Beiträge von Eistee

Eistee

ne es geht wieder habe autoit neuinstallt jetzt no probs
aber danke dir

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

Eistee

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 bekannt

Hier ist auf jeden fall mal das script

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#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
Endfunc

[/autoit]

Mfg Eistee

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

Eistee

Jo das wär dann nicht so gut meine Scripts sind glaube ich eh sehr schwer lesbar

Eistee

ok kann ich das Irgendwie Umgehen ?

Eistee

aha
das heisst dann jetzt was ?

Eistee

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 an

Spoiler anzeigen

[autoit]

#include<GUIConstants.au3>
#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
Endfunc

[/autoit]

auch 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.206

WAS 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

Eistee

wo kommt jetzt der array $i her ?
ich arbeite eigentlich nie mit arrays das ist eins der ersten male das ich das tue kann mir nicht bitte jemand etwas genauer helfen ?

Eistee

genau das ist ja das Problem Pethe ich weiss ja nicht was hier falsch ist woran der fehler liegt was ich hier verkehrt gemacht habe

Kurz gesagt ich weiss nicht nach was ich suchen soll wenn ich nicht weiss wo der fehler begraben ist

Eistee

ähm Welcher %Wert ?

P.S. mit welchem suchbegriff bitte ?

Eistee

@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 nichts

Mfg Eistee

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 also

Sozusagen

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ästigen

Mfg Eistee

P.S. anbei mein Bisheriger Script

Spoiler anzeigen

[autoit]

#include<Array.au3>
#include<File.au3>
#NoTrayIcon

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

Global $txt2

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

$Ip2 = ("http://127.0.0.1/yourhost.com/updater")
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
Sleep(200)

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

If FileExists("C:\UpdateVersion.txt") Then
_FileReadToArray("C:\UpdateVersion.txt", $txt2)
Else
FileWrite("C:\UpdateVersion.txt", "1")
Sleep(500)
_FileReadToArray("C:\UpdateVersion.txt", $txt2)
EndIf

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

$txt1 = FileRead("UpdateVersion.txt") ;
;Prüfung
If $txt1 <> $txt2 Then _Func () ;

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

Func _Func ()
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

[/autoit]

Eistee

ähm wer redet hier von scite ich meinte die deutsche hilfe file halt

Eistee

wenn ich in der ilfe eingebe Prüfen ob datei existiert dann findet der garnix

Eistee

Ich weiss es is echt noobig aber wie kann ich prüfen ob unter C: eine datei existiert ?

Eistee

Danke Bernd werde ich anpassen

Eistee

Jetzt einfach mal so gelöst

Spoiler anzeigen

[autoit]

#include<Array.au3>
#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

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

$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])

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

$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(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)

[/autoit]

Eistee

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>
#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

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

$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])

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

$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(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)

[/autoit]

Eistee

Das von Eukalyptus ist lustig des dereht einfech das feld da ich mache um die hälfte

Beiträge von Eistee

FileInstall ist im Eimer ?

FileInstall ist im Eimer ?

FileInstall ist im Eimer ?

Schwarzes editfeld weiser test ?

Seit Autoti Update ?

Seit Autoti Update ?

Seit Autoti Update ?

Seit Autoti Update ?

Ich glaube ich drehe Durch, kann ja überhaupt nichts mehr... Update funktion

Ich glaube ich drehe Durch, kann ja überhaupt nichts mehr... Update funktion

Ich glaube ich drehe Durch, kann ja überhaupt nichts mehr... Update funktion

Anfänger Problem FileExisting ?

Ich glaube ich drehe Durch, kann ja überhaupt nichts mehr... Update funktion

Anfänger Problem FileExisting ?

Anfänger Problem FileExisting ?

Anfänger Problem FileExisting ?

StringRegExpReplace Probleme

StringRegExpReplace Probleme

StringRegExpReplace Probleme

µit - April