1. ASP 调用例子 <% ‘常用函数 ‘输入url目标网页地址,返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") set http=nothing if err.number<>0 then err.Clear end function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function ‘自已组合一下提交的URL加入自己的账号和密码 |
2.C# 调用 //需要用到的命名空间 using System.Net; using System.IO; using System.Text; //调用时只需要把拼成的URL传给该函数即可。判断返回值即可 public string GetHtmlFromUrl(string url) { string strRet = null; if(url==null || url.Trim().ToString()=="") |
3.JAVA调用
import java.io.UnsupportedEncodingException; public class SendMsg_webchinese { public static void main(String[] args)throws Exception HttpClient client = new HttpClient(); client.executeMethod(post); post.releaseConnection(); } } jar包下载 演示程序下载 说明:如果返回值是200,应该是整段程序代码没有执行完整,只获取到client.executeMethod(post)HTTP状态码的消息;接口是提交成功,没有执行下半部的返回消息代码。 |
4.PHP $url=‘http://sms.webchinese.cn/web_api/?Uid=账号&Key=接口密钥&smsMob=手机号码&smsText=验证码:8888‘; echo Get($url); |
5.VB.NET ‘调用发送短信,NoList接收号码.多个之间用,分开,Memo内容70字 Public Function SendSMS(ByVal NoList As String, ByVal Memo As String) As String Dim Url As String = "http://sms.webchinese.cn/web_api/?Uid=账号&Key=接口密钥&smsMob=手机号码&smsText=验证码:8888" Dim webClient As New Net.WebClient() Try ‘Dim responseData As Byte() = Dim srcString As String = webClient.DownloadString(Url) Return srcString Catch Return "-444" End Try End Function |
6.VB Public Function getHtmlStr(strUrl As String) ‘获取远程接口函数 On Error Resume Next Dim XmlHttp As Object, stime, ntime Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.open "GET", strUrl, True XmlHttp.send stime = Now ‘获取当前时间 While XmlHttp.ReadyState <> 4 DoEvents ntime = Now ‘获取循环时间 If DateDiff("s", stime, ntime) > 3 Then getHtmlStr = "": Exit Function Wend getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode) Set XmlHttp = Nothing End Function 代码使用:在窗体代码相应位置写如下代码 |
原文地址:https://www.cnblogs.com/yuncc/p/Name_s.html