2016-03-26 33 views

答えて

-1

彼らはAPIを持っている場合は、あなたのプロバイダにお問い合わせくださいと頼むこの

Protected Sub btn_Click(sender As Object, e As EventArgs) 
Try 

    send("way2sms_userid", "way2sms_password", txtxmsg.Text, txtphn.Text) 
    Response.Write("message send successfully......") 
Catch 
    Response.Write("Error Occured!!!") 
End Try 
End Sub 

Public Sub send(uid As String, password As String, message As String, no As String) 
Dim myReq As HttpWebRequest = DirectCast(WebRequest.Create("http://ubaid.tk/sms/sms.aspx?uid=" & uid & "&pwd=" & password & "&msg=" & message & "&phone=" & no & "&provider=way2sms"), HttpWebRequest) 
Dim myResp As HttpWebResponse = DirectCast(myReq.GetResponse(), HttpWebResponse) 
Dim respStreamReader As New System.IO.StreamReader(myResp.GetResponseStream()) 
Dim responseString As String = respStreamReader.ReadToEnd() 
respStreamReader.Close() 
myResp.Close() 
End Sub 
関連する問題