Dim fs As New FileStream(“xxx.log", FileMode.Open, FileAccess.Read, FileShare.ReadWrite) Dim read As New IO.StreamReader(fs, System.Text.Encoding.Default) Dim txt As String If log_all_Len > 0 Then
ContainsData 查询剪贴板上是否存在指定数据格式的数据。
ContainsFileDropList 查询剪贴板上是否存在 FileDrop 数据格式的数据。
ContainsImage查询剪贴板上是否存在 Bitmap 数据格式的数据。
ContainsText 查询剪贴板上是否存在 UnicodeText 格式的数据。
通过HOOK该系统函数，那么我们就可以捕获到系统详细的CMD命令情况。
在注册表的 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor] “AutoRun”=“run.bat“ 这个注册表位置是所有cmd命令启动的时候都要检测 的地方，如果这个值不为空， 那就调用EXPLORE提 示符进行劫持。比如通过xxx.cmd脚本来替换原有的命令提示符管道。这样就可以 记录下CMD的详细执行记录。
read.BaseStream.Seek(log_all_Len, IO.SeekOrigin.Begin) End If While read.Peek > 0
txt = read.ReadLine If txt.Length = 0 Then Continue While log_all_Len += txt.Length + 2 ListBox1.Items.Add(txt & "|" & log_all_Len) End While read.Close()
