97 replies to this topic

[rossicomputers]

Thanks Flying Dutchman...

I'm really apreciate all your help...

This is really help me alot..

APRECIATE!!!!

[rossicomputers]

Give me a script error
line:29
(null)
line 168
variable is undefined 'controller'

how to fix that Flying Dutchman...

Need help...

Edited by rossicomputers, 19 February 2009 - 08:01 PM.

[GRONI]

well dutchman, it´s nice how people helps each other,
but just do me a favor. I get a little dissapointed when
people say that they make it that way on their own.
you used exactly the same lines for explaining that i
send you to show how i make that setup.
So when you help, be fair and tell who has made this
setup. Just for you as a tipp.
Anyway, good luck with MY Setup

GRONI

[Flying Dutchman]

well dutchman, it´s nice how people helps each other,
but just do me a favor. I get a little dissapointed when
people say that they make it that way on their own.
you used exactly the same lines for explaining that i
send you to show how i make that setup.
So when you help, be fair and tell who has made this
setup. Just for you as a tipp.
Anyway, good luck with MY Setup

GRONI

GRONI, I would never ever use someone elses knowledge to 'gain' appreciation from the community as like it was developped by my own ..

I simply do not have that knowledge (too dump!) and so I appreciate it VERY much if somebody (you in this particular case) helped me into
the right direction to get something done!

I will always mention this in my help to others .. because I simply love to share all I gain & all I know with other people .. that's what a good Forum is all about!

as a good example:
http://vpforums.org/...4...post&p=3391 - I've adjusted this one and added a line that you showed me how to make it work ..
and
http://www.pinballni...amp;postcount=1
and
http://www.aussiearc...amp;postcount=1


So please, if this particular incident looked like I've 'invented this wheel', which was never my intention in the first place, I would sincerely like to apologize to you ..

Edited by Flying Dutchman, 19 February 2009 - 11:19 PM.

[rossicomputers]

Hello Flying Dutchman,

I still geting the same script error above..

Any ideas...??

Apreciate...

[GRONI]

No Problem Dutchman. Nice to read this. I like to share evrything too, and give that knowledge i have to everbody.
This is what makes this community so good.

So rossicomputers, do you still have Problems with the Script?
First of all i would like to know what Fileending do your PowerPoint have? pps,ppt or ppsx?
then it would be great if you can post a screen of how your Script look like.

GRONI

[rossicomputers]

No lucky at all

Run the script with:

Option Explicit
Dim ppsx
Set ppsx = CreateObject("wscript.shell")
ppsx.Run("C:\Program Files\Pinball\Backdrop\Black Rose.pptx")
Randomize

Give me a script error
line:29
(null)
line 168
variable is undefined 'controller'

my powerpoint file is pptx extension

What's wrong i did...???

[GRONI]

No lucky at all

Run the script with:

Option Explicit
Dim ppsx
Set ppsx = CreateObject("wscript.shell")
ppsx.Run("C:\Program Files\Pinball\Backdrop\Black Rose.pptx")
Randomize

Give me a script error
line:29
(null)
line 168
variable is undefined 'controller'

my powerpoint file is pptx extension

What's wrong i did...???

please post the whole script, or the Lines 29 and 168

[rossicomputers]

Option Explicit
Dim pptx
Set pptx = CreateObject("wscript.shell")
pptx.Run("C:\Program Files\Pinball\Backdrop\Black Rose.pptx") LINE 29
Randomize


'On Error Resume Next
With Controller LINE168
.GameName = cGameName
If Err Then MsgBox "Can't start Game" & cGameName & vbNewLine & Err.Description : Exit Sub

.SplashInfoLine = cCredits
.HandleMechanics = 0
.ShowDMDOnly = True
.ShowFrame = False
.ShowTitle = False
.Run
If Err Then MsgBox Err.Description
End With
On Error Goto 0


Thats 2 lines i getting script error...

[Steely]

Option Explicit
Dim pptx
Set pptx = CreateObject("wscript.shell")
pptx.Run("C:\Program Files\Pinball\Backdrop\Black Rose.pptx") LINE 29...

Your system doesn't seem to recognize the .pptx file type.

Without vp.. If you just double click on the Black Rose.pptx file, does it open on it's own?

[rossicomputers]

Yeah...
Just right click mouse and Show...

It's showed ok... Alone

What's gonna be???

[Steely]

Yeah...
Just right click mouse and Show...

It's showed ok...

That's good to know, but what happens when you double left click?

or you may have to add the "Show" command.
pptx.Run("C:\Program Files\Pinball\Backdrop\Black Rose.pptx /Show")
or
pptx.Run("powerpoint.exe /Show / C:\Program Files\Pinball\Backdrop\Black Rose.pptx ")

I do not have powerpoint installed so you will have to experiment yourself.

Edited by Steely, 21 February 2009 - 09:39 AM.

[GRONI]

That's good to know, but what happens when you double left click?

or you may have to add the "Show" command.
pptx.Run("C:\Program Files\Pinball\Backdrop\Black Rose.pptx /Show")
or
pptx.Run("powerpoint.exe /Show / C:\Program Files\Pinball\Backdrop\Black Rose.pptx ")

I do not have powerpoint installed so you will have to experiment yourself.

Just rename "Black Rose.pptx" to Black_Rose.pptx"

Did you add the line that put the dmd on the second monitor? I guess yes, but you put it at the wrong place in the Script

[Flying Dutchman]

Please find below a VBS script (based on Powerpoint 2007 US language) that will shut down the powerpoint automatically by killing the process, based on GRONI's idea ..

' ProcessKillLocal.vbs
' VBScript to kill Powerpoint Backglass on 2nd Screen
' Based on the idea and good advise of GRONI
' Originally from author Guy Thomas adjusted by Flying Dutchman
' Version 1.0 - February 2009
' ------------------------ -------------------------------'
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'POWERPNT.EXE'"

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

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
WSCript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer
WScript.Quit
' End of WMI Example of a Kill Process


Also the .vbs scipt downloadable link:
AutoQuit Powerpoint

The only thing that is needed now is to fire off this script as soon as VP is terminated.
Groni could you please show us how and where to do this?

Cheers,

Edited by Flying Dutchman, 21 February 2009 - 12:09 PM.

[rossicomputers]

I Tried all the options below:

put /show

rename Black_rose

All give the same errors

No lucky at all

Run the script with:

Option Explicit
Dim ppsx
Set ppsx = CreateObject("wscript.shell")
pptx.Run("C:\Program Files\Pinball\Backdrop\Black_Rose.pptx /Show")
Randomize

Give me a script error
line:29
(null)
line 168
variable is undefined 'controller'

What's wrong i did...???

[rossicomputers]

Please GRONI or Flying Dutchman...

Need help...

[rossicomputers]

I Tried all the options below:

put /show

rename Black_rose

All give the same errors

No lucky at all

Run the script with:

Option Explicit
Dim ppsx
Set ppsx = CreateObject("wscript.shell")
pptx.Run("C:\Program Files\Pinball\Backdrop\Black_Rose.pptx /Show")
Randomize

Give me a script error
line:29
(null)
line 168
variable is undefined 'controller'

What's wrong i did...???

[TheMcD]

Can you give me a link to the table you downloaded? I want to take a look at the unmodified script.

The McD

[rossicomputers]

I just need the setup backdrop picture to 2nd monitor using powerpoint..


GIve the code above...

[rossicomputers]

I Tried all the options below:

put /show

rename Black_rose

All give the same errors

No lucky at all

Run the script with:

Option Explicit
Dim ppsx
Set ppsx = CreateObject("wscript.shell")
pptx.Run("C:\Program Files\Pinball\Backdrop\Black_Rose.pptx /Show")
Randomize

Give me a script error
line:29
(null)
line 168
variable is undefined 'controller'

What's wrong i did...???