|
@@ -19,8 +19,8 @@ Public Class C_SYS_UPDATE
|
19
|
19
|
End Sub
|
20
|
20
|
Private Sub IP比對()
|
21
|
21
|
'-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
|
22
|
|
- If SQL_連線狀態模組2.ConnectTest2("192.168.1.6,2433") = True Then
|
23
|
|
- 登入人IP = "192.168.1.6,2433"
|
|
22
|
+ If SQL_連線狀態模組2.ConnectTest2("192.168.1.63,2433") = True Then
|
|
23
|
+ 登入人IP = "192.168.1.63,2433"
|
24
|
24
|
Else
|
25
|
25
|
If SQL_連線狀態模組1.ConnectTest1("106.1.48.106,4567") = True Then
|
26
|
26
|
登入人IP = "106.1.48.106,4567"
|
|
@@ -33,7 +33,7 @@ Public Class C_SYS_UPDATE
|
33
|
33
|
End Sub
|
34
|
34
|
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
|
35
|
35
|
IP比對()
|
36
|
|
- If 登入人IP = "192.168.1.6,2433" Then : Target = "ftp://192.168.1.6:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL-"
|
|
36
|
+ If 登入人IP = "192.168.1.63,2433" Then : Target = "ftp://192.168.1.63:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL-"
|
37
|
37
|
ElseIf 登入人IP = "36.64.59.26,2433" Then : Target = "ftp://36.64.59.26:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "36-SQL-"
|
38
|
38
|
ElseIf 登入人IP = "106.1.48.106,4567" Then : Target = "ftp://106.1.48.106:2121/HXPGS/" : FTP物理位置 = "D:\FTP\HXPGS\" : TF = "106-SQL-"
|
39
|
39
|
End If : FTP帳號 = "" : FTP密碼 = "" : SQL_連線字串_正式()
|