Function GetListFile(ByVal folder As String, ByVal Search As String, ByVal InSub As Boolean)
' nęěu InSub = True thiĚ tiĚm trong caŇ caěc thý muňc con
' nęěu InSub = False thiĚ maŇng traŇ vęĚ chiŇ chýěa tęn caěc tâňp tin. Nęěu InSub = True thiĚ maŇng traŇ vęĚ chýěa toaĚn bôň đýőĚng dâŢn
Dim sComm As String, tmpFile, text As String, m() As Byte, Arr
On Error GoTo ExitSub
If Right(folder, 1) <> "\" Then folder = folder & "\"
folder = """" & folder & """"
With CreateObject("Scripting.FileSystemObject")
tmpFile = .GetTempName
sComm = "dir " & folder & Search & " /b " & IIf(InSub, "/s", vbNullString) & " > " & tmpFile
CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
text = .OpenTextFile(tmpFile, 1, , -1).ReadAll
Arr = Split(text, vbCrLf)
If UBound(Arr) = -1 Then GoTo ExitSub
' chăěc chăěn phâĚn týŇ cuôěi cuĚng laĚ rôŢng, loaňi boŇ
If Arr(UBound(Arr)) = "" Then ReDim Preserve Arr(0 To UBound(Arr) - 1)
GetListFile = Arr
End With
ExitSub:
'Kill tmpFile
End Function
Chào các bạn TV GPE,
GPE đã xóa (thay thế link) các bài có liên quan đến các trang có chứa mã độc và tôi đã gửi yêu cầu Google Review lại website GPE sáng nay. Hy vọng sau khi review thì cảnh báo sẽ được gở bỏ. (Theo kinh nghiệm của 1 số trang web đã từng bị vấn đề này thì cần 2 ngày để google gỡ bỏ thông báo).
Ngoài ra tôi sẽ tải toàn bộ diễn đàn về máy và quét virus, sau đó sẽ upload lên lại.
Thân,
Thanh Phong
Kết quả không có gì đáng ngại nhưng vẫn còn nằm trong danh sách đen như anh Phong nói ở trên.Chào anh Tuấn,
Nhiều chương trình phần mềm mạng (chat, mail server, trình duyệt,...) sử dụng một nguồn dữ liệu chứng thực nào đó và từ đó đưa ra các cảnh báo. Có lẽ FF cũng có sử dụng Blacklist của Google để làm cơ sở cảnh báo mã độc.
Hiện tại Phong đã quét hết website và upload lên lại, anh chị có thể an tâm truy cập GPE. Ngoài ra, anh chị có thể vào trang http://sitecheck.sucuri.net/scanner/ để kiểm tra lại GPE.
Thanh Phong
Trạng thái đánh giá phần mềm độc hại mới nhất của trang web này: Đã hoàn tất việc xem xét lại trang web này. Trang web hoàn toàn hợp lệ. Các cảnh báo về phần mềm độc hại từ tìm kiếm trang web đang được xóa bỏ. Hãy lưu ý rằng có thể mất vài phút để thông báo thay đổi này.
Nhóc đăng nhập GPE đã trở lại bình thường rồi. Hi..sáng nay còn có thành viên nói có phải CR hark diễn đàn hong. Hic...bó tay luôn.