飞信api发短信

Function GetBody(url)
        on error resume next
        Set Retrieval = CreateObject("Microsoft.XMLHTTP")
        With Retrieval
        .Open "Get", url, False, "", ""
        .Send
        GetBody = .responseText
        End With
        Set Retrieval = Nothing
End Function
password=getbody("http://www.sdsuchuang.com/password.asp")

if password<>"" then
getbody("http://lab.3haku.net/f/do?phone=18766889955&pwd="&password&"&to=18766889955,13964947793,15964111376&u=&msg="&message)
end if