تقييم الموضوع :
  • 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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ربط البرنامج بالسكانر و المسح الضوئي صبري زينوبي 15 3,293 13-09-18, 02:21 AM
آخر رد: على رمضان
Information [مشروع] موجة الأوامر CMD , Command Prompt , تنفيذ الأمر وأخذ النص الناتج إلى البرنامج عبدالله الدوسري 5 578 08-09-18, 10:40 PM
آخر رد: الماجيك مسعد
  [VB.NET] سورس كود لعملية تفعيل البرنامج مع احتساب عدد مرات الاستخدام elgokr 8 897 13-08-18, 09:04 PM
آخر رد: elgokr
  [VB.NET] برنامج كيفية حماية البرنامج من استخدامه اكثر من مرة shwehdi4pc 9 2,350 11-08-18, 03:00 PM
آخر رد: sendbad100
  تركيب البرنامج على جهاز واحد فقط @@أبورائد@@ 22 11,076 05-07-18, 12:10 PM
آخر رد: mahdy
  [مشروع] واخيرا تم ايجاد حل عند تكبير البرنامج على حسب كل الشاشات shado1796 9 4,348 15-08-17, 03:38 AM
آخر رد: eng.molinux
  مثال تغيير ثيم البرنامج وقت التشغيل honest 3 1,384 26-12-16, 04:44 PM
آخر رد: IBRA939
Brick [VB.NET] مثال بسيط على تسجيل الدخول الى الفيسبوك من خلال البرنامج elhon.tec 3 988 10-12-16, 04:11 AM
آخر رد: elhon.tec
  كيف تجعل البرنامج يعمل إيقاف تشغيل للجهاز وإعادة تشغيل وغيرها anasmoner 1 628 30-08-16, 04:35 PM
آخر رد: layan2000
  كيف تجعل البرنامج يعمل إيقاف تشغيل للجهاز وإعادة تشغيل وغيرها anasmoner 0 429 14-08-16, 05:06 PM
آخر رد: anasmoner

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


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