VB编程识别电脑名

各位大侠，请教：
能否通过VB编程识别电脑名字吗？我主要目的是想让我用VB编的程序只有在指定的电脑上才能运行。或者是否有其他更好的方法实现此功能？？？
求教各位大侠指点！
不胜感激！
或者是用识别硬盘编号的方法，请问又该如何编程呢？

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function MachineName() As String
Dim sBuffer As String * 255
If GetComputerName(sBuffer, 255&) <> 0 Then
MachineName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
End If
End Function

Private Sub Form_Click()
Print MachineName
'Print语句可以改成If来判断是不是指定的计算机名
'If MachineName = "Computer" then
'条件符合执行
'End If
End Sub

取得计算机名称可以使用api函数中的 GetComputerName 声明函数：private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long 然后再需要 调用的 地方调用函数就可以了，例如 单击connmand1只需要把 Dim s$ s$ = String$(MAX_COMPUTERNAME_LENGTH+1,0) Dim dl& Dim sz& sz& = MAX_COMPUTERNAME_LENGTH+1 dl& = GetComputerName(s$, sz) 放在command1的click事件中 输出计算机名称可以使用 变量=s$

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Function MachineName() As String Dim sBuffer As String * 255 If GetComputerName(sBuffer, 255&) <> 0 Then MachineName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1) End If End Function Private Sub Form_Click() msgbox MachineName End Sub ‘建议不要用电脑名。应该用他的硬盘编号

<p>这是我以前用media player做的一个简单的影音播放器的。里面的部份代码</p>  <p>private sub open_click()</p>  <p>  ' 这里加一个通用对话框控件。把通用对用框打开的地址等于了mediaplayer的地址，然后播放<br>cd1.showopen<br>windowsmediaplayer1.url = cd1.filename<br>windowsmediaplayer1.controls.play<br>end sub</p>  <p> </p>  <p>private sub stop_click() '这里就是用一个按扭来停止的意思！<br>windowsmediaplayer1.controls.stop<br>end sub</p>  <p> </p>  <p>嘿嘿 这个控件还是很好使用的。</p>  <p>你到这个网址看看：</p>  <p><a href="http://wenwen.soso.com/z/urlalertpage.e?sp=shttp%3a%2f%2fhi.baidu.com%2fyore2003%2fblog%2fitem%2f06ef4bd721648ddaa044df42.html" target="_blank">http://hi.baidu.com/yore2003/blog/item/06ef4bd721648ddaa044df42.html</a></p>

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息