神马品牌网时光rom 三星925k:修改VB代码
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 03:36:21
我在写一个关于机器识别的程序用的是vb，现在这段代码有问题，谁能帮我修改一下啊？谢谢了~
dim regcode as string
Dim MyUserID As New UserID
Dim TempId As String
Dim Syspath As String
Syspath = " "
l = GetSystemDirectory(Syspath, 255)
TempId = Setserial(GetSerialNumber(Left(Syspath, 3))) ' EthernetAddress(0)
MyUserID.Set_TempUserID = Right(TempId, 8)
regcode=Space$(512)
getResult=GetPrivateProfileString("system","regcode",regcode,512,app.path & "\system.ini")//参数应该是6个才对吧？！
regcode = Mid(regcode, 1, Len(Trim(regcode)) - 1)
if MyUserID.Gene_RegID(MyUserID.Gene_ID)<>regcode then
reg.show vbModal
end if
dim regcode as string
Dim MyUserID As New UserID
Dim TempId As String
Dim Syspath As String
Syspath = " "
l = GetSystemDirectory(Syspath, 255)
TempId = Setserial(GetSerialNumber(Left(Syspath, 3))) ' EthernetAddress(0)
MyUserID.Set_TempUserID = Right(TempId, 8)
regcode=Space$(512)
getResult=GetPrivateProfileString("system","regcode",regcode,512,app.path & "\system.ini")//参数应该是6个才对吧？！
regcode = Mid(regcode, 1, Len(Trim(regcode)) - 1)
if MyUserID.Gene_RegID(MyUserID.Gene_ID)<>regcode then
reg.show vbModal
end if