如何用VB写一个读取第一个网卡物理序列号来实现软件注册的注册器和注册码生成器 VB 写了一个程序 如何加入注册码 使一个注册码对应一台机器
VS2010\u4e2d\u600e\u4e48\u83b7\u53d6cpu\u6216\u8005\u786c\u76d8\u5e8f\u5217\u53f7\u3002\u7528vb.net\u3002\u60f3\u7f16\u4e00\u4e2a\u6ce8\u518c\u7801\u7684\u8f6f\u4ef6Private Function \u786c\u76d8\u5e8f\u5217\u53f7() As String
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
\u786c\u76d8\u5e8f\u5217\u53f7 = Trim(myInfo.GetValue("SerialNumber"))
Catch
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
\u786c\u76d8\u5e8f\u5217\u53f7 = Trim(myInfo.GetValue("SerialNumber"))
Catch
\u786c\u76d8\u5e8f\u5217\u53f7 = ""
End Try
End Try
End Function
\u53ea\u5728\u6211\u7684\u7535\u8111\u4e0a\u8bd5\u8fc7\uff0c\u4f60\u8bd5\u4e0b
\u6211\u8fd9\u4e2a\u662f\u5229\u7528\u6bcf\u4e00\u53f0\u673a\u5b50\u90fd\u6709\u552f\u4e00\u5bf9\u5e94cpu\u5e8f\u5217\u53f7\uff0c\u6765\u8ba1\u7b97\u5f97\u5230\u6ce8\u518c\u7801\uff0c\u6ce8\u518c\u6210\u529f\u540e\uff0c\u5b83\u4f1a\u5411\u6ce8\u518c\u8868\u5199\u5165\u6ce8\u518c\u4fe1\u606f\uff0c\u4e0b\u6b21\u542f\u52a8\u4e0d\u518d\u5f39\u51fa\u6ce8\u518c\u7a97\u53e3\uff0c\u5426\u5219\u5c06\u5f39\u51fa\u9519\u8bef\u7a97\u53e3\u5e76\u81ea\u52a8\u7ed3\u675f\u7a0b\u5e8f\u3002
\u4ee3\u7801\u7a0b\u5e8f\u5df2\u53d1\u7ed9\u4f60
\u8fd9\u662f\u4e00\u4e2a\u5b9e\u4f8b\u8f6f\u4ef6\u4ee3\u7801\uff1a
Private Sub Form_Load()
j = GetSetting("MyApp1", "Startup", "b")
If j = "1" Then
Form1.Show
Else
Call jiance
End If
End Sub
Private Sub jiance()
Dim cpuSet
Dim cpu
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
a = (cpu.ProcessorId)
Next
For i = 1 To Len(a)
c = c & Asc(Mid(a, i, 1))
Next
a = InputBox("\u8bf7\u8f93\u5165\u6ce8\u518c\u7801")
If a = c Then
Form1.Show
SaveSetting "MyApp1", "Startup", "b", "1"
Else
MsgBox "\u6ce8\u518c\u7801\u9519\u8bef"
End
End If
End Sub
\u8fd9\u662f\u8ba1\u7b97\u6ce8\u518c\u7801\u7684\u4ee3\u7801\uff1a
Private Sub Command1_Click()
Dim cpuSet
Dim cpu
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
a = (cpu.ProcessorId)
Next
Print "cpu\u5e8f\u5217\u53f7\u4e3a:" & a; ""
For i = 1 To Len(a)
c = c & Asc(Mid(a, i, 1))
Next
Text1 = "\u4e0e\u6b64\u5bf9\u5e94\u7684\u6ce8\u518c\u7801\u4e3a\uff1a" & c
End Sub
可以运行ipconfig得到文件 从文件里筛选MAC地址
Shell "ipconfig>c:\NetLog.Txt", vbHide
也可以读注册表 参见"注册表修改网卡的MAC地址"
通过读注册表得到MAC地址
有了MAC地址就可以转换成注册码
注册码转换可以这样做的:
1\把得到的MAC地址过滤成连续号码
2\逐个将该号码转换成ASC值
3\逐个将ASC值反转(255-ASC值)
4\逐个将ASC值转换为CHR字符
以上2-3-4也可以在一行里完成
Private Sub Command1_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
Text1 = Hex(FSO.Drives("C:").SerialNumber)
MsgBox "可以关闭了"
End Sub
"我加成16进制的数了，要是想要10进制数，去掉hex"
我有！
实例没有 你可以试一下 IPCONFIG/ALL这个命令
这个没做过，等我研究下吧
绛旓細VB鑾峰彇缃戝崱MAC鍦板潃婧愪唬鐮 http://www.anqn.com/vb/155/5717.shtml 鍏蜂綋浠ｇ爜锛氾紙鍏朵腑GetMACAddress() 鍑芥暟涓烘ゼ涓绘墍闇鍑芥暟锛塐ption Explicit Public CheckCode As Long Private Const NCBASTAT As Long = &H33 Private Const NCBNAMSZ As Integer = 16 Private Const HEAP_ZERO_MEMORY As ...
绛旓細i) = "0.0.0.0" Then Else TeIp.Text = Trim(TeIp.Text + " " + Ip.ipaddress(i))End If 'MsgBox "IP 鍦板潃:" & IP.ipaddress(I) & Chr(10) & _"缃戝崱绫诲瀷:" & IP.Description(I) & Chr(10) & _"缃戝崱鍦板潃:" & IP.macaddress(I)Next End If Next End Sub ...
绛旓細鎴戣瘯浜嗕竴涓嬭繖涓唬鐮侊紝鍦ㄧ紪璇戠殑鏃跺欎篃鎷夸笉鍒板湴鍧鍟
绛旓細'鎴栨ā寮1锛堝睘鎬ode锛1锛夎幏寰楃綉缁滃寘涓殑瀹為檯鏁版嵁锛堜笉鍖呮嫭IP澶淬乀CP/UDP/ICMP澶达級'灞炴atchIP涓烘寚瀹氳鎹曟崏鐨処P鍦板潃锛岃嫢涓虹┖瀛楃涓插垯鎹曟崏鏈缃戝崱涓婂彲鎴幏鐨勬墍鏈夋暟鎹寘锛堝嵆娴佺粡鏈綉娈垫墍鏈夋暟鎹寘锛'鍙灞炴ocalIP涓烘湰鏈篒P鍦板潃锛屽埄鐢ㄨ灞炴ц祴缁機atchIP锛屽疄鐜颁粎鎹曟崏鏈満IP鏁版嵁 '灞炴egin涓築oolean绫诲瀷锛...
绛旓細'VB璧风敤鍜岀鐢ㄧ綉缁滆繛鎺 OptionExplicit PrivateConstNetConnect=&H31 PrivateSubCommand1_Click()'鍋滅敤鏈湴杩炴帴 DimblnRelustAsBoolean '鎶婃湰鍦拌繛鎺ユ崲鎴愪綘瑕佹帶鍒剁殑鏈湴杩炴帴鐨勫悕瀛 blnRelust=ExcNetLinkMenu("鏈湴杩炴帴","鍋滅敤(&B)")'xp IfblnRelustThen Debug.Print"鍋滅敤鎴愬姛"Else blnRelust=ExcNet...
绛旓細For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)MsgBox "IP 鍦板潃:" & IP.IPAddress(I) & Chr(10) & "缃戝崱绫诲瀷:" & IP.Description(I) & Chr(10) & "缃戝崱鍦板潃:" & IP.Macaddress(I)Next End If Next End Sub Private Sub Command1_Click() '璋冪敤 GetMyIP End Sub ...
绛旓細Private Sub Form_Load()GetMyIPEnd SubSub GetMyIP() '鑾峰彇IP鍦板潃銆缃戝崱绫诲瀷銆佺綉鍗″湴鍧 Dim strComputer As String Dim objWMI As Object Dim colIP As Object Dim IP As Object Dim I As Integer strComputer = "." Set objWMI = GetObject("winmgmts://" & strComput...
绛旓細Public Function EnumNetworkAdapters() As String Try Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()Dim mo As ...
绛旓細ReDim aIAIM(lNum - 1)For i = 0 To lNum - 1 CopyMemory aIAIM(i), arrTmp(4 + i * Len(IAIM)), Len(IAIM)Debug.Print "Index:"; aIAIM(i).Index; " Name:"; StrConv(aIAIM(0).wsName, vbFromUnicode)Next Debug.Print IpReleaseAddress(aIAIM(0)) '鏂紑绗竴涓綉鍗 End ...
绛旓細ReDim aIAIM(lNum - 1)For i = 0 To lNum - 1 CopyMemory aIAIM(i), arrTmp(4 + i * Len(IAIM)), Len(IAIM)Debug.Print "Index:"; aIAIM(i).Index; " Name:"; StrConv(aIAIM(0).wsName, vbFromUnicode)Next Debug.Print IpReleaseAddress(aIAIM(0)) '鏂紑绗竴涓綉鍗 End ...
