97 replies to this topic

[rossicomputers]

Now, runs powerpoint but don't load the backglass file... Elvis.pptx

Also don't close the powerpoint after exit table....

'Place the following at the end of the "Sub tablename_Init() before "End Sub"

Set ShellCom = CreateObject("wscript.shell")
ShellCom.Exec("C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE /SHOW "&_
"C:\Program Files\Pinball\Backdrop\Elvis.pptx")
Set ShellCom = nothing

End Sub

'then create a tablenamme_Exit sub if one does not exist.
Sub Table1_Exit()
Set ShellCom = CreateObject("wscript.shell")
ShellCom.Exec("%COMSPEC% /C tskill POWERPNT.EXE")
Set ShellCom = nothing
End Sub

[Wizards_Hat]

Now, runs powerpoint but don't load the backglass file... Elvis.pptx
<snip>

Errr...yeah, I'm sure we all get the idea.

Please will you stop replying to your own posts with exactly the same post!!

I only have a limited amount of time to spend reading the forum, and when I come on I try to read all new posts...yet I'm spending too much time reading the same post from you over & over...and not just in this thread!!!

Bob did try using sarcasm earlier in this thread to point it out to you, but you didn't appear to understand that, so I'm asking quite clearly and overtly.

Personally, if I was the one trying to help you I would find this constant bombardment of the same question rude and I would stop helping you.

Dan.

[rossicomputers]

I reply reply reply .... Because nobody knows shit about this VP9 sofware..

I have to lose days try to figure out how to run a f*** backglass picture on 2nd monitor..

That is it....

Guys like you Wizards_Hat is better get a job something....or a Girl(If you like)

Edited by rossicomputers, 24 February 2009 - 10:36 PM.

[KEG]

Thank you Dan, (Where is that "Thank you for this useful post" button.)

[Wizards_Hat]

I reply reply reply .... Because nobody knows shit about this VP9 sofware..

I have to lose days try to figure out how to run a f*** backglass picture on 2nd monitor..

That is it....

Guys like you Wizards_Hat is better get a job something....or a Girl(If you like)

Hmmm...married with 3 kids & a steady well-paid job....thanks for the advice anyway.

...but back to your problem:
VP9 - oh, yes...that would be the very newly released beta version of a free piece of software wouldn't it.
The same piece of software that several people are trying to help each other come to terms with & use...all out of the goodness of their hearts.
....if only some of them had degrees in computer science...or a little patience....they might be able to figure some of this out!

Losing days try to figure out how to run a backglass picture on a 2nd monitor - and you tell me to get a job & a girl HAHAHAHAHAHAHAHAHAHAHAHAHA

[rossicomputers]

Just kidding with you... Wizard ...Man...

Don't get me serious... Because i'm not..


So sorry for anything unsual words..

keep the good life going....

[Wizards_Hat]

Just kidding with you... Wizard ...Man...

Don't get me serious... Because i'm not..


So sorry for anything unsual words..

keep the good life going....

Fair enough...I'm cool

Seriously...people on here will always help you if they can...just chill a little...it's quite possible the person helping you is on the limit of their own knowledge, a reply may take a little time while they figure out exactly how to help you best...

....or the reply could take some time if they're at work, or with a girl

Love & peace,
Dan.

[Steely]

I made some changes, lets try this again...

CODE

'place this at end of the Sub Table1_Init(), just before "Exit Sub"

Set ShellCom = CreateObject("wscript.shell")
ShellCom.Exec("""C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE"" /SHOW -""C:\Program Files\Pinball\Backdrop\Elvis.pptx""")
Set ShellCom = nothing


'Create new Exit routine if one does not exist

Sub Table1_Exit()
    Set ShellCom = CreateObject("wscript.shell")
    ShellCom.Exec("%COMSPEC% TaskKill /f /im POWERPNT.EXE")    'Vista
    'ShellCom.Exec("%COMSPEC% /C tskill POWERPNT")    'XP Home uses tskill, XP Pro uses tskill or taskkill
    Set ShellCom = nothing
End Sub

and yes Thank You! Wiz

ROSSI - you should go back and edit all your double posts...
delete all the text and then type ten times (not copy and paste)...

"I will not double post ever again. Never ever ever again shall I."

Edited by Steely, 25 February 2009 - 02:40 AM.

[rossicomputers]

Sorry!
Tried the new routine and got it same thing:
1)Powerpoint opens and don't load backdrop file: Elvis.pptx
2)Powerpoint doesn't close after close the table;

Set ShellCom = CreateObject("wscript.shell")
ShellCom.Exec("""C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE"" /SHOW -""C:\Program Files\Pinball\Backdrop\Elvis.pptx""")
Set ShellCom = nothing

End Sub

Sub Table1_Exit()
Set ShellCom = CreateObject("wscript.shell")
ShellCom.Exec("%COMSPEC% Taskkill /f /im POWERPNT.EXE") 'Vista
'ShellCom.Exec("%COMSPEC% /C tskill POWERPNT") 'XP Home uses tskill, XP Pro uses tskill or taskkill
Set ShellCom = nothing
End Sub

[Steely]

hmmmm,
I tried these shell commands on my Vista machine and they worked for me but using different programs other than powerpoint because I do not have 2 monitors hooked up to this comp (only my XP).

All I can suggest now is for you to ...
1) double check your paths and file names.
2) make sure your powerpoint app is set to run with administrator privileges.
3) you could try adding this switch "/a" (for admin)
ShellCom.Exec("""C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE"" /a /SHOW -""C:\Program Files\Pinball\Backdrop\Elvis.pptx""")
ShellCom.Exec("%COMSPEC% /C /a Taskkill /f /im POWERPNT.EXE")

I will ask you one more time (for the third and last time)...
What happens when you double left click on the Elvis.pptx file?
(NOT Right Click) Does it run?

If I think of any thing else, I will let you know.

[rossicomputers]

When double click

powerpoint open the editor and the file...

Run the last test... And same thing opens and don't load the file and don't close after...

[Steely]

When double click

powerpoint open the editor and the file...

I do not have powerpoint, only the viewer. So it may work different for you. You must describe it better for me to understand.
Does the file play? showing a full screen?
or does it just open in the editor? Like a table in the vp editor.

[rossicomputers]

Double click and works perfectly..

Open, load the File likes VP9 table editor....

No problems....

right click and show... works ok too...

Edited by rossicomputers, 25 February 2009 - 04:21 AM.

[Steely]

one last try for tonight, then lights out for me.

try replacing this for the exit command from...
ShellCom.Exec("%COMSPEC% /C /a Taskkill /f /im POWERPNT.EXE")
to this...
ShellCom.Exec ("%COMSPEC% /C taskkill /f /im powerpnt.exe")

This should kill it. I can exit a vp table using this.

As far as the opening/running the pptx file. You have to expeiriment some on your own,
I may have to send you a troubleshooting table. Give me some time to put that together.

[Flying Dutchman]

Steely, your help is much appreciated .. and indeed as you correctly stated earlier, it can have several reasons why people do not respond immediately to a certain request:

1./ Some of us have 'busy' lives - and 'normal' dayjobs to fulfill
2./ Have a family live as well
3./ Question goes behind the reach of knowledge
4./ Research elswhere needs to be done to get to the solution (including testing)
5./ The level of 'push'-iness' can put some-ones enthousiasm to a 'lower-level'

As said earlier, my VB programming knowledge is 'not to the level I would like it to be' => close to 'none' ..
Nevertheless I've compiled an .exe file which kills off the powerpoint successfully (click the RS link to download):
AutoQuit PowerPoint

May be you could shed a light on where and how to fire it off after the 'table-exit' command has been executed?
And once again, I think the 'Powerpoint not starting up correctly'-problem has to do with the fact that it is not saved correctly in the first place. Could be wrong here though ..

Thanks!

Edited by Flying Dutchman, 25 February 2009 - 11:29 AM.

[rossicomputers]

I really thankyfull the you guys spend the time with me on this problems..

Thank you very much guys..


Finally good news:

Now the powerpoint closes:
Sub Table1_Exit()
Set ShellCom = CreateObject("wscript.shell")
ShellCom.Exec ("%COMSPEC% /C taskkill /f /im powerpnt.exe")
Set ShellCom = nothing
End Sub

Only part remains:
1)Powerpoint opens and don't load backdrop file: Elvis.pptx

Any ideas Flying Dutchman...



Teste with powerpoint viewer and works..

This is the final routine:
Open the viewer and load the backdrop picture to 2nd monitor and after closes the table, closes the viewer as well

'****************************************************************************
***********************************************
Set ShellCom = CreateObject("wscript.shell")
ShellCom.Exec("""C:\Program Files\Microsoft Office\Office12\PPTVIEW.EXE"" /SHOW -""C:\Program Files\Pinball\Backdrop\Elvis.pptx""")
Set ShellCom = nothing

End Sub

Sub Table1_Exit()
Set ShellCom = CreateObject("wscript.shell")
ShellCom.Exec ("%COMSPEC% /C taskkill /f /im PPTVIEW.exe")
Set ShellCom = nothing
End Sub


Thank you:
Steely
Flying Dutchman and all the help theses days....

Apreciate!!!! '****************************************************************************
************************************************

[Steely]

Cool,

The switch command (/Show) for the powerpoint program may be a little different is all.
Question: Do you have both installed, the program and viewer?
and they are not interfering with each other? Good to know.

Edited by Steely, 25 February 2009 - 02:26 PM.

[unclewilly]

This may be a little late, but i know of a certain soon to be released front end that will display backglass images on the second screen without doning anything to the script or using powerpoint. Good things come to those who wait, and it shouldn't be long now.
-Scott

[cyberk30]

This may be a little late, but i know of a certain soon to be released front end that will display backglass images on the second screen without doning anything to the script or using powerpoint. Good things come to those who wait, and it shouldn't be long now.
-Scott

Are you talking about Hyperpin?

[unclewilly]

Are you talking about Hyperpin?

Maybe.........