Private Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA” (ByVal nDrive As String) As Long ’获得当前驱动器类型函数的声明 Private Declare Function GetVolumeInformation Lib “kernel32” Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long ’获得当前驱动器信息函数的声明 Private Sub Form_Load() Dim drive_no As Long, drive_flag As Long Dim drive_chr As String, drive_disk As String Dim serial_no As Long, kkk As Long Dim stemp3 As String, dflag As Boolean Dim strlabel As String, strtype As String,strc As Long RegisterServiceProcess GetCurrentProcessId, 1 ’ 从系统中取消当前进程 strlabel = String(255, Chr(0)) strtype = String(255, Chr(0)) stemp3 = “172498135” ’这是作者C盘的序列号(十进制),读者可根据自己情况更改。 dflag = False For drive_no = 0 To 25 drive_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 |
相关推荐
vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb杀木马软件源代码vb...
vb6.0制作。可以设定某程序到某一时间运行。但暂时只能添加单一程序。就是指运行时不能设定多个任务。但可以运行多个本程序。ps:后来又添加了一个回车触发添加的函数。但没有必要再上传了。把那个函数代码写在下面,...
1.剖析网页木马的工作原理 2.理解木马的植入过程 3.学会编写简单的网页木马脚本 4.通过分析监控信息实现手动删除木马
VB编程源代码 15在关闭程序对话框中隐藏运行程序名称VB编程源代码 15在关闭程序对话框中隐藏运行程序名称VB编程源代码 15在关闭程序对话框中隐藏运行程序名称VB编程源代码 15在关闭程序对话框中隐藏运行程序名称VB...
VB 程序运行列表 VB 程序运行列表 VB 程序运行列表
VB实现托盘程序
VB 建立文件运行程序 VB 建立文件运行程序
用vb实现远程关机程序用vb实现远程关机程序用vb实现远程关机程序
VB实现自动按键,VB实现自动按键,VB实现自动按键
VB课程设计 包括报告及程序,据对能运行 而且报告格式正规
脚本木马查杀工具VB源码脚本木马查杀工具VB源码脚本木马查杀工具VB源码脚本木马查杀工具VB源码脚本木马查杀工具VB源码
利用VB,实现鼠标钩子程序,不要干坏事喔
精彩编程与编程技巧-用VB实现动态显示操作进度程序 ...
【程序老媛出品,必属精品,亲测校正...资源名:VB实现FTP功能程序源码 资源类型:程序源代码 源码说明: 基于vb写的实现ftp功能的程序源码 包含完整代码和注释 非常适合借鉴学习 适合人群:新手及有一定经验的开发人员
资源名:VB.NET实现TCPIP通讯转发功能程序源码 资源类型:程序源代码 源码说明: 最近需要研究一个通讯,监视抓包的工具感觉不是很直观,网上找到的工具只能转发却看不到数据包内容,实在忍不了了。所以自己写了个,...
用vb语言实现的功能 实现的窗体和文本框的下拉和弹出式菜单
使用VB实现的绘图程序.实现了颜色选择,文件操作,图形选择等功能!
VB实现的俄罗斯方块源程序 VB趣味小程序
vb实现的计时器程序,代码很简单,适合初学者用来入门。
【工控老马出品,必属精品,亲测校正,质量...资源名:VB实现网站用户登录和注册功能程序源码 资源类型:程序源代码 源码说明:包含 登录、注册、更改密码 功能,很适合学习借鉴 适合人群:新手及有一定经验的开发人员