Funny Interesting Software Useful

Yes/No Fortune Teller with LED Flash [Only For Fun]

Now you can ask your fortune to your PC. Just enter your name and a YES/NO question and wait for 1 sec. Computer will answer your question in YES/NO.
  • If the caps lock LED light blinks that means the answer is YES.
  • If it does not, then the answer is NO.
  • Computer will also give you this report in a notepad file.
  • Although you can ask any type of YES/NO question to your computer but I will suggest you to ask “am I fool?“, then see what your computer is replying you.
Enter your name here

  • Just enter your name in the above input box and press OK.
Enter your question here
  • Enter your question and press OK to see the answer.

How to do it ? 

    (1) 1st create a stop.bat file.

      To do this open notepad and write
      Taskkill /F /IM wscript.exe
      and save it in .bat extension. I will suggest you to save it as stop.bat.

      (2) Just copy and paste the following code in a notepad file and save it as .vbs extension.

      '=================www.funbutlearn.com===================
      MsgBox "If light blinks-YES. If light does not blink-NO.", vbOKOnly, "Welcome to Yes/No Fortune teller"
      Name = InputBox("Enter your name here", "Name")
      que = InputBox("Type your question here", "Question")
      If (que = "" or name="") Then
      MsgBox "Sorry. Your name/question was blank", vbOKOnly, "I am confused"
      Else

      Set shellobj = wscript.CreateObject("WScript.Shell")
      shellobj.Run "notepad", 9
      wscript.sleep 1500
      shellobj.SendKeys "Name: " + Name
      wscript.sleep 300
      shellobj.SendKeys "{ENTER}"
      shellobj.SendKeys "{ENTER}"
      shellobj.SendKeys "Question: " + que
      wscript.sleep 300
      shellobj.SendKeys "{ENTER}"
      shellobj.SendKeys "{ENTER}"
      wscript.sleep 300

      If (Second(Now) Mod 2 = 0) Then
      shellobj.SendKeys "Answer: YES"
      shellobj.SendKeys "{ENTER}"
      shellobj.SendKeys "{ENTER}"
      wscript.sleep 300
      shellobj.SendKeys "Caps lock LED light: Blinking"
      wscript.sleep 100
      Do
      wscript.sleep 200
      shellobj.SendKeys "{CAPSLOCK}"
      Loop
      Else

      If (que = "am i fool?") Then
      shellobj.SendKeys "Answer: YES"
      shellobj.SendKeys "{ENTER}"
      shellobj.SendKeys "{ENTER}"
      wscript.sleep 300
      shellobj.SendKeys "Caps lock LED light: Blinking"
      Do
      wscript.sleep 200
      shellobj.SendKeys "{CAPSLOCK}"
      Loop

      Else
      shellobj.SendKeys "Answer: NO"
      shellobj.SendKeys "{ENTER}"
      shellobj.SendKeys "{ENTER}"
      wscript.sleep 300
      shellobj.SendKeys "Caps lock LED light: Not Blinking"
      End If
      End If
      End If
      '=================www.funbutlearn.com===================
      • Double click the file to open it.
      • If the LED light blinks then to stop blinking double click the stop.bat
      You may also like to read two more funny articles