Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
leaky114
inventoraddin
提交
cba70b54
I
inventoraddin
项目概览
leaky114
/
inventoraddin
上一次同步 11 个月
通知
6
Star
1
Fork
1
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
I
inventoraddin
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
cba70b54
编写于
4月 16, 2022
作者:
leaky114
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
1.22.4.16将更新程序嵌入主程序
上级
2db74547
变更
8
显示空白变更内容
内联
并排
Showing
8 changed file
with
63 addition
and
8 deletion
+63
-8
AssemblyInfo.vb
AssemblyInfo.vb
+2
-2
CHANGELOG
CHANGELOG
+0
-0
Form/frmAbout.vb
Form/frmAbout.vb
+7
-3
Module/NewUpdater.vb
Module/NewUpdater.vb
+40
-2
My Project/Resources.Designer.vb
My Project/Resources.Designer.vb
+10
-0
My Project/Resources.resx
My Project/Resources.resx
+4
-1
Resources/InAIUpdate.exe
Resources/InAIUpdate.exe
+0
-0
StandardAddInServer.vb
StandardAddInServer.vb
+0
-0
未找到文件。
AssemblyInfo.vb
浏览文件 @
cba70b54
...
...
@@ -28,5 +28,5 @@ Imports System.Runtime.InteropServices
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
<
Assembly
:
AssemblyVersion
(
"1.22.4.8"
)
>
<
Assembly
:
AssemblyFileVersionAttribute
(
"1.22.4.8"
)
>
\ No newline at end of file
<
Assembly
:
AssemblyVersion
(
"1.22.4.16"
)
>
<
Assembly
:
AssemblyFileVersionAttribute
(
"1.22.4.16"
)
>
\ No newline at end of file
CHANGELOG
浏览文件 @
cba70b54
B
更新日志
...
...
Form/frmAbout.vb
浏览文件 @
cba70b54
...
...
@@ -42,9 +42,13 @@ Public NotInheritable Class frmAbout
'NewUpdater.UpDater2(True)
IsShowUpdateMsg
=
True
Dim
frmupdate
As
New
frmUpdate
frmupdate
.
ShowDialog
()
'IsShowUpdateMsg = True
'Dim frmupdate As New frmUpdate
'frmupdate.ShowDialog()
If
NewUpdater
.
CreateInAIUpdate
()
=
True
Then
NewUpdater
.
Update3
()
End
If
End
Sub
Private
Sub
btnGit_Click
(
ByVal
sender
As
System
.
Object
,
ByVal
e
As
System
.
EventArgs
)
Handles
btnGit
.
Click
...
...
Module/NewUpdater.vb
浏览文件 @
cba70b54
...
...
@@ -4,7 +4,7 @@ Module NewUpdater
Const
InNewVisonTXT
As
String
=
"\\Likai-pc\发行版\2011\NewVersion.txt"
Const
GitWeb
As
String
=
"https://codechina.csdn.net/leaky114/inventoraddin"
Public
Sub
UpDate
r
1
()
Public
Sub
UpDate1
()
Try
' Updater.CheckUpdateSimple("\\likai-pc\发行版\更新包\{0}", "update.xml")
...
...
@@ -32,7 +32,7 @@ Module NewUpdater
End
Try
End
Sub
Public
Sub
UpDate
r
2
(
ByVal
IsPutOutMsg
As
Boolean
)
Public
Sub
UpDate2
(
ByVal
IsPutOutMsg
As
Boolean
)
Try
Dim
fileReader
As
System
.
IO
.
StreamReader
...
...
@@ -90,4 +90,42 @@ Module NewUpdater
Return
ShortVersion
End
Function
Public
Function
CreateInAIUpdate
()
As
Boolean
Dim
path
As
String
=
My
.
Application
.
Info
.
DirectoryPath
&
"\InAIUpdate.exe"
'文件释放路径
Dim
resources
As
System
.
Resources
.
ResourceManager
=
My
.
Resources
.
ResourceManager
Dim
b
()
As
Byte
=
resources
.
GetObject
(
"InAIUpdate"
)
Dim
s
As
IO
.
Stream
Try
s
=
IO
.
File
.
Create
(
path
)
s
.
Write
(
b
,
0
,
b
.
Length
)
s
.
Close
()
'MessageBox.Show("资源释放成功")
Return
True
Catch
ex
As
Exception
'MessageBox.Show("资源释放失败!Result=" + ex.Message)
End
Try
End
Function
Public
Sub
Update3
()
Try
Dim
path
As
String
=
My
.
Application
.
Info
.
DirectoryPath
&
"\InAIUpdate.exe"
'文件释放路径
Dim
DisplayVersion
As
String
DisplayVersion
=
ThisApplication
.
SoftwareVersion
.
DisplayVersion
Dim
MyVersion
As
String
=
_
My
.
Application
.
Info
.
Version
.
Major
&
"."
&
_
My
.
Application
.
Info
.
Version
.
Minor
&
"."
&
_
Format
(
My
.
Application
.
Info
.
Version
.
Build
,
"00"
)
&
"."
&
_
Format
(
My
.
Application
.
Info
.
Version
.
Revision
,
"00"
)
Dim
arguments
As
String
arguments
=
DisplayVersion
&
" "
&
MyVersion
Process
.
Start
(
path
,
arguments
)
Catch
ex
As
Exception
End
Try
End
Sub
End
Module
\ No newline at end of file
My Project/Resources.Designer.vb
浏览文件 @
cba70b54
...
...
@@ -60,6 +60,16 @@ Namespace My.Resources
End
Set
End
Property
'''<summary>
''' 查找 System.Byte[] 类型的本地化资源。
'''</summary>
Friend
ReadOnly
Property
InAIUpdate
()
As
Byte
()
Get
Dim
obj
As
Object
=
ResourceManager
.
GetObject
(
"InAIUpdate"
,
resourceCulture
)
Return
CType
(
obj
,
Byte
())
End
Get
End
Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
...
...
My Project/Resources.resx
浏览文件 @
cba70b54
...
...
@@ -117,6 +117,10 @@
<resheader
name=
"writer"
>
<value>
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
</value>
</resheader>
<assembly
alias=
"System.Windows.Forms"
name=
"System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
/>
<data
name=
"InAIUpdate"
type=
"System.Resources.ResXFileRef, System.Windows.Forms"
>
<value>
..\Resources\InAIUpdate.exe;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
</value>
</data>
<assembly
alias=
"System.Windows.Forms"
name=
"System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
/>
<data
name=
"inventor"
type=
"System.Resources.ResXFileRef, System.Windows.Forms"
>
<value>
..\Resources\inventor.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
</value>
...
...
@@ -238,7 +242,6 @@
<data
name=
"微信"
type=
"System.Resources.ResXFileRef, System.Windows.Forms"
>
<value>
..\Resources\微信.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
</value>
</data>
<assembly
alias=
"System.Windows.Forms"
name=
"System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
/>
<data
name=
"快速打开161624"
type=
"System.Resources.ResXFileRef, System.Windows.Forms"
>
<value>
..\Resources\快速打开161624 .ICO;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
</value>
</data>
...
...
Resources/InAIUpdate.exe
0 → 100644
浏览文件 @
cba70b54
文件已添加
StandardAddInServer.vb
浏览文件 @
cba70b54
B
'设置为一个动作,可一次撤销
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录