send sms

sms.vb

Dim strURL As String = ""
Dim user As String = "*??*"
Dim password As String = "*??*"
Dim m_num As String = "*????*"
Dim message As String = "*????*"
strURL = "http://api.twsms.com/send_sms.php?username=" & user _
        & "&password=" & password & "&type=now&encoding=big5&mobile=" & m_num _
        & "&message=" & message & "&vldtme=3600"


Dim myHttpWebRequest As HttpWebRequest
Dim myHttpWebResponse As HttpWebResponse
Try
    myHttpWebRequest = CType(WebRequest.Create(strURL), HttpWebRequest)

    myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)

    GetResponseData(myHttpWebResponse.GetResponseStream())


    myHttpWebResponse.Close()
Catch ex As Exception


End Try