12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970 |
- Imports System.IO
- Imports System.Net
- Imports System.Net.NetworkInformation
- Public Class C_SYS_UPDATE
- ReadOnly ds2 As New DataSet
- ReadOnly computerProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
- ReadOnly IPEndPoint() As EndPoint = computerProperties.GetActiveTcpListeners()
- Dim myIPEndPoint As IPEndPoint
- Dim 內網線路, 開發線路, 刪除完成, OK1, OK2, OK3, OK4, OK5, OK6, OK7, OK8, OK9, OK10 As Boolean
- Dim Str As String = Application.StartupPath
- Dim TF As String
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
- Target = "https://gcm-smart.com/ERP/HX-PGS/"
- Me.Text = "SYS-UPDATE..- " & TF
- End Sub
- Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
- 資料數 = 7
- MyModule1.進度條() : Delay(30000)
- MyModule1.進度條() : Dim Str As String = Application.StartupPath
- Timer1.Enabled = True
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Dim 已開啟 As Boolean = False
- Dim Strs As String = Application.StartupPath
- If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Calculator-SYS.exe") Then
- Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
- ' 判斷是否有符合的Process
- For Each process As Process In pro
- If ("Calculator-SYS").Equals(process.ProcessName) Then
- 已開啟 = True
- End If
- Next
- If 已開啟 = False Then
- Timer1.Enabled = False
- MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
- MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
- MyModule1.進度條() : If File.Exists(Str + "\Calculator-SYS.exe") Then : File.Delete(Str + "\Calculator-SYS.exe") : End If
- MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
- MyModule1.進度條() : Shell(Str + "\Calculator-SYS.exe", vbNormalFocus)
- Me.Close()
- End If
- ElseIf File.Exists(Strs & "\Calculator-SYS.exe") Then
- Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
- ' 判斷是否有符合的Process
- For Each process As Process In pro
- If ("Calculator-SYS").Equals(process.ProcessName) Then
- 已開啟 = True
- End If
- Next
- If 已開啟 = False Then
- Timer1.Enabled = False
- MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
- MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
- MyModule1.進度條() : If File.Exists(Str + "\Calculator-SYS.exe") Then : File.Delete(Str + "\Calculator-SYS.exe") : End If
- MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
- MyModule1.進度條() : Shell(Str + "\Calculator-SYS.exe", vbNormalFocus)
- Me.Close()
- End If
- End If
- 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
- End Sub
- End Class
|