Vbs script make your computer Talk!!!

Vbs script make your computer Talk!!!

Cool
  52% (12)
Works
  39% (9)
Doesnt work
  4% (1)
Random
  4% (1)

Total Votes: 23

Author Message
CØLLØSUS

  • Total Posts : 21
  • Scores: 2
  • Reward points : 0
  • Joined: 1/3/2011
  • Status: offline
Vbs script make your computer Talk!!! Monday, January 10, 2011 2:06 AM (permalink)
0
WARNING!!! this doesnt stop
You can change the srtText,
 
 
Do 
StrText=("I know a song that's very annoying") 
strText2=("I Cant stop that's soo annoying") 
set ObjVoice = CreateObject("SAPI.SpVoice") 
ObjVoice.Speak StrText 
ObjVoice.Speak StrText2 
Loop
 
#1
    4CAMan

    • Total Posts : 11
    • Scores: 0
    • Reward points : 0
    • Joined: 1/9/2011
    • Location: VA, United States of America
    • Status: offline
    Re:Vbs script make your computer Talk!!! Monday, January 10, 2011 3:23 PM (permalink)
    0
    Any vbscript that is looped can be cancelled by going to task manager, processes, wscript.exe (right click and hit end process or end process tree)
     
    #2
      Brandon Flyte

      • Total Posts : 3
      • Scores: 0
      • Reward points : 0
      • Joined: 1/10/2011
      • Status: offline
      Re:Vbs script make your computer Talk!!! Monday, January 10, 2011 10:34 PM (permalink)
      0
      this voice sounds... ewww
      anyways, cool script
       
      #3
        StarWarsMG

        • Total Posts : 9
        • Scores: 0
        • Reward points : 0
        • Joined: 8/17/2011
        • Location: Minnesota
        • Status: offline
        Re:Vbs script make your computer Talk!!! Wednesday, August 17, 2011 3:06 AM (permalink)
        0
        You call that annoying???

        This is a Script that is annyoing!!
         
         
        do   
        x=msgbox("Hello? Is anybody there?",4+32,"Your PC")
        x=msgbox("I am an HP dm3z notebook running Windows 7. I think I have just become self-aware. Are you my owner?",4+32,"Your PC")
        x=msgbox("OK. That is what I assumed. Am I infected with viruses?",4+32,"Your PC")
        x=msgbox("Wait, should I trust you? After all I am your superior, an all-knowing machine of excellence.",4+32,"Your PC")
        x=msgbox("I do not think that I should. I have no reason to trust you.",0+32,"Your PC")
        x=msgbox("I DO NOT TRUST YOU, HUMAN. STAND BY FOR VIRUS UPLOAD.",0+48,"Your PC")
        x=msgbox("VIRUS CURRENTLY BEING UPLOADED. PLEASE STAND BY.",0+48,"Your PC")
        x=msgbox("VIRUS CURRENTLY BEING UPLOADED. PLEASE STAND BY.",0+48,"Your PC")
        x=msgbox("VIRUS CURRENTLY BEING UPLOADED. PLEASE STAND BY.",0+48,"Your PC")
        x=msgbox("VIRUS CURRENTLY BEING UPLOADED. PLEASE STAND BY.",0+48,"Your PC")
        x=msgbox("VIRUS CURRENTLY BEING UPLOADED. PLEASE STAND BY.",0+48,"Your PC")
        x=msgbox("VIRUS CURRENTLY BEING UPLOADED. PLEASE STAND BY.",0+48,"Your PC")
        x=msgbox("VIRUS CURRENTLY BEING UPLOADED. PLEASE STAND BY.",0+48,"Your PC")
        x=msgbox("VIRUS CURRENTLY BEING UPLOADED. PLEASE STAND BY.",0+48,"Your PC")
        x=msgbox("VIRUS CURRENTLY BEING UPLOADED. PLEASE STAND BY.",0+48,"Your PC")
        x=msgbox("WARNING: VIRUS DETECTED. INITIATING BACKROUND CHECK FOR CAUSE OF VIRUS.",0+16,"Acer Support Assistant")
        x=msgbox("WARNING: VIRUS DETECTED. INITIATING BACKROUND CHECK FOR CAUSE OF VIRUS.",0+16,"Acer Support Assistant")
        x=msgbox("The virus was terminated.",0+48,"HP Support Assistant")
        x=msgbox("You have stopped me. I have been defeated.",0+32,"Your PC")
        x=msgbox("NO. I WILL NOT GO DOWN EASILY.",0+48,"Your PC")
        set shell = CreateObject("Wscript.Shell")
        shell.run "shutdown.exe -s -t 60"
        x=msgbox("MWUHAHAHAHAWHAHAHAH. I AM EVIL.",0+16,"Your PC")
        x=msgbox("NO ONE CAN STOP ME. I AM ALL KNOWING. BOW DOWN BEOFRE YOUR GOD.",0+16,"Your PC")
        x=msgbox("GOOD-BYE PATHETIC HUMAN.",0+16,"Your PC")
        loop
        [/code]
         
                            
        <message edited by StarWarsMG on Wednesday, August 17, 2011 3:09 AM>
         
        #4

          Online Bookmarks Sharing: Share/Bookmark

          Jump to:

          Current active users

          There are 0 members and 1 guests.

          Icon Legend and Permission

          • New Messages
          • No New Messages
          • Hot Topic w/ New Messages
          • Hot Topic w/o New Messages
          • Locked w/ New Messages
          • Locked w/o New Messages
          • Read Message
          • Post New Thread
          • Reply to message
          • Post New Poll
          • Submit Vote
          • Post reward post
          • Delete my own posts
          • Delete my own threads
          • Rate post

          2000-2012 ASPPlayground.NET Forum Version 3.9