Wilmer

New Member
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
 
dale9157 Mấy cái này đụng trình diệt virus nó chặn hết ráo không bao giờ bạn ơi . tui ghét nhất là virus . cái này đâu phải virus .
 

Kulbert

New Member
nhiem_ga không bao giờ bạn ơi . tui ghét nhất là virus . cái này đâu phải virus . Bạn chưa hiểu rồi với các chương trình diệt virus thì nó sẽ chặn và block hay hỏi ý kiến người dùng có cho phép chạy chương trình đó hay không , chứ không có nói đây là code virus,autoIT nó còn chặn nữa mà bạn
 

b6giadinh

New Member
dale9157 Bạn chưa hiểu rồi với các chương trình diệt virus thì nó sẽ chặn và block hay hỏi ý kiến người dùng có cho phép chạy chương trình đó hay không , chứ không có nói đây là code virus,autoIT nó còn chặn nữa mà bạn bạn thử đi rồi biết . mình dùng avast nhưng không thấy gì . mình chỉ sợ đoạn :

Set khoidong=CreateObject("WScript.Shell")

khoidong.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows \Cur rentVersion\Run\b","C:\Documents and Settings\Admin.ANDONGNHI\Desktop\b.vbs"

no hỏi thôi , chứ đây chỉ là code thường mà . không anh hưởng gì may tinh đâu
 
nhiem_ga bạn thử đi rồi biết . mình dùng avast nhưng không thấy gì . mình chỉ sợ đoạn :

Set khoidong=CreateObject("WScript.Shell")

khoidong.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows \Cur rentVersion\Run\b","C:\Documents and Settings\Admin.ANDONGNHI\Desktop\b.vbs"

no hỏi thôi , chứ đây chỉ là code thường mà . không anh hưởng gì may tinh đâu Thử với thằng KIS hay mạnh hơn là Bit đi bạn nó diệt mà không hỏi cái gì đâu bạn àh .
 

Các chủ đề có liên quan khác

Top