VB.NET

 'calls to send text messages, NoList receiving number. Use between multiple, separate, Memo content of 70 
The Public Function SendSMS (ByVal NoList As String, ByVal Memo As String) As String 
Dim Url As String="HTTP://http://sms.webchinese.cn/web_api/? Uid=account & amp; Key=interface Key & amp; SmsMob=cell phone number & amp; SmsText=text messages "
Dim webClient As New Net. WebClient () 
Try 
'Dim responseData As Byte ()=
Dim srcString As String=webClient. DownloadString (Url) 
Return srcString 
Catch 
Return "- 444 
"End the Try 
End the Function 

-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

CodePudding user response:

From the code is the HTTP access, with XMLHTTP. Get can ah, you search the XMLHTTP BBS have the answer

CodePudding user response:

You are a person?

http://bbs.csdn.net/topics/390702595

As Din xmlHttp Object
Dim param As String
The Set xmlHttp=CreateObject (" Microsoft. XmlHttp ")
XmlHttp. Open "GET", "http://sms.webchinese.cn/web_api/? Uid=account & amp; Key=interface Key & amp; SmsMob=cell phone number & amp; SmsText=text messages, "True
XmlHttp. Send (Null)
While xmlHttp. ReadyState & lt;> 4
DoEvents
Wend
Dim s As String
S=xmlHttp. The responseText
MsgBox s