[Mohamed Sami]

(26-05-18, 05:40 AM)elgokr كتب :

بدلاً من تعقيد الامور وتغيير فى الاكواد او اضافات كثيرة

فقط قم بفتح المشروع لديك

وقم باستبدال كود Sub chan()

بالكود التالى:

كود :

Public Sub chan()
       My.Computer.FileSystem.CopyFile(Application.StartupPath & "\FIRAS\P2.html", Application.StartupPath & "\P2.html", True)
       Dim txtFile As String = "P2.html"
       Dim hamdane As String = "FirAs"
       System.IO.File.WriteAllText(txtFile, System.IO.File.ReadAllText(txtFile).Replace(hamdane, Me.channels_url))
       Me.WebBrowser1.Navigate("http://localhost:19762/P2.html")

   End Sub

بكده الملف الرئيسي لعرض القناه 

PHP كود :

P2.html 


والذى يوجد بجانب البرنامج

بينما النسخة الافتراضية يجب ان تكون فى مجلد بجانب البرنامج 

كما هو موضح هنا

PHP كود :

\FIRAS\P2.html 


تم تجربة الامر ويعمل فى كل مرة يتم الضغط الزر بتغيير الرابط

تحياتى لك

وتمنياتى لك التوفيق

طب ممكن يا جوكر انت تعدل علي المشروع ؟ اصل انا حاولت اعملها ومش راضية تشغل القناة