Disposable Heros

That's the truth! Same here. Between the recommendations at Wilders.org, and from the people on this board, it's a good software seekers paradise!

Douglas

 

I'm not sure but shortly after reading Blaze's first post I found myself gathering porn from the far corners of the internet and sending it to some server.. uh somewhere... where was it

 

muddery battlefields, soldiers, porn, metallica scripting, quite some thread here and a film script.

Hmmmmm Pieter, did you have a look at the required system files? You might be missing one, which helped another person too in the private forum, i'll go look there which exactly helped a person in a similar case.
Look if you have those three files and version and date of them. I have these:
msscript.ocx 1.0.0.4615 7 december 1999 14:00:00 size 106,547
msscript.oca. version? 17 may 2002 13:46:12 size 20,992
vbsscript.dll. 5.6.0.7302 2 january 2002 13:08:12 size 467,002
If you need either of them let me know. If you have them newer they should work.

 

msscript.ocx : version 1.0.0.7615
msscript.oca : no such file
vbsscript.dll : no such file

I guess that explains why it doesn´t work

Regards,

Pieter

 

I also noticed earlier today that the barking of machinegun fire does nothing to me now ;-)

 

That really explains it all Pieter and possible also on other people's systems. The vbscript.dll should have come with the WSH file though, so i'm surprised. Can email you my files, if you want?

 

Well, I must confess I didn't follow this entire thread, but the file is called vbscript.dll, with one S

 

You're really going to need those files and this cover to play the script you asked for.
You need:
Registered version of TDS and scripts all functional.
After in TDS-3\Scripts you create a folder named CokeMachine (one word, which you use also in future to store my scripts)
Save the image from above there as metallicamop.jpg
The script below copy the whole part under "code",
In TDS > SS3 > SS3 Editor > paste that whole part, save as MetallicaMOP.SS3, close.
Then to play:
TDS > SS3 > Load Script, hunt for this script in the folder mentioned, double click it.
The play button you can use as a jukebox to hunt for your music files. If it doesn't work in the "my music" folder, put some in the c:\ and see if it works then.
The Download button brings you to the gamespot URL where an instrumental version of the song can be downloaded.
The Radio button brings you to an URL with internet radio where you can listen at demo tracks from that cd.
Hope you get it playing and you like it.


Edited:
You're right about the scriptname! Thanks.
I noticed mine was changed because of the security updates i took last sunday 15 december (maybe with the VM?), so now i have version:
version 5.6.0.7426 15 december 2002 462,906 bytes

 

Just install Windows Script from here, and you'll be fine:

http://www.microsoft.com/msdownload/vbscript/scripting.asp?id=29

That is, unless you have something running that actally blocks vbs script.

Maybe Symantec's NoScript?

 

(mind the wrapped lines, just in case)

Code:

'//***************************************************************************************//
'// File Name: MetallicaMOP.SS3 ; modification of the original script. Version 2.01.      //
'// metallicamop.jpeg, Jukebox.jpg, MetallicaMOP.SS3                                      //
'// The Jukebox.SS3 + Jukebox.jpg are originally created by Wayne Langlois for the        //
'// registered TDS Operators; for this script a little modification was necessary.        //                                                    //
'// Uses Diamond Computer Systems TDS, SS3, All rights reserved technology are copyright  //
'// by their respective creators and owners. This script is created by Jooske for the     //
'// Metallica fans In the Wilders Multi-lingual supported Security Forum as they can't use//
'// TDS without it. Used Is screen resolution 800x600. For info about the script contact  //
'// Jooske And more technologies other users via the TDS operators forum.                 //
'//***************************************************************************************// 
'Demonstrates xForm, LoadPicture() to set a background image (without even
'requiring the xImage/xPicture controls), and the multimedia functions.
'Can play .WAV, .MID, .MP2, .MP3, .MPG/.MPEG, and any other formats supported by your Windows Media Player.

'IMPORTANT: ALL FILES IN THIS DEMO _MUST_ go in your \Scripts\CokeMachine\ directory.
'       eg. C:\Program Files\Diamond Computer Systems\TDS-3\Scripts\CoKeMachine\MetallicaMOP.SS3 

Dim MyIE' As Object

Sub Main
On Error Resume Next
 Call LoadObject("xForm",0)  'Load the form
 Call LoadObject("xButton",0) 'Load a button
 Call Loadobject("xButton",1)
 Call Loadobject("xButton",2) 

  'Set Form properties
 xForm.Caption = "MetallicaMOPJukebox"
 xForm.Width = 3105
 xForm.Height = 3700
 xForm.Picture = LoadPicture(SysVar("tds.path") & "\Scripts\CokeMachine\metallicamop.jpg")  'xForm background image

  'Set the properties for xButton(0)
 xButton(0).Width = 1000
 xButton(0).Height = 300
 xButton(0).Left = (xForm.Width / 2) - (xButton(0).Width / 2)
 xButton(0).Top = 2300
 xButton(0).Caption = "Play"
 xButton(0).Visible = True
 
  'Set the properties for xButton(1)
 xButton(1).Width = 1000
 xButton(1).Height = 300
 xButton(1).Left = 5
 xButton(1).Top = 3000
 xButton(1).Caption = "Download"
 xButton(1).Visible = True
 
  'Set the properties for xButton(2)
 xButton(2).Width = 1000
 xButton(2).Height = 300
 xButton(2).Left = 2030
 xButton(2).Top = 3000
 xButton(2).Caption = "Radio"
 xButton(2).Visible = True

 'Show the form!
 Do_Events
 xForm.Show
End Sub

Sub xButton_Click
 If xButton(xButtonIndex).Caption ="Play" Then
 FileToPlay = GetFileDialog("C:\my music", "Select file To play...", "*.*", "")
 If FileToPlay <> "" Then
    sndPlayM "Stop MM"                           'Stop file in case it's playing
    sndPlayM "Close MM"                          'Close handle to file
    sndPlayM "Open " & FileToPlay & " Alias MM"  'Open file with new handle
    sndPlayM "Play MM"                           'Play file
 End If
End If

If xButton(xButtonIndex).Caption ="Download" Then
On Error Resume Next
    'Dim MyIE' As Object
    Set MyIE = CreateObject("internetexplorer.application")  'Create a new instance of IE
    MyIE.Visible = True                                      'Make sure it's visible
    MyIE.Navigate ("www.gamespot.com/features/tenspot_music/audio/heroes2track04.mp3")            'Go to a website
End If

If xButton(xButtonIndex).Caption ="Radio" Then
On Error Resume Next
    'Dim MyIE' As Object
    Set MyIE = CreateObject("internetexplorer.application")  'Create a new instance of IE
    MyIE.Visible = True                                      'Make sure it's visible
    MyIE.Navigate ("http://entertainment.msn.com/Album/?song=1006928&album=100571")            'Go to a website
End If
End Sub

 

OK, that one is version: 5.6.0.7426
As to blocking vbs scripts, I guess Wormguard does that too.

Regards,

Pieter

 

WG only blocks them if you tell it to..
I don't have VBS in the blocked files list, only complete names of known worm/trojan.vbs scripts.
If you have the default WG it would not block them completely, only check if they are ok and let them go if they are or block and warn you if there would be anything suspicious or alarming. Depends on your settings.
Fingers crosse to know you got your favorite music in the special jukebox version i created fro the fans here.

 

I tested Wormguard. It gives a warning when I try to start a .vbs manually.
Could you mail me the missing file Jooske?
I will see if that helps tomorrow.

Regards,

Pieter

 

Done!
Hope you all TDS operators get the script running!
Please let me know.
Of course you can paste other URLs under the buttons and change the names on them, for instance for access into your most favorite forums, have a close look and you'll see how (easy) to do it.


If you see the warning, you will have configured 4 options to block or allow anyway, delete or quatrantine the file (first check it in the safe mode if it's an unknown file) etc.
You can have a testfile on your desktop, for instance test.vbs with inside msgbox "this is my script" and i created one extra with a double extension, to test that too.
Further i pasted part of the script above inside with the buttonclick to play the file even though it doesn't want to play from my desktop, but so you see what WG does.

 

Hope TDS users got this little jukebox running!
I created a slightly modified version of it with buttons for direct access to the Wilders and private members only DCS forum which i posted in the latter. The "play" music part i left as it is and this version is IE only; for all other browsers have to work on it, will do, maybe, or looking forward others doing so.
Anyway, would like to know if you got your special requested Metallica SS3 script working comfortable!

 

How long did it take you to learn how to do that?
You have gotten me to think that I am dumb. I like it very much Jooske and it works fine. TY.

 

You're welcome!
I worked from the other side, starting with the MSAgents scripting (MASH, MASS and the MSAgent examples at the ms site are very nice for that and well as some stationaries from some newsgroups) and on the other hand looking in the scripts examples in TDS, modifying and looking what happens after that.
You probably have those mosic files now so you can change download URLs or just change it into forumjumps or whatever you like under those buttons, add a few more if you like, as i did this in the most easy primitive quick way.
Look in the TDS threads here and in the private forum for lots more.
This little metallicaMOP script was really nice to do and looks nice too, so you might like to make the same kind for other metallica CDs.