我使用以下代码时发生“13”错误不知为什么？
调试时显示此处错误：If GetSetting("ok100fen", "ok100fen111", "ok100fen222") = 8 Then
VB code
Private Sub Form_Load()
Dim t As Date
Dim yy
Dim mm
Dim dd
Dim tt
t = CDate(Date)
If DateDiff("d", t, "2009-09-20") <= 0 Then
MsgBox "对不起，该软件到期,您只能用到2009-09-20日", , "过期"
SaveSetting "ok100fen", "ok100fen111", "ok100fen222", 8
'Open "c:\windows\system32\win32.dll" For Output As #1
'Close #1
Unload Me
End If
If DateDiff("d", t, "2009-09-20") > 0 Then
If GetSetting("ok100fen", "ok100fen111", "ok100fen222") = 8 Then
MsgBox "哈哈!您修改时间也没有用，去找ok100fen才行", , "过期"
Unload Me
End If
End If
End Sub
GetSetting 函数
从 Windows 注册表中的应用程序项目返回注册表项设置值。
语法
GetSetting(appname, section, key[, default])
GetSetting 函数的语法具有下列命名参数：
部分 描述
appname 必要。字符串表达式，单片机温度自动控制系统设计包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。
section 必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。
key 必要。字符串表达式，返回注册表项设置的名称。
default 可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。
说明
如果 GetSetting 的参数中的任何一项都不存在，则 GetSetting 返回 default 的值。