File đầu tiên:
On Error Resume Next
Dim Args, WshShell, BtnCode, strText, strTitle, nSecondsToWait, nType
Set Args=WScript.Arguments
Set WshShell=WScript.CreateObject("WScript.Shell")
If Args.Count<4 Or Args.Count>5 Then WScript.Quit(255)
strText=Args(0)
strTitle=Args(1)
If Args.Count=5...