OGame Userverwaltungstool -> Problemchen :P

- [ offen ]
TheBigX
26. Februar 2010 um 14:31
Geschlossen
Erledigt

1. offizieller Beitrag

TheBigX

Gast
26. Februar 2010 um 14:31
- #1
Hallo erstmal,
ich habe ein problem mit dem tool welches ich gerade schreibe um der Führung in meiner Ally das Leben ein wenig einfacher zu machen

Spoiler anzeigen

[autoit]

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\MEDIA\Bilder\ICONS\Albook extended ico\Games box.ico
#AutoIt3Wrapper_outfile=C:\Users\TheBigX\Desktop\OGame Userverwaltung.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Fileversion=1.0.0.11
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;ogame
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <GuiButton.au3>
#include <FTPEx.au3>
#include <Expand.au3>
#include <File.au3>
#include <Array.au3>
Global $username, $thisver, $socket,$Form1, $var
Global $lj, $sj, $kz, $ss, $bomb, $zerst, $sk, $rip, $kt, $gt, $recy, $watech, $schildtech, $raumpanz, $spiotech, $bemerkungen
Global $check1, $check2, $check3, $check4, $check5, $check6, $check7, $check8, $check9, $check10, $check11, $check12, $check13, $check14, $check15, $check16, $check17, $check18, $check19, $check20, $check21, $check22, $check23, $check24, $check25, $check26, $check27, $check28, $check29, $check30, $check31, $check32, $check33, $check34, $check35, $check36
Global $input1, $input2, $input3, $input4, $input5, $input6, $input7, $input8, $input9, $input10, $input11, $input12, $input13, $input14, $input15, $input16, $input17, $input18, $input19, $input20, $input21, $input22, $input23, $input24, $input25, $input26, $input27, $input28, $input29, $input30, $input31, $input32, $input33, $input34, $input35, $input36, $input37, $input38, $input39, $input40, $input41, $input42, $input43, $input44, $input45, $input46, $input47, $input48, $input49, $input50, $input51, $input52, $input53, $input54
$encrypw = "Dies ist ein sehr sicheres Passwort: na58op17ma88.-b4t6fgh64060888r32610"
$encrypw2 = "Dies ist ein extrem sicheres passwort: klsdghkdgkjhgdnkhjbgdsnkhbgds8z4wp34I&/(/%%(/%()%("
If $username = "" Then $username = "Kein User ausgewählt"
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Userverwaltung OGame", 625, 826, -1,-1,$WS_BORDER)
$userliste = GUICtrlCreateList("", 440, 24, 169, 331, BitOR($LBS_SORT, $LBS_STANDARD, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetData(-1, "___Sadi___|ulli43|Lordi|TheBigX|Audi|adepttin|Zildijan|DeathMan|DerSchrecken|JOker|C R A S S U S|Schaffner II|Black666sun|Rey the Dragon|DragonKing24|Slayer|Goauldking")
$Group1 = GUICtrlCreateGroup($username, 24, 24, 401, 489)
$Fleet = GUICtrlCreateLabel("Fleet", 208, 40, 27, 17)
$ListView1 = GUICtrlCreateListView("Name|Anzahl", 96, 64, 250, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 135)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 70)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$ListView1_0 = GUICtrlCreateListViewItem("Leichte Jäger|" & $lj, $ListView1)
$ListView1_1 = GUICtrlCreateListViewItem("Schwere Jäger|" & $sj, $ListView1)
$ListView1_2 = GUICtrlCreateListViewItem("Kreuzer|" & $kz, $ListView1)
$ListView1_3 = GUICtrlCreateListViewItem("Schlachtschiffe|" & $ss, $ListView1)
$ListView1_4 = GUICtrlCreateListViewItem("Bomber|" & $bomb, $ListView1)
$ListView1_5 = GUICtrlCreateListViewItem("Zerstörer|" & $zerst, $ListView1)
$ListView1_6 = GUICtrlCreateListViewItem("Schlachtkreuzer|" & $sk, $ListView1)
$ListView1_7 = GUICtrlCreateListViewItem("Todessterne|" & $rip, $ListView1)
$ListView1_8 = GUICtrlCreateListViewItem("Kleine Transporter|" & $kt, $ListView1)
$ListView1_9 = GUICtrlCreateListViewItem("Große Transporter|" & $gt, $ListView1)
$ListView1_10 = GUICtrlCreateListViewItem("Recycler|" & $recy, $ListView1)
$ListView1_11 = GUICtrlCreateListViewItem("", $ListView1)
$Forschung = GUICtrlCreateLabel("Forschung", 192, 224, 54, 17)
$ListView2 = GUICtrlCreateListView("Name|Stufe", 96, 248, 250, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 120)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50)
$ListView2_0 = GUICtrlCreateListViewItem("Waffentechnik|" & $watech, $ListView2)
$ListView2_1 = GUICtrlCreateListViewItem("Schildtechnik|" & $schildtech, $ListView2)
$ListView2_2 = GUICtrlCreateListViewItem("Raumschiffpanzerung|" & $raumpanz, $ListView2)
$ListView2_3 = GUICtrlCreateListViewItem("Spionagetechnik|" & $spiotech, $ListView2)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$admin = GUICtrlCreateButton("Admin Login", 440, 368, 75, 25, $WS_GROUP)
$listall = GUICtrlCreateButton("", 120, 400, 200, 25, $WS_GROUP)
$list= GUICtrlCreateLabel ("",1,700,600,120)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg()
Sleep(1)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $userliste
$username = GUICtrlRead($userliste)
GUICtrlSetData($Group1, $username)
;~ GUICtrlSetData($update,"Aktualisiere: "&$username,"")
_Read()
Case $admin
_admin()
;~ Case $update
;~ userupdate()
Case $listall
$fl = _FileListToArray (@ScriptDir,"*.ini",1)
;~ _ArrayDisplay($fl, "$FileList")
For $i = 1 to $fl[0]
For $j = 1 to $var[0][0]
$var = IniReadSection($fl[$i],"Leichte Jaeger")
GUICtrlSetData ($list,$var[$j][1],"")
Next
Next
[/autoit] [autoit][/autoit] [autoit]
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit]
Func _admin()
Do
$pass = InputBox("", "Passwort eingeben", "", "*")
Until $pass = "crassus" Or "goauldking17"
[/autoit] [autoit][/autoit] [autoit]
$gui = GUICreate("Adminpanel", 820, 470, -1, -1)
$lj = GUICtrlCreateInput("", 24, 24, 121, 21)
$sj = GUICtrlCreateInput("", 24, 56, 121, 21)
$kz = GUICtrlCreateInput("", 24, 88, 121, 21)
$ss = GUICtrlCreateInput("", 24, 120, 121, 21)
$bomb = GUICtrlCreateInput("", 24, 152, 121, 21)
$zerst = GUICtrlCreateInput("", 24, 184, 121, 21)
$sk = GUICtrlCreateInput("", 24, 216, 121, 21)
$rip = GUICtrlCreateInput("", 24, 248, 121, 21)
$kt = GUICtrlCreateInput("", 24, 280, 121, 21)
$gt = GUICtrlCreateInput("", 24, 312, 121, 21)
$recy = GUICtrlCreateInput("", 24, 344, 121, 21)
GUICtrlCreateLabel("Mond", 740, 5, 35, 20)
GUICtrlCreateLabel("MAIN", 775, 5, 35, 20)
$check1 = GUICtrlCreateCheckbox("", 740, 20, 20, 20)
$check2 = GUICtrlCreateCheckbox("", 740, 45, 20, 20)
$check3 = GUICtrlCreateCheckbox("", 740, 70, 20, 20)
$check4 = GUICtrlCreateCheckbox("", 740, 95, 20, 20)
$check5 = GUICtrlCreateCheckbox("", 740, 120, 20, 20)
$check6 = GUICtrlCreateCheckbox("", 740, 145, 20, 20)
$check7 = GUICtrlCreateCheckbox("", 740, 170, 20, 20)
$check8 = GUICtrlCreateCheckbox("", 740, 195, 20, 20)
$check9 = GUICtrlCreateCheckbox("", 740, 220, 20, 20)
$check10 = GUICtrlCreateCheckbox("", 740, 245, 20, 20)
$check11 = GUICtrlCreateCheckbox("", 740, 270, 20, 20)
$check12 = GUICtrlCreateCheckbox("", 740, 295, 20, 20)
$check13 = GUICtrlCreateCheckbox("", 740, 320, 20, 20)
$check14 = GUICtrlCreateCheckbox("", 740, 345, 20, 20)
$check15 = GUICtrlCreateCheckbox("", 740, 370, 20, 20)
$check16 = GUICtrlCreateCheckbox("", 740, 395, 20, 20)
$check17 = GUICtrlCreateCheckbox("", 740, 420, 20, 20)
$check18 = GUICtrlCreateCheckbox("", 740, 445, 20, 20)
$check19 = GUICtrlCreateCheckbox("", 775, 20, 20, 20)
$check20 = GUICtrlCreateCheckbox("", 775, 45, 20, 20)
$check21 = GUICtrlCreateCheckbox("", 775, 70, 20, 20)
$check22 = GUICtrlCreateCheckbox("", 775, 95, 20, 20)
$check23 = GUICtrlCreateCheckbox("", 775, 120, 20, 20)
$check24 = GUICtrlCreateCheckbox("", 775, 145, 20, 20)
$check25 = GUICtrlCreateCheckbox("", 775, 170, 20, 20)
$check26 = GUICtrlCreateCheckbox("", 775, 195, 20, 20)
$check27 = GUICtrlCreateCheckbox("", 775, 220, 20, 20)
$check28 = GUICtrlCreateCheckbox("", 775, 245, 20, 20)
$check29 = GUICtrlCreateCheckbox("", 775, 270, 20, 20)
$check30 = GUICtrlCreateCheckbox("", 775, 295, 20, 20)
$check31 = GUICtrlCreateCheckbox("", 775, 320, 20, 20)
$check32 = GUICtrlCreateCheckbox("", 775, 345, 20, 20)
$check33 = GUICtrlCreateCheckbox("", 775, 370, 20, 20)
$check34 = GUICtrlCreateCheckbox("", 775, 395, 20, 20)
$check35 = GUICtrlCreateCheckbox("", 775, 420, 20, 20)
$check36 = GUICtrlCreateCheckbox("", 775, 445, 20, 20)
$input1 = GUICtrlCreateInput("", 650, 20, 25, 20)
$input2 = GUICtrlCreateInput("", 650, 45, 25, 20)
$input3 = GUICtrlCreateInput("", 650, 70, 25, 20)
$input4 = GUICtrlCreateInput("", 650, 95, 25, 20)
$input5 = GUICtrlCreateInput("", 650, 120, 25, 20)
$input6 = GUICtrlCreateInput("", 650, 145, 25, 20)
$input7 = GUICtrlCreateInput("", 650, 170, 25, 20)
$input8 = GUICtrlCreateInput("", 650, 195, 25, 20)
$input9 = GUICtrlCreateInput("", 650, 220, 25, 20)
$input10 = GUICtrlCreateInput("", 650, 245, 25, 20)
$input11 = GUICtrlCreateInput("", 650, 270, 25, 20)
$input12 = GUICtrlCreateInput("", 650, 295, 25, 20)
$input13 = GUICtrlCreateInput("", 650, 320, 25, 20)
$input14 = GUICtrlCreateInput("", 650, 345, 25, 20)
$input15 = GUICtrlCreateInput("", 650, 370, 25, 20)
$input16 = GUICtrlCreateInput("", 650, 395, 25, 20)
$input17 = GUICtrlCreateInput("", 650, 420, 25, 20)
$input18 = GUICtrlCreateInput("", 650, 445, 25, 20)
$input19 = GUICtrlCreateInput("", 680, 20, 25, 20)
$input20 = GUICtrlCreateInput("", 680, 45, 25, 20)
$input21 = GUICtrlCreateInput("", 680, 70, 25, 20)
$input22 = GUICtrlCreateInput("", 680, 95, 25, 20)
$input23 = GUICtrlCreateInput("", 680, 120, 25, 20)
$input24 = GUICtrlCreateInput("", 680, 145, 25, 20)
$input25 = GUICtrlCreateInput("", 680, 170, 25, 20)
$input26 = GUICtrlCreateInput("", 680, 195, 25, 20)
$input27 = GUICtrlCreateInput("", 680, 220, 25, 20)
$input28 = GUICtrlCreateInput("", 680, 245, 25, 20)
$input29 = GUICtrlCreateInput("", 680, 270, 25, 20)
$input30 = GUICtrlCreateInput("", 680, 295, 25, 20)
$input31 = GUICtrlCreateInput("", 680, 320, 25, 20)
$input32 = GUICtrlCreateInput("", 680, 345, 25, 20)
$input33 = GUICtrlCreateInput("", 680, 370, 25, 20)
$input34 = GUICtrlCreateInput("", 680, 395, 25, 20)
$input35 = GUICtrlCreateInput("", 680, 420, 25, 20)
$input36 = GUICtrlCreateInput("", 680, 445, 25, 20)
$input37 = GUICtrlCreateInput("", 710, 20, 25, 20)
$input38 = GUICtrlCreateInput("", 710, 45, 25, 20)
$input39 = GUICtrlCreateInput("", 710, 70, 25, 20)
$input40 = GUICtrlCreateInput("", 710, 95, 25, 20)
$input41 = GUICtrlCreateInput("", 710, 120, 25, 20)
$input42 = GUICtrlCreateInput("", 710, 145, 25, 20)
$input43 = GUICtrlCreateInput("", 710, 170, 25, 20)
$input44 = GUICtrlCreateInput("", 710, 195, 25, 20)
$input45 = GUICtrlCreateInput("", 710, 220, 25, 20)
$input46 = GUICtrlCreateInput("", 710, 245, 25, 20)
$input47 = GUICtrlCreateInput("", 710, 270, 25, 20)
$input48 = GUICtrlCreateInput("", 710, 295, 25, 20)
$input49 = GUICtrlCreateInput("", 710, 320, 25, 20)
$input50 = GUICtrlCreateInput("", 710, 345, 25, 20)
$input51 = GUICtrlCreateInput("", 710, 370, 25, 20)
$input52 = GUICtrlCreateInput("", 710, 395, 25, 20)
$input53 = GUICtrlCreateInput("", 710, 420, 25, 20)
$input54 = GUICtrlCreateInput("", 710, 445, 25, 20)
$Label1 = GUICtrlCreateLabel("Leichte Jäger", 152, 24, 68, 17)
$Label2 = GUICtrlCreateLabel("Schwere Jäger", 152, 56, 75, 17)
$Label3 = GUICtrlCreateLabel("Kreuzer", 152, 88, 40, 17)
$Label4 = GUICtrlCreateLabel("Schlachtschiffe", 152, 120, 77, 17)
$Label5 = GUICtrlCreateLabel("Bomber", 152, 152, 40, 17)
$Label6 = GUICtrlCreateLabel("Zerstörer", 152, 184, 46, 17)
$Label7 = GUICtrlCreateLabel("Schlachtkreuzer", 152, 216, 81, 17)
$Label8 = GUICtrlCreateLabel("Todessterne", 152, 248, 63, 17)
$Label9 = GUICtrlCreateLabel("Kleine Transporter", 152, 280, 90, 17)
$Label10 = GUICtrlCreateLabel("Große Transporter", 152, 312, 90, 17)
$Label11 = GUICtrlCreateLabel("Recycler", 152, 344, 46, 17)
$watech = GUICtrlCreateInput("", 352, 24, 121, 21)
$schildtech = GUICtrlCreateInput("", 352, 56, 121, 21)
$raumpanz = GUICtrlCreateInput("", 352, 88, 121, 21)
$spiotech = GUICtrlCreateInput("", 352, 120, 121, 21)
$Label12 = GUICtrlCreateLabel("Waffentechnik", 488, 24, 74, 17)
$Label13 = GUICtrlCreateLabel("Schildtechnik", 488, 56, 68, 17)
$Label14 = GUICtrlCreateLabel("Raumschiffpanzerung", 488, 88, 107, 17)
$Label15 = GUICtrlCreateLabel("Spionagetechnik", 488, 120, 84, 17)
$bemerkungen = GUICtrlCreateEdit("", 280, 200, 329, 217)
$Label16 = GUICtrlCreateLabel("Notizen / Bemerkungen zum Benutzer", 352, 176, 184, 17)
$save = GUICtrlCreateButton("Speichern", 10, 384, 75, 25, $WS_GROUP)
$sendto = GUICtrlCreateButton("Zum Server senden", 90, 384, 100, 25)
TrayTip("Du Editierst jetz gerade:", $username, 10)
_Read()
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg2 = GUIGetMsg()
Sleep(1)
Switch $nMsg2
Case $GUI_EVENT_CLOSE
GUIDelete("Adminpanel")
ExitLoop
Case $save
save()
Case $sendto
sendto()
EndSwitch
WEnd
EndFunc ;==>_admin
Func _Read()
GUICtrlSetData($ListView1_0, "Leichte Jäger|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Leichte Jaeger", ""), $encrypw, 3))
GUICtrlSetData($ListView1_1, "Schwere Jäger|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Schwere Jaeger", ""), $encrypw, 3))
GUICtrlSetData($ListView1_2, "Kreuzer|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Kreuzer", ""), $encrypw, 3))
GUICtrlSetData($ListView1_3, "Schlachtschiffe|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Schlachtschiffe", ""), $encrypw, 3))
GUICtrlSetData($ListView1_4, "Bomber|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Bomber", ""), $encrypw, 3))
GUICtrlSetData($ListView1_5, "Zerstoerer|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Zerstoerer", ""), $encrypw, 3))
GUICtrlSetData($ListView1_6, "Schlachtkreuzer|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Schlachtkreuzer", ""), $encrypw, 3))
GUICtrlSetData($ListView1_7, "Todessterne|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Todessterne", ""), $encrypw, 3))
GUICtrlSetData($ListView1_8, "Kleine Transporter|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Kleine Transporter", ""), $encrypw, 3))
GUICtrlSetData($ListView1_9, "Grosse Transporter|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Grosse Transporter", ""), $encrypw, 3))
GUICtrlSetData($ListView1_10, "Recycler|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Recycler", ""), $encrypw, 3))
GUICtrlSetData($ListView2_0, "Waffentechnik|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Waffentechnik", ""), $encrypw, 3))
GUICtrlSetData($ListView2_1, "Schildtechnik|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Schildtechnik", ""), $encrypw, 3))
GUICtrlSetData($ListView2_2, "Raumschiffpanzerung|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Raumschiffpanzerung", ""), $encrypw, 3))
GUICtrlSetData($ListView2_3, "Spionagetechnik|" & _StringEncrypt(0, IniRead($username & ".ini", $username, "Spionagetechnik", ""), $encrypw, 3))
GUICtrlSetData($lj, _StringEncrypt(0, IniRead($username & ".ini", $username, "Leichte Jaeger", ""), $encrypw, 3))
GUICtrlSetData($sj, _StringEncrypt(0, IniRead($username & ".ini", $username, "Schwere Jaeger", ""), $encrypw, 3))
GUICtrlSetData($kz, _StringEncrypt(0, IniRead($username & ".ini", $username, "Kreuzer", ""), $encrypw, 3))
GUICtrlSetData($ss, _StringEncrypt(0, IniRead($username & ".ini", $username, "Schlachtschiffe", ""), $encrypw, 3))
GUICtrlSetData($bomb, _StringEncrypt(0, IniRead($username & ".ini", $username, "Bomber", ""), $encrypw, 3))
GUICtrlSetData($zerst, _StringEncrypt(0, IniRead($username & ".ini", $username, "Zerstoerer", ""), $encrypw, 3))
GUICtrlSetData($sk, _StringEncrypt(0, IniRead($username & ".ini", $username, "Schlachtkreuzer", ""), $encrypw, 3))
GUICtrlSetData($rip, _StringEncrypt(0, IniRead($username & ".ini", $username, "Todessterne", ""), $encrypw, 3))
GUICtrlSetData($kt, _StringEncrypt(0, IniRead($username & ".ini", $username, "Kleine Transporter", ""), $encrypw, 3))
GUICtrlSetData($gt, _StringEncrypt(0, IniRead($username & ".ini", $username, "Grosse Transporter", ""), $encrypw, 3))
GUICtrlSetData($rip, _StringEncrypt(0, IniRead($username & ".ini", $username, "Todessterne", ""), $encrypw, 3))
GUICtrlSetData($recy, _StringEncrypt(0, IniRead($username & ".ini", $username, "Recycler", ""), $encrypw, 3))
GUICtrlSetData($watech, _StringEncrypt(0, IniRead($username & ".ini", $username, "Waffentechnik", ""), $encrypw, 3))
GUICtrlSetData($schildtech, _StringEncrypt(0, IniRead($username & ".ini", $username, "Schildtechnik", ""), $encrypw, 3))
GUICtrlSetData($raumpanz, _StringEncrypt(0, IniRead($username & ".ini", $username, "Raumschiffpanzerung", ""), $encrypw, 3))
GUICtrlSetData($spiotech, _StringEncrypt(0, IniRead($username & ".ini", $username, "Spionagetechnik", ""), $encrypw, 3))
GUICtrlSetData($bemerkungen, _StringEncrypt(0, IniRead($username & ".ini", $username, "Bemerkungen", ""), $encrypw & $encrypw2, 5))
GUICtrlSetState($check1, IniRead($username & ".ini", $username, "1", ""))
GUICtrlSetState($check2, IniRead($username & ".ini", $username, "2", ""))
GUICtrlSetState($check3, IniRead($username & ".ini", $username, "3", ""))
GUICtrlSetState($check4, IniRead($username & ".ini", $username, "4", ""))
GUICtrlSetState($check5, IniRead($username & ".ini", $username, "5", ""))
GUICtrlSetState($check6, IniRead($username & ".ini", $username, "6", ""))
GUICtrlSetState($check7, IniRead($username & ".ini", $username, "7", ""))
GUICtrlSetState($check8, IniRead($username & ".ini", $username, "8", ""))
GUICtrlSetState($check9, IniRead($username & ".ini", $username, "9", ""))
GUICtrlSetState($check10, IniRead($username & ".ini", $username, "10", ""))
GUICtrlSetState($check11, IniRead($username & ".ini", $username, "11", ""))
GUICtrlSetState($check12, IniRead($username & ".ini", $username, "12", ""))
GUICtrlSetState($check13, IniRead($username & ".ini", $username, "13", ""))
GUICtrlSetState($check14, IniRead($username & ".ini", $username, "14", ""))
GUICtrlSetState($check15, IniRead($username & ".ini", $username, "15", ""))
GUICtrlSetState($check16, IniRead($username & ".ini", $username, "16", ""))
GUICtrlSetState($check17, IniRead($username & ".ini", $username, "17", ""))
GUICtrlSetState($check18, IniRead($username & ".ini", $username, "18", ""))
GUICtrlSetState($check19, IniRead($username & ".ini", $username, "19", ""))
GUICtrlSetState($check20, IniRead($username & ".ini", $username, "20", ""))
GUICtrlSetState($check21, IniRead($username & ".ini", $username, "21", ""))
GUICtrlSetState($check22, IniRead($username & ".ini", $username, "22", ""))
GUICtrlSetState($check23, IniRead($username & ".ini", $username, "23", ""))
GUICtrlSetState($check24, IniRead($username & ".ini", $username, "24", ""))
GUICtrlSetState($check25, IniRead($username & ".ini", $username, "25", ""))
GUICtrlSetState($check26, IniRead($username & ".ini", $username, "26", ""))
GUICtrlSetState($check27, IniRead($username & ".ini", $username, "27", ""))
GUICtrlSetState($check28, IniRead($username & ".ini", $username, "28", ""))
GUICtrlSetState($check29, IniRead($username & ".ini", $username, "29", ""))
GUICtrlSetState($check30, IniRead($username & ".ini", $username, "30", ""))
GUICtrlSetState($check31, IniRead($username & ".ini", $username, "31", ""))
GUICtrlSetState($check32, IniRead($username & ".ini", $username, "32", ""))
GUICtrlSetState($check33, IniRead($username & ".ini", $username, "33", ""))
GUICtrlSetState($check34, IniRead($username & ".ini", $username, "34", ""))
GUICtrlSetState($check35, IniRead($username & ".ini", $username, "35", ""))
GUICtrlSetState($check36, IniRead($username & ".ini", $username, "36", ""))
GUICtrlSetData($input1, IniRead($username & ".ini", $username, "P1", ""))
GUICtrlSetData($input2, IniRead($username & ".ini", $username, "P2", ""))
GUICtrlSetData($input3, IniRead($username & ".ini", $username, "P3", ""))
GUICtrlSetData($input4, IniRead($username & ".ini", $username, "P4", ""))
GUICtrlSetData($input5, IniRead($username & ".ini", $username, "P5", ""))
GUICtrlSetData($input6, IniRead($username & ".ini", $username, "P6", ""))
GUICtrlSetData($input7, IniRead($username & ".ini", $username, "P7", ""))
GUICtrlSetData($input8, IniRead($username & ".ini", $username, "P8", ""))
GUICtrlSetData($input9, IniRead($username & ".ini", $username, "P9", ""))
GUICtrlSetData($input10, IniRead($username & ".ini", $username, "P10", ""))
GUICtrlSetData($input11, IniRead($username & ".ini", $username, "P11", ""))
GUICtrlSetData($input12, IniRead($username & ".ini", $username, "P12", ""))
GUICtrlSetData($input13, IniRead($username & ".ini", $username, "P13", ""))
GUICtrlSetData($input14, IniRead($username & ".ini", $username, "P14", ""))
GUICtrlSetData($input15, IniRead($username & ".ini", $username, "P15", ""))
GUICtrlSetData($input16, IniRead($username & ".ini", $username, "P16", ""))
GUICtrlSetData($input17, IniRead($username & ".ini", $username, "P17", ""))
GUICtrlSetData($input18, IniRead($username & ".ini", $username, "P18", ""))
GUICtrlSetData($input19, IniRead($username & ".ini", $username, "P19", ""))
GUICtrlSetData($input20, IniRead($username & ".ini", $username, "P20", ""))
GUICtrlSetData($input21, IniRead($username & ".ini", $username, "P21", ""))
GUICtrlSetData($input22, IniRead($username & ".ini", $username, "P22", ""))
GUICtrlSetData($input23, IniRead($username & ".ini", $username, "P23", ""))
GUICtrlSetData($input24, IniRead($username & ".ini", $username, "P24", ""))
GUICtrlSetData($input25, IniRead($username & ".ini", $username, "P25", ""))
GUICtrlSetData($input26, IniRead($username & ".ini", $username, "P26", ""))
GUICtrlSetData($input27, IniRead($username & ".ini", $username, "P27", ""))
GUICtrlSetData($input28, IniRead($username & ".ini", $username, "P28", ""))
GUICtrlSetData($input29, IniRead($username & ".ini", $username, "P29", ""))
GUICtrlSetData($input30, IniRead($username & ".ini", $username, "P30", ""))
GUICtrlSetData($input31, IniRead($username & ".ini", $username, "P31", ""))
GUICtrlSetData($input32, IniRead($username & ".ini", $username, "P32", ""))
GUICtrlSetData($input33, IniRead($username & ".ini", $username, "P33", ""))
GUICtrlSetData($input34, IniRead($username & ".ini", $username, "P34", ""))
GUICtrlSetData($input35, IniRead($username & ".ini", $username, "P35", ""))
GUICtrlSetData($input36, IniRead($username & ".ini", $username, "P36", ""))
GUICtrlSetData($input37, IniRead($username & ".ini", $username, "P37", ""))
GUICtrlSetData($input38, IniRead($username & ".ini", $username, "P38", ""))
GUICtrlSetData($input39, IniRead($username & ".ini", $username, "P39", ""))
GUICtrlSetData($input40, IniRead($username & ".ini", $username, "P40", ""))
GUICtrlSetData($input41, IniRead($username & ".ini", $username, "P41", ""))
GUICtrlSetData($input42, IniRead($username & ".ini", $username, "P42", ""))
GUICtrlSetData($input43, IniRead($username & ".ini", $username, "P43", ""))
GUICtrlSetData($input44, IniRead($username & ".ini", $username, "P44", ""))
GUICtrlSetData($input45, IniRead($username & ".ini", $username, "P45", ""))
GUICtrlSetData($input46, IniRead($username & ".ini", $username, "P46", ""))
GUICtrlSetData($input47, IniRead($username & ".ini", $username, "P47", ""))
GUICtrlSetData($input48, IniRead($username & ".ini", $username, "P48", ""))
GUICtrlSetData($input49, IniRead($username & ".ini", $username, "P49", ""))
GUICtrlSetData($input50, IniRead($username & ".ini", $username, "P50", ""))
GUICtrlSetData($input51, IniRead($username & ".ini", $username, "P51", ""))
GUICtrlSetData($input52, IniRead($username & ".ini", $username, "P52", ""))
GUICtrlSetData($input53, IniRead($username & ".ini", $username, "P53", ""))
GUICtrlSetData($input54, IniRead($username & ".ini", $username, "P54", ""))
EndFunc ;==>_Read
Func UPDATE()
;~ InetGet("http://semtexunion.se.funpic.de/srostart/actualver.exe", @TempDir & "\actualver.exe",1,1)
;~ If FileGetVersion(@TempDir & "\actualver.exe", "FileVersion") < $thisver Then
;~ $size = InetGetSize("http://semtexunion.se.funpic.de/srostart/Silkroad Starter.exe")
;~ $progproz = InetGet("http://semtexunion.se.funpic.de/srostart/Silkroad Starter.exe", @ScriptDir & "\Silkroad Starter.exe", 1, 1)
;~ GUICreate(" Fortschritt", 350, 100, -1, -1)
;~ $progressbar1 = GUICtrlCreateProgress(25, 25, 300, 20)
;~ While @InetGetActive
;~ GUICtrlSetData($progressbar1, Int(@InetGetBytesRead / $size * 100))
;~ GUICtrlCreateLabel(Int(@InetGetBytesRead) & "/" & $size, 20, 60, 100, 30)
;~ GUISetState()
;~ Sleep(200)
;~ WEnd
;~ Sleep(2500)
;~ Run("verschieben.exe")
;~ Exit
;~ ElseIf FileGetVersion(@TempDir & "\actualver.exe", "FileVersion") >= $thisver Then
;~ MsgBox ("","","Du brauchst kein Update",2)
;~ EndIf
EndFunc ;==>UPDATE
Func save()
$a0 = _StringEncrypt(1, GUICtrlRead($lj), $encrypw, 3)
$a1 = _StringEncrypt(1, GUICtrlRead($sj), $encrypw, 3)
$a2 = _StringEncrypt(1, GUICtrlRead($kz), $encrypw, 3)
$a3 = _StringEncrypt(1, GUICtrlRead($ss), $encrypw, 3)
$a4 = _StringEncrypt(1, GUICtrlRead($bomb), $encrypw, 3)
$a5 = _StringEncrypt(1, GUICtrlRead($zerst), $encrypw, 3)
$a6 = _StringEncrypt(1, GUICtrlRead($sk), $encrypw, 3)
$a7 = _StringEncrypt(1, GUICtrlRead($rip), $encrypw, 3)
$a8 = _StringEncrypt(1, GUICtrlRead($kt), $encrypw, 3)
$a9 = _StringEncrypt(1, GUICtrlRead($gt), $encrypw, 3)
$a10 = _StringEncrypt(1, GUICtrlRead($recy), $encrypw, 3)
$a11 = _StringEncrypt(1, GUICtrlRead($bemerkungen), $encrypw & $encrypw2, 5)
$a12 = _StringEncrypt(1, GUICtrlRead($watech), $encrypw, 3)
$a13 = _StringEncrypt(1, GUICtrlRead($schildtech), $encrypw, 3)
$a14 = _StringEncrypt(1, GUICtrlRead($raumpanz), $encrypw, 3)
$a15 = _StringEncrypt(1, GUICtrlRead($spiotech), $encrypw, 3)
IniWrite($username & ".ini", $username, "1", _GUICtrlButton_GetCheck($check1))
IniWrite($username & ".ini", $username, "2", _GUICtrlButton_GetCheck($check2))
IniWrite($username & ".ini", $username, "3", _GUICtrlButton_GetCheck($check3))
IniWrite($username & ".ini", $username, "4", _GUICtrlButton_GetCheck($check4))
IniWrite($username & ".ini", $username, "5", _GUICtrlButton_GetCheck($check5))
IniWrite($username & ".ini", $username, "6", _GUICtrlButton_GetCheck($check6))
IniWrite($username & ".ini", $username, "7", _GUICtrlButton_GetCheck($check7))
IniWrite($username & ".ini", $username, "8", _GUICtrlButton_GetCheck($check8))
IniWrite($username & ".ini", $username, "9", _GUICtrlButton_GetCheck($check9))
IniWrite($username & ".ini", $username, "10", _GUICtrlButton_GetCheck($check10))
IniWrite($username & ".ini", $username, "11", _GUICtrlButton_GetCheck($check11))
IniWrite($username & ".ini", $username, "12", _GUICtrlButton_GetCheck($check12))
IniWrite($username & ".ini", $username, "13", _GUICtrlButton_GetCheck($check13))
IniWrite($username & ".ini", $username, "14", _GUICtrlButton_GetCheck($check14))
IniWrite($username & ".ini", $username, "15", _GUICtrlButton_GetCheck($check15))
IniWrite($username & ".ini", $username, "16", _GUICtrlButton_GetCheck($check16))
IniWrite($username & ".ini", $username, "17", _GUICtrlButton_GetCheck($check17))
IniWrite($username & ".ini", $username, "18", _GUICtrlButton_GetCheck($check18))
IniWrite($username & ".ini", $username, "19", _GUICtrlButton_GetCheck($check19))
IniWrite($username & ".ini", $username, "20", _GUICtrlButton_GetCheck($check20))
IniWrite($username & ".ini", $username, "21", _GUICtrlButton_GetCheck($check21))
IniWrite($username & ".ini", $username, "22", _GUICtrlButton_GetCheck($check22))
IniWrite($username & ".ini", $username, "23", _GUICtrlButton_GetCheck($check23))
IniWrite($username & ".ini", $username, "24", _GUICtrlButton_GetCheck($check24))
IniWrite($username & ".ini", $username, "25", _GUICtrlButton_GetCheck($check25))
IniWrite($username & ".ini", $username, "26", _GUICtrlButton_GetCheck($check26))
IniWrite($username & ".ini", $username, "27", _GUICtrlButton_GetCheck($check27))
IniWrite($username & ".ini", $username, "28", _GUICtrlButton_GetCheck($check28))
IniWrite($username & ".ini", $username, "29", _GUICtrlButton_GetCheck($check29))
IniWrite($username & ".ini", $username, "30", _GUICtrlButton_GetCheck($check30))
IniWrite($username & ".ini", $username, "31", _GUICtrlButton_GetCheck($check31))
IniWrite($username & ".ini", $username, "32", _GUICtrlButton_GetCheck($check32))
IniWrite($username & ".ini", $username, "33", _GUICtrlButton_GetCheck($check33))
IniWrite($username & ".ini", $username, "34", _GUICtrlButton_GetCheck($check34))
IniWrite($username & ".ini", $username, "35", _GUICtrlButton_GetCheck($check35))
IniWrite($username & ".ini", $username, "36", _GUICtrlButton_GetCheck($check36))
IniWrite($username & ".ini", $username, "P1", GUICtrlRead($input1))
IniWrite($username & ".ini", $username, "P2", GUICtrlRead($input2))
IniWrite($username & ".ini", $username, "P3", GUICtrlRead($input3))
IniWrite($username & ".ini", $username, "P4", GUICtrlRead($input4))
IniWrite($username & ".ini", $username, "P5", GUICtrlRead($input5))
IniWrite($username & ".ini", $username, "P6", GUICtrlRead($input6))
IniWrite($username & ".ini", $username, "P7", GUICtrlRead($input7))
IniWrite($username & ".ini", $username, "P8", GUICtrlRead($input8))
IniWrite($username & ".ini", $username, "P9", GUICtrlRead($input9))
IniWrite($username & ".ini", $username, "P10", GUICtrlRead($input10))
IniWrite($username & ".ini", $username, "P11", GUICtrlRead($input11))
IniWrite($username & ".ini", $username, "P12", GUICtrlRead($input12))
IniWrite($username & ".ini", $username, "P13", GUICtrlRead($input13))
IniWrite($username & ".ini", $username, "P14", GUICtrlRead($input14))
IniWrite($username & ".ini", $username, "P15", GUICtrlRead($input15))
IniWrite($username & ".ini", $username, "P16", GUICtrlRead($input16))
IniWrite($username & ".ini", $username, "P17", GUICtrlRead($input17))
IniWrite($username & ".ini", $username, "P18", GUICtrlRead($input18))
IniWrite($username & ".ini", $username, "P19", GUICtrlRead($input19))
IniWrite($username & ".ini", $username, "P20", GUICtrlRead($input20))
IniWrite($username & ".ini", $username, "P21", GUICtrlRead($input21))
IniWrite($username & ".ini", $username, "P22", GUICtrlRead($input22))
IniWrite($username & ".ini", $username, "P23", GUICtrlRead($input23))
IniWrite($username & ".ini", $username, "P24", GUICtrlRead($input24))
IniWrite($username & ".ini", $username, "P25", GUICtrlRead($input25))
IniWrite($username & ".ini", $username, "P26", GUICtrlRead($input26))
IniWrite($username & ".ini", $username, "P27", GUICtrlRead($input27))
IniWrite($username & ".ini", $username, "P28", GUICtrlRead($input28))
IniWrite($username & ".ini", $username, "P29", GUICtrlRead($input29))
IniWrite($username & ".ini", $username, "P30", GUICtrlRead($input30))
IniWrite($username & ".ini", $username, "P31", GUICtrlRead($input31))
IniWrite($username & ".ini", $username, "P32", GUICtrlRead($input32))
IniWrite($username & ".ini", $username, "P33", GUICtrlRead($input33))
IniWrite($username & ".ini", $username, "P34", GUICtrlRead($input34))
IniWrite($username & ".ini", $username, "P35", GUICtrlRead($input35))
IniWrite($username & ".ini", $username, "P36", GUICtrlRead($input36))
IniWrite($username & ".ini", $username, "P37", GUICtrlRead($input37))
IniWrite($username & ".ini", $username, "P38", GUICtrlRead($input38))
IniWrite($username & ".ini", $username, "P39", GUICtrlRead($input39))
IniWrite($username & ".ini", $username, "P40", GUICtrlRead($input40))
IniWrite($username & ".ini", $username, "P41", GUICtrlRead($input41))
IniWrite($username & ".ini", $username, "P42", GUICtrlRead($input42))
IniWrite($username & ".ini", $username, "P43", GUICtrlRead($input43))
IniWrite($username & ".ini", $username, "P44", GUICtrlRead($input44))
IniWrite($username & ".ini", $username, "P45", GUICtrlRead($input45))
IniWrite($username & ".ini", $username, "P46", GUICtrlRead($input46))
IniWrite($username & ".ini", $username, "P47", GUICtrlRead($input47))
IniWrite($username & ".ini", $username, "P48", GUICtrlRead($input48))
IniWrite($username & ".ini", $username, "P49", GUICtrlRead($input49))
IniWrite($username & ".ini", $username, "P50", GUICtrlRead($input50))
IniWrite($username & ".ini", $username, "P51", GUICtrlRead($input51))
IniWrite($username & ".ini", $username, "P52", GUICtrlRead($input52))
IniWrite($username & ".ini", $username, "P53", GUICtrlRead($input53))
IniWrite($username & ".ini", $username, "P54", GUICtrlRead($input54))
IniWrite($username & ".ini", $username, "Leichte Jaeger", $a0)
IniWrite($username & ".ini", $username, "Schwere Jaeger", $a1)
IniWrite($username & ".ini", $username, "Kreuzer", $a2)
IniWrite($username & ".ini", $username, "Schlachtschiffe", $a3)
IniWrite($username & ".ini", $username, "Bomber", $a4)
IniWrite($username & ".ini", $username, "Zerstoerer", $a5)
IniWrite($username & ".ini", $username, "Schlachtkreuzer", $a6)
IniWrite($username & ".ini", $username, "Todessterne", $a7)
IniWrite($username & ".ini", $username, "Kleine Transporter", $a8)
IniWrite($username & ".ini", $username, "Grosse Transporter", $a9)
IniWrite($username & ".ini", $username, "Recycler", $a10)
IniWrite($username & ".ini", $username, "Bemerkungen", $a11)
IniWrite($username & ".ini", $username, "Waffentechnik", $a12)
IniWrite($username & ".ini", $username, "Schildtechnik", $a13)
IniWrite($username & ".ini", $username, "Raumschiffpanzerung", $a14)
IniWrite($username & ".ini", $username, "Spionagetechnik", $a15)
IniWrite($username & ".ini", "Modified", "Letzte Änderung TAG", @MDAY & "." & @MON & "." & @YEAR)
IniWrite($username & ".ini", "Modified", "Letzte Änderung ZEIT", _NowTime())
EndFunc ;==>save
Func sendto()
HttpSetUserAgent('Firefox')
$session = _FTP_Open("Firefox", 0)
$conftp = _FTP_Connect($session, "112800.webhosting42.1blu.de", "ftp112800-thebigx", "thebigx")
$file = _FTP_FilePut($conftp, @ScriptDir & "\" & $username & ".ini", "/Userdata/" & $username & ".ini")
If @error Then MsgBox("", "", "Datei existiert nicht oder Verbindung fehlgeschlagen", 5)
EndFunc ;==>sendto
Func userupdate()
InetGet("ftp://ftp112800-thebigx:thebigx@112800.webhosting42.1blu.de/Userdata/" & $username & ".ini", @TempDir & "\" & $username & ".ini",
If @error Then MsgBox("", "", "Fehler bei der Verbindung oder Datei existiert nicht", 5)
$upd1 = IniRead(@TempDir & "\" & $username & ".ini", "Modified", "Letzte Änderung TAG", "")
;~ MsgBox ("","",$upd1&@CRLF&"DATUM GERADE: "&@MDAY & "." & @MON & "." & @YEAR)
Select
Case $upd1 > IniRead(@ScriptDir & "\" & $username & ".ini", "Modified", "Letzte Änderung TAG", "")
$size = InetGetSize("ftp://zensiert@112800.webhosting42.1blu.de/Userdata/" & $username & ".ini",
If @error Then ToolTip("FEHLER!" & @error, -1, -1, "", "", "")
$progproz = InetGet("ftp://zensiert@112800.webhosting42.1blu.de/Userdata/" & $username & ".ini", @ScriptDir & "\" & $username & ".ini", 1, 1)
If @error Then ToolTip("FEHLER!" & @error, -1, -1, "", "", "")
GUICreate(" Fortschritt", 350, 100, -1, -1)
$progressbar1 = GUICtrlCreateProgress(25, 25, 300, 20)
While InetGetInfo($progproz, 2) = False
GUICtrlSetData($progressbar1, (InetGetInfo($progproz, 0) / $size * 100))
$xo = GUICtrlCreateLabel(InetGetInfo($progproz, 0) & "/" & $size / 1024 & "KB", 20, 60, 150, 30)
GUISetState()
If InetGetInfo($progproz, 2) = True Then
GUICtrlSetData($progressbar1, 100)
GUICtrlSetData($xo,"Du kannst dieses Fenster nun schliessen")
GUIDelete (" Fortschritt")
ExitLoop
EndIf
WEnd
Case $upd1 = IniRead(@ScriptDir & "\" & $username & ".ini", "Modified", "Letzte Änderung TAG", "")
$reply = MsgBox(36, "", "Userdateien gleich Alt"&@CRLF&"Soll das Update trotzdem geladen werden?")
Select
Case $reply = 6 ;Ja
$size = InetGetSize("ftp://zensiert@112800.webhosting42.1blu.de/Userdata/" & $username & ".ini",
If @error Then ToolTip("FEHLER!" & @error, -1, -1, "", "", "")
$progproz = InetGet("ftp://zensiert@112800.webhosting42.1blu.de/Userdata/" & $username & ".ini", @ScriptDir & "\" & $username & ".ini", 1, 1)
If @error Then ToolTip("FEHLER!" & @error, -1, -1, "", "", "")
GUICreate(" Fortschritt", 350, 100, -1, -1)
$progressbar1 = GUICtrlCreateProgress(25, 25, 300, 20)
While InetGetInfo($progproz, 2) = False
GUICtrlSetData($progressbar1, (InetGetInfo($progproz, 0) / $size * 100))
$xo = GUICtrlCreateLabel(InetGetInfo($progproz, 0) & "/" & $size / 1024 & "KB", 20, 60, 150, 30)
GUISetState()
If InetGetInfo($progproz, 2) = True Then
GUICtrlSetData($progressbar1, 100)
GUICtrlSetData($xo,"Du kannst dieses Fenster nun schliessen")
GUIDelete (" Fortschritt")
ExitLoop
EndIf
WEnd
Case $reply = 7 ;Nein
EndSelect
Case $upd1 < IniRead(@ScriptDir & "\" & $username & ".ini", "Modified", "Letzte Änderung TAG", "")
ToolTip ("Die Userdatei auf dem Server ist älter als deine, bitte Lade diese hoch",-1,-1,"","")
$size = InetGetSize("ftp://zensiert@112800.webhosting42.1blu.de/Userdata/" & $username & ".ini",
If @error Then ToolTip("FEHLER!" & @error, -1, -1, "", "", "")
$progproz = InetGet("ftp://zensiert@112800.webhosting42.1blu.de/Userdata/" & $username & ".ini", @ScriptDir & "\" & $username & ".ini", 1, 1)
If @error Then ToolTip("FEHLER!" & @error, -1, -1, "", "", "")
GUICreate(" Fortschritt", 350, 100, -1, -1)
$progressbar1 = GUICtrlCreateProgress(25, 25, 300, 20)
While InetGetInfo($progproz, 2) = False
GUICtrlSetData($progressbar1, (InetGetInfo($progproz, 0) / $size * 100))
$xo = GUICtrlCreateLabel(InetGetInfo($progproz, 0) & "/" & $size / 1024 & "KB", 20, 60, 150, 30)
GUISetState()
If InetGetInfo($progproz, 2) = True Then
GUICtrlSetData($progressbar1, 100)
GUICtrlSetData($xo,"Du kannst dieses Fenster nun schliessen")
GUIDelete (" Fortschritt")
ExitLoop
EndIf
WEnd
Case $upd1 = @error
If Not FileExists(@ScriptDir & "\" & $username & ".ini") Then
$size = InetGetSize("ftp://zensiert@112800.webhosting42.1blu.de/Userdata/" & $username & ".ini",
If @error Then ToolTip("FEHLER!" & @error, -1, -1, "", "", "")
$progproz = InetGet("ftp://Zensiert@112800.webhosting42.1blu.de/Userdata/" & $username & ".ini", @ScriptDir & "\" & $username & ".ini", 1, 1)
If @error Then ToolTip("FEHLER!" & @error, -1, -1, "", "", "")
GUICreate(" Fortschritt", 350, 100, -1, -1)
$progressbar1 = GUICtrlCreateProgress(25, 25, 300, 20)
While InetGetInfo($progproz, 2) = False
GUICtrlSetData($progressbar1, (InetGetInfo($progproz, 0) / $size * 100))
$xo = GUICtrlCreateLabel(InetGetInfo($progproz, 0) & "/" & $size / 1024 & "KB", 20, 60, 150, 30)
GUISetState()
If InetGetInfo($progproz, 2) = True Then
GUICtrlSetData($progressbar1, 100)
GUICtrlSetData($xo,"Du kannst dieses Fenster nun schliessen")
GUIDelete (" Fortschritt")
ExitLoop
EndIf
WEnd
EndIf
EndSelect
FileDelete(@TempDir & "\" & $username & ".ini")
EndFunc ;==>userupdate
[/autoit]

EDIT: NEUES Problem
2 Mal editiert, zuletzt von TheBigX (13. März 2010 um 18:04)
qixx

Beiträge

335
26. Februar 2010 um 14:41
- #2
Versuchs mal mit:
[autoit]
#Include <GuiListView.au3>
_GUICtrlListView_AddItem($hWnd, $sText[, $iImage = -1[, $iParam = 0]])
[/autoit]
anstatt mit;
[autoit]
GuiCtrlSetData
[/autoit]

MfG
qixx
.
Um die Rekursion verstehen zu können, musst du erst die Rekursion verstehen!

qixx's Skripts:
Programme: CubeTimer 1.0, Seriennummer Abfrage, Cheat like San Andreas, SpeedStarter
Spiele: Snake
Filin

Gast
26. Februar 2010 um 14:49
- #3
Variablen werden Deklariert
Zeile 10: Global $lj,$sj,$kz,$ss,$bomb,$zerst,$sk,$rip,$kt,$gt,$recy,$watech,$schildtech,$raumpanz,$spiotech
Die leeren Variablen werden in ListView geschrieben
Zeile 24: $ListView1_0 = GUICtrlCreateListViewItem("Leichter Jäger|"&$lj, $ListView1)
Zeile 25: $ListView1_1 = GUICtrlCreateListViewItem("Schwerer Jäger|"&$sj, $ListView1)
Die Handles von den erstellten Inputs werden in den Variablen gespeichert
Zeile 72: $lj = GUICtrlCreateInput("1", 24, 24, 121, 21)
Zeile 73: $sj = GUICtrlCreateInput("2", 24, 56, 121, 21)
Mit den Handles wird gearbeitet.
Zeile 122: IniWrite("settings.ini",$username,"Leichte Jï¿½ger",GUICtrlRead($lj))
Zeile 123: IniWrite("settings.ini",$username,"Schwere Jï¿½ger",GuiCtrlRead($sj))
Zeile 145: GUICtrlSetData($lj,IniRead("settings.ini",$username,"Leichte Jäger","AHHA"))
Zeile 146: GUICtrlSetData($sj,IniRead("settings.ini",$username,"Schwere Jäger",""))
Nirgendwo kommt etwas sinnvolles aus $lj und $sj in die ListView, deswegen wird auch nichts angezeigt.
TheBigX

Gast
26. Februar 2010 um 15:36
- #4
@Fillin
Guck dir mal _Read() an^^ da kommt was her
Aber ne super Erklärung
@quixx
Edit:
Öhm...wo meinst du das mit dem befehl?
Etwa schon bei den Namen?
Filin

Gast
26. Februar 2010 um 15:42
- #5
Zitat von TheBigX

@Fillin

Guck dir mal _Read() an^^ da kommt was her

Es tut mir leid, aber ich glaube aus _Read() kommt in ListView auch nichts, nur in die Inputs auf dem Adminpanel.
Einmal editiert, zuletzt von Filin (26. Februar 2010 um 15:47)
TheBigX

Gast
26. Februar 2010 um 15:57
- #6
[autoit]
GUICtrlSetData($lj,IniRead("settings.ini",$username,"Leichte Jäger","AHHA"))
[/autoit]

So sollte er normalerweise wenn die Variable leer ist das Wort AHHA anzeigen
selbst das macht er nicht
Filin

Gast
26. Februar 2010 um 16:07
- #7
[autoit]
GUICtrlSetData($ListView1_0,"Leichter Jäger|" & IniRead("settings.ini",$username,"Leichte Jäger","AHHA"))
[/autoit]

Vielleicht macht diese Zeile das, was du willst.
TheBigX

Gast
26. Februar 2010 um 16:51
- #8
Habe ich ausprobiert und das funktioniert... ich kann mir zwar nicht ganz erklären warum das andere nicht so gefunzt hat wie ich das wollte aber nun funzt es ja^^
Ich danke euch für eure Hilfe
TheBigX

Gast
13. März 2010 um 18:08
- #9
So...ich habe ein neues Problem....
Diesmal hat es mit einem Array zu tun und ich werd da kaum schlau draus (im ersten Post ist das Script zu finden)
Was ich machen möchte:
Liste aller .ini Dateien in der Scriptdir machen -> DONE
Bestimmte Werte in all diesen inis auslesen -> ERROR (T.T)
Diese Werte Addieren und Anzeigen -> Noch garnicht zu gekommen
[autoit]

Case $listall
$fl = _FileListToArray (@ScriptDir,"*.ini",1)
;~ _ArrayDisplay($fl, "$FileList")
For $i = 1 to $fl[0]
For $j = 1 to $var[0][0]
$var = IniReadSection($fl[$i],"Leichte Jaeger")
GUICtrlSetData ($list,$var[$j][1],"")
Next
Next
[/autoit]
So sieht das ganze aus...
Ich hab es wirklich nicht mit Arrays und verstehe nichtmal mehr wo oben und unten ist
Kann mir wer das mal vernünftig erklären?
Schnitzel

Poweruser

Beiträge

3.529
13. März 2010 um 18:12
- #10
ich glaub du hast da nur 2 zeilen vertauscht:

Spoiler anzeigen

[autoit]
Case $listall
$fl = _FileListToArray (@ScriptDir,"*.ini",1)
;~ _ArrayDisplay($fl, "$FileList")
For $i = 1 to $fl[0]
$var = IniReadSection($fl[$i],"Leichte Jaeger")
For $j = 1 to $var[0][0]
GUICtrlSetData ($list,$var[$j][1],"")
Next
Next
[/autoit]
Ein Kezboard/Treiber ist v;llig [berfl[ssig

Autoit-Tutorials

Tutorials für den Einstieg in Autoit

Deutsche Hilfedatei mit Beispiel für jeden Befehl
AutoIt-Wiki
Richtig Debuggen (Fehler selbst suchen/finden)
FAQ
AutoIt Buch von peethebee

Tutorials für speziellere Themen

Videos von McPoldy
Array Tutorial von BugFix
Bit Tutorial von BugFix
Dll Tutorial von BugFix
RegEx Tutorial von BugFix
Login + Registrierung über eine MySql-DB [+ Hilfedateien]
AutoIt und Assembler UPDATE 09.September 2010 AssembleIt
StringRegExp Tutorial / Reguläre Ausdrücke in AutoIt
GDI+
TheBigX

Gast
13. März 2010 um 18:25
- #11
Nein...selber Fehler wie vorher auch:
D:\Sicherungen\AutoIt\Selfcoded\quellcode\ogame spielertabelle.au3 ( 88 ) : ==> Subscript used with non-Array variable.:
For $j = 1 To $var[0][0]
For $j = 1 To $var^ ERROR
Schnitzel

Poweruser

Beiträge

3.529
13. März 2010 um 18:34
- #12
dann existiert entweder die ini nicht. was ich nicht glaube, da du die ja einließt
oder die section existiert nicht.
vllt ein schreibfehler oder so?
Ein Kezboard/Treiber ist v;llig [berfl[ssig

Autoit-Tutorials

Tutorials für den Einstieg in Autoit

Deutsche Hilfedatei mit Beispiel für jeden Befehl
AutoIt-Wiki
Richtig Debuggen (Fehler selbst suchen/finden)
FAQ
AutoIt Buch von peethebee

Tutorials für speziellere Themen

Videos von McPoldy
Array Tutorial von BugFix
Bit Tutorial von BugFix
Dll Tutorial von BugFix
RegEx Tutorial von BugFix
Login + Registrierung über eine MySql-DB [+ Hilfedateien]
AutoIt und Assembler UPDATE 09.September 2010 AssembleIt
StringRegExp Tutorial / Reguläre Ausdrücke in AutoIt
GDI+
TheBigX

Gast
13. März 2010 um 18:46
- #13
Nein, das habe ich mehrmals überprüft und es kommt immer dieser Fehler
Schnitzel

Poweruser

Beiträge

3.529
13. März 2010 um 19:20
- #14
probiers mal so:

Spoiler anzeigen

[autoit]
$fl = _FileListToArray(@ScriptDir, "*.ini", 1)
;~ _ArrayDisplay($fl, "$FileList")
For $i = 1 To $fl[0]
$var = IniReadSection($fl[$i], "Leichte Jaeger")
$error = @error
If IsArray($var) Then
For $j = 1 To $var[0][0]
GUICtrlSetData($list, $var[$j][1], "")
Next
Else
MsgBox(0, "", "Problem beim Sectionlesen. Errorcode: " & $error & @CRLF & "bei der datei: " & $fl[$i])
EndIf
Next
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
Ein Kezboard/Treiber ist v;llig [berfl[ssig

Autoit-Tutorials

Tutorials für den Einstieg in Autoit

Deutsche Hilfedatei mit Beispiel für jeden Befehl
AutoIt-Wiki
Richtig Debuggen (Fehler selbst suchen/finden)
FAQ
AutoIt Buch von peethebee

Tutorials für speziellere Themen

Videos von McPoldy
Array Tutorial von BugFix
Bit Tutorial von BugFix
Dll Tutorial von BugFix
RegEx Tutorial von BugFix
Login + Registrierung über eine MySql-DB [+ Hilfedateien]
AutoIt und Assembler UPDATE 09.September 2010 AssembleIt
StringRegExp Tutorial / Reguläre Ausdrücke in AutoIt
GDI+
TheBigX

Gast
13. März 2010 um 22:31
- #15
Error = 1
Bei TheBigX.ini
Kann er die Datei vielleicht nicht öffnen?
autoBert

Poweruser

Beiträge

6.141
13. März 2010 um 22:36
- #16
Hallo TheBigX,

Zitat

Zitat aus Online-Hilfe zu IniReadSection:
Rückgabewert
Erfolg: Gibt ein 2-dimensionales Array zurück, in dem element[n][0] der Schlüssel und element[n][1] der Wert ist.
Fehler: Setzt @error auf 1, wenn die Sektion nicht gelesen werden kann (Die .ini-Datei oder die Sektion könnte nicht existieren)

mfg (Auto)Bert
TheBigX

Gast
14. März 2010 um 00:36
- #17
EDIT:
So ein blöder Fehler
Ich hatte die Sektion mit dem Schlüssel verwechselt (fragt mich nur nicht warum)
@Bert
Danke
EDIT2:
Aber nun habe ich ein anderes Problem.
Es sieht so aus das es am ende ca. 20 .ini´s geben wird. und diesen Wert den ich auslese, soll mit den anderen Werten addiert werden.
Ich weis zwar wie ich das mit dem Addieren etc. hinbekomme, aber nicht (ohne extrem viel zu tippen) das mit jedem Username machen kann.

Code

___Sadi___|ulli43|Lordi|TheBigX|Audi|adepttin|Zildijan|DeathMan|DerSchrecken|JOker|C R A S S U S|Schaffner II|Black666sun|Rey the Dragon|DragonKing24|Slayer|Goauldking

Das sind die Usernamen
Die .ini´s sind auch nach dem dazugehörigen User benannt und die erste Sektion ist ebenfalls nach dem User benannt.
2 Mal editiert, zuletzt von TheBigX (14. März 2010 um 00:42)
Schnitzel

Poweruser

Beiträge

3.529
14. März 2010 um 15:25
- #18
ok du willst einfach strings zu einem string zusammenfügen oder?
sind das strings aus einem array oder hast du die in variablen gespeichert?
Ein Kezboard/Treiber ist v;llig [berfl[ssig

Autoit-Tutorials

Tutorials für den Einstieg in Autoit

Deutsche Hilfedatei mit Beispiel für jeden Befehl
AutoIt-Wiki
Richtig Debuggen (Fehler selbst suchen/finden)
FAQ
AutoIt Buch von peethebee

Tutorials für speziellere Themen

Videos von McPoldy
Array Tutorial von BugFix
Bit Tutorial von BugFix
Dll Tutorial von BugFix
RegEx Tutorial von BugFix
Login + Registrierung über eine MySql-DB [+ Hilfedateien]
AutoIt und Assembler UPDATE 09.September 2010 AssembleIt
StringRegExp Tutorial / Reguläre Ausdrücke in AutoIt
GDI+
TheBigX

Gast
14. März 2010 um 15:47
- #19
Rot makierte wird gelesen und in eine Variable gepackt

[TheBigX]
1=0
2=0
3=0
4=0
5=0
6=0
7=0
8=0
9=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=1
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
31=0
32=0
33=0
34=0
35=0
36=0
P1=1
P2=1
P3=5
P4=5
P5=5
P6=5
P7=5
P8=5
P9=
P10=
P11=
P12=
P13=
P14=
P15=
P16=
P17=
P18=
P19=3
P20=102
P21=411
P22=412
P23=412
P24=414
P25=414
P26=418
P27=
P28=
P29=
P30=
P31=
P32=
P33=
P34=
P35=
P36=
P37=5
P38=7
P39=4
P40=4
P41=5
P42=4
P43=6
P44=4
P45=
P46=
P47=
P48=
P49=
P50=
P51=
P52=
P53=
P54=
Leichte Jaeger=5E0EC1E499047E172D454D49E47A3E0FFF68617499CDBBFA
Schwere Jaeger=5E0EC1E4990302142D454D49E47A3E08
Kreuzer=5E0EC1E499047E172D454D49E47A3E08
Schlachtschiffe=5E0EC1E4990302142D454D49E30D3E7CFF68617499CDBB87
Bomber=5E0EC1E499037E1C
Zerstoerer=5E0EC1E499037E1C
Schlachtkreuzer=5E0EC1E4990302142D454D49E30D3E7C
Todessterne=5E0EC1E499037E1C
Kleine Transporter=5E0EC1E499037E1C
Grosse Transporter=5E0EC1E4990302142D454D49E30D3E7BFF68617499CDBB85
Recycler=5E0EC1E4990302112D454D49E30D3E7C
Bemerkungen=36F5CD43736839ED612286FD09F0EE0A44C95841CDE18F56A00BCD879DFB9DB68EEAB3DB3DBC8EEF50C91821155F20535AD527F8DF21C199C37BDFE03FD16F20DAB7B168BFDA8025E7EEFA589D8AF5210E29C231030F63209CC2293A096E2F267D5F9CE3ADC0DA2A1328471E2BD7BD9945E9CA12AFF30A92197EF96CF9CB51EB1E0B769446344E7CE915D7698E08FFCC5D24F2813C21541AF4854320F9347EF34A8FB738A7377DE50776783BC7DB9B6DF663B1BB4A7E5FCC35357289D209BDE88A4D66710D1E984BE5E5ECCDBBAF3A3669614E208E7A94F33464AF55C43D4732E29D5F8D234F8D30EB3390C39E432D4200E0E37FCBFA2EA83577C18982A318893C5EC0DD4E6963A765289A8FD9F2FF618F39861BACA1E74EA83653A018330BA9120EE9846C4B006F61703C2C1E206AA731A61007247C12EDDF171C67F78FCF96DBEF48BFF5B3E0EDE02C579629155F8B8F5336302210238AA6B9204CB2391C46EA34039961C848DEFF32A0992B41DAC3C8135734ABF0BFDE3185F40BFFAFAB3850209D238A1F5DD790C07AD5685D36A02327D7928EAAD8487CEF8C8272D45171DAA55B38A8AAB7A8752163F3BC162095C60B84D5D20794A749EF22BDA4AE3F3732A19FF4C34B662474CB54FDC7682EEDA0B0ABF88498046263F0C28F1C6ED9A3969FDBECED9F530DC31362B9DDA169137FF8517E5AB165F5D55114783F5D1147019AAC2F210100CE2C50DAAA43F9BE215B8C131B81D6F615C54EF5C597C3DC80DBDA8FD928AED99B5C905C533626334B0B807DCEF84BE0D8C917E8D7638C7C1D829BDE3AF883BE43D6E19A59C2F9875B176DB43A52757C4982C4237E141E5F2F703694F9ECD0A9257845427B4BFD92B754DBDF7081A954D4284DBC29CD8D1EA45C4333A9073A3419AF68C61CEB12D2A10D63D4A61B580353B9B5070CCD697D8F0BBBAA20CB6160AD51397A649593924DD109F1FB1B3A1DC9012F32B3E605F9DFBF11224F0676F812959EB284BE88442606451273B92BFDAB7266C866846E662BDEC1709D0379DC74FB0398D6ED64533702F2A90DC9A429CC2911C2FDBDCE6FF43420DBA259597FA569428484C8E5D532A026B30DC88CCA6FE70F14E72F024F98583BA2C5227906627134414B6834778E59812D5B092217B3E85A262AA8C79B98DEA606D690DAB2F0A9776E93003714FCDC0E2C76684A1BBBA08B447DFF7C1A73A8735CAB57CE56B7DD46AEC5673887BCDD077019F7B5EBC76CC28260CCEB8F624B18B90D9F396C81A1A74BDA715367D05026CBA0FCDF8E496286E2FD799E3904A9A02420D0B486C670507093B2063DBB905F9CE6C364C2F216D8648294970C7F0AE8DDBAF2032E520DA71B8ADD1835FDFBD8F9B8DDCA506645B7F1C0554E9CFF989C91D3878F4F5CA8593287DAFA3D560BAC0C6769FF3BC79B22261E7A12544947AFE772613E73A13676DBAB1BBAC97057E80C43A18ACD47A81CCDBB83FC9ED08DCECFF27AB18FD876A049653D31366D0F8C7AA7B038E189C00785B916874E71F6EFA6359CF1DB0CC59FEF43AAF798494A4CE92C13666C62DF9A623B532B681F3506A0C8A1E396670B475A3931E894D34CF9C620B5FD02875712841FF4C54CE47B3A3AE4405D5702FD78F548A263FF824366F78B086F440C85FB7743D62831B00B8FEE10E3212CDE4E2529139EBADE3CF605E2EE4A6447F123346889E010BA9E
Waffentechnik=5E0EC1E499047E1C
Schildtechnik=5E0EC1E499047E1C
Raumschiffpanzerung=5E0EC1E499047E1C
Spionagetechnik=5E0EC1E499047E1D
[Modified]
Letzte Änderung TAG=14.03.2010
Letzte Änderung ZEIT=11:52:00

[autoit]

Case $listall
$fl = _FileListToArray(@ScriptDir, "*.ini", 1)
For $i = 1 To $fl[0]
$var = IniRead($fl[$i],StringTrimRight($fl[$i],4),"Leichte Jaeger","")
Next
GUICtrlSetData($list, _StringEncrypt(0,$var,$encrypw,3), "")
[/autoit]
So sieht die Funktion dafür im moment aus.
Nun habe ich noch 5 andere .ini´s (werden noch mehr) und ich möchte den jeweils ausgelesenen Wert aus der Ini (Integer) mit dem Wert der anderen Ini´s addieren.
also
TheBigX.ini -> Wert a = 5
XYZ.ini -> Wert b = 12
ABC.ini -> Wert c = 200
Werte a+b+c = 217
Schnitzel

Poweruser

Beiträge

3.529
14. März 2010 um 15:54
- #20
und wo liegt da das problem?
sry aber da komm ich jetz nich ganz mit
wo ist der große schreibaufwand oder wo ist dein verständisproblem
Ein Kezboard/Treiber ist v;llig [berfl[ssig

Autoit-Tutorials

Tutorials für den Einstieg in Autoit

Deutsche Hilfedatei mit Beispiel für jeden Befehl
AutoIt-Wiki
Richtig Debuggen (Fehler selbst suchen/finden)
FAQ
AutoIt Buch von peethebee

Tutorials für speziellere Themen

Videos von McPoldy
Array Tutorial von BugFix
Bit Tutorial von BugFix
Dll Tutorial von BugFix
RegEx Tutorial von BugFix
Login + Registrierung über eine MySql-DB [+ Hilfedateien]
AutoIt und Assembler UPDATE 09.September 2010 AssembleIt
StringRegExp Tutorial / Reguläre Ausdrücke in AutoIt
GDI+

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.