home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOKAN 25
/
DOKAN25.ISO
/
Extra
/
wmtools.exe
/
1033
/
RCDATA
/
CABINET
/
parserie.txt
< prev
next >
Wrap
Text File
|
1999-11-11
|
685b
|
26 lines
<SCRIPT LANGUAGE="VBScript">
' ************************
' This is the main command script handler for ASF embedded scripts
' ( Written by Digital Renaisance, Toronto, Canada, 1999 )
' ************************
Sub DSPlay1_ScriptCommand(bstrType, bstrParam)
Select Case Ucase(bStrType)
Case "CAPTION"
'msgbox("Tφtulo seleccionado")
change(bstrParam)
Case "FILENAME"
'msgbox("Nombre de archivo seleccionado")
if not ( DSPlay1.InvokeURLs ) then
Launch_Url(bstrParam)
end if
Case "URL"
'msgbox("Direcci≤n URL seleccionada")
if not ( DSPlay1.InvokeURLs ) then
Launch_Url(bstrParam)
end if
End Select
End Sub
</SCRIPT>