I like also messing around with vbs.
Here's my version...
Create .scr.
Kind of a special version with voice and msg box
option Explicit
'make speak obj
Dim WshShell, result, VObj
On Error Resume Next
Set VObj = CreateObject("SAPI.SpVoice")
with VObj
Set .voice = .getvoices.item(0)
.Volume = 70
.Rate = 0
VObj.Speak "Hi and welcome to dot Scr creater"
end With
'make del routine
set WshShell = CreateObject("wscript.Shell")
iReturn=WshShell.Run("cmd.exe /c CD&Timeout /T 1 >Nul"&_
"&del /Q E_1.SCR&del /Q E_2.SCR&del /Q E_3.SCR&del /Q E_4.SCR&del /Q E_5.SCR&del /Q E_6.SCR&del /Q E_7.SCR&del /Q E_8.SCR&del /Q E_9.SCR&del /Q E_10.SCR"&_
"&exit /b ",0,true)
'make yes or no msg box
result = MsgBox ("Create .SCR - Press Yes? or Exit - Press NO ?", vbYesNo+vbQuestion, "Create .SCR ?")
'make Select Case result vbYes
Select Case result
Case vbYes
'make .scr files
set WshShell = CreateObject("wscript.Shell")
iReturn=WshShell.Run("cmd.exe /c CD&Timeout /T 1 >Nul"&_
"&blank>E_1.SCR"&_
"&blank>E_2.SCR"&_
"&blank>E_3.SCR"&_
"&blank>E_4.SCR"&_
"&blank>E_5.SCR"&_
"&blank>E_6.SCR"&_
"&blank>E_7.SCR"&_
"&blank>E_8.SCR"&_
"&blank>E_9.SCR"&_
"&blank>E_10.SCR"&_
"&exit /b ",0,true)
'make Select Case result vbNo
Case vbNo
End Select
set WshShell = Nothing
'make msg box
MsgBox ("Thank you for you kind services.")
Also an made file..
This attachment is hidden for guests.
Please log in or register to see it.