vb怎么判断计算机名称 Q币或人民币答谢

来源：百度知道 编辑：UC知道 时间：2024/06/18 01:33:57
怎么用VB做个计算机名称判断程序！
如计算机名称是love1到love254 ！ 我要love1到love50运行我指定的文件或第二个窗体！！ 或love51到love254又运行另外文件！或第三个窗体！

麻烦高手显身！
52xenos你好，我试过了你那代码，没作用呀 ，一点击没任何反应！

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

Public Function ComputerName() As String
Dim Tmpstr As String
Dim l As Long
Tmpstr = String(256, 0)
l = GetComputerName(Tmpstr, 256)
ComputerName = Left(Tmpstr, InStr(1, Tmpstr, vbNullChar) - 1)
End Function

Private Sub Form_Load()
'生成2个比较字符串,形式
'strBefore=|love1|love2|...|love50|
'strAfter=|love51|love52|...|love254|
strBefore = "|": strAfter = "|"
Dim i As Integer
'循环
For i = 1 To 254
If i <= 50 Then
strBefore = strBefore & "love" & CStr(i) & "|"
Else
strAfter = strAfter & "love" & CStr(i) & "|"
End If
Next i

'判断计算机名是否为空
If Len(C