How to Make your Computer Speak Your Sentence
in this trick your computer speaking the sentence you write in the provided text box.
1. Open notepad
2. Paste the below given code in Notepad
3. Save it as Name.vbs
4. Doubleclick the file and it will open a prompt. Enter the sentence you want your computer to speak
5. Click OK and that program will speak the sentence for you.
2. Paste the below given code in Notepad
Dim Akilsmsg, sapi Akilsmsg=InputBox("What do you want me to say?","Speak to Me") Set sapi=CreateObject("sapi.spvoice") sapi.Speak Akilsmsg
3. Save it as Name.vbs
4. Doubleclick the file and it will open a prompt. Enter the sentence you want your computer to speak
5. Click OK and that program will speak the sentence for you.


Make Your Keyboard LED Dance.....!!!
Your keyboard has three LED Scroll Lock, Caps Lock and Num Lock. This VBS trick will make those three LED continually on and off, creating dancing effects.
1. Open notepad
2. Paste the below given code in Notepad
3. Save it as Name.vbs
4. Open your save file and see your keyboard led blinking like disco lights.
2. Paste the below given code in Notepad
Set AkilCyberZone =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 AkilCyberZone.sendkeys "{CAPSLOCK}" AkilCyberZone.sendkeys "{NUMLOCK}" AkilCyberZone.sendkeys "{SCROLLLOCK}" loop
3. Save it as Name.vbs
4. Open your save file and see your keyboard led blinking like disco lights.


Make CD DVD Drive Open & Close Again and again
This is my favourite trick in this trick your CD or DVD drive open and close again and again continually.To use this trick, use these following steps
1. Open notepad
2. Paste the below given code in Notepad
3. Save it as Name.vbs
4. Now,open Name.vbs and it will start the process to continuously open and close CD or DVD drive.
2. Paste the below given code in Notepad
Set akilCyberZone = CreateObject("WMPlayer.OCX.7") Set Akil = akilCyberZone.cdromCollection do if Akil.Count >= 1 then For i = 0 to Akil.Count -1 Akil.Item(i).Eject Next For i = 0 to Akil.Count -1 Akil.Item(i).Eject Next End If wscript.sleep 5000 loop
3. Save it as Name.vbs
4. Now,open Name.vbs and it will start the process to continuously open and close CD or DVD drive.


Automatic writing your msg.....!
1. Open notepad
2. Paste the below given code in Notepad
3. Save it as Name.vbs
2. Paste the below given code in Notepad
set Akil = wscript.CreateObject("wscript.shell") Akil.run "Notepad.exe" wscript.sleep 2000 Akil.AppActivate "Notepad.exe" Akil.SendKeys "H" WScript.Sleep 500 Akil.SendKeys "ell" WScript.Sleep 500 Akil.SendKeys "o " WScript.Sleep 500 Akil.SendKeys " " WScript.Sleep 500 Akil.SendKeys " Friends" WScript.Sleep 500 Akil.SendKeys " " WScript.Sleep 500 Akil.SendKeys " This is " WScript.Sleep 500 Akil.SendKeys " " WScript.Sleep 500 Akil.SendKeys " Akil CyberZone's Trick " WScript.Sleep 500
3. Save it as Name.vbs


How to Create Fake Errors.....???
you can create Fake Windows Error messages. You can do this with any message, to try this trick follow the below mentioned steps
1. Open notepad
2. Then type bellow code.
3. Now change "Message Here" and "Title Here" with the error message of you want to display
4. Save it as Name.vbs
5. Now, click on the saved to display yourself created fake Windows error message.
2. Then type bellow code.
Akisblog=Msgbox("Message Here",0+16,"Title Here")
3. Now change "Message Here" and "Title Here" with the error message of you want to display
4. Save it as Name.vbs
5. Now, click on the saved to display yourself created fake Windows error message.

No comments:
Post a Comment