[مشروع] عرض اعلانات على البرنامج

مرحبا
اولا تحتاج للتسجيل بموقع 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