1
2i left at lap 6 i whose at the lest 2 secs slower the all of you, and all most all the bends i overshot
. next race i hope i can do a lot better.
. next race i hope i can do a lot better.why not use all the cars?
has you i have been looking for a team competing on an organized competition, building stategies, improving all the online racing experience, so if i can help just ask.
has you i have been looking for a team competing on an organized competition, building stategies, improving all the online racing experience, so if i can help just ask.
What if we do a superpole using the car you are going to use.
Ok i will use the RAC it is harder to drive but that make is more fun as well.
i can change to the FZ50 if you think there is to many rac?
I have just sign up i look forword to the first race
What if you do the superpole on the same day of the race and send one car out then wait for x amount of time depending on the track, then send a another car out and so on so on, and when the car finishes there hotlap then spectate?
I would be interested, i think you should keep the oval.
the game start at 17:00 BST so the game end a about 18:50 BST
the game start at 17:00 BST so the game end a about 18:50 BST
Last edited by Andy1080, .
Stuff ok i will not give up just yet, i made a little change
i think that it is sending ISI + 0 but i not 100% ,And I don’t know how to use the uint16 as uint16 = 30001 doesn’t work?
thank you stuff
Dim Insim(23) As Byte
BitConverter.GetBytes(ISI(3) = vbNullChar).CopyTo(Insim, 3)
Dim port As UInt16i think that it is sending ISI + 0 but i not 100% ,And I don’t know how to use the uint16 as uint16 = 30001 doesn’t work?
thank you stuff
I think I am going to admit defeat, I am new to programming so
I think I should learn more before coming back to this.
Thank you all for your help
I think I should learn more before coming back to this.
Thank you all for your help
I don't use Winsock I use UdpClient, and the code that you give my doesn’t seem to work.
when I use my code Lfs said Insim: packet received before ISI packet
That make my think that doesn’t received it in the right order. When I look at the autoskin code
vb.net converted it and made it a right mass. The
is the only why that i can think of geting to send using the udpclient.
when I use my code Lfs said Insim: packet received before ISI packet
That make my think that doesn’t received it in the right order. When I look at the autoskin code
vb.net converted it and made it a right mass. The
[LEFT]BitConverter.GetBytes(ISI(0) = "I").CopyTo(Insim, 0)[/LEFT]
is the only why that i can think of geting to send using the udpclient.
I had a break form all of this programming now I am back I have look at my code and edit a bit but I just cant get it connect using the Udp port, this is my code
I thing I am close to getting working. The “chrw” line doesn’t seem right chrw(0) converts a integer to a Ascll code or is that right?
Dim udp As New UdpClient
Dim ISI(4) As Char
Dim admin(16) As Char
Dim port As String
Dim flags As Byte
Dim NodeSecs As Byte
Dim ip As IPEndPoint
Dim Insim(13) As Byte Public Sub InSimInit()
BitConverter.GetBytes(ISI(0) = "I").CopyTo(Insim, 0)
BitConverter.GetBytes(ISI(1) = "S").CopyTo(Insim, 1)
BitConverter.GetBytes(ISI(2) = "I").CopyTo(Insim, 2)
BitConverter.GetBytes(ISI(3) = ChrW(0)).CopyTo(Insim, 3)
BitConverter.GetBytes(port = 30001).CopyTo(Insim, 6)
BitConverter.GetBytes(flags = (16)).CopyTo(Insim, 5)
BitConverter.GetBytes(NodeSecs = 0).CopyTo(Insim, 4)
BitConverter.GetBytes(admin(0) = "T").CopyTo(Insim, 7)
BitConverter.GetBytes(admin(1) = "E").CopyTo(Insim, 8)
BitConverter.GetBytes(admin(2) = "S").CopyTo(Insim, 9)
BitConverter.GetBytes(admin(3) = "T").CopyTo(Insim, 10)
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
InSimInit()
udp.Connect("127.0.0.1", 30001)
For i As Integer = 0 To 10
udp.Send(Insim, i)
'Stop
Next i
End SubI thing I am close to getting working. The “chrw” line doesn’t seem right chrw(0) converts a integer to a Ascll code or is that right?
Only 6 of you race in servers 1 that a shame I think there whose 11 race at the begin in servers 2.
I did not get any lag so thing are looking good for the race next week.
I get to a point when I just cant get any faster I think I a got to that point on this track 48.27 is my fastest time vary slow compared to your times.
I did not get any lag so thing are looking good for the race next week.
I get to a point when I just cant get any faster I think I a got to that point on this track 48.27 is my fastest time vary slow compared to your times.
Fun race, I plan a pit stop a lap 30 thinking that the tyres to be a bit hot by then but they just starting to get warm
so in the main race no pit stops for me
PS i beat my pb by 2 secs so that whose good
, I plan a pit stop a lap 30 thinking that the tyres to be a bit hot by then but they just starting to get warm so in the main race no pit stops for mePS i beat my pb by 2 secs so that whose good
i now have this
Dim ISI(4) As Char
Dim admin(16) As Char
Dim port As String
Dim flags As Byte
Dim NodeSecs(2) As Byte
Dim ip As IPEndPoint
Dim sock As New UdpClient
Dim insim(13) As BytePublic Sub InSimInit()
BitConverter.GetBytes(ISI(0) = "I").CopyTo(insim, 0)
BitConverter.GetBytes(ISI(1) = "S").CopyTo(insim, 1)
BitConverter.GetBytes(ISI(2) = "I").CopyTo(insim, 2)
BitConverter.GetBytes(ISI(3) = ChrW(0)).CopyTo(insim, 3)
BitConverter.GetBytes(NodeSecs(0) = 0).CopyTo(insim, 4)
BitConverter.GetBytes(flags = (16)).CopyTo(insim, 5)
BitConverter.GetBytes(port = 29999).CopyTo(insim, 6)
BitConverter.GetBytes(admin(0) = "T").CopyTo(insim, 7)
BitConverter.GetBytes(admin(1) = "E").CopyTo(insim, 8)
BitConverter.GetBytes(admin(2) = "S").CopyTo(insim, 9)
BitConverter.GetBytes(admin(3) = "T").CopyTo(insim, 10)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
InSimInit()
sock.Send(insim, 13)
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
sock.Connect("127.0.0.1", 29999)
End SubHow would I send the data to lfs?
and thank your for your help JogDive
and thank your for your help JogDive
dose this look better
Dim ISI(4) As Char
Dim admin(16) As Char
Dim port As String
Dim flags As Byte
Dim isiports(6) As Byte
Dim NodeSecs As BytePublic Sub InSimInit()
ISI(0) = "I"
ISI(1) = "S"
ISI(2) = "I"
ISI(3) = ChrW(0)
NodeSecs = 0
flags = (16)
port = 12345
admin(0) = "T"
admin(1) = "E"
admin(2) = "S"
admin(3) = "T"
End Subthis is wwhat i got
the main code i think it no where near what it ment to by
how bad is it
Dim Bytes(4) As Char
Dim NodeSecs(1) As Bytethe main code i think it no where near what it ment to by
Bytes(0) = "I"
Bytes(1) = "S"
Bytes(2) = "I"
Bytes(3) = ChrW(0)
NodeSecs(0) = 0
NodeSecs(1) = 0
Winsock1.Connect("127.0.1", 29999)
Winsock1.Send(Bytes)
Winsock1.RemotePort = (29998)how bad is it
I had a good look at it but it all in C#, I whose hoping that I could us Visual Basic if not I will have to lean C#
I do a Winsock is the byte and arrays I have to send that make my go crazy
I do a Winsock is the byte and arrays I have to send that make my go crazy
Thank you for that i will give is a good look Tomorrow but it look good
is there a simple code to connect to lfs? when i download the code, net try to update form vb6 to .Net them but the programe stop working.
Filur thank you for the links
Filur thank you for the links
1
2FGED GREDG RDFGDR GSFDG