
Private Sub Command1_Click()
If Text1.Text <> "" Then
'WebBrowser1.Navigate Replace(Text2.Text, "[[Title]]", Text1.Text)

Text3.Text = GetBody(Replace(Text2.Text, "[[Title]]", Text1.Text))

End If
End Sub

Private Sub Form_Load()
With ListView1
    .ColumnHeaders.Clear
    .View = lvwReport
    .LabelEdit = 1
    .HideColumnHeaders = False
    .FullRowSelect = True
    .GridLines = True
    .ListItems.Clear
    .ColumnHeaders.Add 1, , "ÏîÄ¿", ListView1.Width - 335
End With
End Sub

Function GetBody(Url)
Dim ObjXML
Set ObjXML = CreateObject("Microsoft.XMLHTTP")
With ObjXML
.open "Get", Url, False, "", ""
.send
GetBody = .responseBody
End With
GetBody = BytesToBstr(GetBody, "UTF-8")
Set ObjXML = Nothing
End Function

Function BytesToBstr(strBody, CodeBase)
Dim ObjStream
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.open
.Write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
End Function


