7,771
社区成员
发帖
与我相关
我的任务
分享请问playyuer(女㊣爱)在线上吗，我想详细向您请教如何修改Setup1.vbp来加入序列号？
请问playyuer(女㊣爱)在线上吗，我想详细向您请教如何修改Setup1.vbp来加入序列号？
...全文
请发表友善的回复…
发表回复
playyuer 2001-12-18
- 打赏
- 举报
very easy!
这是最简单的方式
将 frmWelcome 窗体的代码:
Private Sub cmdOK_Click()
If VBA.Trim(VBA.InputBox(vbCrLf & "请先输入" & vbCrLf & "Product Key:", "欢迎使用本产品")) = "playyuer" Then
Unload Me
Else
VBA.MsgBox "Wrong Key!", vbCritical, "错误"
End If
End Sub
然后 make 成 Setup1.exe,再用其替换 VB 安装目录下 \Wizards\PDWizard 的同名文件!
这是最简单的方式
将 frmWelcome 窗体的代码:
Private Sub cmdOK_Click()
If VBA.Trim(VBA.InputBox(vbCrLf & "请先输入" & vbCrLf & "Product Key:", "欢迎使用本产品")) = "playyuer" Then
Unload Me
Else
VBA.MsgBox "Wrong Key!", vbCritical, "错误"
End If
End Sub
然后 make 成 Setup1.exe,再用其替换 VB 安装目录下 \Wizards\PDWizard 的同名文件!
