Web Shortcuts

Script

How can i make a web page launch using a script. Instead of change the type to url or shortcut. Thanks
1,435 views 2 replies
Reply #1 Top
Not got DX to hand, but this should work. This script in an object would cause a predefined URL to launch.

Dim myURL

Sub Object_OnScriptEnter()
myURL = "http:\\www.stardock.com"
End Sub

Sub Object_OnLButtonUp(x,y,dragged)
If dragged = False Then
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run Chr(34) & myURL & Chr(34)
Set WshShell = Nothing
End If
End Sub


Elsewhere you you redefine the variable to set which URL is launched.
DesktopX.ScriptObject("ABOVEOBJECT'SNAME").myURL = "www.wincustomize.com"
Reply #2 Top
Thank You Very Much Yep It Worked. Thanks Again