Public Sub ShowOK()
Dim strExpr As String, strTempFile As String, hFile As Integer
Dim WShell As Object
strExpr = "MsgBox ""Все готово, белый хозяин! :)"""
Set WShell = CreateObject("WScript.Shell")
strTempFile = WShell.ExpandEnvironmentStrings("%TEMP%")
strTempFile = strTempFile & "\ShowOK.vbs"
hFile = FreeFile
Open strTempFile For Output Access Write As hFile
Print #hFile, strExpr
Close hFile
WShell.Run """" & strTempFile & """", vbMinimizedNoFocus
End Sub
|