Integrating these scripts.

Using VBScripting, I've managed to make an auto typer. It's used for single messages, and can send them at a very high rate of speed.

My problem is that I'm currently trying to integrate both my Auto typer script, and my forceout quit script into one script. (So I'm able to stop and play from the same script instead of two different ones)

Coding for auto typer:

set shell = createobject("wscript.shell")
strtext = inputbox("What would you like the message to be")
strtimes = inputbox ("How many times would you like you type it?")
if not isnumeric(strtimes) then
lol=msgbox("Please write a NUMBER nextime")
wscript.quit
end if
fname=inputbox("To stop, please press: Ctrl, alt, delete. Type 'ok' then enter to advance.")
msgbox "After you click ok the message will start in 5 seconds "
wscript.sleep(7000)
for i=1 to strtimes
shell.sendkeys(strtext & "")
Shell.SendKeys "{Enter}"
wscript.sleep(75)
next

------------------------------------------------

Coding for force stop:

taskKill = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & taskKill & "\root\cimv2")

Set processlistFull= objWMIService.ExecQuery _
("Select * from Win32_Process Where name = 'notepad.exe'")

For Each killPro In processlistFull
killPro.Terminate()
Next

--------------------------------
Any help is greatly needed!