|
@@ -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.0.201,2433") = True Then
|
23
|
|
- 登入人IP = "192.168.0.201,2433"
|
|
22
|
+ If SQL_連線狀態模組2.ConnectTest2("192.168.1.6,2433") = True Then
|
|
23
|
+ 登入人IP = "192.168.1.6,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,9 +33,8 @@ 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.0.201,2433" Then : Target = "ftp://192.168.0.201:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL-"
|
37
|
|
- ElseIf 登入人IP = "103.231.201.230,2433" Then : Target = "ftp://103.231.201.230:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "231-SQL-"
|
38
|
|
- ElseIf 登入人IP = "103.144.143.182,2433" Then : Target = "ftp://103.144.143.182:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "144-SQL-"
|
|
36
|
+ If 登入人IP = "192.168.1.6,2433" Then : Target = "ftp://192.168.1.6:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL-"
|
|
37
|
+ ElseIf 登入人IP = "36.64.59.26,2433" Then : Target = "ftp://36.64.59.26:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "36-SQL-"
|
39
|
38
|
ElseIf 登入人IP = "106.1.48.106,4567" Then : Target = "ftp://106.1.48.106:2121/HXPGS/" : FTP物理位置 = "D:\FTP\HXPGS\" : TF = "106-SQL-"
|
40
|
39
|
End If : FTP帳號 = "" : FTP密碼 = "" : SQL_連線字串_正式()
|
41
|
40
|
|