_disk = Chr(drive_no + 67)
　drive_chr = drive_disk & “:\”
　drive_flag = GetDriveType(drive_chr)
　If drive_flag = 3 Then
　　 kkk = GetVolumeInformation(drive_chr, strlabel, Len(strlabel), serial_no, 0, 0, strtype, Len(strtype)) ’通过GetVolumeInformation获得磁盘序列号
　Select Case drive_no
　　 Case 0
　　 strc = serial_no
　End Select
　If serial_no = stemp3 Then
　　 dflag = True
　　 Exit For
　End If
End If
Next drive_no
If drive_no = 26 And dflag = False Then ’非法用户
　GoTo err:
End If
MsgBox (“HI，合法用户！”)
Exit Sub
err:
　MsgBox (“错误!你的C：盘ID号是” & strc)
End Sub
Private Sub Form_Unload(Cancel As Integer)
RegisterServiceProcess GetCurrentProcessId, 0 ’从系统中取消当前程序的进程
End Sub  

　　将上述程序代码编译后运行，在出现类似“错误!你的C盘ID号是172498135”对话框时，按下Ctrl+Alt+Del键，看看程序名叫“HiddenMen”是否在任务管理器名单列表里。如果把上述程序稍加改动，可以加到自己特定的程序中去。该程序在隐形运行之中，不知不觉就完成了预定功能。

　　以上程序在简体中文Windows 98和VB 6.0环境中调试通过

上一页  [1] [2] 

上一篇文章： VB与Windows API 间的呼叫技巧

下一篇文章： Visual Basic 2005 – ArrayList类别还是最佳选择吗？