View Full Version : تبدیل برنامه از vb.net به vb6
aminlv
جمعه 26 شهریور 1395, 01:57 صبح
سلام
من یه چند وقتی هست دارم سعی می کنم از سرویس مخابرات sms با شماره ثابت رو به vb6 درست کنم ولی موفق نبودم
ممنون میشم اگر کسی از دوستان می تونه و اشنایی داره کمک کنه
هر دو نوع سورسی که دادن رو پیوست کردم یکی php هست یکی هم که vb.net
دردسر سرویس دولتیه دیگه زنگ میزنم جز پول گرفتن و همینی که هست جواب دیگه ای بلد نیستن
بازهم پیش پیش ممنون
meys34
چهارشنبه 31 شهریور 1395, 12:47 عصر
سلام
خوشبختانه 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
جمعه 02 مهر 1395, 02:56 صبح
سلام meys34 دستت درد نکنه برم ببینم بالاخره این 7 خان رستم راستو ریست میشه :لبخند:
دمت گرم هوارتا
مرسی
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.