دوطریقوں سےکی بورڈ کی لائیٹس کو ڈسکو ڈانس 

[usmansuleman]

پہلا طریقہ
سب سےپہلے نوٹ پیڈ کھولیں اور پھر یہ کوڈ لیکھیں
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
اور سیو کریں
keyboard.vbs

دوسرا طریقہ
سب سےپہلے نوٹ پیڈ کھولیں اور پھر یہ کوڈ لیکھیں
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
اور سیو کریں
keyboard.vbs
خدا حافظ
or khatm krne k liye task maneger ko khol kr process mn jayn phr wscript ko dhoond kr end process ko dba dn

[kashifundlas]

SEcoND oNe iS WoRKInG.......MAZay K bAT Ye wORdS Bhi autOMaticAlly BAray CHOtaY liKHTa hA pHRrrRRRrrrRRRRr

[kashifundlas]

AIK kHAMI REH gaiiiiiii ap NY ISSS KO Band kerNAY ka tarIKA Nahi BaTAY HaI....AB YE BanD NAHi HO RAHA HAI I THiNK Ab restart KErna paRay ga..........

[usmansuleman]

khami btane ka shukria dost us ko mn ne door kr dia he