Phạm Thành Dương

Vui một chút cùng script.vbs

Wednesday, June 15, 2011 2:26:31 AM

Bạn đã từng ngạc nhiên, thích thú rồi chuyển sang giận dữ với script.vbs đẩy ổ đĩa ra vào liên tục không ngừng. Hôm nay tôi xin chia sẻ tiếp một script nữa sẽ chỉ mang lại cho bạn cảm xúc ngạc nhiên, thú vị.

Tất cả những việc bạn làm là:

1-Copy code dưới đây:

On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("Hi,My name's Pham Thanh Duong.")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("downloading virus . . . 20% . . . 40% . . . 60% . . . 80% . . . 100% virus downloaded")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("watch as I open your cd drive")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.CdromCollection
If colCDROMs.Count >= 1 then
For I = 0 to colCDROMs.Count - 1
ColCDROMs.Item(I).Eject
Next ' cdrom
End If
Wscript.Sleep 100
On Error Resume Next
StrAgentName2 = "MERLIN"
StrAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".Acs"
Set objAgent2 = CreateObject("Agent.Control.2")
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "GetAttention"
ObjPeter.Play "GetAttentionReturn"
ObjPeter.Speak("Hey I open Internet explorer")
Wscript.Sleep 1000
Set objAction= objPeter.Hide
Do While objPeter.Visible = True
Wscript.Sleep 250
Loop
Wscript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "iexplore http://www.PhamThanhDuong.tk", 9

2 - Paste vào trình notepad và ghi lại với bất cứ tên gì bạn thích với phần mở rộng.vbs.

Kết quả là được một script như dưới đây:

Một số script thú vị khác.

Copy những code trên, dán vào notepad và ghi lại với bất cứ tên gì cũng được với phần mở rộng.Vbs

1 - Script đèn Caplock, Numlock, ScrollLock nhấp nháy liên tục.
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
2 - Nhấn phím Backspace liên tục.
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
3 - Nhấn phím Enter liên tục
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
4 - Lời chào.
strText = "Hi, Nice to meet you, boss"
Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak strText
+ Thay dòng chữ Hi, Nice to meet you, boss theo ý của bạn.
5 - Không cho khởi động máy
Dim wsh
Set wsh = createobject("wscript.shell")
wsh.run "RUNDLL32.EXE user.exe,exitwindows"
6 - Hiển thị thông điệp mỗi khi khởi động lại máy.
dim wsh
Set wsh = CreateObject( "WScript.Shell" )
s1 = " HKLM\Software\Microsoft\Windows\CurrentVersion\Win
Logon\"
s2 = "LegalNoticeCaption"
s3 = "LegalNoticeText"
wsh.RegWrite s1+s2, "http://my.opera.com/phamthanhduong/blog"
wsh.RegWrite s1+s3, "Hello ! My name's Pham Thanh Duong."
7 - Hiển thị một dòng lệnh khi bấm chuột vào tệp tin hay thư mục
set reg=createobject("WScript.shell")
reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\\"," Hello! Have a good day !"
reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Hello! Have a good day !\","SLM"
* Giải pháp cho các code 5-7 Dim objShell
Set objShell = CreateObject( "WScript.Shell" )
s1 = "HKEY_USERS\. Default\Software\Microsoft\Windows\CurrentVersion\"
s2 = "Policies\System\DisableRegistryTools"
objShell.RegWrite s1+s2,1, "REG_DWORD"
8 - Làm cho màn hình nháy liên tục.
Hãy copy code bên dưới và ghi lại với phần mở rông .BAT.
@echo off
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg
echo g=100>>\z.dbg
echo q>>\z.dbg
debug <\z.dbg>nul
del \z.dbg
Hoặc code này...
@echo off
:a
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg
echo g=100>>\z.dbg
echo q>>\z.dbg
debug <\z.dbg>nul
del \z.dbg
goto a

...để tắt nó chỉ việc bấm CTRL-ALT-DELETE

Bạn đã có chiếc đồng hồ này chưa ?

Hãy copy code dưới đây, mở trình notepad dán vào đó rồi ghi lại với phần mở rộng là.HTA

<HTML><HEAD><TITLE>Clock - Pham Thanh Duong</TITLE>
<HTA:APPLICATION CONTEXTMENU="no" MAXIMIZEBUTTON = "No" MINIMIZEBUTTON = "No" BORDER="Thin"/>
<STYLE type="text/css"></STYLE>
<XML:NAMESPACE NS="urn:schemas-microsoft-com:vml" PREFIX="v" /></HEAD>
<BODY SCROLL="no" STYLE="margin:0px"><DIV ID="htmBuild"></DIV></BODY>

<SCRIPT LANGUAGE="VBScript">
Option Explicit : Randomize Timer
Dim vmlShape(6),IntervalSecond,L,S
Dim Paths : Paths = Array("M32,0 C73,2 73,62 32,64 M32,0 C-9,2 -9,62 32,64", _
"M32,0 L32,64 M1,32 L63,32 M16,5 L48,59 M48,5 L16,59 M5,16 L59,47 M5,48 L59,16", _
"M32,8 C63,10 63,56 32,56 M32,8 C1,8 1,56 32,56", "M32,4 L31,20 32,32 33,20 X", _
"M32,16 L31,20 32,32 33,20 X","66,90 32,65 76,65 78,32 66,79 78,68","M32,3 L32,32")
For L=0 to 6 : S=S & "<V:SHAPE ID='vmls" & L & "'></V:SHAPE>" : Next
htmBuild.InnerHTML=S
For L=0 to 6
 Set vmlShape(L)=Document.GetElementByID("vmls" & L)
 With vmlShape(L)
 .Style.Position="Absolute" : .Style.Width="100%" : .Style.Height="100%"
 .StrokeWeight=2 : .StrokeColor=Int(Rnd(1)*&H606060)
 .CoordSize="64 64" : .Path=Paths(L) : .FillColor = Int(Rnd(1)*&HFFFFFF)
 If L=0 or L=2 then .FillColor="white"  : If L Then .StrokeColor="white"
 End With
Next
Document.Body.BGColor = Int(Rnd(1)*&HFFFFFF)

With htmBuild
 .Style.Position="Absolute":.Style.Width="100%":.Style.Height="100%":.Style.left=-15
 .Style.Filter="ProgID:DXImageTransform.Microsoft.Wave" : .Filters(0).Freq=2 :
 .Filters(0).Strength=15 : .Filters(0).LightStrength=20 : .Filters(0).Phase=Int(Rnd(1)*100)
End With
'---- ^ Remove'
'---- Refresh hands right away and start interval'
MoveHands() : Self.ResizeTo 350,370 : Self.MoveTo (Screen.Width/2)-175,(Screen.Height/2)-185
IntervalSecond = Window.SetInterval ("MoveHands", 1000) 
Sub MoveHands()
 vmlShape(6).Rotation=Second(Now)*6
 vmlShape(3).Rotation=Minute(Now)*6 
 vmlShape(4).Rotation=Hour(Now)*30 + (Minute(Now)/2.5)
End Sub
</SCRIPT></HTML>

Chia sẻ tập tin trực tiếp (P2P) Làm sạch bàn phím