20231028備份

Calculator-SYS-UPDATE/Calculator-SYS-UPDATE.vb

     End Sub
     Private Sub IP比對()
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
-        If SQL_連線狀態模組2.ConnectTest2("192.168.1.6,2433") = True Then
-            登入人IP = "192.168.1.6,2433"
+        If SQL_連線狀態模組2.ConnectTest2("192.168.1.63,2433") = True Then
+            登入人IP = "192.168.1.63,2433"
         Else
             If SQL_連線狀態模組1.ConnectTest1("106.1.48.106,4567") = True Then
                 登入人IP = "106.1.48.106,4567"
     End Sub
     Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         IP比對()
-        If 登入人IP = "192.168.1.6,2433" Then : Target = "ftp://192.168.1.6:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL-"
+        If 登入人IP = "192.168.1.63,2433" Then : Target = "ftp://192.168.1.63:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL-"
         ElseIf 登入人IP = "36.64.59.26,2433" Then : Target = "ftp://36.64.59.26:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "36-SQL-"
         ElseIf 登入人IP = "106.1.48.106,4567" Then : Target = "ftp://106.1.48.106:2121/HXPGS/" : FTP物理位置 = "D:\FTP\HXPGS\" : TF = "106-SQL-"
         End If : FTP帳號 = "" : FTP密碼 = "" : SQL_連線字串_正式()