NSIS脚本：在卸载页面收集信息

作者: admin 分类: nsis 发布时间: 2014-10-27 09:19 ė2,953 浏览数 6没有评论

此功能用于在软件卸载时收集相关信息，以便进行后续改进。实现功能如图：

以下为实现代码：

!include nsDialogs.nsh
!include LogicLib.nsh

OutFile "Test.EXE"
Name "Test"
!include "MUI2.nsh"
BrandingText "轻狂志www.flighty.cn"

Page custom ReportPageShow ReportPageLeave

!insertmacro MUI_LANGUAGE "SimpChinese"

Var Dialog
Var Label1
Var Label2
Var Checkbox1
Var Checkbox2
Var Checkbox3
Var Checkbox4
Var Checkbox5
Var Checkbox6
Var Text
Section
SectionEnd
Function ReportPageShow
nsDialogs::Create /NOUNLOAD 1018
Pop $Dialog

${NSD_Createlabel} 0u 0u -1u 20u "很遗憾您选择卸载傲游，请告诉我们您卸载的原因。这将帮助我们以后进行改进："
Pop $Label1
SetCtlColors $Label1 0x0080FF transparent

${NSD_Createcheckbox} 0u 25u -1u 10u "它经常崩溃"
Pop $Checkbox1

${NSD_Createcheckbox} 0u 40u -1u 10u "它经常假死"
Pop $Checkbox2
${NSD_Createcheckbox} 0u 55u -1u 10u "它显示一些网页不正确"
Pop $Checkbox3
${NSD_Createcheckbox} 0u 70u -1u 10u "它缺少我需要的功能"
Pop $Checkbox4
${NSD_Createcheckbox} 0u 85u -1u 10u "我喜欢上其它浏览器了,请在下边注明"
Pop $Checkbox5
${NSD_Createcheckbox} 0u 100u -1u 10u "升级傲游[Maxthon]"
Pop $Checkbox6
${NSD_Createlabel} 0u 115u -1u 10u "其它原因, 请在下边写入:"
Pop $Label2
${NSD_Createtext} 0u 125u -1u -126u ""
Pop $Text
nsDialogs::Show

FunctionEnd

Function ReportPageLeave
    ${NSD_GetText} $Text $R0
    StrCpy $R1 ""
    ${NSD_GetState} $Checkbox1 $R2
    StrCpy $R1 "$R1$R2"
    ${NSD_GetState} $Checkbox2 $R2
    StrCpy $R1 "$R1$R2"
    ${NSD_GetState} $Checkbox3 $R2
    StrCpy $R1 "$R1$R2"
    ${NSD_GetState} $Checkbox4 $R2
    StrCpy $R1 "$R1$R2"
    ${NSD_GetState} $Checkbox5 $R2
    StrCpy $R1 "$R1$R2"
    ${NSD_GetState} $Checkbox6 $R2
    StrCpy $R1 "$R1$R2"
    MessageBox MB_OK '结果：勾选题：$R1；文本题："$R0"'

;通过PHP获取$R1_$R0参数分析结果。
FunctionEnd

!include nsDialogs.nsh

!include LogicLib.nsh

OutFile "Test.EXE"

Name "Test"

!include "MUI2.nsh"

BrandingText "轻狂志www.flighty.cn"

Page custom ReportPageShow ReportPageLeave

!insertmacro MUI_LANGUAGE "SimpChinese"

Var Dialog

Var Label1

Var Label2

Var Checkbox1

Var Checkbox2

Var Checkbox3

Var Checkbox4

Var Checkbox5

Var Checkbox6

Var Text

Section

SectionEnd

Function ReportPageShow

nsDialogs::Create /NOUNLOAD 1018

Pop $Dialog

${NSD_Createlabel} 0u 0u -1u 20u "很遗憾您选择卸载傲游，请告诉我们您卸载的原因。这将帮助我们以后进行改进："

Pop $Label1

SetCtlColors $Label1 0x0080FF transparent

${NSD_Createcheckbox} 0u 25u -1u 10u "它经常崩溃"

Pop $Checkbox1

${NSD_Createcheckbox} 0u 40u -1u 10u "它经常假死"

Pop $Checkbox2

${NSD_Createcheckbox} 0u 55u -1u 10u "它显示一些网页不正确"

Pop $Checkbox3

${NSD_Createcheckbox} 0u 70u -1u 10u "它缺少我需要的功能"

Pop $Checkbox4

${NSD_Createcheckbox} 0u 85u -1u 10u "我喜欢上其它浏览器了,请在下边注明"

Pop $Checkbox5

${NSD_Createcheckbox} 0u 100u -1u 10u "升级傲游[Maxthon]"

Pop $Checkbox6

${NSD_Createlabel} 0u 115u -1u 10u "其它原因, 请在下边写入:"

Pop $Label2

${NSD_Createtext} 0u 125u -1u -126u ""

Pop $Text

nsDialogs::Show

FunctionEnd

Function ReportPageLeave

${NSD_GetText} $Text $R0

StrCpy $R1 ""

${NSD_GetState} $Checkbox1 $R2

StrCpy $R1 "$R1$R2"

${NSD_GetState} $Checkbox2 $R2

StrCpy $R1 "$R1$R2"

${NSD_GetState} $Checkbox3 $R2

StrCpy $R1 "$R1$R2"

${NSD_GetState} $Checkbox4 $R2

StrCpy $R1 "$R1$R2"

${NSD_GetState} $Checkbox5 $R2

StrCpy $R1 "$R1$R2"

${NSD_GetState} $Checkbox6 $R2

StrCpy $R1 "$R1$R2"

MessageBox MB_OK '结果：勾选题：$R1；文本题："$R0"'

;通过PHP获取$R1_$R0参数分析结果。

FunctionEnd

只回答业务咨询

学习日记，兼职软件设计，软件修改，毕业设计。

本文出自学习日记，转载时请注明出处及相应链接。

本文永久链接: https://www.softwareace.cn/?p=1006

« NSIS：获取硬盘中容量最大的分区盘符

NSIS：实现程序窗口逐渐透明的渐入渐出效果 »

发表评论取消回复

要发表评论，您必须先登录。

NSIS脚本：在卸载页面收集信息

发表评论取消回复

分类目录

业务咨询站长

NSIS脚本：在卸载页面收集信息

发表评论 取消回复

分类目录

业务咨询站长

发表评论取消回复