[Pytanie] Wyrzsza Szkołą Jazdy Ciąg Dalszy Serveri

[Woj96]

No to teraz mam cos trudniejszego....

 

A więc jak juz jest ten kod

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <GuiIPAddress.au3>

 

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("AutoGeneric-ServerInfo", 318, 121, 192, 114)

$IPAddress = _GUICtrlIpAddress_Create($Form1, 10, 10)

$Button1 = GUICtrlCreateButton("Generuj server!", 54, 64, 216, 41, $WS_GROUP)

GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###

 

While 1

$Msg = GUIGetMsg()

Select

Case $Msg = $GUI_EVENT_CLOSE

Exit

Case $Msg = $Button1

$ip = _GUICtrlIpAddress_Get($IPAddress)

ip()

EndSelect

WEnd

Func ip()

 

$Form1 = GUICreate("AutoGeneric-ServerInfo", 839, 758, 192, 114)

$Edit1 = GUICtrlCreateEdit("", 15, 3, 789, 720)

GUICtrlSetData(-1, StringFormat("import locale\r\nif locale.IsEUROPE():\r\nSTATE_NONE =" & Chr(34) & "..." & Chr(34) & "\r\n\r\nSTATE_DICT = {\r\n0 :" & Chr(34) & "..." & Chr(34) & ",\r\n1 :" & Chr(34) & "NORM" & Chr(34) & ",\r\n2 :" & Chr(34) & "BUSY" & Chr(34) & ",\r\n3 :" & Chr(34) & "FULL" & Chr(34) & "\r\n}\r\nSERVER01_CHANNEL_DICT = {\r\n1:{" & Chr(34) & "key" & Chr(34) & ":11," & Chr(34) & "name" & Chr(34) & ":" & Chr(34) & "CH1 " & Chr(34) & "," & Chr(34) & "ip" & Chr(34) & ":" & Chr(34) & $ip & Chr(34) & "," & Chr(34) & "tcp_port" & Chr(34) & ":13000," & Chr(34) & "udp_port" & Chr(34) & ":13000," & Chr(34) & "state" & Chr(34) & ":STATE_NONE,},\r\n}\r\nREGION_NAME_DICT = {\r\n0 : " & Chr(34) & "POLAND" & Chr(34) & ",\r\n}\r\nREGION_AUTH_SERVER_DICT = {\r\n0 : {\r\n1 : { " & Chr(34) & "ip" & Chr(34) & ":" & Chr(34) & $ip & Chr(34) & ", " & Chr(34) & "port" & Chr(34) & ":11002, },\r\n}\r\n}\r\nREGION_DICT = {\r\n0 : {\r\n1 : { " & Chr(34) & "name" & Chr(34) & " :" & Chr(34) & "Server 01" & Chr(34) & ", " & Chr(34) & "channel" & Chr(34) & " : SERVER01_CHANNEL_DICT, },\r\n},\r\n}\r\nMARKADDR_DICT = {\r\n10 : { " & Chr(34) & "ip" & Chr(34) & " :" & Chr(34) & $ip & Chr(34) & ", " & Chr(34) & "tcp_port" & Chr(34) & " : 13000, " & Chr(34) & "mark" & Chr(34) & " : " & Chr(34) & "10.tga" & Chr(34) & ", " & Chr(34) & "symbol_path" & Chr(34) & " : " & Chr(34) & "10" & Chr(34) & ", },\r\n}\r\n\r\nTESTADDR = { " & Chr(34) & "ip" & Chr(34) & " : " & Chr(34) & "210.123.10.153" & Chr(34) & ", " & Chr(34) & "tcp_port" & Chr(34) & " : 50000, " & Chr(34) & "udp_port" & Chr(34) & " : 50000, }"))

 

GUISetState(@SW_SHOW)

EndFunc ;==>ip

i teraz następna rzecz a mianowicie port logowania i char postaci.

 

teraz jeszcze dodatkowo ma byc rubryka na char postaci 13000 i na port logowania 11002 <13000 i 11002 mozna zmieniac na inne> i teraz zeby były też rubryki do wpisania tego. Bedzie potrzebne 5 wolnych miejsc.

 

I reszta taka sama gdy sie nacisnie genruj Ip sie zmienie char i port logowania

[ps19]

A nie prościej samemu nauczyć się AutoIT.Ktoś napisze ci cały koda a ty napiszesz że to twoje :angry:

[Fli]

A nie prościej samemu nauczyć się AutoIT.Ktoś napisze ci cały koda a ty napiszesz że to twoje :angry:

 

Święta racja, w hobby ci pisze, że twoje hobby to AutoIT yhy chyba proszenie innych o pisanie ci programów w autoit...

 

Aha i pisze się Wyższa a nie Wyrzsza :angry:

[adwi32]

woj dziś wieczorem wstawie kod