网络
虚拟私有云 VPC
弹性公网IP EIP
弹性负载均衡 ELB
NAT网关 NAT
云专线 DC
虚拟专用网络 VPN
云连接 CC
VPC终端节点 VPCEP
企业路由器 ER
企业交换机 ESW
全球加速 GA
企业连接 EC
云原生应用网络 ANC
安全与合规
安全技术与应用
Web应用防火墙 WAF
企业主机安全 HSS
云防火墙 CFW
安全云脑 SecMaster
DDoS防护 AAD
数据加密服务 DEW
数据库安全服务 DBSS
云堡垒机 CBH
数据安全中心 DSC
云证书管理服务 CCM
威胁检测服务 MTD
态势感知 SA
认证测试中心 CTC
边缘安全 EdgeSec
应用中间件
微服务引擎 CSE
分布式消息服务Kafka版
分布式消息服务RabbitMQ版
分布式消息服务RocketMQ版
API网关 APIG
分布式缓存服务 DCS
多活高可用服务 MAS
事件网格 EG
管理与监管
统一身份认证服务 IAM
消息通知服务 SMN
云监控服务 CES
应用运维管理 AOM
应用性能管理 APM
云日志服务 LTS
云审计服务 CTS
标签管理服务 TMS
配置审计 Config
应用身份管理服务 OneAccess
资源访问管理 RAM
组织 Organizations
资源编排服务 RFS
优化顾问 OA
IAM 身份中心
云运维中心 COC
资源治理中心 RGC
解决方案
高性能计算 HPC
SAP
混合云灾备
开天工业工作台 MIW
Haydn解决方案工厂
数字化诊断治理专家服务
云生态
云商店
合作伙伴中心
华为云开发者学堂
华为云慧通差旅
开发与运维
软件开发生产线 CodeArts
需求管理 CodeArts Req
流水线 CodeArts Pipeline
代码检查 CodeArts Check
编译构建 CodeArts Build
部署 CodeArts Deploy
测试计划 CodeArts TestPlan
制品仓库 CodeArts Artifact
移动应用测试 MobileAPPTest
CodeArts IDE Online
开源镜像站 Mirrors
性能测试 CodeArts PerfTest
应用管理与运维平台 ServiceStage
云应用引擎 CAE
开源治理服务 CodeArts Governance
华为云Astro轻应用
CodeArts IDE
Astro工作流 AstroFlow
代码托管 CodeArts Repo
漏洞管理服务 CodeArts Inspector
联接 CodeArtsLink
软件建模 CodeArts Modeling
Astro企业应用 AstroPro
CodeArts盘古助手
华为云Astro大屏应用
计算
弹性云服务器 ECS
Flexus云服务
裸金属服务器 BMS
云手机服务器 CPH
专属主机 DeH
弹性伸缩 AS
镜像服务 IMS
函数工作流 FunctionGraph
云耀云服务器(旧版)
VR云渲游平台 CVR
Huawei Cloud EulerOS
云化数据中心 CloudDC
网络
虚拟私有云 VPC
弹性公网IP EIP
弹性负载均衡 ELB
NAT网关 NAT
云专线 DC
虚拟专用网络 VPN
云连接 CC
VPC终端节点 VPCEP
企业路由器 ER
企业交换机 ESW
全球加速 GA
企业连接 EC
云原生应用网络 ANC
CDN与智能边缘
内容分发网络 CDN
智能边缘云 IEC
智能边缘平台 IEF
CloudPond云服务
安全与合规
安全技术与应用
Web应用防火墙 WAF
企业主机安全 HSS
云防火墙 CFW
安全云脑 SecMaster
DDoS防护 AAD
数据加密服务 DEW
数据库安全服务 DBSS
云堡垒机 CBH
数据安全中心 DSC
云证书管理服务 CCM
威胁检测服务 MTD
态势感知 SA
认证测试中心 CTC
边缘安全 EdgeSec
大数据
MapReduce服务 MRS
数据湖探索 DLI
表格存储服务 CloudTable
可信智能计算服务 TICS
推荐系统 RES
云搜索服务 CSS
数据可视化 DLV
数据接入服务 DIS
数据仓库服务 GaussDB(DWS)
数据治理中心 DataArts Studio
湖仓构建 LakeFormation
智能数据洞察 DataArts Insight
应用中间件
微服务引擎 CSE
分布式消息服务Kafka版
分布式消息服务RabbitMQ版
分布式消息服务RocketMQ版
API网关 APIG
分布式缓存服务 DCS
多活高可用服务 MAS
事件网格 EG
开天aPaaS
应用平台 AppStage
开天企业工作台 MSSE
开天集成工作台 MSSI
API中心 API Hub
云消息服务 KooMessage
交换数据空间 EDS
云地图服务 KooMap
云手机服务 KooPhone
组织成员账号 OrgID
云空间服务 KooDrive
管理与监管
统一身份认证服务 IAM
消息通知服务 SMN
云监控服务 CES
应用运维管理 AOM
应用性能管理 APM
云日志服务 LTS
云审计服务 CTS
标签管理服务 TMS
配置审计 Config
应用身份管理服务 OneAccess
资源访问管理 RAM
组织 Organizations
资源编排服务 RFS
优化顾问 OA
IAM 身份中心
云运维中心 COC
资源治理中心 RGC
区块链
区块链服务 BCS
数字资产链 DAC
华为云区块链引擎服务 HBS
解决方案
高性能计算 HPC
SAP
混合云灾备
开天工业工作台 MIW
Haydn解决方案工厂
数字化诊断治理专家服务
价格
成本优化最佳实践
专属云商业逻辑
云生态
云商店
合作伙伴中心
华为云开发者学堂
华为云慧通差旅
其他
管理控制台
消息中心
产品价格详情
系统权限
客户关联华为云合作伙伴须知
公共问题
宽限期保留期
奖励推广计划
活动
云服务信任体系能力说明
开发与运维
软件开发生产线 CodeArts
需求管理 CodeArts Req
流水线 CodeArts Pipeline
代码检查 CodeArts Check
编译构建 CodeArts Build
部署 CodeArts Deploy
测试计划 CodeArts TestPlan
制品仓库 CodeArts Artifact
移动应用测试 MobileAPPTest
CodeArts IDE Online
开源镜像站 Mirrors
性能测试 CodeArts PerfTest
应用管理与运维平台 ServiceStage
云应用引擎 CAE
开源治理服务 CodeArts Governance
华为云Astro轻应用
CodeArts IDE
Astro工作流 AstroFlow
代码托管 CodeArts Repo
漏洞管理服务 CodeArts Inspector
联接 CodeArtsLink
软件建模 CodeArts Modeling
Astro企业应用 AstroPro
CodeArts盘古助手
华为云Astro大屏应用
存储
对象存储服务 OBS
云硬盘 EVS
云备份 CBR
高性能弹性文件服务 SFS Turbo
弹性文件服务 SFS
存储容灾服务 SDRS
云硬盘备份 VBS
云服务器备份 CSBS
数据快递服务 DES
云存储网关 CSG
专属分布式存储服务 DSS
数据工坊 DWR
地图数据 MapDS
键值存储服务 KVS
容器
云容器引擎 CCE
云容器实例 CCI
容器镜像服务 SWR
云原生服务中心 OSC
应用服务网格 ASM
华为云UCS
数据库
云数据库 RDS
数据复制服务 DRS
文档数据库服务 DDS
分布式数据库中间件 DDM
云数据库 GaussDB
云数据库 GeminiDB
数据管理服务 DAS
数据库和应用迁移 UGO
云数据库 TaurusDB
人工智能
AI开发平台ModelArts
华为HiLens
图引擎服务 GES
图像识别 Image
文字识别 OCR
自然语言处理 NLP
内容审核 Moderation
图像搜索 ImageSearch
医疗智能体 EIHealth
企业级AI应用开发专业套件 ModelArts Pro
人脸识别服务 FRS
对话机器人服务 CBS
语音交互服务 SIS
人证核身服务 IVS
视频智能分析服务 VIAS
城市智能体
自动驾驶云服务 Octopus
盘古大模型 PanguLargeModels
IoT物联网
设备接入 IoTDA
全球SIM联接 GSL
IoT数据分析 IoTA
路网数字化服务 DRIS
IoT边缘 IoTEdge
设备发放 IoTDP
企业应用
域名注册服务 Domains
云解析服务 DNS
企业门户 EWP
ICP备案
商标注册
华为云WeLink
华为云会议 Meeting
隐私保护通话 PrivateNumber
语音通话 VoiceCall
消息&短信 MSGSMS
云管理网络
SD-WAN 云服务
边缘数据中心管理 EDCM
云桌面 Workspace
应用与数据集成平台 ROMA Connect
ROMA资产中心 ROMA Exchange
API全生命周期管理 ROMA API
政企自服务管理 ESM
视频
实时音视频 SparkRTC
视频直播 Live
视频点播 VOD
媒体处理 MPC
视频接入服务 VIS
数字内容生产线 MetaStudio
迁移
主机迁移服务 SMS
对象存储迁移服务 OMS
云数据迁移 CDM
迁移中心 MGC
专属云
专属计算集群 DCC
开发者工具
SDK开发指南
API签名指南
DevStar
华为云命令行工具服务 KooCLI
Huawei Cloud Toolkit
CodeArts API
云化转型
云架构中心
云采用框架
用户服务
账号中心
费用中心
成本中心
资源中心
企业管理
工单管理
客户运营能力
国际站常见问题
支持计划
专业服务
合作伙伴支持计划
我的凭证
华为云公共事业服务云平台
工业软件
工业数字模型驱动引擎
硬件开发工具链平台云服务
工业数据转换引擎云服务

应用程序改造

更新时间:2024-12-25 GMT+08:00
分享

对应用程序进行静默安装和静默卸载改造。改造后,工业软件可通过ISCDesk实现一键下载、安装和卸载。

说明:

针对工业软件在ISCDesk中安装/卸载异常的场景,提出以下几点建议:

  • 建议工业软件的安装脚本支持覆盖安装,即在出现安装中断之后,可以继续安装或者全新安装。
  • 建议工业软件的卸载脚本支持继续卸载,即在出现任何卸载异常之后,可以继续卸载。
  • 建议将安装/卸载异常原因补充到进度文件。
  • 不建议采取先清空进度文件再写进度文件的机制,避免ISCDesk读取不到进度。

静默安装改造

  1. 本地新建“InstallApp.vbs”文件,并复制以下代码至新建文件中,用于调用安装程序的静默安装命令。

    ' 获取命令行参数 
    Set objArgs = WScript.Arguments 
     
    ' 获取文件夹路径 
    folderPath = objArgs(0) 
    ' 移除路径末尾的斜杠 
    If Right(folderPath, 1) = "\" Then 
       folderPath = Left(folderPath, Len(folderPath) - 1) 
    End If 
    ' 构建命令 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    ' 获取当前脚本所在目录的路径 
    scriptFolder = fso.GetParentFolderName(WScript.ScriptFullName) 
     
    ' 构建cmd命令  
     
    ' ①假设此vbs文件在D:\test中,安装程序文件名称为install.exe,目标安装目录(传进来的folderPath,无需改动)为D:\installpath。 
    ' 假如您的安装程序需要接受到的静默安装命令格式为: 
    ' "D:\test\install.exe" D:\installpath 
    ' installPath,parameters改为如下所示: 
    ' installPath = fso.BuildPath(scriptFolder, "install.exe") 
    ' parameters = folderPath 
     
    ' ②假设此vbs文件在D:\test中,安装程序文件名称为setup.exe,目标安装目录(传进来的folderPath,无需改动)为D:\installpath。 
    ' 假如您的安装程序需要接受到的静默安装命令格式为: 
    ' "D:\test\setup.exe" "D:\installpath" 
    ' 则installPath,parameters改为如下所示: 
    ' installPath = fso.BuildPath(scriptFolder, "setup.exe") 
    ' parameters ="""" & folderPath & """"  
     
    ' ③假设此vbs文件在D:\test中,安装程序文件名称为安装.exe,目标安装目录(传进来的folderPath,无需改动)为D:\installpath。 
    ' 假如您的安装程序需要接受到的静默安装命令格式为: 
    ' "D:\test\安装.exe" /quiet InstallPath="D:\installpath" /isinstall  
    ' installPath,parameters改为如下所示: 
    ' installPath = fso.BuildPath(scriptFolder, "安装.exe") 
    ' parameters =" /quiet"  & " InstallPath=" & """" & folderPath & """" & " /isinstall"  
     
    ' ◆◆◆◆◆具体什么参数应根据您的安装程序而决定,请根据您所接受的指令格式对下面installPath,parameters进行修改。◆◆◆◆◆ 
     
    installPath = fso.BuildPath(scriptFolder, "setup.exe") 
    parameters = folderPath 
     
    ' 创建 Shell 对象执行
    Set shell = CreateObject("wscript.shell")
    command = installPath & parameters & " 1"
    shell.run command
     
    ' 赋值uninstall.vbs中的folderPath
    Dim filePath
    filePath = scriptFolder & "\uninstall.vbs"
     
    ' 读取文件内容
    Dim objStream
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Charset = "GB2312"
    objStream.Open
    objStream.LoadFromFile filePath
     
    Dim content
    content = objStream.ReadText
     
    objStream.Close
     
    ' 替换第一行代码
    Dim newCode
    newCode = "folderPath=" & """" & folderPath & """"
    content = Replace(content, Split(content, vbCrLf)(0), newCode)
     
    ' 使用GB2312编码写入文件
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Charset = "GB2312"
    objStream.Open
    objStream.WriteText content
    objStream.SaveToFile filePath, 2 
    objStream.Close
     
    ' 将uninstall.vbs卸载脚本拷贝至卸载程序的同级目录下
    ' 假设卸载程序位置在安装目录下
    ' 卸载路径 = folderPath 
    ' 假设卸载程序位置在安装目录下的program文件夹内
    ' 卸载路径 = folderPath & "\program"
    fso.CopyFile scriptFolder & "\uninstall.vbs", folderPath & "\uninstall.vbs"

  2. 应用安装时需要生成“install.json”文件,记录安装进度。文件格式如下:

    {"status":1,"progress":100,"errorMsg":""}

    “status”表示安装是否完成,“1”代表安装完成,“0”代表安装未完成;“progress”代表应用安装进度从“0~100”“errorMsg”代表安装过程中的错误信息,如果没有出错则填空值即可。

    本文提供一种“install.json”文件生成方法作为参考:

    本方法中使用的软件安装程序通过innosetup安装包制作软件制作,因此安装进度获取依赖Inno Setup Compiler。

    1. 在安装打包程序“.iss”文件的[Code]代码段增加如下代码,在安装时可实时记录安装进度。
      var
      lastPercent: Integer;
       
      procedure InitializeWizard;
      begin
        lastPercent := -1;
      end;
       
      procedure WriteLog(logContent: String; fileName: String);
      var
        bExist:Boolean;
        myFileName:String;
        svArray:TArrayOfString;
        MyFile: TFileStream;
      begin            
          myFileName := ExpandConstant('{app}') + '\' + fileName;
          SetLength(svArray, 1);
          svArray[0] := logContent;
          SaveStringsToFile(myFileName, svArray, true);
      end;
       
      procedure CurInstallProgressChanged(CurProgress, MaxProgress: Integer);
      var 
      percent: Integer;
      begin
        percent :=  CurProgress * 100 / MaxProgress;
        if lastPercent >= percent then
        else
        begin
          WriteLog(Format('Installing...:%d', [percent]), 'installProgress.log');
          lastPercent := percent;
        end  
      end;
    2. “InstallApp.vbs”文件增加如下代码,生成“install.json”文件。
      ProgressPath = folderPath & "\installProgress.log"
      ' 如果progress文件已存在,则删除
      If fso.fileExists(ProgressPath) Then
          fso.DeleteFile(ProgressPath)
      End If
       
      Set objFSO = CreateObject("Scripting.FileSystemObject")
       
      ' 目标文件夹路径
      strFolderPath = folderPath
       
      ' 创建JSON文件函数
      Sub CreateJsonFile(progress)
          Dim objJson, jsonObj, outFile
          
          Set objJson = CreateObject("Scripting.Dictionary")
          Set jsonObj = CreateObject("Scripting.Dictionary")
          
          ' 设置JSON对象的属性
       
          If CInt(progress) >= 100 Then
              jsonObj.Add "status", 1
          Else
              jsonObj.Add "status", 0
          End If
          jsonObj.Add "progress", CInt(progress) '将进度值转换为整数类型
          jsonObj.Add "errorMsg", """"""
          
          ' 将JSON对象添加到顶级对象
          objJson.Add "", jsonObj
          
          ' 打开输出文件
          Set outFile = objFSO.CreateTextFile(strFolderPath & "\install.json", True)
          
          ' 创建JSON字符串
          Dim jsonString
          jsonString = "{"
          For Each key In jsonObj.Keys
              jsonString = jsonString & """" & key & """:" & jsonObj(key) & ","
          Next
          jsonString = Left(jsonString, Len(jsonString) - 1) ' 移除最后一个逗号
          jsonString = jsonString & "}"
          
          ' 将JSON数据写入文件
          outFile.Write jsonString
          
          ' 关闭文件
          outFile.Close
      End Sub
          
      ' 获取当前进度函数
      Function GetProgress()
          Dim Progress 
          Progress = 0
          
          If fso.fileExists(ProgressPath) Then
              Dim content
              Dim pos
              Set file = fso.OpenTextFile(ProgressPath, 1)
       
              Do Until file.AtEndOfStream
                  content = file.ReadLine
                  If Len(content) = 0 Then
                      Exit Do
                  End If
                  
                  pos = InStr(content, "Installing...:")
                  If pos > 0 Then
                      Progress = CInt(Mid(content, pos + 14))
                  End If
              Loop
              
              file.Close
          End If
          
          GetProgress = Progress
      End Function
       
      Function FindSetupProcess()
          Dim bExist,WMI,Objs,Process,processPath
          bExist = 0
          Set WMI=GetObject("WinMgmts:")
          Set Objs=WMI.InstancesOf("Win32_Process")
          Process=""
          For Each Obj In Objs
              Process = Obj.Description
              processPath = Obj.ExecutablePath
              
              If Process = "NotePad--_setup.exe" And processPath = installPath Then
                  bExist = 1
              End If
          Next
          
          FindSetupProcess = bExist
      End Function
       
      ' 主循环
      Do While True
          Dim bExist
          bExist = FindSetupProcess()
          
          ' 获取安装进度,安装程序退出时进度置为100
          If bExist = 1 Then
              progress = GetProgress()
          Else
              progress = 100
          End If
       
          ' 创建JSON文件
          CreateJsonFile(progress)
       
          If bExist = 1 Then
          ' ◆◆◆◆◆等待1秒,读取安装进度◆◆◆◆◆
              WScript.Sleep 1000
          Else 
              fso.DeleteFile(ProgressPath)
              Exit Do
          End If
      Loop

  3. 修改“InstallApp.vbs”参数。

    1. 鼠标右键打开编辑“InstallApp.vbs”
    2. 参考静默安装命令示例①、②、③,修改“installPath”“parameters”
      图1 修改参数

  4. “InstallApp.vbs”复制至安装程序同级目录。

    图2 复制粘贴InstallApp.vbs

静默卸载改造

  1. 本地新建“uninstall.vbs”文件,并复制以下代码至新建文件中,用于调用卸载程序的静默卸载命令。

    folderPath="D:\123" 
    ' folderPath无需关注与修改,会自动由install.vbs在安装过程中赋值 
    ' 构建命令 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    ' 获取当前脚本所在目录的路径 
    scriptFolder = fso.GetParentFolderName(WScript.ScriptFullName) 
     
    ' ①假如您的卸载程序所接受到的静默卸载命令格式为: 
    ' "D:\installpath\uninstall.exe" 
    ' installPath,parameters改为如下所示 
    ' installPath = fso.BuildPath(scriptFolder, "uninstallApp.exe") 
    ' parameters ="" 
    ' ②假如您的卸载程序所接受到的静默卸载命令格式为: 
    ' "D:\installpath\uninstall.exe" /uninstall /quiet  
    ' installPath,parameters改为如下所示 
    ' installPath = fso.BuildPath(scriptFolder, "uninstallApp.exe") 
    ' parameters =" /uninstall" & " /quiet" 
    ' ◆◆◆◆◆具体什么参数应根据您的卸载程序而决定,请根据您所接受的指令格式对下面uninstallPath,parameters进行修改。◆◆◆◆◆ 
     
    uninstallPath = fso.BuildPath(scriptFolder, "uninstallApp.exe") 
    parameters =" /uninstall" & " /quiet" 
     
    Set shell = CreateObject("wscript.shell")
    command = uninstallPath & parameters
    shell.run command

  2. 应用卸载时需要生成“uninstall.json”文件,记录卸载进度,文件格式如下:

    {"status":1,"progress":100,"errorMsg":""}

    “status”表示卸载是否完成,“1”代表卸载完成,“0”代表卸载未完成;“progress”代表应用卸载进度从0~100;“errorMsg”代表卸载过程中的错误信息,如果没有出错则填空值即可。

    本文提供一种“uninstall.json”文件生成方法作为参考:

    本方法中使用的软件安装程序通过innosetup安装包制作软件制作,因此卸载进度获取依赖Inno Setup Compiler。

    1. 在安装打包程序“.iss”文件的[Code]代码段下增加如下代码,在卸载时可实时记录卸载进度。
      procedure WriteLog(logContent: String; fileName: String);
      var
        bExist:Boolean;
        myFileName:String;
        svArray:TArrayOfString;
        MyFile: TFileStream;
      begin            
          myFileName := ExpandConstant('{app}') + '\' + fileName;
          SetLength(svArray, 1);
          svArray[0] := logContent;
          SaveStringsToFile(myFileName, svArray, true);
      end;
       
      procedure TimerProc(h: LongWord; AMsg: LongWord; IdEvent: LongWord; dwTime: LongWord);
      begin
        WriteLog(Format('Uninstalling...:%d',[UninstallProgressForm.ProgressBar.Position * 100 /UninstallProgressForm.ProgressBar.Max]), 'uninstallProgress.log');
      end;
       
      function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord;
        lpTimerFunc: LongWord): LongWord;
        external 'SetTimer@user32.dll stdcall';
       
      procedure InitializeUninstallProgressForm();
      begin
        SetTimer(0, 0, 100, CreateCallback(@TimerProc)); { every 100 ms }
      end;
       
      procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
      var
        Progress: Integer;
      begin
        case CurUninstallStep of
          usUninstall:
            begin
              WriteLog('Uninstalling...:0', 'uninstallProgress.log');
            end;
          usPostUninstall:
            begin
              WriteLog('Uninstalling...:100', 'uninstallProgress.log');
            end;
        end;
      end;
       
    2. “uninstallApp.vbs”中增加如下代码,生成“uninstall.json”文件。
      ProgressPath = folderPath & "\uninstallProgress.log"
       
      ' 如果progress文件已存在,则删除
      If fso.fileExists(ProgressPath) Then
          fso.DeleteFile(ProgressPath)
      End If
       
      ' 目标文件夹路径
      strFolderPath = folderPath
       
      ' 创建JSON文件函数
      Sub CreateJsonFile(progress)
          Dim objJson, jsonObj, outFile
          
          Set objJson = CreateObject("Scripting.Dictionary")
          Set jsonObj = CreateObject("Scripting.Dictionary")
          
          ' 设置JSON对象的属性
          If progress >= 100 Then
              jsonObj.Add "status", 1
          Else
              jsonObj.Add "status", 0
          End If
          jsonObj.Add "progress", CInt(progress) '将进度值转换为整数类型
          jsonObj.Add "errorMsg", """"""
          
          ' 将JSON对象添加到顶级对象
          objJson.Add "", jsonObj
          
          ' 打开输出文件
          Set outFile = fso.CreateTextFile(strFolderPath & "\uninstall.json", True)
          
          ' 创建JSON字符串
          Dim jsonString
          jsonString = "{"
          For Each key In jsonObj.Keys
              jsonString = jsonString & """" & key & """:" & jsonObj(key) & ","
          Next
          jsonString = Left(jsonString, Len(jsonString) - 1) ' 移除最后一个逗号
          jsonString = jsonString & "}"
          
          ' 将JSON数据写入文件
          outFile.Write jsonString
          
          ' 关闭文件
          outFile.Close
      End Sub
          
      ' 获取当前进度函数
      Function GetProgress()
          Dim Progress 
          Progress = 0
          
          If fso.fileExists(ProgressPath) Then
              Dim content
              Dim pos
              Set file = fso.OpenTextFile(ProgressPath, 1)
       
              Do Until file.AtEndOfStream
                  content = file.ReadLine
                  If Len(content) = 0 Then
                      Exit Do
                  End If
                  
                  pos = InStr(content, "Uninstalling...:")
                  If pos > 0 Then
                      Progress = CInt(Mid(content, pos + 16))
                  End If
              Loop
              
              file.Close
          End If
          
          GetProgress = Progress
      End Function
       
      Function FindUnSetupProcess()
          Dim bExist,WMI,Objs,Process,processPath
          bExist = 0
          Set WMI=GetObject("WinMgmts:")
          Set Objs=WMI.InstancesOf("Win32_Process")
          Process=""
          For Each Obj In Objs
              Process = Obj.Description
              processPath = Obj.ExecutablePath
              If Process = "unins000.exe" And processPath = uninstallPath Then
                  bExist = 1
              End If
          Next
          
          FindUnSetupProcess = bExist
      End Function
       
      Dim count, lastProgress
      count = 0
      lastProgress = 0
       
      ' 主循环
      Do While True
          Dim bExist
          bExist = FindUnSetupProcess()
          
          ' 获取安装进度,安装程序退出时进度置为100
          If bExist = 1 Then
              progress = GetProgress()
          Else
              progress = 100
          End If
       
          ' 创建JSON文件
          CreateJsonFile(progress)
       
          If bExist = 1 Then
          ' ◆◆◆◆◆等待1秒,读取安装进度◆◆◆◆◆
              WScript.Sleep 1000
          Else 
              fso.DeleteFile(ProgressPath)
              'MsgBox(bExist)
              Exit Do
          End If
      Loop

  3. 修改“uninstall.vbs”参数。

    1. 鼠标右键打开编辑“uninstall.vbs”
    2. 参考静默卸载命令示例,修改“uninstallPath”“parameters”
      图3 修改参数

  4. “uninstall.vbs”复制至安装程序同级目录。

    图4 复制uninstall.vbs

打包安装程序

将安装程序、InstallApp.vbs和uninstall.vbs打包压缩为一个压缩包。

提示

您即将访问非华为云网站,请注意账号财产安全

文档反馈

文档反馈

意见反馈

0/500

标记内容

同时提交标记内容