HSKIN-MIS-SYS
/
PC-SYS-UPDATE-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
No Description
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.
7 Commits
1 Branch
Tree: 21eadd7cd1
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '21eadd7cd1'
${ noResults }
PC-SYS-UPDATE-LEEHSIEHJUI/SYS-UPDATE/SYS-UPDATE.vb

SYS-UPDATE.vb 20KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134 
  1. Imports System.IO

  2. Public Class SYS_UPDATE

  3.     ReadOnly ds2 As New DataSet

  4.     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  5.         Dim pProcess1() As Process = System.Diagnostics.Process.GetProcessesByName("HSKIN-MIS-SYS.exe")

  6.         For Each p As Process In pProcess1 : p.Kill() : Next

  7.         Dim Strs As String = Application.StartupPath : 資料數 = 104

  8.         Target = "https://gcm-smart.com/ERP/HSKIN/"

  9.     End Sub

  10.     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  11.         計算分流.Enabled = True

  12.     End Sub

  13.     Private Sub 計算分流_Tick(sender As Object, e As EventArgs) Handles 計算分流.Tick

  14.         計算分流.Enabled = False

  15.         MyModule1.進度條() : Delay(30000)

  16.         MyModule1.進度條() : Dim Str As String = Application.StartupPath : Dim FS As String

  17.         '---------------------------------使用網頁插件------------------------------------------------------------------------

  18.         MyModule1.進度條() : FS = "CefSharp.BrowserSubprocess.Core.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  19.         MyModule1.進度條() : FS = "CefSharp.BrowserSubprocess.Core.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  20.         MyModule1.進度條() : FS = "CefSharp.BrowserSubprocess.exe" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  21.         MyModule1.進度條() : FS = "CefSharp.BrowserSubprocess.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  22.         MyModule1.進度條() : FS = "CefSharp.Core.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  23.         MyModule1.進度條() : FS = "CefSharp.Core.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  24.         MyModule1.進度條() : FS = "CefSharp.Core.Runtime.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  25.         MyModule1.進度條() : FS = "CefSharp.Core.Runtime.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  26.         MyModule1.進度條() : FS = "CefSharp.Core.Runtime.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  27.         MyModule1.進度條() : FS = "CefSharp.Core.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  28.         MyModule1.進度條() : FS = "CefSharp.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  29.         MyModule1.進度條() : FS = "CefSharp.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  30.         MyModule1.進度條() : FS = "CefSharp.WinForms.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  31.         MyModule1.進度條() : FS = "CefSharp.WinForms.pdb" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  32.         MyModule1.進度條() : FS = "CefSharp.WinForms.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  33.         MyModule1.進度條() : FS = "CefSharp.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  34.         MyModule1.進度條() : FS = "chrome_100_percent.pak" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  35.         MyModule1.進度條() : FS = "chrome_200_percent.pak" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  36.         MyModule1.進度條() : FS = "chrome_elf.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  37.         MyModule1.進度條() : FS = "d3dcompiler_47.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  38.         MyModule1.進度條() : FS = "icudtl.dat" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  39.         MyModule1.進度條() : FS = "libcef.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  40.         MyModule1.進度條() : FS = "libEGL.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  41.         MyModule1.進度條() : FS = "libGLESv2.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  42.         MyModule1.進度條() : FS = "resources.pak" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  43.         MyModule1.進度條() : FS = "snapshot_blob.bin" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  44.         MyModule1.進度條() : FS = "v8_context_snapshot.bin" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  45.         MyModule1.進度條() : FS = "vk_swiftshader.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  46.         MyModule1.進度條() : FS = "vk_swiftshader_icd.json" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  47.         MyModule1.進度條() : FS = "vulkan-1.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  48.         MyModule1.進度條() : FS = "DotNetBarcode.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  49.         MyModule1.進度條() : If Dir(Str + "\locales", vbDirectory) <> "" Then : Else : MkDir(Str + "\locales") : End If

  50.         MyModule1.進度條() : FS = "af.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  51.         MyModule1.進度條() : FS = "am.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  52.         MyModule1.進度條() : FS = "ar.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  53.         MyModule1.進度條() : FS = "bg.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  54.         MyModule1.進度條() : FS = "bn.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  55.         MyModule1.進度條() : FS = "ca.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  56.         MyModule1.進度條() : FS = "cs.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  57.         MyModule1.進度條() : FS = "da.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  58.         MyModule1.進度條() : FS = "de.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  59.         MyModule1.進度條() : FS = "el.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  60.         MyModule1.進度條() : FS = "en-GB.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  61.         MyModule1.進度條() : FS = "en-US.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  62.         MyModule1.進度條() : FS = "es.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  63.         MyModule1.進度條() : FS = "es-419.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  64.         MyModule1.進度條() : FS = "et.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  65.         MyModule1.進度條() : FS = "fa.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  66.         MyModule1.進度條() : FS = "fi.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  67.         MyModule1.進度條() : FS = "fil.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  68.         MyModule1.進度條() : FS = "fr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  69.         MyModule1.進度條() : FS = "gu.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  70.         MyModule1.進度條() : FS = "he.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  71.         MyModule1.進度條() : FS = "hi.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  72.         MyModule1.進度條() : FS = "hr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  73.         MyModule1.進度條() : FS = "hu.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  74.         MyModule1.進度條() : FS = "id.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  75.         MyModule1.進度條() : FS = "it.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  76.         MyModule1.進度條() : FS = "ja.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  77.         MyModule1.進度條() : FS = "kn.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  78.         MyModule1.進度條() : FS = "ko.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  79.         MyModule1.進度條() : FS = "lt.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  80.         MyModule1.進度條() : FS = "lv.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  81.         MyModule1.進度條() : FS = "ml.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  82.         MyModule1.進度條() : FS = "mr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  83.         MyModule1.進度條() : FS = "ms.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  84.         MyModule1.進度條() : FS = "nb.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  85.         MyModule1.進度條() : FS = "nl.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  86.         MyModule1.進度條() : FS = "pl.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  87.         MyModule1.進度條() : FS = "pt-BR.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  88.         MyModule1.進度條() : FS = "pt-PT.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  89.         MyModule1.進度條() : FS = "ro.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  90.         MyModule1.進度條() : FS = "ru.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  91.         MyModule1.進度條() : FS = "sk.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  92.         MyModule1.進度條() : FS = "sl.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  93.         MyModule1.進度條() : FS = "sr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  94.         MyModule1.進度條() : FS = "sv.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  95.         MyModule1.進度條() : FS = "sw.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  96.         MyModule1.進度條() : FS = "ta.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  97.         MyModule1.進度條() : FS = "te.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  98.         MyModule1.進度條() : FS = "th.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  99.         MyModule1.進度條() : FS = "tr.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  100.         MyModule1.進度條() : FS = "uk.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  101.         MyModule1.進度條() : FS = "ur.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  102.         MyModule1.進度條() : FS = "vi.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  103.         MyModule1.進度條() : FS = "zh-CN.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  104.         MyModule1.進度條() : FS = "zh-TW.pak" : If IO.File.Exists(Str & "\locales\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & "/locales/" & FS, Str & "\locales\" & FS) : End If

  105.         '---------------------------------使用Telerik插件------------------------------------------------------------------------

  106.         MyModule1.進度條() : FS = "Telerik.WinControls.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  107.         MyModule1.進度條() : FS = "Telerik.WinControls.PdfViewer.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  108.         MyModule1.進度條() : FS = "Telerik.WinControls.PdfViewer.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  109.         MyModule1.進度條() : FS = "Telerik.WinControls.UI.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  110.         MyModule1.進度條() : FS = "Telerik.WinControls.UI.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  111.         MyModule1.進度條() : FS = "Telerik.WinControls.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  112.         MyModule1.進度條() : FS = "Telerik.Windows.Documents.Core.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  113.         MyModule1.進度條() : FS = "Telerik.Windows.Documents.Core.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  114.         MyModule1.進度條() : FS = "Telerik.Windows.Documents.Fixed.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  115.         MyModule1.進度條() : FS = "Telerik.Windows.Documents.Fixed.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  116.         MyModule1.進度條() : FS = "Telerik.Windows.Zip.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  117.         MyModule1.進度條() : FS = "Telerik.Windows.Zip.xml" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  118.         MyModule1.進度條() : FS = "TelerikCommon.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If

  119.         '---------------------------------主程式下載------------------------------------------------------------------------

  120.         MyModule1.進度條() : If File.Exists(Str + "\HSKIN-MIS-SYS.exe") Then : File.Delete(Str + "\HSKIN-MIS-SYS.exe") : End If

  121.         MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "HSKIN-MIS-SYS.exe", Str + "\HSKIN-MIS-SYS.exe")

  122.         MyModule1.進度條() : Shell(Str + "\HSKIN-MIS-SYS.exe", vbNormalFocus)

  123.         Me.Close()

  124.     End Sub

  125.     Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒

  126.         Dim time As DateTime = DateTime.Now

  127.         Dim Span As Double = Interval * 1234

  128.         While ((DateTime.Now.Ticks - time.Ticks) < Span)

  129.             Application.DoEvents()

  130.         End While

  131.     End Sub

  132. 

  133. 

  134. End Class