موضوع مغلق
 
أدوات الموضوع انواع عرض الموضوع
كيفية صنع برنامج فحص المنافذ بالفيجوال بيسك
  #1  
قديم 24-07-2004, 03:50 AM
الصورة الرمزية saleh8877
saleh8877 saleh8877 غير متصل
عضو قدير
 
تاريخ التسجيل: 03-02-2004
الدولة: فـي عـالـم الإبـداع..
المشاركات: 1,673
إرسال رسالة عبر MSN إلى saleh8877


يا اخوان انا عملت البرنامج وكل شي تمام وراح انزلة قرييييييبا وهذا اهداء مني لكم لكن المشكلة في خطأ بالبرمجه وراح احاول تصليح الكوود قريبا وهذا وعد مني وطبعا الموضوع منقوووووووول من احدى المنتديات
==========================
كيفيه صنع برنامج فاحص لمنافذ بالفيجوال بيسك
فاحص منافذ port scanner تقوم بتحديد نطاق ip ( من - الى ) و تكتب رقم المنفذ المطلوب فحصه ( مثلا منفذ السب سيفين ) و هو يطلعلك ارقام ال ip المصابة بباتش السب سيفين فى هذا النطاق

برنامج بسيط و صنعه سهل جدا باذن الله

نبدأ البرنامج خطوة خطوة

اولا يتم اضافة اداة WinSock

لمعرفة كيفية اضافتها :

اضغط control + t تظهرلك قائمة
اختار منها Microsoft Winsock Control 6.0

يتم اضافة Timer فى الفورم

يتم اضافة ثلاث 4 text box بجوار بعضم بحجم صغير ( و بجواره label مكتوب فيه " من " )
يتم اضافة 4 text box اخرين اسفلهم ( و بجوارة lable مكتوب فيه " الى " )
( على ان يكون اولهم على اليسار مثال :tu:؛)
اذن ال هى الاولى )

ثم قم باضافة text box صغير لكنه اكبر من السابقين قليلا اسفلهم

و الان عليك اضافة TextBox متوسط الحجم اسفلهم و عليك ان تضع فيه Scroll bar بالطول

اضافة زر Command تحت ال Text Box المتوسط الحجم

و الان سنعيد تسمية الاشياء التى ادخلناها

ال winsock قم بتسميتها wnsConnection
ال Timer قم بتسميته Timer

اول 4 text box يتم تسميتهم :

الاول StartIP1
الثانى StartIP2
الثالث StartIP3
الرابع StartIP4

ثانى 4 text box يتم تسميتهم :

الاول StopIP1
الثانى StopIP2
الثالث StopIP3
الرابع StopIP4

ال text box الصغير يتم تسميته txtPort

ال text box المتوسط الحجم يتم تسميته txtMessage

و ال Command يتم تسميته CmdAction

الان نضع الاكواد

كود الفورم :

كود:
Private Sub Form_Load()

'initialize the action variable to 0

Action = 0

'set the command button to say start

CmdAction.Caption = "افحص"

'we will lock the message box so that we dont write

'over the ip addresses accidently

txtMessage.Locked = True

End Sub

و قم بتعديل الاتى

left = 960
==============================================

كود الTimer

كود:
Private Sub Timer_Timer()

Seconds = 1

End Sub

و من ال properties

قم بتعديل الاتى

Enabeld = True
Index اتركها فارغة
Interval = 2000
left = 120
Tag اتركها فارغة
Top = 1080

================================================== =

كود StartIP1

كود:
'///////////////////////////////////////////////////

'ok so these next subroutines are for when a text

'box has the focus to select everything in the box

Private Sub StartIP1_GotFocus()

StartIP1.SelStart = 0

StartIP1.SelLength = Len(StartIP1.Text)

End Sub

كود StartIP2

كود:
Private Sub StartIP2_GotFocus()

StartIP2.SelStart = 0

StartIP2.SelLength = Len(StartIP1.Text)

End Sub

كود StartIP3

Private Sub StartIP3_GotFocus()
StartIP3.SelStart = 0
StartIP3.SelLength = Len(StartIP1.Text)
End Sub

كود StartIP4

كود:
Private Sub StartIP4_GotFocus()

StartIP4.SelStart = 0

StartIP4.SelLength = Len(StartIP1.Text)

End Sub

================================================

كود StopIP1

كود:
Private Sub StopIP1_gotfocus()

StopIP1.SelStart = 0

StopIP1.SelLength = Len(StopIP1.Text)

End Sub

كود StopIP2

كود:
Private Sub StopIP2_gotfocus()

StopIP2.SelStart = 0

StopIP2.SelLength = Len(StopIP1.Text)

End Sub

كود StopIP3

كود:
Private Sub StopIP3_gotfocus()

StopIP3.SelStart = 0

StopIP3.SelLength = Len(StopIP1.Text)

End Sub

كود StopIP4

كود:
Private Sub StopIP4_gotfocus()

StopIP4.SelStart = 0

StopIP4.SelLength = Len(StopIP1.Text)

End Sub

============================================

كود txtPort

كود:
Private Sub txtPort_gotfocus()

txtPort.SelStart = 0

txtPort.SelLength = Len(txtPort.Text)

End Sub

'///////////////////////////////////////////////////

================================================

كود txtMessage

كود:
Private Sub txtMessage_Change()



End Sub

================================================

كود CmdAction

كود:
Private Sub CmdAction_Click()

'if command button already clicked then action would

'equal 1

If Action = 1 Then

'change the command button to say start

CmdAction.Caption = "افحص"

'close the winsock connection

wnsConnection.Close

'and reset the action variable to 0

Action = 0

Exit Sub

'else you are starting the scan and action equals 0

Else

'set the action variable to 1

Action = 1

'set the command button to say stop

CmdAction.Caption = "توقف"

'call the routine to scan the ports

Call ScanPorts

End If

End Sub
وتحياااااااااااااااااااااااااااااااااااااااتي



****************************************drawGradient()
  #2  
قديم 26-07-2004, 09:26 PM
الصورة الرمزية saleh8877
saleh8877 saleh8877 غير متصل
عضو قدير
 
تاريخ التسجيل: 03-02-2004
الدولة: فـي عـالـم الإبـداع..
المشاركات: 1,673
إرسال رسالة عبر MSN إلى saleh8877


ها انا اوفي بوعدي و أضع البرنامج هدية لكم ومن تصميمي انا وسوف تشاهدون رسالة الاهداء في البرنامج
لكن الموضوع تقل ما فيه تفاعل
الملفات المرفقة
نوع الملف: zip saleh8877.zip‏ (4.8 كيلوبايت, المشاهدات 10)



****************************************drawGradient()

التعديل الأخير تم بواسطة saleh8877 ; 26-07-2004 الساعة 09:31 PM
موضوع مغلق

أدوات الموضوع
انواع عرض الموضوع

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

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


Channel: forcabarca Sports Publisher: forcabarca.com Ad Dimension: Overlay - 1 x 1

Powered by vBulletin® Copyright ©2000 - 2014, Jelsoft Enterprises Ltd. TranZ By Almuhajir