CoolBasic Forums

Code: Select all

Include "cbNetwork.cb"
FrameLimit 40
rtn = HTTPGet("http://pelila.com/racer_versio.txt")
this$ = _Net_GetString()
HTTPSaveContent("tmp.html")
AddText "Löytyi: " +this
DeleteFile "tmp.html"
DrawScreen
WaitKey

Code: Select all

Hash$ = MD5(Name$+Points) 

Code: Select all

HTTPGet("http://jea.com/pisteet.php?nimi="+Name$+"&pisteet="+Points+"&hash="+Hash$)

Code: Select all

Hash$ = MD5(Name$+Points+"qwe123")

Code: Select all

$hash = md5($_GET[nimi].$_GET[pisteet]."qwe123");

Code: Select all

Include "cbNetwork.cb"

SetWindow "Servuke"

SAFEEXIT OFF

Include "Globals.cb"

    rtn = InitServer( UDP_PORT, 100 )

    If rtn <> 0 Then MakeError GetNetErrorString( rtn )
    SetWindow "Servuke - Startannut onnellisesti"

Repeat
        rtn = ServerRead()
        
        If rtn = 0 Then
            'Koko veks
            _Net_GetInt()
            infoByte = _Net_GetByte()
            
            If infoByte = INFO_STARTING_CONNECTION Then
                SetWindow "Servuke - Client yhdisti"
                alus.ALUUT=New(ALUUT)
                alus\id=_Net_GetInt()
                alus\obj=LoadObject("alus1.png",180) 'Serveri näyttää alukset havainnollistavista syistä. Ei tule lopulliseen.
                clients+1
                _Net_InitMemBlock()
                _Net_PutByte( infoByte )
            ElseIf infoByte = INFO_CLOSING_CONNECTION Then
                SetWindow "Servuke - Client katkaisi"
                clients-1
                _Net_InitMemBlock()
                _Net_PutByte( infoByte )
            ElseIf infoByte = INFO_SEND_INFO Then
                aluskontrollissa=_Net_GetInt() // <--------------------- Tämä oli sinulla alemman For...Each loopin SISÄLLÄ, kun sen tietenkin täytyy olla ulkopuolella.
                For alus.ALUUT=Each ALUUT
                    If aluskontrollissa=alus\id Then
                        alus\x=_Net_GetInt()
                        alus\y=_Net_GetInt()
                        alus\angle=_Net_GetInt()
                        Exit
                    EndIf 
                Next alus
                _Net_InitMemBlock()
                _Net_PutByte( infoByte )
                For alus.ALUUT=Each ALUUT
                _Net_PutInt(alus\x)
                _Net_PutInt(alus\y)
                _Net_PutInt(alus\angle)
                Next alus
            EndIf
            
            For alus.aluut=Each aluut
                PositionObject alus\obj,alus\x,alus\y
                RotateObject alus\obj,alus\angle
            Next alus

            ServerSend()
                
         EndIf

            Text 10,10,"Clients: "+clients
            For alus.ALUUT=Each ALUUT 'Epäkäytännöllistä kuonaa
            Text 10,20,"X: "+alus\x
            Next alus
            Text 10,40,"FPS: "+FPS()
            DrawScreen
Until EscapeKey()
While EscapeKey() : Wend
CloseServer()