Sub OnContextMenu()
    dim url,text
    If Wscript.Arguments.Count < 1 then
      WScript.Quit
    Elseif Wscript.Arguments.Count = 2 then
      text = Wscript.arguments.Item(1)
    End If
    url = Wscript.arguments.Item(0)
    Set objBook = CreateObject("flbook.NewUrl")
    Call objBook.AddUrl("网址",  url & "||" & text)
    Set objBook = Nothing
End Sub
Call OnContextMenu