New Members?

[bob]

Check out these screen names.....

Bots?

 

[tiltjlp]

Some could be bots Bob, which in itself supposedly isn't a bad thing. I have a small pipe & tobacco forum, and my most regular visitor is Goggle Bot. I always suspect what I think are odd or unusual names, but nowadays, it's next to impossible to know. So I wonder and watch for Spam so I can give the Spammer and its/their message the boot. Here's a partial page from my forums membership list, which I think has several possible bots or Spammers, but so far they've all behaved.

 

[StevOz]

Checkout this screenshot, see all those stop signs, those are all banned spambots whizzing around in circles.

 

[LeeVanCleef]

Who the hell keeps letting that SteveOz spambot on the site? He's got hundreds of posts on here!

 

[sleepy]

Who the hell keeps letting that SteveOz spambot on the site? He's got hundreds of posts on here!

Yeah, that's what I want to know too.

BTW, anyone care to listen to one of my songs?

YouTube - Another Song_0001.wmv

 

[StevOz]

Who the hell keeps letting that SteveOz spambot on the site? He's got hundreds of posts on here!

Eh, could be worse, might be thousands before long.

Oh wait...

• Total Posts: 1,697
• Posts Per Day: 0.63

BTW who the heck is SteveOz?

Thanks and 2 more today for the chopping block...

CrexSeini

and...

legeFlelo

 

[LeeVanCleef]

Eh, could be worse, might be thousands before long.

Oh wait...

• Total Posts: 1,697
• Posts Per Day: 0.63

BTW who the heck is SteveOz?

Thanks and 2 more today for the chopping block...

CrexSeini

and...

legeFlelo

Not legeFlelo! We were just starting to really connect! The SteveOz spambot is indestructible. I've heard tell that it can't even be deleted by a bicycle!

BTW, nice song, Sleepy. Very atmospheric!

 

[bob]

That was a nice song Sleepy. You should build a VP table around it or at least make an mp3 copy for John to throw into one of his bagatelles.

 

[tiltjlp]

That was a nice song Sleepy. You should build a VP table around it or at least make an mp3 copy for John to throw into one of his bagatelles.

Nifty idea. Might get people playing bagatelle long enough to hear the entire song.

 

[sleepy]

Too melodic for the silver ball I think.
Pinball works best with fanfares and rhythm, arpeggios and synth sweeps, or comedy.
Else the bells and chimes.

I did figure out how to add MIDI to a table without installing VPMIDI and VBRUN6 runtime, just by using WMPlayer as a COM object which is already available in Windows (and the .mid files), so if anyone wants to check that out, let me know.

Hey Bob, maybe you can update the Christmas project for the casual users?

 

[sleepy]

Very strange double posting. I didn't even use the Back Arrow.
Just my Google Chrome.

 

[bob]

Too melodic for the silver ball I think.
Pinball works best with fanfares and rhythm, arpeggios and synth sweeps, or comedy.
Else the bells and chimes.

I did figure out how to add MIDI to a table without installing VPMIDI and VBRUN6 runtime, just by using WMPlayer as a COM object which is already available in Windows (and the .mid files), so if anyone wants to check that out, let me know.

Hey Bob, maybe you can update the Christmas project for the casual users?

I would be very interested in that Sleepy, especially if it's just done by using the script . I think a lot of people would be interested in it if it was a simple process. Those midi files are tiny in size and don't sound that bad.

 

[sleepy]

Okay, this is what I found out. The COM object requires the precise name of the process, application. .OCX, .DLL, or class in the CreateObject declaration, so you can often find the name by googling "= CreateObject("RichTextBox." Replace RichTextBox with the name that you know or think you know.
Even if you don't have the correct name, Google often pulls up a page with the correct name. I found a page where someone was trying to play files from a WSH.vbs script and sure enough, they had the correct name and a working script. This is what they wrote:
-------------------------------------------------------------------------------
Option Explicit
Dim Wmp
'activate Windows Media Player reference
Set Wmp = CreateObject("WMPlayer.OCX")

Sub jouerMediaPlayer()
On Error Resume Next 'My Edit for VP/ VIP folder Compatibility
Wmp.URL = "C:\progra~1\visual~1\Music\Pianobackgrnd.mid"
On Error Resume Next
Wmp.URL = "Cinball\Music\Pianobackgrnd.mid" 'Replace with path for VIP\Music folder
Wmp.Controls.Play

End Sub

Sub arreterMediaPlayer()
If Wmp Is Nothing Then Exit Sub
Wmp.Controls.stop
End Sub

Sub Table1_Exit()
Wmp.Controls.stop
Set Wmp = Nothing
End Sub

------------------------------------------------------------------------

Then to display the current player state, in the KeyDown(ByVal keycode) add
ScoreText.Text = Wmp.Status

This code plays all files that Mediaplayer will play, though video won't appear, at least not without additional commands in the script but does play the soundtrack.

By the way, I tried writing a relative path for the .mid, but I can't seem to get it to work, so that's why there are two paths in the code for the different VP installations.

If you want to have a go at scripting the parameters, this is a readout file of the Wmplayer's .ocx (for ActiveX) commands/methods:

Not all commands are immediately accessible, like the no video (might need a HWND?) though maybe those are dependent on other established commands found elsewhere.

 

[sleepy]

VERY IMPORTANT!
If you use the COM to adjust volume, balance and other adjusted parameters,
then MAKE DAMN SURE TO SAVE THE PREVIOUS SETTINGS AS Dim Values BEFORE ADJUSTING THEM AND THEN MAKE DAMN SURE TO RESTORE THEM IN a Table_Exit() Sub, else PUNKS GO HOME!

 

[tiltjlp]

Huh? I know what each word on its own means Sleepy, but when I put them all together, I end up with a horrible and painful headache. You should warn us when you're going to talk High Tech so I can run and hide.

 

[sleepy]

Aha, yeah, me too.
I looked for this answer for 10 YEARS!

 

[sleepy]

In the Sub Table_Exit() add the following line just before the Exit Sub

Set Wmp = Nothing

 

[sleepy]

Call Sub jouerMediaPlayer() to play
Call Sub Sub arreterMediaPlayer() to stop

 

[bob]

I'm worse off than John, I don't even understand some of the words. :) I think I would need a previously working table as an example before I could make it work. I also would need something that even John could get working if I were to use it in a project. Something that just worked out of the box. :)

 

[tiltjlp]

Call Sub jouerMediaPlayer() to play
Call Sub Sub arreterMediaPlayer() to stop

Why'd you stop using English all of a sudden. I'll stick with wav sounds, and now and then an MP3, I think they
are called. I wish they'd make a DumbVP version for us who are tech-challenged.