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"
