Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
leaky114
inventoraddin
提交
dba4b88b
I
inventoraddin
项目概览
leaky114
/
inventoraddin
上一次同步 7 个月
通知
3
Star
0
Fork
0
代码
文件
提交
分支
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,体验更适合开发者的 AI 搜索 >>
提交
dba4b88b
编写于
4月 25, 2022
作者:
leaky114
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
1.22.4.25 更新升级程序
上级
cba70b54
变更
8
展开全部
隐藏空白更改
内联
并排
Showing
8 changed file
with
394 addition
and
370 deletion
+394
-370
CHANGELOG
CHANGELOG
+0
-0
Form/frmAbout.vb
Form/frmAbout.vb
+1
-1
Module/NewUpdater.vb
Module/NewUpdater.vb
+17
-6
My Project/Resources.Designer.vb
My Project/Resources.Designer.vb
+139
-129
My Project/Resources.resx
My Project/Resources.resx
+237
-234
Resources/InAIUpdate.exe
Resources/InAIUpdate.exe
+0
-0
Resources/simupdater.exe
Resources/simupdater.exe
+0
-0
StandardAddInServer.vb
StandardAddInServer.vb
+0
-0
未找到文件。
CHANGELOG
浏览文件 @
dba4b88b
B
更新日志
...
...
Form/frmAbout.vb
浏览文件 @
dba4b88b
...
...
@@ -46,7 +46,7 @@ Public NotInheritable Class frmAbout
'Dim frmupdate As New frmUpdate
'frmupdate.ShowDialog()
If
NewUpdater
.
Create
InAI
Update
()
=
True
Then
If
NewUpdater
.
CreateUpdate
()
=
True
Then
NewUpdater
.
Update3
()
End
If
End
Sub
...
...
Module/NewUpdater.vb
浏览文件 @
dba4b88b
...
...
@@ -90,15 +90,26 @@ 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
Public
Function
CreateUpdate
()
As
Boolean
Try
Dim
path
As
String
=
My
.
Application
.
Info
.
DirectoryPath
&
"\simupdater.exe"
'文件释放路径
Dim
resources
As
System
.
Resources
.
ResourceManager
=
My
.
Resources
.
ResourceManager
Dim
b
()
As
Byte
=
resources
.
GetObject
(
"simupdater"
)
Dim
s
As
IO
.
Stream
s
=
IO
.
File
.
Create
(
path
)
s
.
Write
(
b
,
0
,
b
.
Length
)
s
.
Close
()
path
=
My
.
Application
.
Info
.
DirectoryPath
&
"\SimpleUpdater.dll"
'文件释放路径
b
=
resources
.
GetObject
(
"SimpleUpdater"
)
s
=
IO
.
File
.
Create
(
path
)
s
.
Write
(
b
,
0
,
b
.
Length
)
s
.
Close
()
'MessageBox.Show("资源释放成功")
Return
True
Catch
ex
As
Exception
...
...
@@ -108,7 +119,7 @@ Module NewUpdater
Public
Sub
Update3
()
Try
Dim
path
As
String
=
My
.
Application
.
Info
.
DirectoryPath
&
"\
InAIUpdate.exe"
'文件释放路径
Dim
path
As
String
=
My
.
Application
.
Info
.
DirectoryPath
&
"\
simupdater.exe '文件释放路径"
Dim
DisplayVersion
As
String
DisplayVersion
=
ThisApplication
.
SoftwareVersion
.
DisplayVersion
...
...
My Project/Resources.Designer.vb
浏览文件 @
dba4b88b
此差异已折叠。
点击以展开。
My Project/Resources.resx
浏览文件 @
dba4b88b
此差异已折叠。
点击以展开。
Resources/InAIUpdate.exe
已删除
100644 → 0
浏览文件 @
cba70b54
文件已删除
Resources/simupdater.exe
0 → 100644
浏览文件 @
dba4b88b
文件已添加
StandardAddInServer.vb
浏览文件 @
dba4b88b
B
'设置为一个动作,可一次撤销
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录