|
|
@@ -1,12 +1,13 @@
|
|
1
|
1
|
Imports System.IO
|
|
2
|
2
|
Imports System.Net
|
|
|
3
|
+Imports System.Text
|
|
3
|
4
|
Imports System.Net.NetworkInformation
|
|
4
|
5
|
Public Class HX_PGS_UPDATE
|
|
5
|
6
|
ReadOnly ds2 As New DataSet
|
|
6
|
7
|
ReadOnly computerProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
|
|
7
|
8
|
ReadOnly IPEndPoint() As EndPoint = computerProperties.GetActiveTcpListeners()
|
|
8
|
9
|
Dim myIPEndPoint As IPEndPoint
|
|
9
|
|
- Dim 內網線路 As Boolean : Dim 開發線路, OK1, OK2, OK3, OK4, OK5, OK6, OK7, OK8, OK9, OK10 As Boolean
|
|
|
10
|
+ Dim 內網線路, 開發線路, 刪除完成, OK1, OK2, OK3, OK4, OK5, OK6, OK7, OK8, OK9, OK10 As Boolean
|
|
10
|
11
|
Dim Str As String = Application.StartupPath
|
|
11
|
12
|
Private Sub Set_清單1()
|
|
12
|
13
|
ftp清單_dgv.DataSource = Nothing : ds2.Clear()
|
|
|
@@ -22,7 +23,7 @@ Public Class HX_PGS_UPDATE
|
|
22
|
23
|
End Sub
|
|
23
|
24
|
Private Sub 伺服器區域_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_cb.SelectedIndexChanged
|
|
24
|
25
|
'-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
|
|
25
|
|
- If SQL_連線狀態模組2.ConnectTest1("192.168.0.201,2433") = True Then
|
|
|
26
|
+ If SQL_連線狀態模組2.ConnectTest2("192.168.0.201,2433") = True Then
|
|
26
|
27
|
登入人IP = "192.168.0.201,2433"
|
|
27
|
28
|
Else
|
|
28
|
29
|
If SQL_連線狀態模組1.ConnectTest1("103.231.201.230,2433") = True Then
|
|
|
@@ -40,6 +41,22 @@ Public Class HX_PGS_UPDATE
|
|
40
|
41
|
ElseIf 登入人IP = "103.144.143.182,2433" Then : Target = "ftp://103.144.143.182:2121/"
|
|
41
|
42
|
End If : FTP帳號 = "" : FTP密碼 = "" : FTP物理位置 = "C:\FTP\HXPGS\"
|
|
42
|
43
|
|
|
|
44
|
+ '----------判斷是否有更新指定檔案-------------------------------------------------------------------------------------
|
|
|
45
|
+ Dim strDirName As String : Dim Strs As String = Application.StartupPath
|
|
|
46
|
+ If File.Exists(Strs & "\HXUPDATE.txt") Then : Else
|
|
|
47
|
+ strDirName = Strs & "\HXUPDATE.txt"
|
|
|
48
|
+ Try
|
|
|
49
|
+ Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
|
|
|
50
|
+ Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
|
|
|
51
|
+ Dim strk As String = "3"
|
|
|
52
|
+ sw.WriteLine(strk) '插入一整行
|
|
|
53
|
+ sw.Flush()
|
|
|
54
|
+ End Using
|
|
|
55
|
+ End Using
|
|
|
56
|
+ Catch ex As Exception
|
|
|
57
|
+ End Try
|
|
|
58
|
+ End If
|
|
|
59
|
+
|
|
43
|
60
|
Set_清單1()
|
|
44
|
61
|
Dim HH As String = ""
|
|
45
|
62
|
For i As Integer = 0 To ftp清單_dgv.Rows.Count - 1
|
|
|
@@ -48,17 +65,59 @@ Public Class HX_PGS_UPDATE
|
|
48
|
65
|
Next
|
|
49
|
66
|
Target1 = Target & AA(0) & "/"
|
|
50
|
67
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30)
|
|
|
68
|
+
|
|
|
69
|
+ '----------讀取更新指定檔案-------------------------------------------------------------------------------------
|
|
|
70
|
+ Dim Str As String = Application.StartupPath
|
|
|
71
|
+ If File.Exists(Str + "\HXUPDATE.txt") Then
|
|
|
72
|
+ Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\HXUPDATE.txt", System.Text.Encoding.Default)
|
|
|
73
|
+ Dim Text As String = "" : Dim line As String = filereader.ReadLine()
|
|
|
74
|
+ While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
|
|
|
75
|
+ If Strings.Left(Text, 1) = "1" Then
|
|
|
76
|
+ 小更新_ch.Checked = True : 中更新_ch.Checked = False : 大更新_ch.Checked = False
|
|
|
77
|
+ ElseIf Strings.Left(Text, 1) = "2" Then
|
|
|
78
|
+ 小更新_ch.Checked = False : 中更新_ch.Checked = True : 大更新_ch.Checked = False
|
|
|
79
|
+ ElseIf Strings.Left(Text, 1) = "3" Then
|
|
|
80
|
+ 小更新_ch.Checked = False : 中更新_ch.Checked = False : 大更新_ch.Checked = True
|
|
|
81
|
+ End If
|
|
|
82
|
+ End If
|
|
51
|
83
|
End Sub
|
|
52
|
84
|
Private Sub HX_PGS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
|
|
53
|
|
- '--- 刪除在下載---------------------------------------------------------------------------------------------------------------------------
|
|
54
|
|
- Timer1.Enabled = True : Timer2.Enabled = True
|
|
55
|
|
- '--- 比對下載---------------------------------------------------------------------------------------------------------------------------
|
|
56
|
|
- Timer3.Enabled = True : Timer4.Enabled = True : Timer5.Enabled = True : Timer6.Enabled = True : Timer7.Enabled = True
|
|
57
|
|
- Timer8.Enabled = True : Timer9.Enabled = True : Timer10.Enabled = True
|
|
58
|
|
-
|
|
|
85
|
+ If 小更新_ch.Checked = True Then
|
|
|
86
|
+ 刪除完成 = True : 小更新.Enabled = True
|
|
|
87
|
+ ElseIf 中更新_ch.Checked = True Then
|
|
|
88
|
+ 刪除完成 = True : 中更新.Enabled = True
|
|
|
89
|
+ ElseIf 大更新_ch.Checked = True Then
|
|
|
90
|
+ 刪除所有檔案.Enabled = True : 大更新.Enabled = True
|
|
|
91
|
+ End If
|
|
59
|
92
|
'--- 開啟專案---------------------------------------------------------------------------------------------------------------------------
|
|
60
|
93
|
OK.Enabled = True
|
|
61
|
94
|
End Sub
|
|
|
95
|
+ Private Sub 小更新_Tick(sender As Object, e As EventArgs) Handles 小更新.Tick
|
|
|
96
|
+ If 刪除完成 = True Then
|
|
|
97
|
+ 小更新.Enabled = False
|
|
|
98
|
+ 主程式更新.Enabled = True : OK2 = True : OK3 = True : OK4 = True : OK5 = True : OK6 = True : OK7 = True : OK8 = True : OK9 = True : OK10 = True
|
|
|
99
|
+ End If
|
|
|
100
|
+ End Sub
|
|
|
101
|
+ Private Sub 中更新_Tick(sender As Object, e As EventArgs) Handles 中更新.Tick
|
|
|
102
|
+ If 刪除完成 = True Then
|
|
|
103
|
+ 中更新.Enabled = False
|
|
|
104
|
+ '--- 刪除在下載---------------------------------------------------------------------------------------------------------------------------
|
|
|
105
|
+ 主程式更新.Enabled = True : 刪除在下載.Enabled = True
|
|
|
106
|
+ '--- 比對下載---------------------------------------------------------------------------------------------------------------------------
|
|
|
107
|
+ 驗證存在1.Enabled = True : 驗證存在2.Enabled = True : 驗證存在3.Enabled = True : 驗證存在4.Enabled = True : 驗證存在5.Enabled = True
|
|
|
108
|
+ 驗證存在6.Enabled = True : 驗證存在7.Enabled = True : OK10 = True
|
|
|
109
|
+ End If
|
|
|
110
|
+ End Sub
|
|
|
111
|
+ Private Sub 大更新_Tick(sender As Object, e As EventArgs) Handles 大更新.Tick
|
|
|
112
|
+ If 刪除完成 = True Then
|
|
|
113
|
+ 大更新.Enabled = False
|
|
|
114
|
+ '--- 刪除在下載---------------------------------------------------------------------------------------------------------------------------
|
|
|
115
|
+ 主程式更新.Enabled = True : 刪除在下載.Enabled = True
|
|
|
116
|
+ '--- 比對下載---------------------------------------------------------------------------------------------------------------------------
|
|
|
117
|
+ 驗證存在1.Enabled = True : 驗證存在2.Enabled = True : 驗證存在3.Enabled = True : 驗證存在4.Enabled = True : 驗證存在5.Enabled = True
|
|
|
118
|
+ 驗證存在6.Enabled = True : 驗證存在7.Enabled = True
|
|
|
119
|
+ End If
|
|
|
120
|
+ End Sub
|
|
62
|
121
|
Public Sub Delay(ByRef Interval As Double) 'Interval单位为毫秒
|
|
63
|
122
|
Dim time As DateTime = DateTime.Now
|
|
64
|
123
|
Dim Span As Double = Interval * 1234
|
|
|
@@ -68,10 +127,12 @@ Public Class HX_PGS_UPDATE
|
|
68
|
127
|
End Sub
|
|
69
|
128
|
Private Sub OK_Tick(sender As Object, e As EventArgs) Handles OK.Tick
|
|
70
|
129
|
If OK1 = True And OK2 = True And OK3 = True And OK4 = True And OK5 = True And OK6 = True And OK7 = True And OK8 = True And OK9 = True And OK10 = True Then
|
|
71
|
|
- OK.Enabled = False : CheckBox11.Checked = True : Shell(Str + "\HX-PGS-ERP-SYS.exe", vbNormalFocus) : Me.Close()
|
|
|
130
|
+ OK.Enabled = False : CheckBox11.Checked = True
|
|
|
131
|
+ If File.Exists(Str + "\HXUPDATE.txt") Then : File.Delete(Str + "\HXUPDATE.txt") : End If
|
|
|
132
|
+ Shell(Str + "\HX-PGS-ERP-SYS.exe", vbNormalFocus) : Me.Close()
|
|
72
|
133
|
End If
|
|
73
|
134
|
End Sub
|
|
74
|
|
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
|
135
|
+ Private Sub 主程式更新_Tick(sender As Object, e As EventArgs) Handles 主程式更新.Tick
|
|
75
|
136
|
Dim 已開啟 As Boolean = False
|
|
76
|
137
|
Dim Strs As String = Application.StartupPath
|
|
77
|
138
|
If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\HX-PGS-ERP-SYS.exe") Then
|
|
|
@@ -83,7 +144,7 @@ Public Class HX_PGS_UPDATE
|
|
83
|
144
|
End If
|
|
84
|
145
|
Next
|
|
85
|
146
|
If 已開啟 = False Then
|
|
86
|
|
- Timer1.Enabled = False
|
|
|
147
|
+ 主程式更新.Enabled = False
|
|
87
|
148
|
MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.exe") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.exe") : End If
|
|
88
|
149
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.exe", Str + "\HX-PGS-ERP-SYS.exe")
|
|
89
|
150
|
OK1 = True : CheckBox1.Checked = True
|
|
|
@@ -97,25 +158,31 @@ Public Class HX_PGS_UPDATE
|
|
97
|
158
|
End If
|
|
98
|
159
|
Next
|
|
99
|
160
|
If 已開啟 = False Then
|
|
100
|
|
- Timer1.Enabled = False
|
|
|
161
|
+ 主程式更新.Enabled = False
|
|
101
|
162
|
MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.exe") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.exe") : End If
|
|
102
|
163
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.exe", Str + "\HX-PGS-ERP-SYS.exe")
|
|
103
|
164
|
OK1 = True : CheckBox1.Checked = True
|
|
104
|
165
|
End If
|
|
105
|
166
|
End If
|
|
106
|
167
|
End Sub
|
|
107
|
|
- Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
108
|
|
- Timer2.Enabled = False
|
|
|
168
|
+ Private Sub 刪除在下載_Tick(sender As Object, e As EventArgs) Handles 刪除在下載.Tick
|
|
|
169
|
+ 刪除在下載.Enabled = False
|
|
109
|
170
|
MyModule1.進度條() : If File.Exists(Str + "\HX01.docx") Then : File.Delete(Str + "\HX01.docx") : End If
|
|
110
|
171
|
MyModule1.進度條() : If File.Exists(Str + "\PGS01.docx") Then : File.Delete(Str + "\PGS01.docx") : End If
|
|
111
|
172
|
MyModule1.進度條() : If File.Exists(Str + "\LIN HSING HAO.txt") Then : File.Delete(Str + "\LIN HSING HAO.txt") : End If
|
|
|
173
|
+ MyModule1.進度條() : If File.Exists(Str + "\Interop.SHDocVw.dll") Then : File.Delete(Str + "\Interop.SHDocVw.dll") : End If
|
|
|
174
|
+ MyModule1.進度條() : If File.Exists(Str + "\AxInterop.SHDocVw.dll") Then : File.Delete(Str + "\AxInterop.SHDocVw.dll") : End If
|
|
|
175
|
+ MyModule1.進度條() : If File.Exists(Str + "\AxInterop.MSHTML.dll") Then : File.Delete(Str + "\\AxInterop.MSHTML.dll") : End If
|
|
|
176
|
+ My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "AxInterop.MSHTML.dll", Str + "\AxInterop.MSHTML.dll") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "AxInterop.MSHTML"
|
|
|
177
|
+ My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "AxInterop.SHDocVw.dll", Str + "\AxInterop.SHDocVw.dll") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "AxInterop.SHDocVw"
|
|
|
178
|
+ My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Interop.SHDocVw.dll", Str + "\Interop.SHDocVw.dll") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Interop.SHDocVw"
|
|
112
|
179
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX01.docx", Str + "\HX01.docx") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "HX01"
|
|
113
|
180
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "PGS01.docx", Str + "\PGS01.docx") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "PGS01"
|
|
114
|
181
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "LIN HSING HAO.txt", Str + "\LIN HSING HAO.txt") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "LIN HSING HAO"
|
|
115
|
182
|
OK2 = True : CheckBox2.Checked = True
|
|
116
|
183
|
End Sub
|
|
117
|
|
- Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
|
118
|
|
- Timer3.Enabled = False
|
|
|
184
|
+ Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles 驗證存在1.Tick
|
|
|
185
|
+ 驗證存在1.Enabled = False
|
|
119
|
186
|
MyModule1.進度條() : If Dir(Str + "\Theme", vbDirectory) <> "" Then : Else : MkDir(Str + "\Theme") : End If
|
|
120
|
187
|
MyModule1.進度條() : If File.Exists(Str + "\Theme\excel_chinese.xml") Then : Else
|
|
121
|
188
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "excel_chinese.xml", Str + "\Theme\excel_chinese.xml")
|
|
|
@@ -134,8 +201,8 @@ Public Class HX_PGS_UPDATE
|
|
134
|
201
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "word_english" : End If
|
|
135
|
202
|
OK3 = True : CheckBox3.Checked = True
|
|
136
|
203
|
End Sub
|
|
137
|
|
- Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
|
|
138
|
|
- Timer4.Enabled = False
|
|
|
204
|
+ Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles 驗證存在2.Tick
|
|
|
205
|
+ 驗證存在2.Enabled = False
|
|
139
|
206
|
MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-Message.exe") Then : Else
|
|
140
|
207
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-Message.exe", Str + "\HX-PGS-Message.exe")
|
|
141
|
208
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "HX-PGS-Message" : End If
|
|
|
@@ -148,15 +215,6 @@ Public Class HX_PGS_UPDATE
|
|
148
|
215
|
MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.xml") Then : Else
|
|
149
|
216
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.xml", Str + "\HX-PGS-ERP-SYS.xml")
|
|
150
|
217
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "HX-PGS-ERP-SYS" : End If
|
|
151
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Interop.SHDocVw.dll") Then : Else
|
|
152
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Interop.SHDocVw.dll", Str + "\Interop.SHDocVw.dll")
|
|
153
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Interop.SHDocVw" : End If
|
|
154
|
|
- MyModule1.進度條() : If File.Exists(Str + "\AxInterop.MSHTML.dll") Then : Else
|
|
155
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "AxInterop.MSHTML.dll", Str + "\AxInterop.MSHTML.dll")
|
|
156
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "AxInterop.MSHTML" : End If
|
|
157
|
|
- MyModule1.進度條() : If File.Exists(Str + "\AxInterop.SHDocVw.dll") Then : Else
|
|
158
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "AxInterop.SHDocVw.dll", Str + "\AxInterop.SHDocVw.dll")
|
|
159
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "AxInterop.SHDocVw" : End If
|
|
160
|
218
|
MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.exe.config") Then : Else
|
|
161
|
219
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.exe.config", Str + "\HX-PGS-ERP-SYS.exe.config")
|
|
162
|
220
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "HX-PGS-ERP-SYS.exe.config" : End If
|
|
|
@@ -171,8 +229,8 @@ Public Class HX_PGS_UPDATE
|
|
171
|
229
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "ch" : End If
|
|
172
|
230
|
OK4 = True : CheckBox4.Checked = True
|
|
173
|
231
|
End Sub
|
|
174
|
|
- Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
|
|
175
|
|
- Timer5.Enabled = False
|
|
|
232
|
+ Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles 驗證存在3.Tick
|
|
|
233
|
+ 驗證存在3.Enabled = False
|
|
176
|
234
|
MyModule1.進度條() : If File.Exists(Str + "\DotNetBarcode.dll") Then : Else
|
|
177
|
235
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "DotNetBarcode.dll", Str + "\DotNetBarcode.dll")
|
|
178
|
236
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "DotNetBarcode" : End If
|
|
|
@@ -211,8 +269,8 @@ Public Class HX_PGS_UPDATE
|
|
211
|
269
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Buffers" : End If
|
|
212
|
270
|
OK5 = True : CheckBox5.Checked = True
|
|
213
|
271
|
End Sub
|
|
214
|
|
- Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
|
|
215
|
|
- Timer6.Enabled = False
|
|
|
272
|
+ Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles 驗證存在4.Tick
|
|
|
273
|
+ 驗證存在4.Enabled = False
|
|
216
|
274
|
MyModule1.進度條() : If File.Exists(Str + "\System.Buffers.xml") Then : Else
|
|
217
|
275
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Buffers.xml", Str + "\System.Buffers.xml")
|
|
218
|
276
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Buffers" : End If
|
|
|
@@ -240,46 +298,16 @@ Public Class HX_PGS_UPDATE
|
|
240
|
298
|
MyModule1.進度條() : If File.Exists(Str + "\System.Text.Encodings.Web.xml") Then : Else
|
|
241
|
299
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Text.Encodings.Web.xml", Str + "\System.Text.Encodings.Web.xml")
|
|
242
|
300
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Text.Encodings.Web" : End If
|
|
243
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadToastNotification.dll") Then : Else
|
|
244
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.RadToastNotification.dll", Str + "\Telerik.WinControls.RadToastNotification.dll")
|
|
245
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.RadToastNotification" : End If
|
|
246
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadToastNotification.xml") Then : Else
|
|
247
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.RadToastNotification.xml", Str + "\Telerik.WinControls.RadToastNotification.xml")
|
|
248
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.RadToastNotification" : End If
|
|
249
|
301
|
MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.SyntaxEditor.dll") Then : Else
|
|
250
|
302
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.SyntaxEditor.dll", Str + "\Telerik.WinControls.SyntaxEditor.dll")
|
|
251
|
303
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.SyntaxEditor" : End If
|
|
252
|
304
|
OK6 = True : CheckBox6.Checked = True
|
|
253
|
305
|
End Sub
|
|
254
|
|
- Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
|
|
255
|
|
- Timer7.Enabled = False
|
|
|
306
|
+ Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles 驗證存在5.Tick
|
|
|
307
|
+ 驗證存在5.Enabled = False
|
|
256
|
308
|
MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.SyntaxEditor.xml") Then : Else
|
|
257
|
309
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.SyntaxEditor.xml", Str + "\Telerik.WinControls.SyntaxEditor.xml")
|
|
258
|
310
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.SyntaxEditor" : End If
|
|
259
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadWebCam.dll") Then : Else
|
|
260
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.RadWebCam.dll", Str + "\Telerik.WinControls.RadWebCam.dll")
|
|
261
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.RadWebCam" : End If
|
|
262
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadWebCam.xml") Then : Else
|
|
263
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.RadWebCam.xml", Str + "\Telerik.WinControls.RadWebCam.xml")
|
|
264
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.SyntaxEditor" : End If
|
|
265
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.GridView.dll") Then : Else
|
|
266
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.GridView.dll", Str + "\Telerik.WinControls.GridView.dll")
|
|
267
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.GridView" : End If
|
|
268
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadMap.dll") Then : Else
|
|
269
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.RadMap.dll", Str + "\Telerik.WinControls.RadMap.dll")
|
|
270
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.RadMap" : End If
|
|
271
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadMap.xml") Then : Else
|
|
272
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.RadMap.xml", Str + "\Telerik.WinControls.RadMap.xml")
|
|
273
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.RadMap" : End If
|
|
274
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.GridView.xml") Then : Else
|
|
275
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.GridView.xml", Str + "\Telerik.WinControls.GridView.xml")
|
|
276
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.GridView" : End If
|
|
277
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.ChartView.dll") Then : Else
|
|
278
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.ChartView.dll", Str + "\Telerik.WinControls.ChartView.dll")
|
|
279
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.ChartView" : End If
|
|
280
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.ChartView.xml") Then : Else
|
|
281
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.ChartView.xml", Str + "\Telerik.WinControls.ChartView.xml")
|
|
282
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.ChartView" : End If
|
|
283
|
311
|
MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.UI.dll") Then : Else
|
|
284
|
312
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.UI.dll", Str + "\Telerik.WinControls.UI.dll")
|
|
285
|
313
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.UI" : End If
|
|
|
@@ -289,25 +317,28 @@ Public Class HX_PGS_UPDATE
|
|
289
|
317
|
MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.dll") Then : Else
|
|
290
|
318
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.dll", Str + "\Telerik.WinControls.dll")
|
|
291
|
319
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls" : End If
|
|
|
320
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.dll") Then : Else
|
|
|
321
|
+ My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Documents.Fixed.dll", Str + "\Telerik.Windows.Documents.Fixed.dll")
|
|
|
322
|
+ Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Documents.Fixed" : End If
|
|
|
323
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.xml") Then : Else
|
|
|
324
|
+ My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Documents.Fixed.xml", Str + "\Telerik.Windows.Documents.Fixed.xml")
|
|
|
325
|
+ Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Documents.Fixed" : End If
|
|
|
326
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.dll") Then : Else
|
|
|
327
|
+ My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Zip.dll", Str + "\Telerik.Windows.Zip.dll")
|
|
|
328
|
+ Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Zip" : End If
|
|
|
329
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.xml") Then : Else
|
|
|
330
|
+ My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Zip.xml", Str + "\Telerik.Windows.Zip.xml")
|
|
|
331
|
+ Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Zip" : End If
|
|
292
|
332
|
OK7 = True : CheckBox7.Checked = True
|
|
293
|
333
|
End Sub
|
|
294
|
|
- Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
|
|
295
|
|
- Timer8.Enabled = False
|
|
|
334
|
+ Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles 驗證存在6.Tick
|
|
|
335
|
+ 驗證存在6.Enabled = False
|
|
296
|
336
|
MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.xml") Then : Else
|
|
297
|
337
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.xml", Str + "\Telerik.WinControls.xml")
|
|
298
|
338
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls" : End If
|
|
299
|
339
|
MyModule1.進度條() : If File.Exists(Str + "\TelerikCommon.dll") Then : Else
|
|
300
|
340
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TelerikCommon.dll", Str + "\TelerikCommon.dll")
|
|
301
|
341
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "TelerikCommon" : End If
|
|
302
|
|
- MyModule1.進度條() : If File.Exists(Str + "\MediaFoundation.dll") Then : Else
|
|
303
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "MediaFoundation.dll", Str + "\MediaFoundation.dll")
|
|
304
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "MediaFoundation" : End If
|
|
305
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.MediaFoundation.dll") Then : Else
|
|
306
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.MediaFoundation.dll", Str + "\Telerik.Windows.MediaFoundation.dll")
|
|
307
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.MediaFoundation" : End If
|
|
308
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Microsoft.Toolkit.Uwp.Notifications.dll") Then : Else
|
|
309
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Microsoft.Toolkit.Uwp.Notifications.dll", Str + "\Microsoft.Toolkit.Uwp.Notifications.dll")
|
|
310
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Microsoft.Toolkit.Uwp.Notifications" : End If
|
|
311
|
342
|
MyModule1.進度條() : If File.Exists(Str + "\SuperDataGrid.dll") Then : Else
|
|
312
|
343
|
My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SuperDataGrid.dll", Str + "\SuperDataGrid.dll")
|
|
313
|
344
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "SuperDataGrid" : End If
|
|
|
@@ -331,24 +362,69 @@ Public Class HX_PGS_UPDATE
|
|
331
|
362
|
Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Documents.Core" : End If
|
|
332
|
363
|
OK8 = True : CheckBox8.Checked = True
|
|
333
|
364
|
End Sub
|
|
334
|
|
- Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
|
|
335
|
|
- Timer9.Enabled = False
|
|
336
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.dll") Then : Else
|
|
337
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Documents.Fixed.dll", Str + "\Telerik.Windows.Documents.Fixed.dll")
|
|
338
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Documents.Fixed" : End If
|
|
339
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.xml") Then : Else
|
|
340
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Documents.Fixed.xml", Str + "\Telerik.Windows.Documents.Fixed.xml")
|
|
341
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Documents.Fixed" : End If
|
|
342
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.dll") Then : Else
|
|
343
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Zip.dll", Str + "\Telerik.Windows.Zip.dll")
|
|
344
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Zip" : End If
|
|
345
|
|
- MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.xml") Then : Else
|
|
346
|
|
- My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Zip.xml", Str + "\Telerik.Windows.Zip.xml")
|
|
347
|
|
- Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Zip" : End If
|
|
|
365
|
+ Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles 驗證存在7.Tick
|
|
|
366
|
+ 驗證存在7.Enabled = False
|
|
348
|
367
|
OK9 = True : CheckBox9.Checked = True
|
|
349
|
368
|
End Sub
|
|
350
|
|
- Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
|
|
351
|
|
- Timer10.Enabled = False
|
|
352
|
|
- OK10 = True : CheckBox10.Checked = True
|
|
|
369
|
+ Private Sub 刪除所有檔案_Tick(sender As Object, e As EventArgs) Handles 刪除所有檔案.Tick
|
|
|
370
|
+ 刪除所有檔案.Enabled = False
|
|
|
371
|
+ MyModule1.進度條() : If File.Exists(Str + "\Theme\excel_chinese.xml") Then : File.Delete(Str + "\Theme\excel_chinese.xml") : End If
|
|
|
372
|
+ MyModule1.進度條() : If File.Exists(Str + "\Theme\excel_english.xml") Then : File.Delete(Str + "\Theme\excel_english.xml") : End If
|
|
|
373
|
+ MyModule1.進度條() : If File.Exists(Str + "\Theme\TelerikMetro_Chinese.tssp") Then : File.Delete(Str + "\Theme\TelerikMetro_Chinese.tssp") : End If
|
|
|
374
|
+ MyModule1.進度條() : If File.Exists(Str + "\Theme\word_chinese.xml") Then : File.Delete(Str + "\Theme\word_chinese.xml") : End If
|
|
|
375
|
+ MyModule1.進度條() : If File.Exists(Str + "\Theme\word_english.xml") Then : File.Delete(Str + "\Theme\word_english.xml") : End If
|
|
|
376
|
+ MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.pdb") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.pdb") : End If
|
|
|
377
|
+ MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.xml") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.xml") : End If
|
|
|
378
|
+ MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.exe.config") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.exe.config") : End If
|
|
|
379
|
+ MyModule1.進度條() : If File.Exists(Str + "\DotNetBarcode.dll") Then : File.Delete(Str + "\DotNetBarcode.dll") : End If
|
|
|
380
|
+ MyModule1.進度條() : If File.Exists(Str + "\IdentityModel.dll") Then : File.Delete(Str + "\IdentityModel.dll") : End If
|
|
|
381
|
+ MyModule1.進度條() : If File.Exists(Str + "\IdentityModel.pdb") Then : File.Delete(Str + "\IdentityModel.pdb") : End If
|
|
|
382
|
+ MyModule1.進度條() : If File.Exists(Str + "\IdentityModel.xml") Then : File.Delete(Str + "\IdentityModel.xml") : End If
|
|
|
383
|
+ MyModule1.進度條() : If File.Exists(Str + "\Newtonsoft.Json.dll") Then : File.Delete(Str + "\Newtonsoft.Json.dll") : End If
|
|
|
384
|
+ MyModule1.進度條() : If File.Exists(Str + "\Newtonsoft.Json.xml") Then : File.Delete(Str + "\Newtonsoft.Json.xml") : End If
|
|
|
385
|
+ MyModule1.進度條() : If File.Exists(Str + "\PInvoke.Windows.Core.dll") Then : File.Delete(Str + "\PInvoke.Windows.Core.dll") : End If
|
|
|
386
|
+ MyModule1.進度條() : If File.Exists(Str + "\PInvoke.Windows.Core.xml") Then : File.Delete(Str + "\PInvoke.Windows.Core.xml") : End If
|
|
|
387
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Buffers.dll") Then : File.Delete(Str + "\System.Buffers.dll") : End If
|
|
|
388
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Buffers.xml") Then : File.Delete(Str + "\System.Buffers.xml") : End If
|
|
|
389
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Memory.dll") Then : File.Delete(Str + "\System.Memory.dll") : End If
|
|
|
390
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Memory.xml") Then : File.Delete(Str + "\System.Memory.xml") : End If
|
|
|
391
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Numerics.Vectors.dll") Then : File.Delete(Str + "\System.Numerics.Vectors.dll") : End If
|
|
|
392
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Numerics.Vectors.xml") Then : File.Delete(Str + "\System.Numerics.Vectors.xml") : End If
|
|
|
393
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Runtime.CompilerServices.Unsafe.dll") Then : File.Delete(Str + "\System.Runtime.CompilerServices.Unsafe.dll") : End If
|
|
|
394
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Runtime.CompilerServices.Unsafe.xml") Then : File.Delete(Str + "\System.Runtime.CompilerServices.Unsafe.xml") : End If
|
|
|
395
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Text.Encodings.Web.dll") Then : File.Delete(Str + "\System.Text.Encodings.Web.dll") : End If
|
|
|
396
|
+ MyModule1.進度條() : If File.Exists(Str + "\System.Text.Encodings.Web.xml") Then : File.Delete(Str + "\System.Text.Encodings.Web.xml") : End If
|
|
|
397
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.SyntaxEditor.dll") Then : File.Delete(Str + "\Telerik.WinControls.SyntaxEditor.dll") : End If
|
|
|
398
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.SyntaxEditor.xml") Then : File.Delete(Str + "\Telerik.WinControls.SyntaxEditor.xml") : End If
|
|
|
399
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.UI.dll") Then : File.Delete(Str + "\Telerik.WinControls.UI.dll") : End If
|
|
|
400
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.UI.xml") Then : File.Delete(Str + "\Telerik.WinControls.UI.xml") : End If
|
|
|
401
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.dll") Then : File.Delete(Str + "\Telerik.WinControls.dll") : End If
|
|
|
402
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.dll") Then : File.Delete(Str + "\Telerik.Windows.Documents.Fixed.dll") : End If
|
|
|
403
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.xml") Then : File.Delete(Str + "\Telerik.Windows.Documents.Fixed.xml") : End If
|
|
|
404
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.dll") Then : File.Delete(Str + "\Telerik.Windows.Zip.dll") : End If
|
|
|
405
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.xml") Then : File.Delete(Str + "\Telerik.Windows.Zip.xml") : End If
|
|
|
406
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.xml") Then : File.Delete(Str + "\Telerik.WinControls.xml") : End If
|
|
|
407
|
+ MyModule1.進度條() : If File.Exists(Str + "\TelerikCommon.dll") Then : File.Delete(Str + "\TelerikCommon.dll") : End If
|
|
|
408
|
+ MyModule1.進度條() : If File.Exists(Str + "\SuperDataGrid.dll") Then : File.Delete(Str + "\SuperDataGrid.dll") : End If
|
|
|
409
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.PdfViewer.dll") Then : File.Delete(Str + "\Telerik.WinControls.PdfViewer.dll") : End If
|
|
|
410
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.PdfViewer.xml") Then : File.Delete(Str + "\Telerik.WinControls.PdfViewer.xml") : End If
|
|
|
411
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RichTextEditor.dll") Then : File.Delete(Str + "\Telerik.WinControls.RichTextEditor.dll") : End If
|
|
|
412
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RichTextEditor.xml") Then : File.Delete(Str + "\Telerik.WinControls.RichTextEditor.xml") : End If
|
|
|
413
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Core.dll") Then : File.Delete(Str + "\Telerik.Windows.Documents.Core.dll") : End If
|
|
|
414
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Core.xml") Then : File.Delete(Str + "\Telerik.Windows.Documents.Core.xml") : End If
|
|
|
415
|
+ MyModule1.進度條() : If File.Exists(Str + "\MediaFoundation.dll") Then : File.Delete(Str + "\MediaFoundation.dll") : End If
|
|
|
416
|
+ MyModule1.進度條() : If File.Exists(Str + "\Microsoft.Toolkit.Uwp.Notifications.dll") Then : File.Delete(Str + "\Microsoft.Toolkit.Uwp.Notifications.dll") : End If
|
|
|
417
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.ChartView.dll") Then : File.Delete(Str + "\Telerik.WinControls.ChartView.dll") : End If
|
|
|
418
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.ChartView.xml") Then : File.Delete(Str + "\Telerik.WinControls.ChartView.xml") : End If
|
|
|
419
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.GridView.dll") Then : File.Delete(Str + "\Telerik.WinControls.GridView.dll") : End If
|
|
|
420
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.GridView.xml") Then : File.Delete(Str + "\Telerik.WinControls.GridView.xml") : End If
|
|
|
421
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadMap.dll") Then : File.Delete(Str + "\Telerik.WinControls.RadMap.dll") : End If
|
|
|
422
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadMap.xml") Then : File.Delete(Str + "\Telerik.WinControls.RadMap.xml") : End If
|
|
|
423
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadToastNotification.dll") Then : File.Delete(Str + "\Telerik.WinControls.RadToastNotification.dll") : End If
|
|
|
424
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadToastNotification.xml") Then : File.Delete(Str + "\Telerik.WinControls.RadToastNotification.xml") : End If
|
|
|
425
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadWebCam.dll") Then : File.Delete(Str + "\Telerik.WinControls.RadWebCam.dll") : End If
|
|
|
426
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadWebCam.xml") Then : File.Delete(Str + "\Telerik.WinControls.RadWebCam.xml") : End If
|
|
|
427
|
+ MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.MediaFoundation.dll") Then : File.Delete(Str + "\Telerik.Windows.MediaFoundation.dll") : End If
|
|
|
428
|
+ OK10 = True : CheckBox10.Checked = True : 刪除完成 = True
|
|
353
|
429
|
End Sub
|
|
354
|
430
|
End Class
|
