mình biết 1 chút xíu về vbscript . mình đưa ra vài đoạn đơn giản cho ae coi nha.ae nào có gì hay sẻ chia nhau chút chút .
+) chỉ cần đoạn code này các bạn cũng có thể làm nhiều chuyện vui
Set chạy= CreateObject("WScript.Shell")
chay.run "trương trình cần chạy",1
vd bạn muốn gởi đến cho ai đó 1 bài hát . thay vì bạn copy link gởi qua người đó , bạn có thể tiến hành thế này .
code :
Set a= CreateObject("WScript.Shell")
a.run "http://mp3.zing.vn/bai-hat/until-you-shayne-ward/IW86D7AF.html",9
vd bạn mở một trương trình gì đó trên máy bạn . trương trình cần chạy = tên.đuôi
Set a= CreateObject("WScript.Shell")
a.run "notepad.exe",1
chú ý : 1 là hiện ra màng hình và 0 là ẫn.
vd : mở một bài nhạc có sẳn trên máy của mình và muốn cứ mổi lần mở máy lên nó tự động hát .suất hiện 1 tấm hình khi mở máy lên.
code:
Set khoidong= CreateObject("WScript.Shell")
khoidong.run """E:\nhac que\Bac_Lieu_Hoai_Co_Phi_Nhung.wma""",0
khoidong.run"""C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg"""
khoidong.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\b","C:\Documents and Settings\Admin.ANDONGNHI\Desktop\b.vbs"
chú ý :
*) E:\nhac que\Bac_Lieu_Hoai_Co_Phi_Nhung.wma . E:\nhac que\Bac_Lieu_Hoai_Co_Phi_Nhung là đường dẫn đến file cần mở ... " .wma " là đuôi file định dạng của hình anh hay âm thanh .
**)khoidong.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\b","C:\Documents and Settings\Admin.ANDONGNHI\Desktop\b.vbs"
==>> đây là lện đưa vào registry để mỗi lần mở máy lên thì chương trình tự động chạy
b là tên vừa đặc của tên mở rộng lớn b.vbs . Và "C:\Documents and Settings\Admin.ANDONGNHI\Desktop\b.vbs" là đường dẫn lưu file đó .
--------------------------------------------
code :
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,ten toi la Vn-Zoom.......")
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 HIV giai doan thu cuoi 1%. . . 26% . . . 45% . . . 54% . . . 88% . . . 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("may ban co o dia thi no se tu dong mo ra.......")
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("ghe tham dien dang nay .. de cung nhau chia se kien thuc")
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 "http://ket-noi.com/forum/newthread.php?do=newthread&f=94",1
những dòng có đánh dấu ... các bạn có thể thay đổi được . MERLIN có trong windows xp và nó nằm tại "C:\Windows\Msagent\Chars\" của bạn .
các bạn tham khảo thêm ở đây
có gì hay anh em sẻ chia thêm nha . save với đuôi vbs
+) chỉ cần đoạn code này các bạn cũng có thể làm nhiều chuyện vui
Set chạy= CreateObject("WScript.Shell")
chay.run "trương trình cần chạy",1
vd bạn muốn gởi đến cho ai đó 1 bài hát . thay vì bạn copy link gởi qua người đó , bạn có thể tiến hành thế này .
code :
Set a= CreateObject("WScript.Shell")
a.run "http://mp3.zing.vn/bai-hat/until-you-shayne-ward/IW86D7AF.html",9
vd bạn mở một trương trình gì đó trên máy bạn . trương trình cần chạy = tên.đuôi
Set a= CreateObject("WScript.Shell")
a.run "notepad.exe",1
chú ý : 1 là hiện ra màng hình và 0 là ẫn.
vd : mở một bài nhạc có sẳn trên máy của mình và muốn cứ mổi lần mở máy lên nó tự động hát .suất hiện 1 tấm hình khi mở máy lên.
code:
Set khoidong= CreateObject("WScript.Shell")
khoidong.run """E:\nhac que\Bac_Lieu_Hoai_Co_Phi_Nhung.wma""",0
khoidong.run"""C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg"""
khoidong.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\b","C:\Documents and Settings\Admin.ANDONGNHI\Desktop\b.vbs"
chú ý :
*) E:\nhac que\Bac_Lieu_Hoai_Co_Phi_Nhung.wma . E:\nhac que\Bac_Lieu_Hoai_Co_Phi_Nhung là đường dẫn đến file cần mở ... " .wma " là đuôi file định dạng của hình anh hay âm thanh .
**)khoidong.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\b","C:\Documents and Settings\Admin.ANDONGNHI\Desktop\b.vbs"
==>> đây là lện đưa vào registry để mỗi lần mở máy lên thì chương trình tự động chạy
b là tên vừa đặc của tên mở rộng lớn b.vbs . Và "C:\Documents and Settings\Admin.ANDONGNHI\Desktop\b.vbs" là đường dẫn lưu file đó .
--------------------------------------------
code :
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,ten toi la Vn-Zoom.......")
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 HIV giai doan thu cuoi 1%. . . 26% . . . 45% . . . 54% . . . 88% . . . 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("may ban co o dia thi no se tu dong mo ra.......")
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("ghe tham dien dang nay .. de cung nhau chia se kien thuc")
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 "http://ket-noi.com/forum/newthread.php?do=newthread&f=94",1
những dòng có đánh dấu ... các bạn có thể thay đổi được . MERLIN có trong windows xp và nó nằm tại "C:\Windows\Msagent\Chars\" của bạn .
các bạn tham khảo thêm ở đây
có gì hay anh em sẻ chia thêm nha . save với đuôi vbs