tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-29 08:45:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

Direct IP connection fix

Browse Source
This commit is contained in:
Vitaly Mikhailov 2020-07-10 19:50:33 +03:00
parent fae7349356
commit f23ed8caa6
No known key found for this signature in database
GPG Key ID: 46EFF05D37A3FA18
2 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
P3D/Network/Servers/ServerConnection.vb
View File

@ -53,12 +53,15 @@ Namespace Servers
Try Try
Dim connectIP As IPAddress = Nothing Dim connectIP As IPAddress = Nothing
For Each IPAddress In System.Net.Dns.GetHostEntry(Server.IP).AddressList If Not IPAddress.TryParse(Server.IP, connectIP) Then
For Each IPAddress In Dns.GetHostEntry(Server.IP).AddressList
If IPAddress.AddressFamily = AddressFamily.InterNetwork Then If IPAddress.AddressFamily = AddressFamily.InterNetwork Then
connectIP = IPAddress connectIP = IPAddress
Exit For Exit For
End If End If
Next Next
End If
Me._client.Connect(connectIP.ToString, CInt(Server.Port)) Me._client.Connect(connectIP.ToString, CInt(Server.Port))

4
P3D/Screens/MainMenu/JoinServerScreen.vb
View File

@ -466,12 +466,14 @@ Public Class JoinServerScreen
Dim connectIP As IPAddress = Nothing Dim connectIP As IPAddress = Nothing
For Each ipaddress In System.Net.Dns.GetHostEntry(Me.IP).AddressList If Not IPAddress.TryParse(IP, connectIP) Then
For Each ipaddress In Dns.GetHostEntry(IP).AddressList
If ipaddress.AddressFamily = AddressFamily.InterNetwork Then If ipaddress.AddressFamily = AddressFamily.InterNetwork Then
connectIP = ipaddress connectIP = ipaddress
Exit For Exit For
End If End If
Next Next
End If
sw.Start() sw.Start()
client.Connect(connectIP, CInt(Me.Port)) client.Connect(connectIP, CInt(Me.Port))