mahmood1000
سه شنبه 24 مرداد 1391, 19:36 عصر
سلام به همه دوستان و اساتید محترم
من برای راه اندازی پنل SMS سایتم باید از این دستور استفاده کنم. متاسفانه به زبان #C نوشته شده و من با این زبان آشنایی ندارم. از کسانی که در این خصوص آشنایی دارن ممنون میشم من رو راهنمایی کنند.
'تعریف تابع ارسال پیامک
Function SMSSEND(username,password,too,text,FromNumber)
sMsg = server.urlencode(text)
sBaseUrl = "Http://www.sitesms.com/APISend.aspx"
set objHTTP = Server.CreateObject("msxml2.XMLHTTP")
objHTTP.open "POST", sBaseUrl, False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send "username=" & username & "&password=" & password & "&to=" & too
& "&From:" & FromNumber & "&text=" & sMsg
SMS_SEND = objHTTP.responseText
Set objHTTP = Nothing
End Function
'استفاده از تابع در جای مورد نظر
response.write SMSSEND("username","password","09111111111","Salam ","30007546")
من برای راه اندازی پنل SMS سایتم باید از این دستور استفاده کنم. متاسفانه به زبان #C نوشته شده و من با این زبان آشنایی ندارم. از کسانی که در این خصوص آشنایی دارن ممنون میشم من رو راهنمایی کنند.
'تعریف تابع ارسال پیامک
Function SMSSEND(username,password,too,text,FromNumber)
sMsg = server.urlencode(text)
sBaseUrl = "Http://www.sitesms.com/APISend.aspx"
set objHTTP = Server.CreateObject("msxml2.XMLHTTP")
objHTTP.open "POST", sBaseUrl, False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send "username=" & username & "&password=" & password & "&to=" & too
& "&From:" & FromNumber & "&text=" & sMsg
SMS_SEND = objHTTP.responseText
Set objHTTP = Nothing
End Function
'استفاده از تابع در جای مورد نظر
response.write SMSSEND("username","password","09111111111","Salam ","30007546")