主题：软件授权例子出错

你可以看看这个：

http://www.foxtable.com/help/topics/1485.htm

 

找出错误代码位置，然后分析原因

 按照二楼的方法排一下错吧。

 再不行，联系客服远程协助解决。

If e.Form.Controls("DateTimePicker1").Value Is Nothing Then
    Return
ElseIf e.Form.Controls("NumericComboBox1").Value Is Nothing Then
    Return
ElseIf e.Form.Controls("TextBox1").Value Is Nothing Then
    Return
End If
Dim kh As String = e.Form.Controls("TextBox1").Text
Dim rq As String =  Format(e.Form.Controls("DateTimePicker1").Value,"yyyy-MM-dd")
Dim cs As String = e.Form.Controls("NumericComboBox1").Value
Dim qd As String = "     " '5个半角空格,用于初始化保存实际启动次数的存储器空间.
Dim pw1 As String = "46DFA0D7"
Dim pw2 As String = "C292C1DB"
kh = kh.PadRight(50," ").SubString(0,50) '客户名称最多50个字符,不够50用空格补
cs = cs.PadRight(5," ").Substring(0,5) '启动次数最多允许5位数,不够的用空格补
If UKey.Start() Then
    If UKey.WriteStr(0,kh,pw1,pw2) AndAlso UKey.WriteStr(50,rq,pw1,pw2) AndAlso UKey.WriteStr(60,cs,pw1,pw2) AndAlso UKey.WriteStr(65,qd,pw1,pw2)
        Messagebox.Show("授权成功!","提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.Show("写入授权信息失败!","提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Else
    Messagebox.Show("请插上UKey!","提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If