20240302備份

SYS-UPDATE/SYS-UPDATE.Designer.vb

@@ -32,10 +32,9 @@ Partial Class SYS_UPDATE
         '
         '伺服器區域_cb
         '
-        Me.伺服器區域_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.伺服器區域_cb.ForeColor = System.Drawing.Color.Blue
         Me.伺服器區域_cb.FormattingEnabled = True
-        Me.伺服器區域_cb.Items.AddRange(New Object() {"工巧明外網", "工巧明內網"})
+        Me.伺服器區域_cb.Items.AddRange(New Object() {"180.177.181.162,5264"})
         Me.伺服器區域_cb.Location = New System.Drawing.Point(460, 12)
         Me.伺服器區域_cb.Name = "伺服器區域_cb"
         Me.伺服器區域_cb.Size = New System.Drawing.Size(102, 24)

SYS-UPDATE/SYS-UPDATE.vb

@@ -1,4 +1,6 @@
 Imports System.IO
+Imports System.Net
+Imports System.Threading.Tasks
 Public Class SYS_UPDATE
     ReadOnly ds2 As New DataSet
     Private Sub Set_清單1()
@@ -14,7 +16,7 @@ Public Class SYS_UPDATE
         資料數 = 17
         MyModule1.進度條() : 登入人IP = "180.177.181.162,5264"
         MyModule1.進度條() : SQL_連線字串_ERP()
-        MyModule1.進度條() : 伺服器區域_cb.Text = "工巧明外網"
+        MyModule1.進度條() : 伺服器區域_cb.Text = "180.177.181.162,5264"
         MyModule1.進度條() : g_conn_type = 伺服器區域_cb.Text & "伺服器"
         '-----------------------系統版本號寫入-----------------------------------------------------------------------------------------------------------------------------------------------
         MyModule1.進度條() : SQL_版本號()
@@ -30,15 +32,30 @@ Public Class SYS_UPDATE
         Next
         MyModule1.進度條() : Target1 = Target & AA(0) & "/"
     End Sub
-    Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+    Private Async 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 + "\GCM-ERP-SYS - " & 版本號 & ".exe") Then : File.Delete(Str + "\GCM-ERP-SYS - " & 版本號 & ".exe") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\GCM-ERP-SYS.exe") Then : File.Delete(Str + "\GCM-ERP-SYS.exe") : End If
-        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GCM-ERP-SYS.exe", Str + "\GCM-ERP-SYS.exe")
-        MyModule1.進度條() : Shell(Str + "\GCM-ERP-SYS.exe", vbNormalFocus)
+        MyModule1.進度條() : If File.Exists(Str + "\BIFENG-ERP-SYS.exe") Then : File.Delete(Str + "\BIFENG-ERP-SYS.exe") : End If
+        'MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(1) & "/" & "BIFENG-ERP-SYS.exe", Str + "\BIFENG-ERP-SYS.exe")
+        Dim downloadUrl As String = Target & AA(1) & "/" & "BIFENG-ERP-SYS.exe"
+        Dim savePath As String = Str + "\BIFENG-ERP-SYS.exe"
+
+        ' 開始異步下載
+        Await DownloadFileAsync(downloadUrl, savePath)
+        MyModule1.進度條() : Shell(Str + "\BIFENG-ERP-SYS.exe", vbNormalFocus)
         Me.Close()
     End Sub
+    Private WithEvents downloader As New WebClient()
+    Private Async Function DownloadFileAsync(downloadUrl As String, savePath As String) As Task
+        Try
+            ' 使用異步方式下載檔案
+            Await downloader.DownloadFileTaskAsync(New Uri(downloadUrl), savePath)
+            ' 下載完成後的處理
+            MessageBox.Show("下載完成！")
+        Catch ex As Exception
+            MessageBox.Show($"下載失敗: {ex.Message}")
+        End Try
+    End Function
     Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
         Dim time As DateTime = DateTime.Now
         Dim Span As Double = Interval * 1234

SYS-UPDATE/SYS-UPDATE.vbproj

@@ -48,7 +48,10 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>favicon-20190809022345261.ico</ApplicationIcon>
+    <ApplicationIcon>BIFENG-ERP-SYS.ico</ApplicationIcon>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>app.manifest</ApplicationManifest>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
@@ -114,6 +117,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>
@@ -126,6 +130,7 @@
     <None Include="App.config" />
   </ItemGroup>
   <ItemGroup>
+    <Content Include="BIFENG-ERP-SYS.ico" />
     <Content Include="favicon-20190809022345261.ico" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

SYS-UPDATE/app.manifest

@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="utf-8"?>
+<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <!-- UAC 資訊清單選項
+             如果要變更 Windows 使用者帳戶控制層級，請將 
+             requestedExecutionLevel 節點以下列其中之一取代。
+
+        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
+        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
+        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
+
+            指定 requestedExecutionLevel 項目會停用檔案及登錄虛擬化。
+            如果您的應用程式需要針對回溯相容性進行這項虛擬化，請移除這個
+            項目。
+        -->
+        <requestedExecutionLevel level="highestAvailable" uiAccess="false" />
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+
+  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+    <application>
+      <!-- 此應用程式已通過測試，並設計要搭配使用的
+           應用程式版本清單。請取消註解適當元素，
+           Windows 就會自動選取最相容的環境。 -->
+
+      <!-- Windows Vista -->
+      <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
+
+      <!-- Windows 7 -->
+      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
+
+      <!-- Windows 8 -->
+      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
+
+      <!-- Windows 8.1 -->
+      <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
+
+      <!-- Windows 10 -->
+      <!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
+
+    </application>
+  </compatibility>
+
+  <!-- 表示應用程式為 DPI 感知，Windows 不會在 DPI 變高時自動
+       縮放。Windows Presentation Foundation (WPF) 應用程式會自動感知 DPI，因此不需要
+       加入。以 .NET Framework 4.6 為目標的 Windows Form 應用程式若加入這項設定，也
+       應該在其 app.config 中將 'EnableWindowsFormsHighDpiAutoResizing' 設定為 'true'。
+       
+       將應用程式設定為感知長路徑。請參閱 https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation-->
+  <!--
+  <application xmlns="urn:schemas-microsoft-com:asm.v3">
+    <windowsSettings>
+      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
+      <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
+    </windowsSettings>
+  </application>
+  -->
+
+  <!-- 啟用 Windows 通用控制項和對話方塊的佈景主題 (Windows XP 以後版本) -->
+  <!--
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+          type="win32"
+          name="Microsoft.Windows.Common-Controls"
+          version="6.0.0.0"
+          processorArchitecture="*"
+          publicKeyToken="6595b64144ccf1df"
+          language="*"
+        />
+    </dependentAssembly>
+  </dependency>
+  -->
+
+</assembly>

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/SYS-UPDATE.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-04af96f1783334a1d4800be8ce0d19988d8815ee
+44166f2dfe50789ea62812627db223d07cfa778989a8b847b402c70dcc89dde1

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

@@ -9,4 +9,17 @@ D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.CoreCompileIn
 D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.exe
 D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.xml
 D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.pdb
-D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbprojAssemblyReference.cache
+D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.AssemblyReference.cache
+D:\工巧明\GCM\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.SuggestedBindingRedirects.cache
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.exe.config
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.exe
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.pdb
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\bin\Debug\SYS-UPDATE.xml
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.AssemblyReference.cache
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS_UPDATE.SYS_UPDATE.resources
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS_UPDATE.Resources.resources
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.GenerateResource.cache
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.vbproj.CoreCompileInputs.cache
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.exe
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.xml
+D:\工巧明\BIFENG\SYS-UPDATE\SYS-UPDATE\obj\Debug\SYS-UPDATE.pdb

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>

SYS-UPDATE/全域變數.vb

@@ -2,7 +2,7 @@
     Public g_conn_type As String : Public gUserName As String : Public 版本號 As String :: Public 登入人IP As String : Public AA(99) As String
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Friend Sub SQL_連線字串_ERP()
-        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=我的資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=BIFENG-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Public Class MyModule1