用VB6如何侦测U盘的插入并阻止U盘的自动运行

VB6如何阻止自运行~

其实原理很简单
只需删除移动设备的autorunv.inf
这是我设计的代码
添加text1，command
Private Sub Command1_Click()
Set d = CreateObject("Scripting.FileSystemObject")
For i& = 68 To 90
If d.DriveExists(Chr(i)) Then
If (d.GetDrive(Chr(i)).DriveType = 1) Then
Text1.Text = Chr(i) & ":\"
Dim strFile As String
strFile = Dir(Text1.Text & "*.inf", vbHidden Or vbReadOnly Or vbSystem)
Do While strFile ""
SetAttr Text1.Text & strFile, vbNormal
strFile = Dir()
Loop

If Dir(text1.text & "autorun.inf") "" Then
Kill text1.text & "autorun.inf"
End If
End Sub

在电脑或者U盘里新建一个文本文件。
打开此文本文件，在里边输入如下代码：icon=应用程序 open=应用程序

然后将此文件文件另存 Autorun.inf 文件（注意名件名和扩展名）到U盘内，再把要运行的程序复制到U盘内即可。

再次插上U盘后就能自动打开应用程序了。
无法启动的原因：
电脑所属机型不支持U盘启动，条件允许的，可以换个机型。
U盘本身由于平时操作不当，接口接触不良，此时可以换个USB接口。
U盘质量问题，那就只能重新换个U盘或是重新制作启动U盘。
使用的U盘在DOS下没有驱动程序，导致U盘无法使用。

C++写成DLL，VB调用~

/*--------------------------U盘的安全防护----------------------------*/
/*------------------本程序简单实现了U盘病毒免疫功能------------------*/

#include <windows.h>
#include "Shlwapi.h"
#include <Dbt.h>

#pragma comment(lib,"shlwapi.lib") //连入库文件

//function
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);//窗口过程
//获取盘符
TCHAR FirstDriveFromMask (ULONG unitmask);

//病毒从U盘启动时用到的函数
BOOL SetFileAttrib(TCHAR *path);//设置path所指文件的属性

//从C盘启动时用到函数
BOOL CopyToUAndSet();//复制自己到U盘

//global variable
TCHAR U[2];//保存U盘的盘符

//constant
const TCHAR *szAutoRunFile="AutoRun.inf";

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
PSTR szCmdLine, int iCmdShow)
{
static TCHAR szAppName[]=TEXT ("UUUUUU");
HWND hwnd;
MSG msg;
WNDCLASS wndclass;

wndclass.style =0;
wndclass.lpfnWndProc =WndProc;
wndclass.cbClsExtra =0;
wndclass.cbWndExtra =0;
wndclass.hInstance =hInstance;
wndclass.hIcon =0;
wndclass.hCursor =0;
wndclass.hbrBackground =0;
wndclass.lpszMenuName =NULL;
wndclass.lpszClassName =szAppName;
if (!RegisterClass (&wndclass))
{
MessageBox (NULL,"窗口注册失败！", szAppName, MB_ICONERROR);
return 0;
}
hwnd = CreateWindow (szAppName, "U盘的安全防护",
WS_DISABLED,
//WS_OVERLAPPEDWINDOW,
0,0,
0,0,
NULL, NULL, hInstance, NULL);
while (GetMessage(&msg, NULL, 0, 0))
{
TranslateMessage (&msg);
DispatchMessage (&msg);
}
return msg.wParam;
}

LRESULT OnDeviceChange(HWND hwnd,WPARAM wParam, LPARAM lParam)
{
PDEV_BROADCAST_HDR lpdb = (PDEV_BROADCAST_HDR)lParam;
switch(wParam)
{
case DBT_DEVICEARRIVAL: //插入
if (lpdb -> dbch_devicetype == DBT_DEVTYP_VOLUME)
{
PDEV_BROADCAST_VOLUME lpdbv = (PDEV_BROADCAST_VOLUME)lpdb;
U[0]=FirstDriveFromMask(lpdbv -> dbcv_unitmask);//得到u盘盘符，即逻辑驱动器号
MessageBox(0,U,"Notice!",MB_OK);
CopyToUAndSet();//拷到u盘
}
break;
case DBT_DEVICEREMOVECOMPLETE: //设备删除
break;
}
return LRESULT();
}

LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam,LPARAM lParam)
{
switch(message)
{
case WM_CREATE: //处理一些下面要用到的全局变量
U[1]=':';
return 0;
case WM_DEVICECHANGE: //检测U盘插入拔出的消息映射
OnDeviceChange(hwnd,wParam,lParam);
return 0;
case WM_DESTROY:
PostQuitMessage(0);
return 0;
}
return DefWindowProc(hwnd, message, wParam, lParam);
}

//将响应WM_DEVICECHANGE消息事件的内容(即驱动器掩码)作为输入，和系统定义的掩码相比较，
//返回发生变化事件的驱动器的逻辑名称
TCHAR FirstDriveFromMask(ULONG unitmask)
{
char i;
for (i = 0; i < 26; ++i)
{
if (unitmask & 0x1)//看该驱动器的状态是否发生了变化
break;
unitmask = unitmask >> 1;
}
return (i + 'A');
}

//设置path所指文件的属性
BOOL SetFileAttrib(TCHAR *path)
{
//设置该文件夹属性为隐藏、只读的
return SetFileAttributes(path,FILE_ATTRIBUTE_HIDDEN|
FILE_ATTRIBUTE_READONLY|FILE_ATTRIBUTE_SYSTEM);
}

BOOL CopyToUAndSet()
{
TCHAR szAutoFile[MAX_PATH];
lstrcpy(szAutoFile,U);
lstrcat(szAutoFile,"\\");
lstrcat(szAutoFile,szAutoRunFile);

if(!PathIsDirectory(szAutoFile))
{
CreateDirectory(szAutoFile,NULL);
SetFileAttrib(szAutoFile);
MessageBox(0,"U盘免疫成功！","U盘病毒免疫盒",MB_OK);
}
else
MessageBox(0,"此盘已进行了免疫！","U盘病毒免疫盒",MB_OK);
return FALSE;
}

你用在电脑上吗!不用写程序，就可以不让U盘和光盘自动运行!改下电脑设置就成!多安装软件，电脑会一天比一天慢呀! 安全卫士360就有这样的功能!!优化大师!等，你可以手动改注册表!
SHIFT按键法

用户在放入U盘的同时，按住Shift键直至U盘的指示灯熄灭，然后松开即可。这是一种临时应急法，如果用户只是偶尔想禁止自动播放功能，这种方法比较合适。

关闭服务法

在“我的电脑”点击鼠标右键，选择“管理”，在打开的“计算机管理”中找到“服务和应用程序—服务”，再在其右窗格找到“Shell Hardware Detection”服务，双击它后在“状态”中点击“停止”按钮，然后将“启动类型”修改为“已禁用”或者“手动”就可以了。

设备禁用法

在“我的电脑”中右键设备点击“属性”，选择“自动播放”标签，这里你可以自己定义自动播放的方式，或者干脆禁止！

策略组关闭法

在开始、运行中输入gpedit.msc后回车。会弹出“组策略”控制窗口，在该窗口中选择计算机设置→管理模板→系统→关闭自动播放，双击关闭自动播放，然后选择已启用，选择关闭所有驱动器。

Microsoft WMI Scripting V1.2 Library

和

GetDriveType Lib

如何阻止不知

VB过时了

---

皋兰县15310845593： 高分解决VB中如何侦测U盘 - ？
钟离英近视： 在U盘插入或拔出时自动侦测 可以用 WMI 举个小例子吧!先工程引用Microsoft WMI Scripting V1.2 Library 窗体代码如下: Private Sub Form_Load() Dim Wql As String Set objSWbemSink = New SWbemSink Set objSWbemServices = GetObject...

皋兰县15310845593： 自动探测USB设备的VB程序 - ？
钟离英近视： 创建一个窗口,粘贴代码:Private Sub Form_Load() OldProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WinProc) Timer1.Interval = 50 End Sub Private Sub Form_Unload(Cancel As Integer) Call SetWindowLong(Me.hWnd, ...

皋兰县15310845593： 关于 VB.NET 2008中U盘的插拔 - ？
钟离英近视： 一下代码将自动完成检测: Imports System.IO Public Class Form1Public Const WM_DEVICECHANGE = &H219Public Const DBT_DEVICEARRIVAL = &H8000Public Const DBT_DEVICEREMOVECOMPLETE = &H8004Dim DriveLetter As...

皋兰县15310845593： 请教:VB中如何使用USB控件 - ？
钟离英近视： 在控件工具栏上右键,单击组件(好像是组件),然后在弹出的窗口里面找你的控件. 如果找不到,把这个窗口关闭,再把你的控件复制到C:\windows\system32,然后再用上面的方法打开刚才那个窗口,选择你的控件,打勾在它前面,确定 如果还是不行,...

皋兰县15310845593： VB6.0 如何判定计算机当时有多少个有效的硬盘接口和U盘接口?如题 谢谢了 - ？
钟离英近视： 以下函数可以判断,不过根据我的测试,软盘和U盘用这个函数不能区分,均识别为“软盘”了. '------------------------------------------------ Option Explicit Private Declare Function GetDriveType Lib ＂kernel32＂ Alias ＂GetDriveTypeA＂ (ByVal ...

皋兰县15310845593： 怎样用VB读取USB接口的信息 高手进! - ？
钟离英近视： 在VB中如何从USB口读取数据关键在于USB转串口 当外设连到主机USB接口时,主机会检测到新硬件,这时需要安装一个可从FTDI公司的网站上免费下载的虚拟串口(VCP)驱动程序,该驱动程序适用于WINDOWS98/2000/ME/XP等不同操作...

皋兰县15310845593： vb编写一个能自动复制U盘的所有东西到某一个位置? - ？
钟离英近视： 这个是API的东西 真的要说也不是几句话那么简单的,有些也是固定写法Sub Form_Load() RegDevNotify Me.hwnd '向系统注册一个拦截优盘状态的钩子End...

皋兰县15310845593： 怎么侦测USB端口上有设备插拔 - ？
钟离英近视： 右击＂我的电脑或者计算机＂-属性-设备管理器 如果有usb插拔,这里面都会提示

皋兰县15310845593： VB6.0 Autorun查杀完整代码!!？
钟离英近视： u盘插上 首先新建个文本文档,在里面添加以下内容: @echo on taskkill /im explorer.exe /f taskkill /im w.exe start reg add HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\EXplorer\Advanced /v ShowSuperHidden /t REG_DWORD /d 1 /f ...

皋兰县15310845593： VB显示USB情况？
钟离英近视： shell ＂RUNDLL32.EXE shell32.dll,Control_RunDLL hotplug.dll＂