(24-10-18, 06:26 PM)rnmr كتب : جرب هذا


الموقع https://picsee.co يستخدم خدمة موقع https://tinyurl.com

---

الكود مقتبس من الموضوع:
كيفية صنع برنامج اختصار روابط احترافى

كود :

Dim wc As New WebClient
Dim url As String = wc.DownloadString("http://tinyurl.com/api-create.php?url=" & TextBox1.Text)

Me.TextBox1.Text = url

(24-10-18, 05:18 PM)Mohamed Magdy كتب : انتا عايز بديل لى الويب بروزر ولا اة مش فاهم لو عايز بديل فى موضوع كنت انا عملوة وى واحد حطلى بديل فية بس مش عارف يشتغل على الموقع دا ولا لا

---

http://vb4arb.com/vb/showthread.php?tid=26896
شوف الموضوع دا ممكن يكون يفيدك

(24-10-18, 07:35 PM)rnmr كتب : جرب هذا


إن كنت تريد رابط الصورة الكبيرة لليوتيوب فقط فأنت لا تحتاج لهذه المواقع

كود :

Dim id As String = Regex.Match(TextBox1.Text, "(?<=https://www.youtube\.com/watch\?v=).*").Value
Dim imgUrl As String = "https://i.ytimg.com/vi/" & id & "/hqdefault.jpg"

PictureBox1.ImageLocation = imgUrl