.vbs MsgBox help

[jamesbebby]

Here my script so far

x=MsgBox("Run New Process Notifier",vbYesNo+vbDefaultButton2, "New Process Notifier")

Its a simple msgbox with yes or no, How do i add commands to the answer?

I would like no to just exit and yes to start/open a app.

Please advise.

Cheers, James

[Tripredacus]

Take a look at this example:

Sub Append
Dim Answer
    Answer = MsgBox("Do you want to calculate?",1,"calculate")
    If Answer = 1 Then
        objshell.run("calc.exe"),0
    Else
		Exit Sub
    End If
End Sub

So you need to determine what all the return values are and put them in the else if you want something "else" to happen if you click Cancel.

[jamesbebby]

Im running this straight from the .vbs off my desktop, would this make a difference??

Cheers, James

[gunsmokingman]

Or another way of doing it, with code only for yes

   If MsgBox( _
   "Would You Like To Open Notepad?",4132,"Yes No Notepad") = 6 Then
    CreateObject("Wscript.Shell").Run("Notepad"),1,False 
   End If

Msgbox with a timer to close after 5 seconds with code only for yes

Dim Act :Set Act = CreateObject("Wscript.Shell")
  If Act.Popup( _
    "Would You Like To Open Notepad?" & vbCrLf & _
    "If Nothing Is Selected In Five"  & vbCrLf & _ 
    "Seconds This Dialog Will Close", 5,"Yes No Self Close", 4132) = 6 Then
   Act.Run("Notepad"),1,False 
  End If

[jamesbebby]

Yea thats working great!!!

I stead of opening 'Notepad' how can i change it???

If MsgBox( _
   "Run New Process Notifier?",4132,"New Process Notifier") = 6 Then
    CreateObject("Wscript.Shell").Run("C:\Program Files\New Process Notifier\NewProcessNotifier.exe"),1,False 
   End If

The above is not working.

Cheers, James

EDIT- So now ive got the app opening with 'yes' because i put the .vbs in the same folder as the app [school boy error]

With this code

If MsgBox( _
   "Run New Process Notifier?",4132,"New Process Notifier") = 6 Then
    CreateObject("Wscript.Shell").Run("NewProcessNotifier"),1,False 
   End If

As you can see from the picture ive got a 'startup.reg' file thats adds the .vbs file to windows startup [this is done with winrar sfx], the only thing is when windows startsup the box comes up which is great but the .vbs finds an error

If i go and run the .vbs file everything works great, Just cant get my head round why when it start from startup it fails its the same file that opens!!! Ahh

Cheers, James

Edited April 8, 2011 by jamesbebby

[gunsmokingman]

I thnk the problem is you need a full path to app and it full name

Run("NewProcessNotifier")

This might work

Run("DriveLetter\FolderName\NewProcessNotifier.exe")

This only ways this would work if the app in \Windows Folder Or \Windows\System32 folder

Run("Notepad")

Or the VBS file is in the same location as the app.

[Tripredacus]

This only ways this would work if the app in \Windows Folder Or \Windows\System32 folder

Run("Notepad")

Or the VBS file is in the same location as the app.

Or you set an environment variable.

[jamesbebby]

This is not working.....

If MsgBox( _
   "Run New Process Notifier?",4132,"New Process Notifier") = 6 Then
    CreateObject("Wscript.Shell").Run("C:\Program Files\New Process Notifier\NewProcessNotifier.exe"),1,False 
   End If

Cheers, James

[Scr1ptW1zard]

Try this:

If MsgBox( _
   "Run New Process Notifier?",4132,"New Process Notifier") = 6 Then
	CreateObject("Wscript.Shell").Run("""C:\Program Files\New Process Notifier\NewProcessNotifier.exe"""),1,False 
End If

Spaces in the path/file names require additional quotes.

[jamesbebby]

Try this:

If MsgBox( _
   "Run New Process Notifier?",4132,"New Process Notifier") = 6 Then
	CreateObject("Wscript.Shell").Run("""C:\Program Files\New Process Notifier\NewProcessNotifier.exe"""),1,False 
End If

Spaces in the path/file names require additional quotes.

You have just live up to your name 'Scr1ptW1zard'!!! [with-me anyway lol]

Thanks, James

Edited April 9, 2011 by jamesbebby

[gunsmokingman]

Another way, Chr(34) = "

If MsgBox( _   "Run New Process Notifier?",4132,"New Process Notifier") = 6 Then   
 CreateObject("Wscript.Shell").Run(Chr(34) & "C:\Program Files\New Process Notifier\NewProcessNotifier.exe" & Chr(34)),1,False    
End If

[Yzöwl]

As a result of the formatting error on the above post, I thought I'd post it again, this time concatenating the line which required it.

If MsgBox("Run New Process Notifier?",4132,"New Process Notifier") = 6 Then
	CreateObject("Wscript.Shell").Run(Chr(34) & "C:\Program Files\" & _
	"New Process Notifier\NewProcessNotifier.exe" & Chr(34)),1,False
End If