1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : ●¦ Snharib ¦● | المشاهدات : 1,919 | الردود : 20
حالة الموضوع:
مغلق
  1. ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    255
    الإقامة:
    || Iraq ||
    نظام التشغيل:
    windows 8.1

    [​IMG]

    » الصلاة و السلام على أشرف المرسليـن ...~
    » الحمد لله وحده نحمده و نشكره و نستعينه و نستغفره و نعود بالله من شرور أنفسنا و من سيئات اعمالنا ...~
    » من يهده الله فلا مضل له و من يضلل فلن تجد له ولياً مرشدا ...~
    » و أشهد ألا إله إلا الله وحده لا شريك له و أن محمداً عبده و رسوله صلى الله عليه و سلم ...~
    » وعلى آله و صحبه أجمعين و من تبعهم بإحسان إلى يوم الدين ...~
    » ربنا لا علم لنا إلا ما علمتنا إنك أنت العليم الخبير ...~
    » ربنا لا فهم لنا إلا ما فهمتنا إنك أنت الجواد الكريم ...~
    » ربي اشرح لي صدري و يسر لي أمري و احلل عقدة من لساني يفقهوا قولي ...~


    [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    [ ~.. نفتحٌ فرومٌ جديدُ ..~ ]

    [​IMG]

    [ ~.. آتبعُ آلخطوآت آلتآلية ..~ ]

    [​IMG]

    [ ~.. نضيفُ آلآنُ كلآ منُ ..~ ]

    3 تكسًت بوكسْ..
    1 بْوتونً.


    [​IMG]

    [ ~.. نغيرُ آسمآءُ كلُ منهآ ، ندخلُ علىُ زرُ آلدخولُ ..~ ]

    [​IMG]

    [ ~.. نلصقُ آلكودُ آلمرفقُ ..~ ]

    [​IMG]

    Dim wc = New Net.WebClient()
    Dim utf8 = New UTF8Encoding

    'By Snharib'
    'Iq-Team'


    Dim page As String = utf8.GetString(wc.DownloadData("http://dynupdate.no-ip.com/dns?username=" & TextBox1.Text & "&password=" & TextBox2.Text & "&hostname=" & TextBox3.Text))
    ' MsgBox(status(1))
    Dim texter() As String = page.Split(":")
    RichTextBox1.Text = texter(1)
    If texter(1).Contains("0") Then
    MsgBox("Success - IP address is current, no update performed", MsgBoxStyle.Information)
    End If
    If texter(1).Contains("1") Then
    MsgBox("Success - DNS hostname update successful", MsgBoxStyle.Information)

    End If
    If texter(1).Contains("2") Then

    MsgBox("Error - Hostname supplied does not exist", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("3") Then
    MsgBox("Error - Invalid username", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("4") Then
    MsgBox("Error - Invalid password", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("5") Then
    MsgBox("Error - Too many updates sent. Updates are blocked until 1 hour passes since last status of 5 returned.", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("6") Then
    MsgBox("Error - Account disabled due to violation of No-IP terms of service. Our terms of service can be viewed at http://www.no-ip.com/legal/tos", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("7") Then
    MsgBox("Error - Invalid IP. Invalid IP submitted is improperly formated, is a private LAN RFC 1918 address, or an abuse blacklisted address.", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("8") Then
    MsgBox("Error - Disabled / Locked hostname", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("9") Then
    MsgBox("Host updated is configured as a web redirect and no update was performed.", MsgBoxStyle.Information)
    End If
    If texter(1).Contains("10") Then
    MsgBox("Error - Group supplied does not exist", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("11") Then
    MsgBox("Success - DNS group update is successful", MsgBoxStyle.Information)
    End If
    If texter(1).Contains("12") Then
    MsgBox("Success - DNS group is current, no update performed.", MsgBoxStyle.Information)
    End If
    If texter(1).Contains("13") Then
    MsgBox("Error - Update client support not available for supplied hostname or group", MsgBoxStyle.Critical)

    End If
    If texter(1).Contains("14") Then
    MsgBox("Error - Hostname supplied does not have offline settings configured. Returned if sending offline=YES on a host that does not have any offline actions configured.", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("99") Then
    MsgBox("Error - Client disabled. Client should exit and not perform any more updates without user intervention.", MsgBoxStyle.Critical)
    End If
    If texter(1).Contains("100") Then
    MsgBox("Error - User input error usually returned if missing required request parameters", MsgBoxStyle.Critical)
    End If



    [ ~.. نكتبُ آلكودُ آلتآليُ ..~ ]

    [​IMG]

    [ ~.. ستلآحظُ يوجدُ خطآءُ تستطيعُ آلسطيرة علية من خلآلُ آضآفة تكستُ بوكسُ..~ ]

    [​IMG]

    [ ~.. بعدُ آلتحديدُ علىُ آلتكستُ بوكسُ آكتبُ آلتآليُ ..~ ]

    [​IMG]

    [ ~.. ولآخفآئة آتبعُ آلآتيُ لآنة ليسُ مهمُ ..~ ]

    [​IMG]

    [ ~.. نحددُ علىُ تكستُ آلبآسووردُ لآخفآئة ..~ ]

    [​IMG]

    [ ~.. نضعُ [ * ] لآخفآئة علىُ شكلُ نجومُ ..~ ]

    [​IMG]

    [ ~.. كمآ شآهدنآ ظهرٌ علىَ شكلُ نجومُ ..~ ]

    [​IMG]

    [ ~.. آلصورُ آلتآلية تدلُ علىُ بيآنآت غيرُ صحيحة ..~ ]

    [​IMG]

    [ ~.. آلصورُ آلتآلية تدلُ علىُ بيآنآت صحيحة ..~ ]

    [​IMG]

    !

    آنتهى ـآ

     
    5 شخص معجب بهذا.
  2. &الكنك& V • I • P

    الأنتساب:
    ‏27 أغسطس 2012
    المشاركات:
    354
    الإعجابات المتلقاة:
    29
    نقاط الجائزة:
    75
    الوظيفة:
    ملازم في الجيش العراقي
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    مبدع ابو حسين :{14}:
     
  3. ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    255
    الإقامة:
    || Iraq ||
    نظام التشغيل:
    windows 8.1
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    منور حبيبي. )5:"
     
    1 person likes this.
  4. X104 Developer

    الأنتساب:
    ‏29 يناير 2014
    المشاركات:
    7
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    15
    نظام التشغيل:
    windows 7
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    واللهً عاشت ايدك

    من زمان ادورً شرح :(

    ماذا تعتقد في مشاركة Snharib؟
    يعجبني ويستحق التقييم
     
  5. ТUЯКł ΛŁ HΛЯБł DeveloPer Plus

    الأنتساب:
    ‏17 يوليو 2012
    المشاركات:
    111
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    الوظيفة:
    طآلب جآمعي :(
    الإقامة:
    السعودية
    نظام التشغيل:
    windows 8
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    بارك الله فيك اخي

    مبدع :{14}:
     
  6. Ø2 - ĦÂĈҚЄR DeveloPer Plus

    الأنتساب:
    ‏26 أكتوبر 2012
    المشاركات:
    61
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    الوظيفة:
    NoN!!!!
    الإقامة:
    O2
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    ; وعليكم السلام ورحمة الله ;

    شكرا حبيبي بارك الله فيك

    موضوع رائع وتنسيق رائع

    موفق اخي :{1}:
     
  7. ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    255
    الإقامة:
    || Iraq ||
    نظام التشغيل:
    windows 8.1
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    منورينً ..

    :{17}:
     
    1 person likes this.
  8. مـ☻ـجـ☻ـآهـ☻ـد <span style="background-color: #E0921B"><span styl DeveloPer Plus

    الأنتساب:
    ‏30 مارس 2012
    المشاركات:
    152
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    الإقامة:
    {ĜäŽã}
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    بآرك الله فيك اخوي جاري الاطلاع على الكود ’, )5:"
     
  9. تــــركــــي DeveloPer Plus

    الأنتساب:
    ‏25 ابريل 2012
    المشاركات:
    180
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    مشكور بارك الله فيك في ميزان حسناتك
     
  10. Tej HAcKEr DeveloPer Plus

    الأنتساب:
    ‏15 ديسمبر 2011
    المشاركات:
    133
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    50
    الوظيفة:
    hacker
    الإقامة:
    Tunisia
    نظام التشغيل:
    Unix
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

    مشكوررررررر

    يا مبدع استمر
     
حالة الموضوع:
مغلق

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