[DK-x]

مرحبا
اولا تحتاج للتسجيل بموقع  Pastebin.com
بعد التسجيل اختر New Paste واكتب Show اختر Create New Paste
اختر raw وانسخ الرابط واستبدله بثاني رابط بالكود ادناه
كرر العمليه واكتب بدل show كود هتمل للاعلان وانسخ الرابط واستبدله باول رابط بالكود
الان اضف الكود للفيجول واضف اداة WebBrowser
افتح Notepad واكتب cod واحفظ الملف باسم Adf.html و ضيفه للريسورس
تمام اذا ردت تغير محتوى الاعلان عدل على محتوى الرابط الاول
اذا عجبكم لاتنسو تقييم

كود :

Public Class Form1
   Public x As New System.Net.WebClient
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'AD Start
       Dim Adsec As String
       Adsec = x.DownloadString("https://pastebin.com/raw/7Rt1RNn4") 'محتوى الاعلان
       Dim Ady As String
       Ady = x.DownloadString("https://pastebin.com/raw/Fb4Dh5Cp") 'الموافقه على عرض الاعلان
       If Ady = "show" Then

           Dim Cd As String = My.Resources.Adf 'وضيفه للريسورس Adf.html واحفظ الملف باسم cod واكتب Notepad افتح
           Cd = Cd.Replace("Cod", Adsec)
           Dim SFD As New SaveFileDialog
           With SFD
               IO.File.WriteAllText("C:\Windows\AdFile\Adfile.html", Cd)
           End With
           WebBrowser1.Navigate("C:\Windows\AdFile\Adfile.html")
       End If
       'Ad End
   End Sub
End Class