求用VB6.0制作一个电脑机器码自助查看器代码

求vb6.0制作电脑机器码查看器代码~

你想根据什么来算机器码 CPU？ 硬盘？ 网卡？

Private Declare Function icePub_machineGetInfo Lib "icePubDll.dll" (ByVal typeFlag As Integer, ByVal strInfo As String) As Integer

Dim a2 As Integer
Dim str1 As String

str1 = Space(1024 * 10)

a2 = icePub_machineGetInfo(1, str1)
MsgBox "mac:" + str1
a2 = icePub_machineGetInfo(2, str1)
MsgBox "cpu:" + str1
a2 = icePub_machineGetInfo(3, str1)
MsgBox "hard:" + str1
a2 = icePub_machineGetInfo(4, str1)
MsgBox "memery:" + str1
a2 = icePub_machineGetInfo(5, str1)
MsgBox "boarddate:" + str1

给我邮箱或者QQ号 我给你发DLL调用库文件 以下是代码调用
Dim b_HDD As Boolean
Dim b_NIC As Boolean
Dim b_CPU As Boolean
Dim b_BIOS As Boolean

b_HDD = False
b_NIC = False
b_CPU = False
b_BIOS = False

If ck_HDD.value = Checked Then
b_HDD = True
End If

If ck_NIC.value = Checked Then
b_NIC = True
End If

If ck_CPU.value = Checked Then
b_CPU = True
End If

If ck_BIOS.value = Checked Then
b_BIOS = True
End If

Text1.Text = GetHardwareID(b_HDD, b_NIC, b_CPU, b_BIOS, "R5LR-S4TQ")

---

繁昌县19764478821： VB中怎样生成1个计算机编号?？
禾馥艾鲁： 根据主板序列号,CPU序列号,MAC地址等,通过1定的运算得到1个机器码,

繁昌县19764478821： VB生成机器码 - ？
禾馥艾鲁： 不如获取硬盘的序列号吧,它是唯一的.Private Declare Function MymachineC Lib ＂kernel32＂ Alias ＂GetVolumeInformationA＂ (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, ...

繁昌县19764478821： 用vb编写科学计算器 - ？
禾馥艾鲁： 呵呵,windows下的那个好像不是科学型的吧,所以楼上大哥直接调用calc.exe就不符合要求了.我也不懂vb,但是我想把我的思路说一下你看对你有没有用.(代码我写不了) 菜单用菜单编辑器(ctrl+e),不知道你的菜单里想要啥功能,最后...

繁昌县19764478821： 用VB6.0编写电脑计算器,求详细代码.？
禾馥艾鲁： 计算器………………用+-*/就行了

繁昌县19764478821： VB6.0设计一个简单的计算器程序？
禾馥艾鲁： '给个短的给你,用的控件数组 '添加按钮cmdNum(10),其index为0到9,表示10个数字 '添加按钮cmdOper(4),其index为1到4,表示运算符 '添加按钮cmdOk,为等于号 '添加按钮cmdClear,为清除按钮 '然后添加如下代码: Dim flag As Integer ...

繁昌县19764478821： VB6.0做计算器 - ？
禾馥艾鲁： '在窗体上放5个文本框,1个按钮,名字默认,使用以下代码 '半径:Text1 '高:Text2 '底面积:Text3 '侧面积:Text4 '体积:Text5 Private Sub Command1_Click() On Error Goto 1 Text3.Text = Text1.Text * Text1.Text * 3.14 Text4.Text = Text1.Text * 6.28 * Text2.Text Text5.Text = Text1.Text * Text1.Text * 3.14 * Text2.Text Exit Sub 1: msgbox ＂数据有错＂,,＂提示＂ End Sub

繁昌县19764478821： 获取机器码 - ？
禾馥艾鲁： 机器码不是一个专用名词 加密和解密的时候说的＂机器码＂是对于具体软件而来的 通常使用VB简单的可以获得硬盘序列号

繁昌县19764478821： VB制作高手进 学弟有i事事求 - ？
禾馥艾鲁： Private Sub Command1_Click() '复制到剪切板 Clipboard.Clear Clipboard.S今年十六! 嘿嘿 学的计算机 我用的是VB6.0 的 我要制作个文件类似TXT的 笔记本 像 “复制” “粘贴” “清空” “退出”的 求输入代码啊...

繁昌县19764478821： VB6.0设计整人关机程序？
禾馥艾鲁： 如果你说是直接改shutdown那个的话, 只要加上 -c＂字符串＂就可以改shutdown窗口那些字了 例如:shutdown -s -t 3600 -c ＂猪头＂ 若要弄成一个程序,一打开就运行的话, 可以用api函数实现,不过比较复杂, 简单点的就是让程序打开后调用cmd的shutdown 要设为开机启动就要改注册表了 发给你了

繁昌县19764478821： VB获取电脑机器码 - ？
禾馥艾鲁： rivate Declare Function icePub_machineGetInfo Lib ＂icePubDll.dll＂ (ByVal typeFlag As Integer, ByVal strInfo As String) As IntegerDim a2 As IntegerDim str1 As Stringstr1 = Spa...