السلام عليكم
اعمل برنامج لارسال رسائل قصيرة للعملاء من خلال بوابة ارسال
واعطوني بيانات API
استخدمت هذا الكود لكن به خطا
On Error GoTo Handler
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "https://smsmisr.com/api/webapi/?"
objHTTP.Open "POST", URL, False
objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.send ("username=" & txtUser.Text & "&password=" & txtPass.Text & "&sender=" & Text1.Text & "&mobile=" & txtMobile.Text & "&message=" & txtMessage.Text & ",&DelayUntil=30/10/2018")
MsgBox objHTTP.ResponseText
Set objHTTP = Nothing
Exit Sub
'Format(DTPicker1.Value, "mm/dd/yyyy")
Handler:
MsgBox Err.Description