Нема описа
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

Calculator-SYS-UPDATE.vb 3.8KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. Imports System.IO
  2. Imports System.Net
  3. Imports System.Net.NetworkInformation
  4. Public Class C_SYS_UPDATE
  5. ReadOnly ds2 As New DataSet
  6. ReadOnly computerProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
  7. ReadOnly IPEndPoint() As EndPoint = computerProperties.GetActiveTcpListeners()
  8. Dim myIPEndPoint As IPEndPoint
  9. Dim 內網線路, 開發線路, 刪除完成, OK1, OK2, OK3, OK4, OK5, OK6, OK7, OK8, OK9, OK10 As Boolean
  10. Dim Str As String = Application.StartupPath
  11. Dim TF As String
  12. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  13. End Sub
  14. Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  15. Target = "https://gcm-smart.com/ERP/HX-PGS/"
  16. Me.Text = "SYS-UPDATE..- " & TF
  17. End Sub
  18. Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  19. 資料數 = 7
  20. MyModule1.進度條() : Delay(30000)
  21. MyModule1.進度條() : Dim Str As String = Application.StartupPath
  22. Timer1.Enabled = True
  23. End Sub
  24. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  25. Dim 已開啟 As Boolean = False
  26. Dim Strs As String = Application.StartupPath
  27. If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Calculator-SYS.exe") Then
  28. Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
  29. ' 判斷是否有符合的Process
  30. For Each process As Process In pro
  31. If ("Calculator-SYS").Equals(process.ProcessName) Then
  32. 已開啟 = True
  33. End If
  34. Next
  35. If 已開啟 = False Then
  36. Timer1.Enabled = False
  37. MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
  38. MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
  39. MyModule1.進度條() : If File.Exists(Str + "\Calculator-SYS.exe") Then : File.Delete(Str + "\Calculator-SYS.exe") : End If
  40. MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
  41. MyModule1.進度條() : Shell(Str + "\Calculator-SYS.exe", vbNormalFocus)
  42. Me.Close()
  43. End If
  44. ElseIf File.Exists(Strs & "\Calculator-SYS.exe") Then
  45. Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
  46. ' 判斷是否有符合的Process
  47. For Each process As Process In pro
  48. If ("Calculator-SYS").Equals(process.ProcessName) Then
  49. 已開啟 = True
  50. End If
  51. Next
  52. If 已開啟 = False Then
  53. Timer1.Enabled = False
  54. MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
  55. MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
  56. MyModule1.進度條() : If File.Exists(Str + "\Calculator-SYS.exe") Then : File.Delete(Str + "\Calculator-SYS.exe") : End If
  57. MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
  58. MyModule1.進度條() : Shell(Str + "\Calculator-SYS.exe", vbNormalFocus)
  59. Me.Close()
  60. End If
  61. End If
  62. End Sub
  63. Public Sub Delay(ByRef Interval As Double) 'Interval单位为毫秒
  64. Dim time As DateTime = DateTime.Now
  65. Dim Span As Double = Interval * 1234
  66. While ((DateTime.Now.Ticks - time.Ticks) < Span)
  67. Application.DoEvents()
  68. End While
  69. End Sub
  70. End Class