打开粘贴板内的网址对应的HTML代码 Emeditor宏 Macros

'/*=========================================================================
' * Intro       Get Html From clipboardData URL 
' * FileName    XMLhttp.vbee
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365@qq.com
' * FirstWrite  http://www.yongfa365.com/item/Get-HTML-From-clipboardData-URL-Emeditor-Macros-XMLhttp.vbee-yongfa365.html
' * LastModify  2007-08-29 16:52:54
' *==========================================================================*/


str = clipboardData.getData("Text")
document.write getHTTPPage(str)

Function getHTTPPage(Path)
    t = GetBody(Path)
    getHTTPPage = BytesToBstr(t, "GB2312")
End Function

Function GetBody(url)
    On Error Resume Next
    Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
    With xmlhttp
        .Open "Get", url, False
        .Send
        If xmlhttp.Status<>200 Then Exit Function
        GetBody = .ResponseBody
    End With
    Set xmlhttp = Nothing
End Function

Function BytesToBstr(Body, Cset)
    On Error Resume Next
    Dim objstream
    Set objstream = CreateObject("adodb.stream")
    objstream.Type = 1
    objstream.Mode = 3
    objstream.Open
    objstream.Write Body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = Cset
    BytesToBstr = objstream.ReadText
    objstream.Close
    Set objstream = Nothing
End Function
'原创作者：柳永法(yongfa365)'Blog