تم النشر منذ 4 Nov 2018 السلام عليكم اعمل برنامج لارسال رسائل قصيرة للعملاء من خلال بوابة ارسال واعطوني بيانات 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 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
