حالة الموضوع:
مغلق
  1. ●¦ Snharib ¦●

    ●¦ Snharib ¦● V • I • P

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

    [​IMG]

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


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

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

    [​IMG]

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

    [​IMG]

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

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


    [​IMG]

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

    [​IMG]

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

    [​IMG]

    [NEW]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[/NEW]

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

    [​IMG]

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

    [​IMG]

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

    [​IMG]

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

    [​IMG]

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

    [​IMG]

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

    [​IMG]

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

    [​IMG]

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

    [​IMG]

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

    [​IMG]

    !

    آنتهى ـآ

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

    &الكنك& V • I • P

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

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

    ●¦ Snharib ¦● V • I • P

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

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

    X104 Developer

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

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

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

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

    ТUЯКł ΛŁ HΛЯБł DeveloPer Plus

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

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

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

    Ø2 - ĦÂĈҚЄR DeveloPer Plus

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

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

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

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

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

    ●¦ Snharib ¦● V • I • P

    الأنتساب:
    ‏8 يناير 2014
    المشاركات:
    1,128
    الإعجابات المتلقاة:
    1,786
    نقاط الجائزة:
    113
    الإقامة:
    || Iraq ||
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | 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
    نقاط الجائزة:
    16
    الإقامة:
    {ĜäŽã}
    رد: [ شرحً ] عملً نوأي بيْ فيً برنامجً الأختراقً | Vb.Net] Add No-Ip To RaT]

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

    تــــركــــي DeveloPer Plus

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

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

    Tej HAcKEr DeveloPer Plus

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

    مشكوررررررر

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

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