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