• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已回复] 小精灵商业版独立界面注册码问题 [复制链接]

1#
想请问下为什么商业小精灵MyMacro命令提示缺少对象,我复制官网提供的那个写的注册码例子为什么不可以
Event Form1.Register.Click//注册
Dim RegisterResult
RegisterResult = MyMacro.Register(SetupForm.RegCode.Text, SetupForm.RegServer.ListIndex)    
If RegisterResult = 0 Then
//注册成功
SetupForm.Register.Enabled = False
SetupForm.ClearReg.Enabled = True
SetupForm.TryRegister.Enabled = False
SetupForm.RegCode.Text ="*********************************"
MessageBox "注册成功!"
Else
//注册失败
SetupForm.Register.Enabled = True
SetupForm.ClearReg.Enabled = False
SetupForm.TryRegister.Enabled = True
SetupForm.RegCode.Text = ""
MessageBox "注册失败!"
End If
End Event
Sub 自动注册()
     Dim RegisterResult
RegisterResult = MyMacro.Register("", 0)    
If RegisterResult = 0 Then
//注册成功
SetupForm.Register.Enabled = False
SetupForm.ClearReg.Enabled = True
SetupForm.TryRegister.Enabled = False
SetupForm.RegCode.Text = "********************************"
Else
//注册失败
SetupForm.Register.Enabled = True
SetupForm.ClearReg.Enabled = False
SetupForm.TryRegister.Enabled = True
SetupForm.RegCode.Text = ""
End If
End Sub
Event Form1.TryRegister.Click
Dim RegisterResult, 试用码
试用码 = form1.注册码.Text//<<<---自己换成 试用码
RegisterResult = MyMacro.Register(试用码, SetupForm.RegServer.ListIndex)    
If RegisterResult = 0 Then
//注册成功
SetupForm.Register.Enabled = False
SetupForm.ClearReg.Enabled = True
SetupForm.TryRegister.Enabled = False
SetupForm.RegCode.Text ="*******************************"
MessageBox "注册成功!"
Else
//注册失败
SetupForm.Register.Enabled = True
SetupForm.ClearReg.Enabled = False
SetupForm.TryRegister.Enabled = True
SetupForm.RegCode.Text = ""
MessageBox "注册失败!"
End If
End Event
Event Form1.解除注册.Click
Dim RegisterResult
RegisterResult = 1
SetupForm.ClearReg.Enabled = False
RegisterResult = MyMacro.ClearRegister    
If RegisterResult = 1 Then
SetupForm.ClearReg.Enabled = True
MessageBox "解绑成功!"
End If
End Event

    已有1评分我要评分查看所有评分

    本主题由 副管理员 专员小虫 于 2018/2/11 11:14:45 执行 主题分类 操作
    2#

    独立界面注册测试,不能用按键调试
    需要生成商业小精灵后才能测试哦~~

    Today is the Tomorrow you worried about yesterday, and all is well.
    发新话题 回复该主题