 |
| |
การเชื่อมต่อ VBไปยังเว็บส่ง SMS ไม่เข้าใจตรง xmlhttp คืออะไรหรอครับ |
| |
 |
|
|
 |
 |
|
xmlhttp คืออะไรหรอครับ คือจะทำโปรแกรมส่งsmsไปหาโทรศัพท์ โดยใช้ visual basic 2010 เขียน
แล้วจะใช้อะไรทำงานxmlhttp เห็นบอกว่า Create an xmlhttp object:
ขออภัยผมมือใหม่ ขอแนวทางด้วยครับ
Code (VB.NET)
Dim sUrl
Dim sPassword, sUsername, sMobileNo, sText, sSender
Dim oXMLHTTP, sPostData, sResult
sUrl = "http://messagedd.com/httpapi/sendsms/sendsms.aspx"
sPassword = TextBox1.Text
sUsername = TextBox2.Text
sMobileNo = TextBox3.Text
sText = TextBox4.Text
sSender = ""
sPostData = "username=" & sUsername
sPostData = sPostData & "&password=" & sPassword
sPostData = sPostData & "&to=" & sMobileNo
sPostData = sPostData & "&text=" & sText
sPostData = sPostData & "&sender=" & sSender
' Create an xmlhttp object:
'Set oXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
oXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXMLHTTP.Open("POST", sUrl, False)
oXMLHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
oXMLHTTP.Send(sPostData)
sResult = oXMLHTTP.responseText
oXMLHTTP = Nothing
Response.Write(sResult)
Tag : .NET, Ms SQL Server 2008, VBScript, Web (ASP.NET), VS 2010 (.NET 4.x)
|
|
|
 |
 |
 |
 |
| Date :
2014-11-29 09:41:38 |
By :
diawsss23 |
View :
1435 |
Reply :
8 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ออ ขอบคุณครับ ไม่ต้องไปทำอะไรเพื่มใช่ไหมครับ แต่มันก็ Error อยู่ดี ตรง Server กับ Response อะครับ 
|
| |
|
|
| |
| Date :
2014-11-29 10:11:15 |
By :
diawsss23 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ใช้่พวก WebClient แทนครับ
|
| |
|
|
| |
| Date :
2014-11-29 10:14:59 |
By :
mr.win |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมไม่เข้าใจ WebClient อะครับ ให้ใส่แทน Server อะไรงี้หรอครับ ขอตัวอย่างได้ไหม
|
| |
|
|
| |
| Date :
2014-11-29 13:23:06 |
By :
diawsss23 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมใช้บริการของ http://www.cat4sms.com
Code (VB.NET)
Public Function GetResponse(ByVal StrURL As String) As String
Dim strReturn As String = ""
Dim objRequest As HttpWebRequest = Nothing
Dim ar As IAsyncResult = Nothing
Dim objResponse As HttpWebResponse = Nothing
Dim objs As StreamReader = Nothing
Try
objRequest = DirectCast(WebRequest.Create(StrURL), HttpWebRequest)
ar = objRequest.BeginGetResponse(New AsyncCallback(AddressOf GetScrapingResponse), objRequest)
'Wait for request to complete
ar.AsyncWaitHandle.WaitOne(1000 * 60, True)
If objRequest.HaveResponse = False Then
Throw New Exception("No Response!!!")
End If
objResponse = DirectCast(objRequest.EndGetResponse(ar), HttpWebResponse)
objs = New StreamReader(objResponse.GetResponseStream())
strReturn = objs.ReadToEnd()
Catch exp As Exception
Throw exp
Finally
If objResponse IsNot Nothing Then
objResponse.Close()
End If
objRequest = Nothing
ar = Nothing
objResponse = Nothing
objs = Nothing
End Try
Return strReturn
End Function
ปุ่มส่งก็จะเป็น
Code (VB.NET)
GetResponse("http://www.cat4sms.com/api/api.php?username=UserID&password=Password&msisdn=เบอร์โทร&message=ข้อความ")
|
ประวัติการแก้ไข
2014-11-29 19:29:19
| |
|
|
| |
| Date :
2014-11-29 19:28:46 |
By :
zarooman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณ คุณzaroomanมากครับ เดียวผมจะลองแกะโค๊ตดูละกันนะครับ พอดีมือใหม่ 
|
| |
|
|
| |
| Date :
2014-11-30 11:43:28 |
By :
diawsss23 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมลองทำตามคุณzarooman แล้ว แล้วก็เพื่ม
Code (VB.NET)
Imports System.IO
Imports System.Net
เข้าไป
แต่มันก็ยังติด Error ที่ (AddressOf GetScrapingResponse) ตามรูปอะครับ
ช่วยหน่อยครับ
Error ตามนี้ครับ 
|
ประวัติการแก้ไข
2014-11-30 13:14:01
2014-11-30 13:15:16
| |
|
|
| |
| Date :
2014-11-30 12:47:15 |
By :
diawsss23 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Quote:
