20231014備份

Calculator-SYS/0、MyModule/模組/全域變數.vb

     '------LINE變數-------
     Public 發送對象, LINE_權限代號, PA201, PA202, PA203, PA204, PA205, 通知變數X, 通知變數Y, Line通訊IP, Line伺服器名稱 As String
     '----系統版本----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023081401" : Public 資料庫版本 As String
+    Public 版本 As String = "2023100701" : Public 資料庫版本 As String
     '----系統閒置----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 重登確認, 主頁開啟, 首次開啟, 物料查詢, 深色風格, 不刪除檔案, 跨部門開啟 As Boolean
     Public timeExit, timeExit2, timeNow, timeNow2 As Integer

Calculator-SYS/10、背景程式與對話視窗/線路選擇.vb

 Imports System.Text
 Public Class 線路選擇
     Private Sub 線路選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        If PA49 = "103.231.201.230,2433" Then : Me.ActiveControl = 總部_rbt : Else : Me.ActiveControl = 工地_rbt : End If
+        If PA49 = "36.64.59.26,2433" Then : Me.ActiveControl = 總部_rbt : Else : Me.ActiveControl = 工地_rbt : End If
     End Sub
     Private Sub 線路選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         If 系統語言 = "繁體中文" Then : Me.Text = "線路選擇"
         ElseIf 系統語言 = "Indonesian" Then : Me.Text = "Pemilihan Jalur" : End If
     End Sub
     Private Sub 總部_rbt_Click(sender As Object, e As EventArgs) Handles 總部_rbt.Click
-        PA49 = "103.231.201.230,2433"
+        PA49 = "36.64.59.26,2433"
         Dim strDirName As String : Dim Strs As String = Application.StartupPath
         If File.Exists(Strs & "\HXLINE.txt") Then : File.Delete(Strs & "\HXLINE.txt") : End If
         strDirName = Strs & "\HXLINE.txt"
         Me.Close()
     End Sub
     Private Sub 工地_rbt_Click(sender As Object, e As EventArgs) Handles 工地_rbt.Click
-        PA49 = "103.144.143.182,2433"
+        PA49 = "36.64.59.26,2433"
         Dim strDirName As String : Dim Strs As String = Application.StartupPath
         If File.Exists(Strs & "\HXLINE.txt") Then : File.Delete(Strs & "\HXLINE.txt") : End If
         strDirName = Strs & "\HXLINE.txt"

Calculator-SYS/HX_PGS_ERP_SYS.vb

                 If 訊息回應 = "YES" Then : 桌面捷徑設定.ShowDialog() : HXGPSERPSYS_Siz() : End If : End If
         End If
         '-----------------------測試伺服器登入通知------------------------------------------------------------------------------------------------------------
-        If 登入人IP = "106.1.48.106,4567" Or 登入人IP = "111.95.41.244,2433" Or 登入人IP = "192.168.0.112,2433" Then
+        If 登入人IP = "106.1.48.106,4567" Then
             MGB(對話框(25), 1)
         End If
     End Sub

Calculator-SYS/LoginForm1.vb

         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
         If 伺服器區域_cb.Text = "公司內網" Then
             IP公 = True
-            If IP公 = True Then : 登入人IP = "192.168.0.201,2433" : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
+            If IP公 = True Then : 登入人IP = "192.168.1.6,2433" : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
         ElseIf 伺服器區域_cb.Text = "公司雲端" Then
             IP公 = True
             If IP公 = True Then : 登入人IP = PA49 : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
             IP測1 = True
             If IP測1 = True Then : 登入人IP = "106.1.48.106,4567" : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
         ElseIf 伺服器區域_cb.Text = "印尼測試" Then
-            If IP測2 = True Then : 登入人IP = "192.168.0.201,2433"
-                If SQL_連線狀態模組2.ConnectTest2("192.168.0.201,2433") = True Then : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
+            If IP測2 = True Then : 登入人IP = "192.168.1.6,2433"
+                If SQL_連線狀態模組2.ConnectTest2("192.168.1.6,2433") = True Then : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
             Else : MGB(對話框(11), 1) : Me.Close() : End If
         End If
     End Sub

Calculator-SYS/計算機.vb

     Private Sub 語言轉換讀取()
     End Sub
     Private Sub IP比對()
-        If SQL_連線狀態模組3.ConnectTest3("192.168.0.201,2433") = True Then
+        If SQL_連線狀態模組3.ConnectTest3("192.168.1.6,2433") = True Then
             '---主伺服器導通-------------------------------------------
             IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "公司內網" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = True
             刷卡登入_ch.Checked = True
                 Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\HXLINE.txt", System.Text.Encoding.Default)
                 Dim Text As String = "" : Dim line As String = filereader.ReadLine()
                 While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
-                If Strings.Left(Text, 10) = "3MBPS-LINE" Then : PA49 = "103.231.201.230,2433"
-                ElseIf Strings.Left(Text, 11) = "20MBPS-LINE" Then : PA49 = "103.144.143.182,2433" : End If
+                If Strings.Left(Text, 10) = "3MBPS-LINE" Then : PA49 = "36.64.59.26,2433"
+                ElseIf Strings.Left(Text, 11) = "20MBPS-LINE" Then : PA49 = "36.64.59.26,2433" : End If
             Else : 線路選擇.ShowDialog() : End If
 
             If SQL_連線狀態模組1.ConnectTest1(PA49) = True Then
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_cb.SelectedIndexChanged
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
         If 伺服器區域_cb.Text = "公司內網" Then
-            If IP公 = True Then : 登入人IP = "192.168.0.201,2433" : Line通訊IP = "192.168.0.201,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
+            If IP公 = True Then : 登入人IP = "192.168.1.6,2433" : Line通訊IP = "192.168.1.6,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
         ElseIf 伺服器區域_cb.Text = "公司雲端" Then
             If IP公 = True Then : 登入人IP = PA49 : Line通訊IP = PA49 : Line伺服器名稱 = "HX-LINE-AUTO"
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
         ElseIf 伺服器區域_cb.Text = "測試雲端" Then
-            If IP測1 = True Then : 登入人IP = "106.1.48.106,4567" : Line通訊IP = "103.231.201.230,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
+            If IP測1 = True Then : 登入人IP = "106.1.48.106,4567" : Line通訊IP = "36.64.59.26,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
         ElseIf 伺服器區域_cb.Text = "印尼測試" Then
-            If IP測2 = True Then : 登入人IP = "172.1.1.189,2433" : Line通訊IP = "192.168.0.201,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
+            If IP測2 = True Then : 登入人IP = "172.1.1.189,2433" : Line通訊IP = "192.168.1.6,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
                 If SQL_連線狀態模組2.ConnectTest2("172.1.1.189,2433") = True Then : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
             Else : MGB(對話框(11), 1) : Me.Close() : End If
         End If