[kslawy]

السلام عليكم ورحمة الله وبركاته

أعطيك فكرة بسيطة وهي تخزين آي بي السيرفر في ملف نصي بجانب الملف التنفيذي لبرنامجك واستدعائه عند إجراء الاتصال بالسيرفر .

أولاً : أنشئ دالة كالتالي لقراءة الملف النصي :

كود :

Public Function ServerIP(ByVal IpFile As String) As String
        Dim IP As String = Nothing
        Try
            If IO.File.Exists(IpFile) = True Then
                IP = My.Computer.FileSystem.ReadAllText(IpFile)
                If String.IsNullOrEmpty(IP) Then
                    Return Nothing
                End If
            End If
            Return IP
        Catch ex As Exception
            MsgBox("تعذر العثور علي رقم السيرفر")
            Return Nothing
        End Try
    End Function

ثانياً : في جملة الاتصال بدل ما تكون هكذا :

كود :

Dim conString As String = "Server=192.168.1.1;Database=myDataBase;User Id=myUsername;Password=myPassword"

تكون هكذا :

كود :

Dim conString As String = "Server=" & ServerIP("IpFile.txt") & ";Database=myDataBase;User Id=myUsername;Password=myPassword"

يمكنك حماية الملف النصي بتغيير امتداده مثلا لامتداد آخر .

كما قلت الطريقة بسيطة وبالتأكيد توجد طرق أخرى أكثر احترافية ...

****
***
**
*