Visual Basic شرح تصميم برنامج بسيط في برنامج

 

 

بتوووووووووووووووفيق للجميع

........................................................................

شرح كيفية استخراج روابط القنوات

من هنااااااااااااااااااااااااااااااااااا

 

روابط القنوات المذكودة بشرح

http://24.thgss.com:8000/live/28121525861480/28121525861480/1056.ts

http://24.thgss.com:8000/live/28121525861480/28121525861480/1057.ts

........................................................................

اكواد منوعة

...........................

'AxVLCPlugin21 اسم الاداة الخاصة ببرنامج VLC

 AxVLCPlugin21.playlist.add("http://24.thgss.com:8000/live/28121525861480/28121525861480/1056.ts")

AxVLCPlugin21.playlist.play()

........................................................................

.كود مشغل [b]مقطع صوتي او مرئي او راديومن الانترنت
AxWindowsMediaPlayer1.URL = "http://server8.mp3quran.net/afs/104.mp3"

........................................................................

كود يدخلك على رابط مدونتك او موقعك او قناتك على اليوتيوب او رابط تحميل او اي موقع
System.Diagnostics.Process.Start("رابط")

........................................................................

 فتح صفحة انترنيت

Process.Start("chrome", "http://syr4u.com")

........................................................................

msgbox " عن البرتامج "

........................................................................

end للخروج من البرنامج

........................................................................

form2.show اضهار أقسام البرنامج

........................................................................

form5.hide
form1.show الامرين لرجوع إلى الرئيسية

........................................................................

wmp.url = "" رابط مقطع الصوت بين العلامتين

........................................................................

Screen.MousePointer = 14 تغير شكل الماوس

........................................................................

Private Sub Command1_Click()
Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler http://www.syr4u.com/", vbNormalFocus
End Sub

Private Sub Command2_Click()
Dim X As Object
Set X = CreateObject("InternetExplorer.Application")
X.Navigate "www.noisrael.com"
X.Visible = True
End Sub

........................................................................

كود فتح صفحه انترنيت
Dim X As Object
Set X = CreateObject("InternetExplorer.Application")
X.Navigate "http://www.syr4u.com"
X.Visible = True

........................................................................

فتح موجه الأوامر

Call Shell("c:\WINDOWS\SYSTEM32\cmd.exe")

........................................................................

Dim namefile
namefile = Text1
Open App.Path & ("/" + namefile + ".txt") For Output As #1
Write #1, Text2.Text
Close #1

........................................................................

 

........................................................................

سيريال نمبر فجوال بيسك إصدار 10

2kqt8-hv27p-gttv9-2wbvv-m7x96

 

 

 

 

 

 

 

 

 

 

 

 

Google

 TAMMAM  الموقع برعاية  syr4u.com  جميع الحقوق محفوظة لموقع سوريا فوريو