Cách làm chương trình Autoupdate IP cho Client khi đưa lên online

[Tiến Đạt]

ý mình là gà về mấy cái này nên bạn hướng giẩn ở trên không hiểu gì hết
thank

Bạn coppy nguyên cái code của ông sau đó dán vô vb rùi lưu lại .
Sau đó chuyển đổi qua file *.exe là OK thui mà.

[[B.M.W]Sports]

dán vào VB là cái gì ông rỏ hơn chút giùm nha , thank

[[B.M.W]Sports]

sao không có ai hướng giẩn chi tiết chút ta

[Čħīċķėň]

vậy là đủ goy nếu mún thì học vb lun y

[[M]r[K]id]

lên google gõ zô chữ Visual Basic rùi bắt đầu tìm hỉu tìm hỉu vs tìm hỉu

[Tiến Đạt]

Imports System.Net
Public Class Form1
Private Sub FormJX_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
Dim TemIp As String = ""
Dim ipE As IPHostEntry = Dns.GetHostByName("www.clbgamesvn.com") ' thay cái chữ [Only registered and activated users can see links. ] thành tên Domain JX online của bạn nha
Dim IpA() As IPAddress = ipE.AddressList
For i = 0 To IpA.GetUpperBound(0)
TemIp = IpA(i).ToString ' biến TemIP lúc này sẽ lấy được IP Public của chúng ta
Next
'---------------------------------------
Dim path_File_ServerList As String = Application.StartupPath & "\Settings\ServerList.ini"
Dim path_File_ServerList1 As String = Application.StartupPath & "\Settings\ServerList1.ini"
File.Delete(path_File_ServerList1)
Dim TextOfFile As String = ""
If File.Exists(path_File_ServerList) Then
Dim Reader_ As New StreamReader(path_File_ServerList)
While Reader_.Peek <> -1
TextOfFile = Reader_.ReadLine
If InStr(TextOfFile, TemIp) > 0 Then 'trùng ip
File.Delete(path_File_ServerList1)
Exit Sub
Else
Dim RW As New StreamWriter(path_File_ServerList1, True)
Dim DC As String = "Address"
If InStr(TextOfFile, DC) > 0 Then
Dim arr() As String
arr = TextOfFile.Split("=")
Dim STR As String = arr(0) & "=" & TemIp
RW.WriteLine(STR)
Else
RW.WriteLine(TextOfFile)
End If
RW.Close()
End If
End While
Reader_.Close()
File.Delete(path_File_ServerList)
File.Move(path_File_ServerList1, path_File_ServerList)
Else
MsgBox("Không tồn tại file ")
End If
End Sub

Private Sub cmdexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdexit.Click
Me.Close()
End Sub
End Class

Các bạn test xem thế nào nhé ! đến đây đã có thể thay đổi IP rồi...mức Basic chỉ như vậy là OK...đòi hỏi cao hơn thì sửa lại chút thêm mắm muối là run thôi

Bây giờ đến lựot xử lý nút Run Game trên kia nhỉ !

Nhấp đúp vào nút Run trên Form rồi thêm vào đoạn sau :

Process.Start(Application.StartupPath & "\Game.exe")
Me.Close()

Đoạn code này bị lỗi nè. Hum nay ngồi test thử thấy lỗi @@! Xem lại thử ông.