20231014備份

HX-PGS-UPDATE/HX-PGS-UPDATE.vb

@@ -20,8 +20,8 @@ Public Class HX_PGS_UPDATE
     End Sub
     Private Sub IP比對()
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
-        If SQL_連線狀態模組2.ConnectTest2("192.168.0.201,2433") = True Then
-            登入人IP = "192.168.0.201,2433"
+        If SQL_連線狀態模組2.ConnectTest2("192.168.1.6,2433") = True Then
+            登入人IP = "192.168.1.6,2433"
         Else
             If SQL_連線狀態模組1.ConnectTest1("106.1.48.106,4567") = True Then
                 登入人IP = "106.1.48.106,4567"
@@ -46,9 +46,8 @@ Public Class HX_PGS_UPDATE
         End Try
 
         IP比對()
-        If 登入人IP = "192.168.0.201,2433" Then : Target = "ftp://192.168.0.201:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL-"
-        ElseIf 登入人IP = "103.231.201.230,2433" Then : Target = "ftp://103.231.201.230:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "231-SQL-"
-        ElseIf 登入人IP = "103.144.143.182,2433" Then : Target = "ftp://103.144.143.182:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "144-SQL-"
+        If 登入人IP = "192.168.1.6,2433" Then : Target = "ftp://192.168.1.6: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_連線字串_正式()
 

HX-PGS-UPDATE/線路選擇.vb

@@ -8,4 +8,8 @@
     Private Sub 測試_pb_Click(sender As Object, e As EventArgs) Handles 測試_pb.Click
         登入人IP = "106.1.48.106,4567" : Me.Close()
     End Sub
+
+    Private Sub 線路選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
 End Class