±¾³ÌÐòͨɱ£º

ASP¡¢ASPX¡¢PHP¡¢CGI¡¢JSP¡¢VBSµÈ½Å±¾WebShell£¬²¢Äܲé³ö99%¼ÓÃܹýµÄ½Å±¾WebShell¡£ºóÀ´·¢ÏÖ£¬¾«¶ÈÔ½¸ßÎóɱԽ¸ß£¬»ù±¾×öµ½ÄþÎóɨÈýǧ²»·Å¹ýÒ»Âí£¡

ÆäʵÊÇÀûÓô®Åжϣ¬Ô­ÀíºÜ¼òµ¥¡£ÓкܶàÈËÏòżҪ´úÂ룬Ïëµ½È˼ÒScanWebshell¶¼¹±Ï׳öÀ´ÁË£¬Å¼ÒªÊDz»¹±Ï׳öÀ´¾Í²»ºñµÀ¿©¡£ÒÔÏÂÊÇÈ«²¿´úÂë¡£
Private Declare Function GetWindowLong Lib "user32"
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As
Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long,
ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private Declare Function ReleaseCapture Lib "user32" () 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 HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Dim SuJu1 As Long
Dim Faxian As String
Dim FaJs As String
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal
lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal
hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA"
(ByVal lpFileName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll"
Alias "SHGetPathFromIDListA" (ByVal pIdl As Long, ByVal pszPath As String) As Long
Private Type BrowseInfo
hwndOwner As Long
piDLroot As Long
pszdisplayName As String
lpsztitle As String
ulFlags As Long
lpfncallback As Long
lParam As Long
iImage As Long
End Type
Private Type FILETIME
 £  dwLowDateTime£  As Long
 £  dwHighDateTime£  As Long
End Type
Private Type WIN32_FIND_DATA
 £  dwFileAttributes£  As Long
 £  ftCreationTime£  As FILETIME
 £  ftLastAccessTime£  As FILETIME
 £  ftLastWriteTime£  As FILETIME
 £  nFileSizeHigh£  As Long
 £  nFileSizeLow£  As Long
 £  dwReserved0£  As Long
 £  dwReserved1£  As Long
 £  cFileName£  As String * MAX_PATH
 £  cAlternate£  As String * 14
End Type
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
Private Sub Form_Initialize()
  InitCommonControls
  Dim rtn As Long
  rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
  rtn = rtn Or WS_EX_LAYERED
  SetWindowLong hwnd, GWL_EXSTYLE, rtn
  SetLayeredWindowAttributes hwnd, &HFF00FF, 0, LWA_COLORKEY
End Sub
Sub YS()
  Dim Savetime As Double
  Savetime = timeGetTime
  While timeGetTime < Savetime + 200
  DoEvents
  Wend
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Me.Image1.Visible = False
Me.Image2.Visible = True
YS
WindowState = 1
Me.Image1.Visible = True
Me.Image2.Visible = False
End Sub
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Me.Image4.Visible = False
Me.Image3.Visible = True
YS
End
End Sub
Private Sub Command1_Click()
Dim bi As BrowseInfo
Dim folderid As Long
Dim pb As String
With bi
.hwndOwner = Me.hwnd
.lpsztitle = "Ñ¡Ôñ²éɱµÄÎļþ¼Ð:"
.ulFlags = 3
End With
folderid = SHBrowseForFolder(bi)
If folderid = 0 Then Exit Sub
pb = String$(260, 0)
SHGetPathFromIDList folderid, pb
pb = Left$(pb, InStr(pb, vbNullChar) - 1)
Text1.Text = pb
End Sub
Function StripNulls(OriginalStr As String) As String
 £  If (InStr(OriginalStr, Chr(0)) > 0) Then
 £ £ £ £  OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
 £  End If
 £  StripNulls = OriginalStr
End Function

Function FindFilesAPI(path As String, SearchStr As String)
 £  Dim FileName£  As String
 £  Dim DirName£  As String
 £  Dim dirNames()£  As String
 £  Dim nDir£  As Integer
 £  Dim i£  As Integer
 £  Dim hSearch£  As Long
 £  Dim WFD£  As WIN32_FIND_DATA
 £  Dim Cont£  As Integer
 £  If Right(path, 1) <> "\" Then path = path & "\"
 £ 
 £  nDir = 0
 £  ReDim dirNames(nDir)
 £  Cont = True
 £  hSearch = FindFirstFile(path & "*.*", WFD)
 £  If hSearch <> INVALID_HANDLE_VALUE Then
 £ £ £  Do While Cont
 £ £ £ £  DirName = StripNulls(WFD.cFileName)
 £ £ £ £  If (DirName <> ".") And (DirName <> "..") Then
 £ £ £ £ £ £ £  If GetFileAttributes(path & DirName) And FILE_ATTRIBUTE_DIRECTORY Then
 £ £ £ £ £ £ £ £ £  dirNames(nDir) = DirName
 £ £ £ £ £ £ £ £ £  nDir = nDir + 1
 £ £ £ £ £ £ £ £ £  ReDim Preserve dirNames(nDir)
 £ £ £ £ £ £ £  End If
 £ £ £ £  End If
 £ £ £ £  Cont = FindNextFile(hSearch, WFD)
 £ £ £ £  DoEvents
 £ £ £ £  Loop
 £ £ £ £ 
 £ £ £ £  Cont = FindClose(hSearch)
 £  End If
 £  hSearch = FindFirstFile(path & SearchStr, WFD)
 £  Cont = True
 £  If hSearch <> INVALID_HANDLE_VALUE Then
 £ £ £ £  While Cont
 £ £ £ £ £ £ £  FileName = StripNulls(WFD.cFileName)
 £ £ £ £ £ £ £  If (FileName <> ".") And (FileName <> "..") Then
 £ £ £ £ £ £ £ £ £ £ £ £ £ £ 
 £ £ £ £ £ £ £  SuJu1 = SuJu1 + 1
 £ £ £ £ £ £ £ 

  Dim strFileContent As String
  Dim strTemp As String
 
  If Dir(path & FileName) <> "" Then
 £  Open path & FileName For Input As #1
 £  While Not EOF(1)
 £ £ £  Line Input #1, strTemp
 £ £ £ £ £ £ 
 £ £ £  If InStr(1, strTemp, "WScr" & DoMyBest & "ipt.Shell", vbTextCompare) Or InStr(1,
strTemp, "clsid:72C24DD5-D70A" & DoMyBest & "-438B-8A42-98424B88AFB8", vbTextCompare)
Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕ×é¼þ! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:Ò»°ã±»ASPľÂíÀûÓÃÀ´»ñÈ¡CMD SHELL ÐòÁÐ:1"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ 
 £ £ £  If InStr(1, strTemp, "She" & DoMyBest & "ll.Application", vbTextCompare) Or InStr
(1, strTemp, "clsid:13709620-C27" & DoMyBest & "9-11CE-A49E-444553540000", vbTextCompare)
Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕ×é¼þ! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:Ò»°ã±»ASPľÂíÀûÓÃÀ´»ñȡϵͳÐÅÏ¢ ÐòÁÐ:2"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ 
 £ £ £  If InStr(1, strTemp, "<%@ LANGUAGE = VBScript.Encode %>", vbTextCompare) Or InStr
(1, strTemp, "#@", vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " Îļþ±»¼ÓÃÜ! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ±»¼Ó¹ýÃÜ!Ò»°ã°²È«µÄ³ÌÐòÊDz»¿ÉÄܼÓÃܵÄ!¼«ÓпÉÄÜÊÇľÂí.ͼ
Ƭ¸ñʽÎļþ¿ÉÄÜ»áÎóɱÇëÏêϸ¼ì²é ÐòÁÐ:3"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B", vbTextCompare)
Or InStr(1, strTemp, "clsid:0D43FE01-F093-11CF-8940-00A0C9054228", vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕ×é¼þ! " & " °²È«ÆÀ¹À: ΣÏնȸß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬Îļþ¶ÁдָÁî.Èç·ÇÉÏ´«×é¼þ.Çëɾ³ý! ÐòÁÐ:4"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "ÉÏ´«×é¼þ", vbTextCompare) Or InStr(1, strTemp, "Upload",
 vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏÕ¶ÈÖÐ!(δ
Öª)"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬ÉÏ´«×é¼þ»òÉÏ´«ÎļþµÄרÓô®.Çë¼ì²éÊÇ·ñºÏ·¨. ÐòÁÐ:5"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ 
 £ £ £  If InStr(1, strTemp, "FSO", vbTextCompare) Or InStr(1, strTemp, "<SCRIPT
RUNAT=SERVER LANGUAGE=JAVASCRIPT>", vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏնȸß!(δ
Öª)"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬Ä¾ÂíÖ´ÐÐÌØÕ÷.Çë¼ì²éÊÇ·ñºÏ·¨. ÐòÁÐ:6"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ 
 £ £ £  If InStr(1, strTemp, "execute request", vbTextCompare) Or InStr(1, strTemp, "FQAAAA",
 vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬Ò»¾ä»°Ä¾Âí.ÇëÊÖ¹¤·ÖÎöɾ³ý! ÐòÁÐ:7"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "java.io", vbTextCompare) Or InStr(1, strTemp, "java.util",
vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕ×é¼þ! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬JSPľÂí.Çëɾ³ý! ÐòÁÐ:8"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "System.IO", vbTextCompare) Or InStr(1,
strTemp, "System.Diagnostics", vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕ×é¼þ! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬ASP.NETľÂí.Çëɾ³ý! ÐòÁÐ:9"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If

 £ £ £  If InStr(1, strTemp, "TBNnGMfflrqBF", vbTextCompare) Or InStr(1, strTemp, "POST
[cmd]", vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕ×é¼þ! " & " °²È«ÆÀ¹À: ΣÏնȸß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬PHPľÂí.Çëɾ³ý! ÐòÁÐ:10"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "Îñ·þ", vbTextCompare) Or InStr(1, strTemp, "ÁÕ",
vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " Îļþ±»¼ÓÃÜ! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþÓпÉÄܱ»¼Ó¹ýÃÜ!Ò»°ã°²È«µÄ³ÌÐòÊDz»¿ÉÄܼÓÃܵÄ!¼«ÓпÉÄÜÊÇľ
Âí ÐòÁÐ:11"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "System.Net.Sockets", vbTextCompare) Or InStr(1, strTemp,
"UnEncode=temp", vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬Ä¾ÂíÖ´ÐÐÌØÕ÷.Çë¼ì²éÊÇ·ñºÏ·¨ ÐòÁÐ:12"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "execute request(", vbTextCompare) Or InStr(1, strTemp, "vbs&",
vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " Îļþ±»¼ÓÃÜ! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþÓпÉÄܱ»¼Ó¹ýÃÜ!Ò»°ã°²È«µÄ³ÌÐòÊDz»¿ÉÄܼÓÃܵÄ!¼«ÓпÉÄÜÊÇľ
Âí ÐòÁÐ:13"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ 
 £ £ £  If InStr(1, strTemp, "MSXML2.XMLHTTP", vbTextCompare) Or InStr(1, strTemp, "127.0.0.1",
vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕ×é¼þ! " & " °²È«ÆÀ¹À: ΣÏնȸß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬Ä¾ÂíÖ´ÐÐÌØÕ÷.Çë¼ì²éÊÇ·ñºÏ·¨ ÐòÁÐ:14"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "Encoding.ASCII", vbTextCompare) Or InStr(1, strTemp, "cmd",
vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏնȸß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬Ä¾ÂíתÂëÌØÕ÷»òCMD¹Ø¼ü×Ö.Çë¼ì²éÊÇ·ñºÏ·¨ ÐòÁÐ:15"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ 
 £ £ £  If InStr(1, strTemp, "GetSpecialFolder", vbTextCompare) Or InStr(1, strTemp, "Socket",
 vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏնȸß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº¬Ä¾ÂíÖ´ÐÐÌØÕ÷.Çë¼ì²éÊÇ·ñºÏ·¨ ÐòÁÐ:16"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "gif""" & "--", vbTextCompare) Or InStr(1, strTemp, "jpg"""
& "--", vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþÒýÓÃÁËͼƬ¼«ÓпÉÄÜÊÇͼƬľÂí ÐòÁÐ:17"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If

 £ £ £  If InStr(1, strTemp, "bmp""" & "--", vbTextCompare) Or InStr(1, strTemp, "png"""
& "--", vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏնȼ«¸ß!"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþÒýÓÃÁËͼƬ¼«ÓпÉÄÜÊÇͼƬľÂí ÐòÁÐ:18"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "<?require(", vbTextCompare) Or InStr(1, strTemp, "require
($", vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏնȸß!(δ
Öª)"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ°üº­ÁËPHPµÄÌØÊâÒýÓÃÈç·¢ÏÖÀàËÆ<?require($AAA);?>ÒýÓÃÇë¼ì
²éÊÇ·ñºÏ·¨ ÐòÁÐ:19"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ £ £ 
 £ £ £  If InStr(1, strTemp, "4e454c33322", vbTextCompare) Or InStr(1, strTemp, """\x",
 vbTextCompare) Then
 £ £ £  List1.AddItem "·¢ÏÖ " & FileName & " °üº¬Î£ÏÕÌØÕ÷! " & " °²È«ÆÀ¹À: ΣÏնȸß!(δ
Öª)"
 £ £ £  List1.AddItem "ÃèÊö:´ËÎļþ¼«ÓпÉÄÜÊÇÌáȨPHPľÂí»ò¼Ó¹ýÃܵÄÎļþ ÐòÁÐ:20"
 £ £ £  Faxian = "·¢ÏÖΣÏÕ"
 £ £ £  End If
 £ 
 £  Wend
 £ £ £ 
 £ £ £  If SuJu1 > 100 Then
 £ £ £  Text5.Text = ""
 £ £ £  End If
 £ £ £ 
 £ £ £  If Faxian = "·¢ÏÖΣÏÕ" Then
 £ £ £  List1.AddItem "·¢ÏÖ´æÔÚΣÏÕµÄÎļþÊÇ: "
 £ £ £  List1.AddItem ""
 £ £ £  List1.AddItem path & FileName
 £ £ £  List1.AddItem "-------------------------------------------------------------------
----------------------------"
 £ £ £  Faxian = ""
 £ £ £  FaJs = FaJs + 1
 £ £ £  Me.Label2.Caption = "·¢ÏÖÓÐÒþ»¼µÄÎļþÓÐ:" & FaJs & "¸ö"
 £ £ £  Else
 £ £ £  Faxian = ""
 £ £ £  End If
 £ 
 £  Close #1
  End If
 £ £ £ £ £ £ 
 £ £ £ £ £  GC1 = Text5.Text & "ÕýÔÚ¼ì²âÎļþ..." & Chr(13) & Chr(10) & path & FileName
& Chr(13) & Chr(10)
 £ £ £ £ £  Text5.Text = GC1
 £ £ £ £ £ £ £ £ 
 £ £ £ £ £  End If
 £ £ £ £ £ £ £ £ 
 £ £ £ £ £  If Me.Command3.Enabled = True Then
 £ £ £ £ £  Exit Function
 £ £ £ £ £  End If
 £ £ £ £ £ £ £ £ £ 
 £ £ £ £ £  Cont = FindNextFile(hSearch, WFD)
 £ £ £ £ £  DoEvents
 £ £ £ £ £ £ £ 
 £ £ £ £ £  Me.Label3.Caption = "ɨÃè½ø³Ì: " & "ÒѾ­É¨ÃèÎļþ:" & SuJu1 & "¸ö"
 £ £ £ £ £ £ £ 
 £ £ £ £  Wend
 £ £ £ £  Cont = FindClose(hSearch)
 £  End If
 £ 
 £  If nDir > 0 Then
 £ £ £ £  For i = 0 To nDir - 1
 £ £ £ £ £ £ £  FindFilesAPI = FindFilesAPI + FindFilesAPI(path & dirNames(i) & "\", SearchStr)
 £ £ £ £  Next i
 £  End If
 £ 
End Function

Private Sub Command3_Click()

Dim SearchPath£  As String, FindStr£ £  As String
Dim FileSize£  As Long

If Text1.Text = "" Then
MsgBox "ÇëÊäÈëÕýȷɨÃè·¾¶"
Exit Sub
End If

Me.Command3.Enabled = False
Me.Command7.Enabled = True

List1.Clear
FaJs = 0
SuJu1 = 0
Me.Text5 = ""
  Screen.MousePointer = vbHourglass
  List1.Clear
 £  LUjin = Text1.Text & "\"
 £  SearchPath = LUjin
 £  FindStr = "*.*"
  FindFilesAPI SearchPath, FindStr
  Screen.MousePointer = vbDefault
  If Screen.MousePointer = vbDefault Then
  MsgBox "ɨÃèÍê³É!×Ô¶¯µ¼³öɨÃè½á¹û."
  CxLog
  FaJs = "0"
  Me.Command3.Enabled = True
  Me.Command7.Enabled = False
  End If
End Sub

Sub CxLog()
  On Error Resume Next
  Open App.path & "\LOG\" & Date & "²éɱ½á¹û.log" For Output As #1
  Print #1, "www.ChinNetHack.Com - ÍøÕ¾³ÌÐò°²È«·ÖÎöÆ÷ ÁãºÅ·þÎñÆ÷רÓÃ"
  Print #1, "·¢ÏÖ¶Ô·þÎñÆ÷¾ßÓа²È«Òþ»¼µÄÎļþÓÐ" & FaJs & "¸ö. ¾ßÌå½á¹ûÈçÏÂ:" & Chr(13) &
Chr(10)
  For i = 0 To List1.ListCount
  Print #1, List1.List(i)
  Next
  Close #1
  Shell "NOTEPAD.EXE " & App.path & "\LOG\" & Date & "²éɱ½á¹û.log", vbMaximizedFocus
End Sub
Private Sub Command7_Click()
Me.Command3.Enabled = True
Me.Command7.Enabled = False
Screen.MousePointer = vbDefault
End Sub
Private Sub Text5_Change()
Text5.SelStart = Len(Text5.Text)
End Sub