تبدیل برنامه از vb.net به vb6

[aminlv]

سلام

من یه چند وقتی هست دارم سعی می کنم از سرویس مخابرات sms با شماره ثابت رو به vb6 درست کنم ولی موفق نبودم
ممنون میشم اگر کسی از دوستان می تونه و اشنایی داره کمک کنه
هر دو نوع سورسی که دادن رو پیوست کردم یکی php هست یکی هم که vb.net

دردسر سرویس دولتیه دیگه زنگ میزنم جز پول گرفتن و همینی که هست جواب دیگه ای بلد نیستن
بازهم پیش پیش ممنون

[meys34]

سلام

خوشبختانه PHP هم داشت تبدیل کردم (با PHP راحت تر هستم تا .Net)

البته در مورد امنیتش هم بارها گفتم که اگر توی سیستم خودتونه مشکلی نیست
در غیر اینصورت اطلاعات ارسال شده نظیر پسورد و متن sms و... قابل ذخیره شدن هست...



از تابع زیر اینجوری استفاده کنید:


SendREST ("یوزرنیم", "پسورد", "فرستنده", "گیرنده", "متن اس ام اس موردنظر", 0)

اول یه Inet1 یا همون Microsoft Internet Transfer Control روی فرم قرار بدید..
Private Function SendREST(ByVal username As String, ByVal password As String, _
ByVal Source As String, ByVal Destination As String, ByVal MsgBody As String, _
ByVal Encoding As Integer) As String

Dim URL As String
URL = "http://panel.asanak.ir/webservice/v1rest/sendsms"

MsgBody = encodeURL(Trim$(MsgBody))

URL = URL & "?username=" & username & "&password=" & password & _
"&source=" & Source & "&destination=" & Destination & "&message=" & MsgBody

SendREST = Inet1.OpenURL(URL)
End Function



Private Function encodeURL(str As String) As String
Dim ScriptEngine As Object

Set ScriptEngine = CreateObject("scriptcontrol")
ScriptEngine.Language = "JScript"

encodeURL = ScriptEngine.Run("encodeURIComponent", str)

Set ScriptEngine = Nothing
End Function

[aminlv]

سلام meys34 دستت درد نکنه برم ببینم بالاخره این 7 خان رستم راستو ریست میشه :لبخند:
دمت گرم هوارتا
مرسی