Advertisement
Guest User

Untitled

a guest
Jul 17th, 2018
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.24 KB | None | 0 0
  1. @echo off
  2. :start
  3.  
  4. if not "%minimized%"=="" goto :minimized
  5. set minimized=true
  6. start /min cmd /C "%~dpnx0"
  7. goto :EOF
  8. :minimized
  9.  
  10. :Process_NotFound
  11. echo YourProgram is not running
  12. IF "%Out%"=="" Siri.vbs
  13. goto start
  14.  
  15. PATH=C:\Users\xWheatleyy\Desktop
  16. Siri.vbs >nul
  17. if ERRORLEVEL 1 goto Process_NotFound
  18. :Process_Found
  19. echo YourProgram is running
  20. goto start
  21.  
  22. SET Out=1
  23. taskkill /F /IM cmd.exe
  24. taskkill /F /IM wscript.exe
  25. taskkill /F /IM notepad.exe
  26.  
  27. Save that file as program.bat, and switch "xWheatleyy" with your username for your computer
  28.  
  29. VBS file
  30.  
  31. Dim RA
  32.  
  33. RA = InputBox("Hello, how can I help you?")
  34.  
  35. A1 = "Hi there"
  36. B1 = "What's the time?"
  37. C1 = "Maths"
  38. C2 = "+"
  39. C3 = "-"
  40. C4 = "/"
  41. C5 = "*"
  42.  
  43. If RA = A1 Then
  44. MsgBox "Hello to you too"
  45. Else
  46. If RA = B1 Then
  47. MsgBox Now
  48. Else
  49. If RA = C1 Then
  50. x = InputBox("Enter first value")
  51. f = InputBox("Input function")
  52. y = InputBox("Enter second value")
  53.  
  54. a = x * 1
  55. B = y * 1
  56.  
  57. If f = C2 Then
  58. c = a + b
  59. MsgBox c, , "The answer is"
  60. Else
  61. If f = C3 Then
  62. c = a - b
  63. MsgBox c, , "The answer is"
  64. Else
  65. If f = C4 Then
  66. c = a / b
  67. MsgBox c, , "The answer is"
  68. Else
  69. If f = C5 Then
  70. c = a * b
  71. MsgBox c, , "The answer is"
  72.  
  73. End If
  74. End If
  75. End If
  76. End If
  77. End If
  78. End If
  79. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement