实现过程:
1\新建一个数据库(ACCESS),创建一个新的窗体.默认属性为FORM1,设置成CAPTION属性为"******"
2\在窗体中添加一个FRAME控件,设置其CAPTION属性为无,添加4个控件,设置其中3个控件的CAPTION属性为"利用网卡注册系统"."注册码"."注册号为:123-456-789',第4个控件的CAPTON属性为无,用于显示已注册或是未注册的提示信息,添加2个COMMANDBUTTON控件,设置其CAPTION属性分别为"注册"和"关闭";添加3个TEXTBOX控件,2个LINE控件.
3主要程序代码如下:
Dim myNCB As NCB
Dim myASTAT As ASTAT, TempASTAT As ASTAT
Dim Pastat As Long
myNCB.NCB_Command = NCBRESET
Netbios myNCB
myNCB.NCB_Command = NCBASTAT
myNCB.NCB_Lana_Num = 0
myNCB.NCB_CallName = "*"
myNCB.NCB_Length = Len(myASTAT)
Pastat = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS or HEAP_ZERO_MEMORY, myNCB.NCB_Length)
myNCB.NCB_Buffer = Pastat
Netbios myNCB
CopyMemory myASTAT, myNCB.NCB_Buffer, Len(myASTAT)
M_Num = Hex(myASTAT.Adapt.Adapter_Address(0)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(1)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(2)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(3)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(4)) & "-" & Hex(myASTAT.Adapt.Adapter_Address(5))
HeapFree GetProcessHeap(), 0, Pastat
M_ReadNum = GetFromINI("zc", "zc", P_path) '读取注册
4\请注意此代码只提供参考作用,也是主要代码,如需要时请完善.同时请高手多多指教!