20240316備份

SYS-UPDATE/App.config

@@ -1,6 +1,6 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
-</configuration>
+</configuration>

SYS-UPDATE/My Project/Resources.Designer.vb

@@ -1,40 +1,41 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
 Option Strict On
 Option Explicit On
 
+Imports System
 
 Namespace My.Resources
-
-    'This class was auto-generated by the StronglyTypedResourceBuilder
-    'class via a tool like ResGen or Visual Studio.
-    'To add or remove a member, edit your .ResX file then rerun ResGen
-    'with the /str option, or rebuild your VS project.
+    
+    '這個類別是自動產生的，是利用 StronglyTypedResourceBuilder
+    '類別透過 ResGen 或 Visual Studio 這類工具。
+    '若要加入或移除成員，請編輯您的 .ResX 檔，然後重新執行 ResGen
+    '(利用 /str 選項)，或重建您的 VS 專案。
     '''<summary>
-    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''  用於查詢當地語系化字串等的強類型資源類別。
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
     Friend Module Resources
-
+        
         Private resourceMan As Global.System.Resources.ResourceManager
-
+        
         Private resourceCulture As Global.System.Globalization.CultureInfo
-
+        
         '''<summary>
-        '''  Returns the cached ResourceManager instance used by this class.
+        '''  傳回這個類別使用的快取的 ResourceManager 執行個體。
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
@@ -44,17 +45,17 @@ Namespace My.Resources
                 Return resourceMan
             End Get
         End Property
-
+        
         '''<summary>
-        '''  Overrides the current thread's CurrentUICulture property for all
-        '''  resource lookups using this strongly typed resource class.
+        '''  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+        '''  使用這個強類型資源類別的資源查閱。
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend Property Culture() As Global.System.Globalization.CultureInfo
             Get
                 Return resourceCulture
             End Get
-            Set(ByVal value As Global.System.Globalization.CultureInfo)
+            Set
                 resourceCulture = value
             End Set
         End Property

SYS-UPDATE/My Project/Settings.Designer.vb

@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     這段程式碼是由工具產生的。
+'     執行階段版本:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     對這個檔案所做的變更可能會造成錯誤的行為，而且如果重新產生程式碼，
+'     變更將會遺失。
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
@@ -13,42 +13,42 @@ Option Explicit On
 
 
 Namespace My
-
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.2.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
-
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
-
-#Region "My.Settings Auto-Save Functionality"
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "My.Settings 自動儲存功能"
 #If _MyType = "WindowsForms" Then
-        Private Shared addedHandler As Boolean
+    Private Shared addedHandler As Boolean
 
-        Private Shared addedHandlerLockObject As New Object
+    Private Shared addedHandlerLockObject As New Object
 
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
-            If My.Application.SaveMySettingsOnExit Then
-                My.Settings.Save()
-            End If
-        End Sub
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
 #End If
 #End Region
-
+        
         Public Shared ReadOnly Property [Default]() As MySettings
             Get
-
+                
 #If _MyType = "WindowsForms" Then
-                   If Not addedHandler Then
-                        SyncLock addedHandlerLockObject
-                            If Not addedHandler Then
-                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                                addedHandler = True
-                            End If
-                        End SyncLock
-                    End If
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
 #End If
                 Return defaultInstance
             End Get
@@ -57,13 +57,13 @@ Namespace My
 End Namespace
 
 Namespace My
-
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
     Friend Module MySettingsProperty
-
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
         Friend ReadOnly Property Settings() As Global.SYS_UPDATE.My.MySettings
             Get
                 Return Global.SYS_UPDATE.My.MySettings.Default

SYS-UPDATE/SYS-UPDATE.Designer.vb

@@ -22,11 +22,13 @@ Partial Class SYS_UPDATE
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SYS_UPDATE))
         Me.伺服器區域_cb = New System.Windows.Forms.ComboBox()
         Me.FDT_dgv = New System.Windows.Forms.DataGridView()
         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.主程式更新 = New System.Windows.Forms.Timer(Me.components)
         CType(Me.FDT_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -62,6 +64,10 @@ Partial Class SYS_UPDATE
         Me.ProgressBar1.Size = New System.Drawing.Size(296, 23)
         Me.ProgressBar1.TabIndex = 636
         '
+        '主程式更新
+        '
+        Me.主程式更新.Interval = 300
+        '
         'SYS_UPDATE
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -87,4 +93,5 @@ Partial Class SYS_UPDATE
     Friend WithEvents 伺服器區域_cb As ComboBox
     Friend WithEvents FDT_dgv As DataGridView
     Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents 主程式更新 As Timer
 End Class

SYS-UPDATE/SYS-UPDATE.resx

@@ -117,6 +117,9 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="主程式更新.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

SYS-UPDATE/SYS-UPDATE.vb

@@ -1,6 +1,8 @@
 Imports System.IO
 Public Class SYS_UPDATE
     ReadOnly ds2 As New DataSet
+    Dim Str As String = Application.StartupPath
+    Dim Strs As String = Application.StartupPath
     Private Sub Set_清單1()
         FDT_dgv.DataSource = Nothing : ds2.Clear()
         FDT_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -13,9 +15,9 @@ Public Class SYS_UPDATE
         Dim Strs As String = Application.StartupPath : 資料數 = 17
         If File.Exists(Strs + "\LIVE.txt") Then
             MyModule1.進度條() : Dim fileReader As String : fileReader = My.Computer.FileSystem.ReadAllText(Strs + "\LIVE.txt")
-            MyModule1.進度條() : If fileReader = "A" Then : 伺服器區域_cb.Text = "巨益線路" : Else : 伺服器區域_cb.Text = "開發線路" : End If
+            MyModule1.進度條() : If Strings.Left(fileReader, 1) = "A" Then : 伺服器區域_cb.Text = "巨益線路" : Else : 伺服器區域_cb.Text = "開發線路" : End If
             '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
-            MyModule1.進度條() : If 伺服器區域_cb.Text = "巨益線路" Then : 登入人IP = "192.168.10.5" : ElseIf 伺服器區域_cb.Text = "開發線路" Then : 登入人IP = "106.1.50.79" : End If
+            MyModule1.進度條() : If 伺服器區域_cb.Text = "巨益線路" Then : 登入人IP = "192.168.10.5" : ElseIf 伺服器區域_cb.Text = "開發線路" Then : 登入人IP = "106.1.48.106,4567" : End If
             MyModule1.進度條() : SQL_連線字串_ERP()
             '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
             MyModule1.進度條() : SQL_版本號()
@@ -31,25 +33,45 @@ Public Class SYS_UPDATE
             Next
             MyModule1.進度條() : Target1 = Target & AA(0) & "/"
         Else
-            Delay(30000)
             MsgBox("沒有連線指定!!!") : Me.Close()
         End If
     End Sub
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
-        MyModule1.進度條() : Delay(30000)
-        MyModule1.進度條() : Dim Str As String = Application.StartupPath
-        MyModule1.進度條() : If File.Exists(Str + "\WINPROFIT-ERP-SYS - 2021083002.exe") Then : File.Delete(Str + "\WINPROFIT-ERP-SYS - 2021083002.exe") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\WINPROFIT-ERP-SYS - 2021093001.exe") Then : File.Delete(Str + "\WINPROFIT-ERP-SYS - 2021093001.exe") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\WINPROFIT-ERP-SYS.exe") Then : File.Delete(Str + "\WINPROFIT-ERP-SYS.exe") : End If
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "WINPROFIT-ERP-SYS.exe", Str + "\WINPROFIT-ERP-SYS.exe")
-        MyModule1.進度條() : Shell(Str + "\WINPROFIT-ERP-SYS.exe", vbNormalFocus)
-        Me.Close()
+        MyModule1.進度條() : MyModule1.進度條()
+        主程式更新.Enabled = True
     End Sub
-    Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
-        Dim time As DateTime = DateTime.Now
-        Dim Span As Double = Interval * 1234
-        While ((DateTime.Now.Ticks - time.Ticks) < Span)
-            Application.DoEvents()
-        End While
+    Private Sub 主程式更新_Tick(sender As Object, e As EventArgs) Handles 主程式更新.Tick
+        Dim 已開啟 As Boolean = False
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\WINPROFIT-ERP-SYS.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("WINPROFIT-ERP-SYS").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                主程式更新.Enabled = False
+                MyModule1.進度條() : If File.Exists(Str + "\WINPROFIT-ERP-SYS.exe") Then : File.Delete(Str + "\WINPROFIT-ERP-SYS.exe") : End If
+                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "WINPROFIT-ERP-SYS.exe", Str + "\WINPROFIT-ERP-SYS.exe")
+                MyModule1.進度條() : Shell(Str + "\WINPROFIT-ERP-SYS.exe", vbNormalFocus)
+                Me.Close()
+            End If
+        ElseIf File.Exists(Strs & "\WINPROFIT-ERP-SYS.exe") Then
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
+            ' 判斷是否有符合的Process
+            For Each process As Process In pro
+                If ("WINPROFIT-ERP-SYS").Equals(process.ProcessName) Then
+                    已開啟 = True
+                End If
+            Next
+            If 已開啟 = False Then
+                主程式更新.Enabled = False
+                MyModule1.進度條() : If File.Exists(Str + "\WINPROFIT-ERP-SYS.exe") Then : File.Delete(Str + "\WINPROFIT-ERP-SYS.exe") : End If
+                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "WINPROFIT-ERP-SYS.exe", Str + "\WINPROFIT-ERP-SYS.exe")
+                MyModule1.進度條() : Shell(Str + "\WINPROFIT-ERP-SYS.exe", vbNormalFocus)
+                Me.Close()
+            End If
+        End If
     End Sub
 End Class

SYS-UPDATE/SYS-UPDATE.vbproj

@@ -11,8 +11,9 @@
     <AssemblyName>SYS-UPDATE</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <Deterministic>true</Deterministic>
+    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>

SYS-UPDATE/bin/Debug/SYS-UPDATE.exe.config

@@ -1,6 +1,6 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
-</configuration>
+</configuration>

SYS-UPDATE/bin/Debug/SYS-UPDATE.xml

@@ -8,18 +8,18 @@ SYS-UPDATE
 <members>
 <member name="T:SYS_UPDATE.My.Resources.Resources">
 <summary>
-  A strongly-typed resource class, for looking up localized strings, etc.
+  用於查詢當地語系化字串等的強類型資源類別。
 </summary>
 </member>
 <member name="P:SYS_UPDATE.My.Resources.Resources.ResourceManager">
 <summary>
-  Returns the cached ResourceManager instance used by this class.
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
 </summary>
 </member>
 <member name="P:SYS_UPDATE.My.Resources.Resources.Culture">
 <summary>
-  Overrides the current thread's CurrentUICulture property for all
-  resource lookups using this strongly typed resource class.
+  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+  使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
 </members>

SYS-UPDATE/obj/Debug/.NETFramework,Version=v4.8.AssemblyAttributes.vb

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.8", FrameworkDisplayName:=".NET Framework 4.8")>

SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-04af96f1783334a1d4800be8ce0d19988d8815ee
+f7bf0ccb484b8b6b002ac292c9038830c025f75f

SYS-UPDATE/obj/Debug/SYS-UPDATE.vbproj.FileListAbsolute.txt

@@ -26,7 +26,6 @@ D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.exe.config
 D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.exe
 D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.pdb
 D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.xml
-D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbprojAssemblyReference.cache
 D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS_UPDATE.SYS_UPDATE.resources
 D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS_UPDATE.Resources.resources
 D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.GenerateResource.cache
@@ -34,3 +33,5 @@ D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.CoreCom
 D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.exe
 D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.xml
 D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.pdb
+D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.AssemblyReference.cache
+D:\工巧明\WINPROFIT\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.SuggestedBindingRedirects.cache

SYS-UPDATE/obj/Debug/SYS-UPDATE.xml

@@ -8,18 +8,18 @@ SYS-UPDATE
 <members>
 <member name="T:SYS_UPDATE.My.Resources.Resources">
 <summary>
-  A strongly-typed resource class, for looking up localized strings, etc.
+  用於查詢當地語系化字串等的強類型資源類別。
 </summary>
 </member>
 <member name="P:SYS_UPDATE.My.Resources.Resources.ResourceManager">
 <summary>
-  Returns the cached ResourceManager instance used by this class.
+  傳回這個類別使用的快取的 ResourceManager 執行個體。
 </summary>
 </member>
 <member name="P:SYS_UPDATE.My.Resources.Resources.Culture">
 <summary>
-  Overrides the current thread's CurrentUICulture property for all
-  resource lookups using this strongly typed resource class.
+  覆寫目前執行緒的 CurrentUICulture 屬性，對象是所有
+  使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
 </members>