منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طلب تعديل علي رابط موقع داخل الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طلب تعديل علي رابط موقع داخل الكود (/showthread.php?tid=27269)

طلب تعديل علي رابط موقع داخل الكود - ScreamVoice - 04-11-18

السلام عليكم ورحمة الله وبركاته

كنت عايز اطبق فكره بس وقفت علي شئ

برجاء تعديل الكود

كود :
Try
           progressValueLabel.ResetText()
           remainingValueLabel.ResetText()
           downloadProgressBar.Value = downloadProgressBar.Minimum

           ScreamUpdate = New List(Of update)({New update With {.DataSize = 0, .Time = Date.Now}})

           downloader.DownloadFileAsync(New Uri("http://egyman.net:1978/get.php?username=700700&password=700700&type=m3u&output=ts"), Application.StartupPath & "\Extreme.m3u", True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)
       Catch ex As Exception
           MessageBox.Show(ex.ToString(), "Download Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

محتاج الرابط دا 

كود :
http://egyman.net:1978/get.php?username=700700&password=700700&type=m3u&output=ts


ياخد بياناته من عدة textbox

اولا
egyman.net
ياخد قيمته من 
TextBox1.Text
ثانيا
700700 الاولي الخاصه باليوزر نيم
تاخد قيمتها من
TextBox2.Text
ثالثا
1978
ياخد قيمته من
TextBox3.Text
رابعا
700700 الاخيره الخاصة بالباسورد
تاخد قيمتها من 
TextBox4.Text

طبعا الكود دا من بوتون 1 في الحدث كليك
برجاء الافادة
وشكرا

RE: طلب تعديل علي رابط موقع داخل الكود - rmnr - 04-11-18

كود :
Try
   progressValueLabel.ResetText()
   remainingValueLabel.ResetText()
   downloadProgressBar.Value = downloadProgressBar.Minimum

   ScreamUpdate = New List(Of update)({New update With {.DataSize = 0, .Time = Date.Now}})

   Dim url As String = "http://" & TextBox1.Text & ":" & TextBox3.Text & "/get.php?username=" & TextBox2.Text & "&password=" & TextBox4.Text & "&type=m3u&output=ts"
   Dim filename As String = Application.StartupPath & "\Extreme.m3u"
   downloader.DownloadFileAsync(New Uri(url), filename, True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)

Catch ex As Exception
   MessageBox.Show(ex.ToString(), "Download Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try


RE: طلب تعديل علي رابط موقع داخل الكود - ScreamVoice - 04-11-18

(04-11-18, 09:16 AM)rmnr كتب :
كود :
Try
   progressValueLabel.ResetText()
   remainingValueLabel.ResetText()
   downloadProgressBar.Value = downloadProgressBar.Minimum

   ScreamUpdate = New List(Of update)({New update With {.DataSize = 0, .Time = Date.Now}})

   Dim url As String = "http://" & TextBox1.Text & ":" & TextBox3.Text & "/get.php?username=" & TextBox2.Text & "&password=" & TextBox4.Text & "&type=m3u&output=ts"
   Dim filename As String = Application.StartupPath & "\Extreme.m3u"
   downloader.DownloadFileAsync(New Uri(url), filename, True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)

Catch ex As Exception
   MessageBox.Show(ex.ToString(), "Download Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try


تسلم ايدك يا كبير 

الفكره كانت في دماغي بالشكل دا بس معرفتش انفذها 

ههههههههه
البرنامج فكرته عبارة عن 

اختبار لاكواد اكستريم IPTV

بحثت كتيير اوي علي النت علي برنامج يقوم باختبار الاكواد علي الكمبيوتر بس للاسف ملقتش ولا برنامج

فكرت اعمل برنامج يقوم بعمل تيست للكود وتحميل ملف ال IPTV

رابط البرنامج للتجربه 

http://gulfup.co/xn9af2suyb8s

مطلوب الراي في البرنامج