und meine frage is wie füg ich das in die source ein? öo
Global $sTCP = False
Global $iTitle = "Sons Of Bratwurst 0.1.0", $iClient = 0
$hGui = GUICreate ($iTitle,610,370)
GUICtrlCreateLabel ("Game Server:",15,6)
$cGamePort = GUICtrlCreateInput ("2448",4,25,100,21)
$cGameList = GUICtrlCreateList ("",4, 50,200,300)
$cGameStart = GUICtrlCreateButton ("Start", 120, 25,70,20)
GUICtrlCreateLabel ("Login Server:",245,6)
$cLoginPort = GUICtrlCreateInput ("4001",230,25,100,21)
$cLoginList = GUICtrlCreateList ("",230, 50,200,300)
$cLoginStart = GUICtrlCreateButton ("Start", 340,25,70,20)
GUICtrlCreateLabel ("IPs connected:",450,50)
$cIPList = GUICtrlCreateList ("",450,75,150,278)
$cProgressLabel = GUICtrlCreateLabel ("Bla bla Wurst kp (0 / 100)", 310,350)
$cProgress = GUICtrlCreateProgress (450,348,150,15)
GUISetState (@SW_SHOWNORMAL,$hGui)
While 1
Switch GUIGetMsg ($hGui)
Case -3
Exit
Case $cLoginStart
WinSetTitle ($hGui, "", $iTitle & " - Start receiving packets")
TCPStartup ()
$tListen = TCPListen("127.0.0.1",GUICtrlRead ($cLoginPort), 100)
$sTCP = True
EndSwitch
If ($sTCP = True) Then
$tAccept = TCPAccept($tListen)
If ($tAccept >= 0) Then
GUICtrlSetData ($cLoginList, "127.0.0.1:" & $tAccept & " connected")
GUICtrlSetData ($cIPList, "127.0.0.1:" & $tAccept)
$iClient += 1
GUICtrlSetData ($cProgress, $iClient)
GUICtrlSetData ($cProgressLabel, "Bla bla Wurst kp (" & $iClient & " / 100)")
EndIf
EndIf
WEnd
---------------------------------------------------------------------
Global $sTCP = False
Global $iTitle = "Sons Of Bratwurst 0.1.0", $iClient = 0
$hGui = GUICreate ($iTitle,610,370)
GUICtrlCreateLabel ("Game Server:",15,6)
$cGamePort = GUICtrlCreateInput ("2448",4,25,100,21)
$cGameList = GUICtrlCreateList ("",4, 50,200,300)
$cGameStart = GUICtrlCreateButton ("Start", 120, 25,70,20)
GUICtrlCreateLabel ("Login Server:",245,6)
$cLoginPort = GUICtrlCreateInput ("4001",230,25,100,21)
$cLoginList = GUICtrlCreateList ("",230, 50,200,300)
$cLoginStart = GUICtrlCreateButton ("Start", 340,25,70,20)
GUICtrlCreateLabel ("IPs connected:",450,50)
$cIPList = GUICtrlCreateList ("",450,75,150,278)
$cProgressLabel = GUICtrlCreateLabel ("Bla bla Wurst kp (0 / 100)", 310,350)
$cProgress = GUICtrlCreateProgress (450,348,150,15)
GUISetState (@SW_SHOWNORMAL,$hGui)
While 1
Switch GUIGetMsg ($hGui)
Case -3
Exit
Case $cLoginStart
WinSetTitle ($hGui, "", $iTitle & " - Start receiving packets")
TCPStartup ()
$tListen = TCPListen("127.0.0.1",GUICtrlRead ($cLoginPort), 100)
$sTCP = True
EndSwitch
If ($sTCP = True) Then
$tAccept = TCPAccept($tListen)
If ($tAccept >= 0) Then
GUICtrlSetData ($cLoginList, "127.0.0.1:" & $tAccept & " connected")
GUICtrlSetData ($cIPList, "127.0.0.1:" & $tAccept)
$iClient += 1
GUICtrlSetData ($cProgress, $iClient)
GUICtrlSetData ($cProgressLabel, "Bla bla Wurst kp (" & $iClient & " / 100)")
EndIf
EndIf
WEnd
mit welchen programm? öo