home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / getasfstream2106c.exe / GASMenu.vbs < prev    next >
Encoding:
Text File  |  2003-12-01  |  2.4 KB  |  85 lines
  1. '-------------------------------
  2. '    DownLoadùpURLé≡ïüé▀éΘè╓Éö
  3. '-------------------------------
  4. Function GASDownLoad()
  5. On Error Resume Next
  6.     Dim objEvent
  7.     Dim objEventElement
  8.     Dim objSrcAnchor
  9.     Dim objSrcImage
  10.     Dim strSelText
  11.     Dim setURLFlag
  12.     Dim strURLTop
  13.  
  14.     setURLFlag = FALSE
  15.     Set objEvent = external.menuArguments.event
  16.     Set objEventElement = external.menuArguments.document.elementFromPoint(objEvent.clientX, objEvent.clientY)
  17.     If objEvent.type = "MenuExtAnchor" Then 
  18.         Set objSrcAnchor = objEventElement
  19.         Do Until TypeName(objSrcAnchor) = "HTMLAnchorElement"
  20.             Set objSrcAnchor = objSrcAnchor.parentElement
  21.         Loop
  22.         nowURL = objSrcAnchor.href
  23.         setURLFlag = TRUE
  24.     
  25.     ElseIf objEvent.type = "MenuExtImage" Then
  26.         If TypeName(objEventElement) = "HTMLAreaElement" Then
  27.             RegURLToIria objEventElement.href
  28.         Else 
  29.             Set objSrcImage = objEventElement
  30.             Set objSrcAnchor = objSrcImage.parentElement
  31.             Do Until TypeName(objSrcAnchor) = "HTMLAnchorElement"
  32.                 Set objSrcAnchor = objSrcAnchor.parentElement
  33.                 If TypeName(objSrcAnchor) = "Nothing" Then 
  34.                     nowURL = objSrcImage.href
  35.                     setURLFlag = TRUE
  36.                     Exit Do
  37.                 End If
  38.             Loop
  39.             if setURLFlag = FALSE then
  40.                 nowURL = objSrcAnchor.href
  41.                 setURLFlag = TRUE
  42.             End If
  43.         End If
  44.  
  45.     Else
  46.         strSelText = external.menuArguments.document.selection.createRange().text
  47.         nowURL = Trim(strSelText)
  48.         If Len(strSelText) Then
  49.             setURLFlag = TRUE
  50.             
  51.         ElseIf objEvent.type = "MenuExtUnknown" Then
  52.             Set objSrcAnchor = objEventElement
  53.             Do Until TypeName(objSrcAnchor) = "HTMLAnchorElement"
  54.                 Set objSrcAnchor = objSrcAnchor.parentElement
  55.                 If TypeName(objSrcAnchor) = "Nothing" Then 
  56.                     nowURL = objEventElement.href
  57.                     setURLFlag = TRUE
  58.                     Exit Do
  59.                 End If
  60.             Loop
  61.             If setURLFlag = FALSE then
  62.                 nowURL = objSrcAnchor.href
  63.                 setURLFlag = TRUE
  64.             End If
  65.         End If
  66.     End If
  67.     
  68.     If setURLFlag = TRUE Then
  69.         strURLTop = Left(nowURL, 4)
  70.         If StrComp(strURLTop, "http", vbTextCompare) = 0 Then
  71.             GASDownLoad = nowURL
  72.         ElseIf StrComp(strURLTop, "rtsp", vbTextCompare) = 0 Then
  73.             GASDownLoad = nowURL
  74.         ElseIf StrComp(strURLTop, "mms:", vbTextCompare) = 0 Then
  75.             GASDownLoad = nowURL
  76.         ElseIf (StrComp(strURLTop, "ttp:", vbTextCompare) = 0) or (StrComp(strURLTop, "ttps", vbTextCompare) = 0) Then
  77.             GASDownLoad = "h" & nowURL
  78.         Else
  79.             GASDownLoad = ""
  80.         End If
  81.     Else
  82.         GASDownLoad = ""
  83.     End If
  84. End Function
  85.