تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] عرض اعلانات على البرنامج
#1
Photo 
مرحبا
اولا تحتاج للتسجيل بموقع  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

هم يسرقون والقانون كتب لنا...
بعض اسهاماتي

الرد
تم الشكر بواسطة: elgokr , sendbad100
#2
اخي ممكن توضيح بلنسبة لي هتمل للاعلان او الموقع 
الرد
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#3
(27-09-18, 09:21 PM)aldery كتب : اخي ممكن توضيح بلنسبة لي هتمل للاعلان او الموقع 

مرحبا اخي aldery
اولا اعتذر عن التأخير Confused
ثانياً اني اقصد كود اعلان بلغة HTML
واذا ما تعرفها Huh فهي سهلة حتى تتعلمها من اليوتيوب Idea
اتمنى اكون افدتك سلامي Wink
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] انهاء البرنامج عند عدم الاتصال برابط معين سعود 2 171 20-12-20, 03:36 AM
آخر رد: سعود
  ربط البرنامج بالسكانر و المسح الضوئي صبري زينوبي 16 6,748 10-10-20, 06:09 PM
آخر رد: 304
  [مثال] معلومة : ربط خصائص الادوات باعدادات البرنامج PropertyBinding Anas Mahmoud 5 492 08-10-20, 03:06 PM
آخر رد: ابو روضة
  مثال لحمايه ملفات البرنامج من النسخ alshandodi 3 802 17-07-20, 12:28 PM
آخر رد: ibra9009
  [سؤال] في البرنامج منه 0 298 03-07-20, 09:08 AM
آخر رد: منه
Wink [VB.NET] برنامج ناشر اعلانات الفيسبوك التلقائى toedi 5 624 08-06-20, 03:54 PM
آخر رد: toedi
  من يختبر لي هذا البرنامج ابو محمد محمد محمد 4 663 12-05-20, 09:41 PM
آخر رد: ابو محمد محمد محمد
  حماية البرنامج بسريال الفلاش عن طريق ملف اكس امل ال على Dropbox asemshahen5 20 5,771 20-04-20, 08:47 PM
آخر رد: sherf
  ينفع اعمل الحركه دي في البرنامج ؟ modywassemmody 0 534 10-03-20, 03:18 PM
آخر رد: modywassemmody
  شباب كنت عاوز اعمل البرنامج ده ؟ modywassemmody 1 549 07-03-20, 08:07 PM
آخر رد: محمد ايمن

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم