• Thông báo:
    Tham gia nhóm Bạn Là IT Community để học hỏi kinh nghiệm và giao lưu với diễn đàn bạn nhé 
    Xin trân trọng cảm ơn

Share code Chia sẻ 2 chiêu khác dùng dể troll bạn bè

Việt hóa phần mềm

Well-Known Member
Thành viên BQT
Super Moderator
22/5/16
176
17
28
34
P/c: Căn nhắc trước khi troll vì mình sẽ không chịu trách nhiệm nếu bạn bị tím mỏ hay phù mình phù mẩy

1. Làm cho bàn phím tự động gõ liên tục một đoạn văn bản bất kỳ (VBScript)

Với một vài đoạn mã VBSCript sau đây bạn có thể làm cho bàn phím của mình tự động gõ liên tục một đoạn văn bản đã được quy định trước. Trong ví dụ dưới đây mình sẽ sử dụng đoạn văn bản: “Virus. May ban da bi nhiem virus nguy hiem…”.

Giờ thì mở Notepad lên, copy đoạn mã dưới đây và lưu lại với tên có đuôi mở rộng là “.vbs”. Mình sẽ save lại với tên là “Trick.vbs

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Virus. May ban da bi nhiem virus nguy hiem…"
loop
Còn chờ gì nữa, bạn hãy click đúp vào file “.vbs” vừa tạo để xem thành quả đạt được
wlemoticon-openmouthedsmile.png
. Và

xin lưu ý là thao tác gõ liên tục sẽ không ngừng cho đến khi bạn khởi động lại máy tính. Hãy tạo một file với thông điệp bất kỳ và gửi cho bạn bè sẽ rất vui.

Bạn nào không làm được có thể tải về file “Trick.vbs” mà mình làm tại đây.

2. Tạo một virus tự động đẩy ổ đĩa CD/DVD ra ngoài liên tục.

Đây có thể nói là một trò khá hài hước, với một đoạn mã VBScript ngắn dưới đây bạn có thể làm cho ổ đĩa quang của mình liên tục bị đẩy ra liên tục, bất chấp bạn đóng nó lại bao nhiêu lần đi nữa.


Mở ứng dụng Notepad lên copy đoạn mã dưới đây vào sau đó lưu lại với đuôi mở rộng là “.vbs”. Ở đây tôi sẽ lưu với tên là “Virus.vbs”.

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
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
wscript.sleep 5000
loop
Bây giờ bạn có thể click đúp vào file “.vbs” để chiêm ngưỡng thành quả. Lưu ý, thủ thuật này chỉ áp dụng cho các máy tính có ổ đĩa quang. Hãy tạo một file tương tự rồi gửi cho bạn bè
wlemoticon-disappointedsmile.png
.

Nếu bạn vẫn chưa làm được, có thể tải về file “Virus.vbs” do mình làm tại đây.

* Lưu ý: để dừng quá trình tự động đẩy ra của ổ đĩa quang, bạn nhấn tổ hợp phím Ctrl + Shift + Esc để mở Task Manager lên, sau đó trong thẻ Processes chọn wscript.exe rồi bấm End Process. Hoặc bạn cũng có thể khởi động lại máy để chấm dứt quá trình này.
 
  • Like
Reactions: 2 people