Private Function 硬盘序列号() 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")
硬盘序列号 = 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")
硬盘序列号 = Trim(myInfo.GetValue("SerialNumber"))
Catch
硬盘序列号 = ""
End Try
End Try
End Function
试下，如果返回为空，则表示失败。
在本机win8win8.1有效，不过好像在有些机器上没用。
当我们将某些资料储存电脑的硬碟中，可却不希望其他人随便浏览的话，该怎麼保护硬碟资料呢？有些人可能会另外安装加密软体来帮资料夹或硬碟加上密码保护，不过如果你不想另外安装软体，甚至你希望将整个硬碟都「隐藏」起来的话，那该怎麼做呢？ 以下的方法其实只是将磁碟机的「代号」删掉（代号就是俗称的C、D、E...），在Windows系统中（包含XP与Vista）如果某个磁碟机没有被分配到磁碟机的代号的话，该磁碟机就无法被使用。不过储存在磁碟机中的资料都还在（没有消失），重新挂上磁碟机「代号」之後，还是一样可以正常运作。 所以下面这个作法其实有点障眼法，该磁碟机只是没有出现在「我的电脑」视窗里，就算在档案总管视窗直接输入「D:\」或「E:\」等路径，也无法开启或显示磁碟机的内容。但如果使用者知道怎样再把磁碟机挂上去的话，那就破功罗。不过一般人看到「我的电脑」里面没有东西的话也不会想太多啦，应该是不会想到还有这招，用来对付电脑还不是很熟的人，应该还算管用。 一、如何隐藏磁碟机？第1步 在开始设定之前，请先开启「我的电脑」视窗，确认你要隐藏的磁碟机的代号。这里是以「E:\」为范例，等等就是把这个E磁碟机的代号给移除掉就是了。 第2步 确认好要移除的磁碟机代号之後，接著请在桌面上的「我的电脑」图示上按一下滑鼠右键，再点选【管理】。 第3步 开启「电脑管理」视窗後，先从左边的资料夹切换到〔存放装置〕→【磁碟管理】，我们可以在中间视窗中看到目前已连接的全部硬碟、光碟机。找到你要「隐藏」的磁碟机代号（分割区）之後，请在该分割区图示上按一下滑鼠右键，再点选【变更磁碟机代号及路径】，这里以「E:\」为范例。 第4步 开启「变更E: 的磁碟机代号及路径」视窗後，点选该磁碟机的代号，再按一下〔移除〕按钮。 第5步 当出现确认对话盒之後，请直接按一下〔是〕按钮，确认要移除该磁碟机的代号。如果有需要的话，Windows会提示让我们重新开机後，才可正式生效。 注意！要移除该磁碟机代号之前，务必要先确认没有其他软体或系统功能会用到该磁碟机，否则系统会出现错误。 二、如何取消隐藏，将磁碟机恢复为可用状态？第1步 要恢复正常运作的方法很简单，开启「磁碟管理」视窗後，在刚刚被隐藏的磁碟分割区上按一下滑鼠右键，再点选【变更磁碟机代号及路径】。 [gads] 第2步 接著请按一下〔新增〕按钮，准备为该分割区设定一个磁碟机代号。 第3步 点选「指定下列磁碟机代号」，然後再从右边的下拉选单中点选你喜欢的代号，如【E】，设定完後再按一下〔确定〕按钮即可完成。 第4步 如图，原本被隐藏的磁碟机已经顺利恢复正常运作罗。以後如果你买了750GB或1TB的超大硬碟来当作「爱情功夫百科全书」的仓库的话，不使用时暂时把他隐藏起来等有需要时再挂上，这样就不用担心会被弟弟妹妹、爸爸妈妈挖出来问东问西的罗。 (请勿全文转贴本站文章，欢迎「部份引用」或介绍，引用时请注明 ①网站名称 与 ②文章网址，感谢~~ )→ 免费订阅最新文章： (如何订阅？)作者: 不来恩 | 发布日期: 2008/01/03 | Tags: Windows Vista分类: 重灌狂人-首页 Windows 系统、PC 个人电脑 系统设定、功能调整注意事项：本站所介绍之软体、设定或网站服务，经实际安装测试并通过防毒软体扫毒。但因为不同电脑环境与软体设定可能都各有差异，建议您仅在非工作用的电脑安装、测试，避免因为不可预知的错误、当机或软硬体冲突，影响您的工作或电脑运作。另外，在进行任何重要的操作与设定之前，记得先行备份电脑中的重要资料，避免因为未依指示的不当操作或其他疏失造成资料毁损。当您依照本文所提供之讯息执行各种操作，表示您已阅读此注意事项并同意自行承担可能之风险与责任。
新建窗口，添加picture控件
利用line()方法画线
line(开始x坐标,开始y坐标)-(结束x坐标,结束y坐标),线的颜色，画线的方式(默认为线，B为矩形无填充，BF为填充的矩形)
For i = 1 To 16
Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)
Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)
Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)
Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)
Next i
如果要在窗口上画也可以调用窗口的line方法即form.line()
官方解决方案
Dataram 也意识到这个问题，於是在软件的用户手册中提出了一个解决方案，我称之为官方解决方案。方案如下：先启动软件，设定好虚拟磁碟，并在控制台中将虚拟磁碟的代号设定为想要的代号，然後将虚拟磁碟的内容储存成硬碟中的一个映像档，然後每次启动软件的时候，自动载入这个映像档，（有点像电脑游戏中的“储存”和“载入”的功能），那 就可以每次都恢复相同的设定，包括磁碟代号。
但是，这个官方解决方案有两个弊端，使得我个人认为比不用还好。
这个方案需要在磁碟机中建立一个与虚拟磁碟大小相同的映像档。（虽然最新版本可以对映像档进行压缩，但是每次执行都要进行解压缩，是用时间来空间，与使用 RAMDisk 的意愿不符）
每次启动软件时，都需要载入这 大的映像档，既费时，又增加硬碟读写消耗，与RAMDisk 使用的意愿不符。
我的方案：使用 DOS Batch 程序
为此，我专门写了一个小小的 DOS Batch 程序，（如不计算程序中的注解的话，真正的程式码只有三行）。这个程式使用了 Dataram RAMDisk 的一个特性功能：允许用户指定磁碟机名称（Drive Label），磁碟机名称与磁碟机代号不同。对於系统而言，是使用磁碟机代号（C:， D:， E: …）来代表不同的磁碟机，但对於用户而言，我们可以使用磁碟机名称（“SystemDisk”， “MediaDisk” …)来表示不同的磁碟机。在Dataram RAMDisk，用户可以为虚拟磁碟指定一个每次启动都保持不变的磁碟机名称。我的方案原理就是：每次启动时，以指定的磁碟机名称找出磁碟机代号（动态分配的代号，如 K:），然後建立另一个指定代号（如R:）的磁碟，将这个动态分配的代号（K:）与指定的代号（R:）进行关联。那 ，无论我们打 “K:\Cache” 还是 “R:\Cache”，系统都会连到相同的目录。
详细步骤
为了将事情简单化，我在这里列出每一步步骤。
1. 建立一个 DOS Batch 档案
用“记事本”建立一个文字档案，敲入以下的程式码，然後储存为 C:\StartUp.bat（当然您可以使用其他名称或储存在其他地方）。由於“断行”在 DOS Batch 档案中是代表程式码完结，故此，千万不要随意在这些程式码中间加入“断行”，否则可能会造成程式不能执行。
@rem assign the key variables.
SET _label=RAMDISK
SET _ramdrive=R:
@rem Below is the magic happens : Find the drive letter which has volume name set as _label, and mount it to _ramdrive
FOR /F "skip=1 tokens=1 delims=: " %%a IN ('wmic logicaldisk where "VOLUMENAME='%_label%'" get caption') DO ( subst %_ramdrive% %%a:\ )
@rem if you want to copy some files or mount your cache folders, do it after this line.
以下是关於这段程式码的详细说明，如果您对 DOS Batch 程式码没有兴趣，绝对可以跳过这段，直接进行步骤2。
这一行：
wmic logicaldisk where "VOLUMENAME='RAMDISK'" get caption
是要根据磁碟机名称 (VOLUMENAME) 找出磁碟机代号 (caption)，执行结果如下：
Caption
K:
这个结果是以字串形式给出的，然後我们透过一个 for-loop ，逐行分拆这个结果，第一行 (caption) 可以跳过，第二行就是我们想要的东西。我们要将第二行用冒号 “:” 拆开，得出 “K” 和 “”(空字元) 两个元素，按後将第一个元素 “K” 储存到变量 %%a 之中。那 我们就可以用 %%a 变量去代表这个动态分配的磁碟机代号了。
关於这个 for-loop 的解释：
“skip=1″ : 跳过第一行 （”Caption”）。第一行文字并没有我们需要的东西。
“tokens=1″ : 对於每一行文字，我们只取出以 “：” 分拆後的第一个元素。
“delims=:” : 使用冒号 “:” 来分拆每一行文字。
於是，最後我们取得动态分布的磁碟机代号，并储存在 %%a 变量中，然後在之後的 subst 程式码中，我们实际上是执行这样的指令：
subst R: K:\
这指令是让系统知道，R: 就是 K: 的另一个名称，以後无论是用 “R:” 还是 “K:”，两者这实际都对应到 K: 的地方。
2. 指定虚拟磁碟机的名称
打开 Dataram RAMDisk Configuration Utility （设定工具）, 在 “Disk Label” 中打勾，并在下面输入 “RAMDISK”
当然您也可以用其他名称，但必须在上面的 DOS Batch 程式码中作出修改：
SET _label=TheNewDriveLabel
3. 指定开机时执行上述程式码
我们需要告诉电脑，在开机时自动执行步骤一的程式码。
3.1 按 Win + R 组合键 (或在 “开始” 选单中按 “执行…”), 这时会出现一个 “执行…” 的对话框，输入 “gpedit.msc” 并在结果中选择 “gpedit” 。
注意：在某些Win7版本中（如 Win7 Home Edition），gpedit.msc 并没有被纳入系统中，在此情况下，我们需要使用 Windows 自带的工作排程器（Task Scheduler）去让Windows在启动时自动执行上述的程式码。关於工作排程器的详细操作请见
3.2 在 “Group Policy Editor”（本机群组原则编辑器）中, 按 “Local Computer Policy”（本机电脑原则） - “Windows Settings”（Windows 设定） - “Scripts(Startup/Shutdown)” （指令码（启动/关机）），在编辑器右面，按两下 “Startup” （启动）
3.3 在 “Scripts” （指令码） 页签中，点击 “Add…” （新增），然後将 “C:\StartUp.bat” （也就是步骤一建立的那个程式档）加入到清单中，按 “OK” （确定） 完成。
4. 大功告成
现在，您可以重新开启您的电脑，然後会发现“我的电脑”除了原来的虚拟磁碟机 （假设为K:）之外，还会多了一个 “R:”，打开 R: 磁碟机，内里的内容与 K: 完全一样。事实上，两个代号其实都是指向相同的档案，故此你在其中一个磁碟机中做的任何动作，在另一个磁碟机也会一样改变。更重要的是，现在无论您的虚拟磁碟机是什 代号，您的电脑中永远都可以用 R: 来代表这个虚拟磁碟机了。