Topic chỉ mang tính chất tham khảo chứ không khuyến khích các bạn làm theo những phần nguy hiểm nhé.
Tất cả các bạn chỉnh sửa với notapad nhé!
I. Code an toàn, vui giải trí.
1. Phát giọng nói theo ý thích ( chỉ hỗ trợ tiếng anh ), save với đuôi .vbs
CreateObject("SAPI.SpVoice").Speak"I love YOU"
I love YOU chúng ta không phải là không tùy chỉnh theo ý thích
2. Nhảy disco bằng đèn có trên lap, save đuôi file .vbs
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 200
wshshell.sendkeys "CAPSLOCK"
wscript.sleep 100
wshshell.sendkeys "NUMLOCK"
wscript.sleep 50
wshshell.sendkeys "SCROLLLOCK"
loop
3. Nhảy disco bằng đèn trên lap + phát âm. save file đuôi .vbs
Set wshShell =wscript.CreateObject("WScript.Shell")
do
CreateObject("SAPI.SpVoice").Speak"I Love You"
wscript.sleep 200
wshshell.sendkeys "CAPSLOCK"
wscript.sleep 100
wshshell.sendkeys "NUMLOCK"
wscript.sleep 50
wshshell.sendkeys "SCROLLLOCK"
loop
Ban không phải là không tùy chỉnh dòng i love you theo ý thích, muôn tắt thì vào task manage va tắt wscript.exe
4. Tùy chỉnh phát âm khi gõ, save với file .vbs
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Enter Your text: tùy ý chúng ta chỉnh sửa
Talk it: Tùy ý chúng ta chỉnh sửa
Mình thì edit thê này:
II. Code troll, nguy hiểm chỉ mang tính chất tham khảo không nên làm theo, ai làm tự chịu trách nhiệm nhé.
1. Reboot pc. Save đuội file .bat
@echo off
shutdown -r -f -t 00
>>Form Of Switches
-s
Shuts down the PC.
-l
Logs off the current user.
-t nn
Indicates the duration of delay, in seconds, before performing the action.( nn là công sức tắt máy )
-c "messagetext"
hiển thị tin nhắn khi tắt máy, tối đa 127 kí tự
-f
Forces any running applications to shut down.
-r
Reboots the PC. ..!!..!
2. Làm kẹt phím enter >> chỉ có tắt máy mới hết hoặc treo luôn save file đuôi .bat
Set wshShell = wscript.CreateObject(WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
3. Làm kẹt phím BackSpace, save file đuôi .bat
MsgBox "Let’s go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "bs"
loop
4. On / off cAPsLock lieN Tuc. ( save file .vbs )
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "CAPSLOCK"
loop
Ai biết thì gach đá em nhè nhẹ nhé em không muốn xây nhà lầu đâu :gạch:
Tất cả các bạn chỉnh sửa với notapad nhé!
I. Code an toàn, vui giải trí.
1. Phát giọng nói theo ý thích ( chỉ hỗ trợ tiếng anh ), save với đuôi .vbs
CreateObject("SAPI.SpVoice").Speak"I love YOU"
I love YOU chúng ta không phải là không tùy chỉnh theo ý thích
2. Nhảy disco bằng đèn có trên lap, save đuôi file .vbs
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 200
wshshell.sendkeys "CAPSLOCK"
wscript.sleep 100
wshshell.sendkeys "NUMLOCK"
wscript.sleep 50
wshshell.sendkeys "SCROLLLOCK"
loop
3. Nhảy disco bằng đèn trên lap + phát âm. save file đuôi .vbs
Set wshShell =wscript.CreateObject("WScript.Shell")
do
CreateObject("SAPI.SpVoice").Speak"I Love You"
wscript.sleep 200
wshshell.sendkeys "CAPSLOCK"
wscript.sleep 100
wshshell.sendkeys "NUMLOCK"
wscript.sleep 50
wshshell.sendkeys "SCROLLLOCK"
loop
Ban không phải là không tùy chỉnh dòng i love you theo ý thích, muôn tắt thì vào task manage va tắt wscript.exe
4. Tùy chỉnh phát âm khi gõ, save với file .vbs
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Enter Your text: tùy ý chúng ta chỉnh sửa
Talk it: Tùy ý chúng ta chỉnh sửa
Mình thì edit thê này:
II. Code troll, nguy hiểm chỉ mang tính chất tham khảo không nên làm theo, ai làm tự chịu trách nhiệm nhé.
1. Reboot pc. Save đuội file .bat
@echo off
shutdown -r -f -t 00
>>Form Of Switches
-s
Shuts down the PC.
-l
Logs off the current user.
-t nn
Indicates the duration of delay, in seconds, before performing the action.( nn là công sức tắt máy )
-c "messagetext"
hiển thị tin nhắn khi tắt máy, tối đa 127 kí tự
-f
Forces any running applications to shut down.
-r
Reboots the PC. ..!!..!
2. Làm kẹt phím enter >> chỉ có tắt máy mới hết hoặc treo luôn save file đuôi .bat
Set wshShell = wscript.CreateObject(WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
3. Làm kẹt phím BackSpace, save file đuôi .bat
MsgBox "Let’s go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "bs"
loop
4. On / off cAPsLock lieN Tuc. ( save file .vbs )
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "CAPSLOCK"
loop
Ai biết thì gach đá em nhè nhẹ nhé em không muốn xây nhà lầu đâu :gạch:
0 nhận xét: