ارسال اس ام اس از طریق URL

[aknj56]

با سلام خدمت دوستان و برنامه نویسان
من برای اضافه کردن امکان ارسال اس ام اس به برنامم به پنلی که دارم قسمت برنامه نویسان مراجعه کردم برای ارسال اس ام اس این نمونه کد رو گذاشته بود :
Http://www.sitesms.com/APISend.aspx?Username=111&Password=222&From=30001111&To=0911111111 &Text=salam
و کفته از طریق لینک هست یعنی باید برنامه رو لینک کنیم
قبلا من از طریف وب سرویس به برنامه هام اس ام اس اضافه کردم بودم ولی تا به حال از طریق لینک و URL این کار رو نکردم لطفا راهنمایی کنید باید چیکار کنم
با تشکر

[aknj56]

با سلام خدمت دوستان
خودم تونستم درست کنم و این هم کدهاش هست شاید بدرد دوستان هم بخوره

Function SMSSEND(ByVal username, ByVal password, ByVal from, ByVal too, ByVal text)
sMsg = text
sBaseUrl = "Http://www.sitebsms.com/APISend.aspx?"
objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.open("POST", sBaseUrl, False)
objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
objHTTP.send("username=" & username & "&password=" & password & "&From=" & from & "&to=" & too & "&text=" & sMsg)
SMS_SEND = objHTTP.responseText
objHTTP = Nothing


End Function


OUT_SEND = SMSSEND(user.Text, pass.Text, number_sender.Text, to_number.Text, txt.Text)