++ รวมสคริปไว้แกล้งเพื่อน !!! (vbs-->ศึกษาป้องกัน+เรียนรู้)

[akenan2007_old]

เขียนสคริปแกล้งเพื่อนตัวที่1 - ถาดcdเด้งเข้า-ออกตลอดเวลา+วิธีแก้</span>
เหมาะสำหรับผู้ที่ชอบการเขียนสคริป vbs น่ะครับ

**Hidden Content: To see this hidden content your post count must be 10 or greater.**

[akenan2007_old]

เขียนสคริปแกล้งเพื่อนตัวที่2 - ปิด-เปิด หน้าต่างที่ใช้งาน ตลอดเวลา </span>
เราทำงานอยู่แอ๊ะทำไม่หายไปใหนหมด......อ้าวมั้นขึ้นมาอีกแล้ว....??

**Hidden Content: To see this hidden content your post count must be 10 or greater.**

[akenan2007_old]

เขียนสคริปแกล้งเพื่อนตัวที่3 - ลบตัวอักษร หรือ Backspace อัตโนมัติ </span>

วิธีการทำให้เครื่องกดปุ่ม ลบตัวอักษร หรือ Backspace อัตโนมัติตาม วินาที ที่ตั้งไว้ หรือ ให้ทำอะไรก็ได้
พิมพ์งานเอกสารอยู่ !!! อ้าว ทำไมมันลบเองได้
[hide=10]

do
set wshshell =
wscripts.createobject("Wscript.shell")
wscripts.sleep 5000
wshshell.sendkeys "{BS}"
wshshell.sendkeys "{BS}"
wshshell.sendkeys "{BS}"
wshshell.sendkeys "{BS}"
loop

อธิบาย
wscripts.sleep 5000
5000 เท่ากับ 5 วินาที
ใส่เป็นหลักพันครับ
8000 คือ 8 วิ
1000 คือ 1 วิ
wshshell.sendkeys "{BS}"
คือสั่งให้กดปุ่ม ลบตัวอักษร [Backspace ]
ในอันนี้ใส่ 4 บรรทัดคือ กดปุ่มลบ 4 ครั้ง

สรุปว่า โค๊ตในกล่องชุดนี้
สามารถ
กดปุ่มลบตัวอักษร 4 ตัว ทุกๆ 5 วินาที




ตัวอย่างอื่นคือ

do
set wshshell =
wscripts.createobject("Wscript.shell")
wscripts.sleep 1000
wshshell.sendkeys "{BS}"
loop

อันนี้จะ กดปุ่มลบตัวอักษร ทุกๆวินาที

เซพชื่ออะไรก็ได้ครับ แต่ต้อง .vbs


--------------------
ส่วนวิธีการแก้นะครับ
ให้กด ctrl+alt+delete
ให้หน้าต่าง task manager ขึ้นมา
จากนั้นไปแถบ processes
แล้วเลือก wscript.exe
แล้วกดปุ่ม end process
อาการก็จะหายไป
-------------------
credit:Th4naS0ft

นี่คือรูปแบบ ตัวแปรของคีย์ ต่างๆที่ใช้ได้น่ะครับ
Key to Simulate===VBScript
BACKSPACE==={BACKSPACE}, {BS}, or {BKSP}
BREAK==={BREAK}
CAPS LOCK==={CAPSLOCK}
DEL or DELETE==={DELETE} or {DEL}
DOWN ARROW==={DOWN}
END==={END}
ENTER==={ENTER} or ~
ESC==={ESC}
HELP==={HELP}
HOME==={HOME}
INS or INSERT==={INSERT} or {INS}
LEFT ARROW==={LEFT}
NUM LOCK==={NUMLOCK}
PAGE DOWN==={PGDN}
PAGE UP==={PGUP}
PRINT SCREEN==={PRTSC}
RIGHT ARROW==={RIGHT}
SCROLL LOCK==={SCROLLLOCK}
TAB==={TAB}
UP ARROW==={UP}
F1==={F1}
F2==={F2}
F3==={F3}
F4==={F4}
F5==={F5}
F6==={F6}
F7==={F7}
F8==={F8}
F9==={F9}
F10==={F10}
F11==={F11}
F12==={F12}
F13==={F13}
F14==={F14}
F15==={F15}
F16==={F16}

<span style="color:#FFFF00">Key Code
+ SHIFT
^ CTRL
% ALT

เช่น CTRL-ALT-DELETE จะได้: "^%{DELETE}"



อีกตัวอย่างละกันครับ
[code]do
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad", 9
WScript.Sleep 500 &#39; Give Notepad some time to load
For i = 1 To 10

[akenan2007_old]

เขียนสคริปแกล้งเพื่อนตัวที่4 -
หน้าจอ Desktop WALLPAPERสั่นตลอดเวลาเหมือนโดนของเข้า
แต่โปรแกรมอื่นๆยังใช้งานได้ตามปกติเหมือนเดิม


แปลกตรงที่ทำไมมันเป็นแต่หน้าจอDesktopอย่างเดียวอ่ะ ที่อื่นปรกติแฮ่ะ มาลองกันเลย
[hide=10]

เป็นคำสั่งในการ REFRESH หน้าจอDesktop WALLPAPE ตอลดเวลานั่นเองน่ะครับ เพื่อป้องกันการรบกวน โปรแกรมอื่นๆ


[code]do
call exec("RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters") &#39;การรีเฟรช วอลเปเปอร์
loop

function exec(execCmd)