vb短信接口开发示例代码

VERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=9285ClientLeft=120ClientTop=465ClientWidth=18105LinkTopic="Form1"MaxButton=0'FalseScaleHeight=9285ScaleWidth=18105StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2Caption="自动提交"Height=495Left=3840TabIndex=7Top=8520Width=1575EndBeginVB.TimerTimer1Enabled=0'FalseInterval=1000Left=2640Top=240EndBeginVB.TextBoxcontentHeight=375Left=1080TabIndex=6Top=840Width=16575EndBeginVB.TextBoxmobileHeight=375Left=1080TabIndex=4Top=240Width=1215EndBeginVB.CommandButtonCommand3Caption="语音通知"Height=495Left=2160TabIndex=2Top=8520Width=1335EndBeginVB.CommandButtonCommand1Caption="发送短信"Height=495Left=480TabIndex=1Top=8520Width=1455EndBeginVB.TextBoxText2BeginPropertyFontName="宋体"Size=9.75Charset=0Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyForeColor=&H80000001&Height=6615Left=480Locked=-1'TrueMultiLine=-1'TrueScrollBars=3'BothTabIndex=0Top=1440Width=17295EndBeginVB.LabelLabel2Caption="内容"Height=255Left=480TabIndex=5Top=960Width=855EndBeginVB.LabelLabel1Caption="手机"Height=255Left=480TabIndex=3Top=360Width=735EndEndAttributeVB_Name="Form1"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalseDimHttpClientAsObjectDimrndstrPrivateDeclareFunctiontimeGetTimeLib"winmm.dll"()AsLongSubSend(TypeBAsBoolean)Dimaccount$,password$,url$,postData$IfTypeBThenurl="http://106./webservice/sms.php?method=Submit"'这个是短信地址account="test"password="test"Elseurl="/webservice/voice.php?method=Submit"'这个是电话的地址account="test"password="test"EndIfpostData="account="&account&"&password="&password&"&mobile="&mobile&"&content="&contentSetHttpClient=CreateObject("Microsoft.XMLHTTP")HttpClient.open"POST",url,FalseHttpClient.setRequestHeader"CONTENT-TYPE","application/x-www-form-urlencoded"HttpClient.setRequestHeader"Content-Length",Len(postData)HttpClient.SendUTF8EncodeURI(postData)DoWhileHttpClient.readyState<>4DoEventsLoopText2.Text=Text2.Text&vbCrLf&Time$&""&Right(timeGetTime,3)&""&HttpClient.responseTextEndSubPrivateSubCommand1_Click()SendTrueEndSubPrivateSubCommand3_Click()SendFalseEndSubPrivateSubForm_Load()rndstr=1213412content.Text="您的验证码是："&rndstr&"。请不要把验证码泄露给其他人。"EndSubPrivateSubTimer1_Timer()Dimrndstr2rndstr2=Int(Rnd*9000)content.Text=Replace(content.Text,rndstr,rndstr2)rndstr=rndstr2Text2.Text=Text2.Text&vbCrLf&Time$&""&Right(timeGetTime,3)Command1_ClickCommand3_ClickEndSubPrivateSubCommand2_Click()IfTimer1.Enabled=FalseThenTimer1.Enabled=TrueCommand2.Caption="自动提交（关）"ElseIfTimer1.Enabled=TrueThenTimer1.Enabled=FalseCommand2.Caption="自动提交（开）"EndIfEndSubFunctionUTF8EncodeURI(szInput)Dimwch,uch,szRetDimxDimnAsc,nAsc2,nAsc3IfszInput=""ThenUTF8EncodeURI=szInputExitFunctionEndIfForx=1ToLen(szInput)wch=Mid(szInput,x,1)nAsc=AscW(wch)IfnAsc<0ThennAsc=nAsc+65536If(nAscAnd&HFF80)=0ThenszRet=szRet&wchElseIf(nAscAnd&HF000)=0Thenuch="%"&Hex(((nAsc\2^6))Or&HC0)&Hex(nAscAnd&H3FOr&H80)szRet=szRet&uchElseuch="%"&Hex((nAsc\2^12)Or&HE0)&"%"&_Hex((nAsc\2^6)And&H3FOr&H80)&"%"&_Hex(nAscAnd&H3FOr&H80)szRet=szRet&uchEndIfEndIfNextUTF8EncodeURI=s