الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج VBCODE

مغلقرائج
بدأه arafa في 6 يناير 2003 · 205 رد · 24,117 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اهلا بكم جميعا اخوانى الاعضاء انا عضو جديد عليكم

لقد قرأت الموضوع بخصوص برنامج vb code فشدنى قراتة ووجدت ان اسجل بهذا المنتدى لاشارك فية بما اعرفة عن الفيجوال بيسك

ولقد صممت برنامج لعمل مكتبة لاكواد الفيجوال بيسك واسميتة vbcode وهذا ليس اقتباس من الموضوع هذا ولكنى فعلا هذا اسم البرنامج ولقد صممتة منذ حوالى عام تقريبا وقررت ان اضعة بهذا المنتدى للاستفادة

ولكم منى الف تحية

ستجدون البرنامج على هذا الرابط:

http://members.lycos.co.uk/arafanet/up/paf...ction=file&id=1

وشرح البرنامج هنا:

http://members.lycos.co.uk/alhosamnet/vb/s...php?threadid=39

وَقُل رَّبِّ زِدْنِي عِلْماً

#2

الاخ/ حسام

السلام عليكم ورحمة الله وبركاته،،،

عند ماحولت تنزيل البرنامج يطلب فى يوزر نيم وسيريل نمبر

فالرجاء ان تضع اسم الدخول وكلمة السر حتى يمكن تنزيل البرنامج

مشكور جدا

salem001

:):):)

#3

اخى الكريم تعقيبا على كلامك فالبرنامج لا يوجد اى كلمة سر علية

اما إن كنت تقصد ان الموقع هو الذى يطلب كلمة مرور او سر فهذا لا يوجد

لانى لا اضع كلمة سر على الموقع

على العموم انا سأضع البرنامج هنا بالمنتدى

على اجزاء وعليك بعد ذلك جمع الملفات فى مكان واحد وتشغيل البرنامج

وفى حالة وجود اى خلل بالبرنامج ارجو الاتصال بى

تحياتى,,,

vb_code1.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#4

الجزء الثانى من البرنامج

vb.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#5

الجزء 3

çلىٍل_çلëçلë.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#6

الجزء الرابع

vb5db.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#7

بعد تحميلك الملفات الاربعة عليك بفك ضغط الملفات فى ملف واحد وتشغيل البرنامج

وفى حالة وجود اى مشكلة الاتصال بى

وشكرا

:cool::cool::cool:

وَقُل رَّبِّ زِدْنِي عِلْماً

#8

بسم الله الرحمن الرحيم

الاخ العزيز/ عرفه

السلام عليكم ورحمة الله وبركاته،،،

الف الف الف شكر وجزاك الله خيرا وزاد بها ميزان حسناتك ووفقك لما يحبه ويرضاه.

اخى العزيز وفيت وكفيت والله يكثر من امثالك.

موفق إن شاء الله

والسلام عليكم ورحمة الله وبركاته،،،

اخوكم/سالم

salem001

:):):)

#9

اخى العزيز سالم

لا شكر على واجب انا اسألك فقط الدعاء

وأرجو ان اكون قد افدت اعضاء هذا المنتدى الجميل

وكل عام وانتم جميعا بخير

انتظروا منى إن شاء الله مفاجأت كثيرة وممتعة

تحياتى,,,

وَقُل رَّبِّ زِدْنِي عِلْماً

#10

فعلا برنامج رائع وجزاك الله خيرا ، بنتظار المزيد .

#11

مفاجأتى الثانية

وهو برنامج الموظفين وهو برنامج للشركات الصغيرة والافراد

وهو عبارة عن برنامج لتسجيل بيانات موظفينك من الاسم والعنوان والراتب

وكل ما يخص موظفك

تم برمجة هذا البرنامج بالفيجوال بيسك

اليكم الملف الاول

data_personnel.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#12

الملف الثانى

data.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#13

ارجوا ابداء ارائكم

تحياتى,,,

وَقُل رَّبِّ زِدْنِي عِلْماً

#14

بسم الله

شكرا لك اخ / عرفة

الحقيقة بعد تحميلى لبرنامج مكتبة الاكواد ظهرت لى الرسالة التالية عند تشغيلة :

Run-time error 713

class not registered.

looking for object with clsid

فما هو الحل فى ذلك ؟

شكرا لك (f)

تقبل تحيات

أخـــBengaــوك

قال أبن القيم : أكثروا من الخير فينتشر .. و أقلوا من الشر فيندثر ..

#15

حمل هذا الملف اخى الكريم وضعة مع البرنامج وجرب

إن شاء الله يعمل

واذا استمرت المشكلة اخبرنى

تحياتى

vb5db.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#16

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

اهلا بكم جميعا

سيتم بمشيئة الله تعالى شرح برنامج عن كيفية الاتصال بين جهازين (خادم وعميل) بواسطة الاداة winsock

سيتم تجهيز الموضوع ووضعة بالمنتدى فى اقرب فرصة

تابعونا=========>>

وَقُل رَّبِّ زِدْنِي عِلْماً

#17

شرح كيفية عمل اتصال بين جهازين (خادم وعميل) (client and server )

اولا الجهاز الخادم (server):

والبرنامج الخادم هو الذى يستقبل الاوامر من البرنامج العميل

وفى برنامجنا هذا سنوضع كيفية ذلك ووضعنا بعض الاوامر مثل

فتح وغلق السي دى روم اخفاء واظهار شريط المهام

اخفاء واظهار زر ابدء.

ويمكن تطوير البرنامج اكثر من ذلك ولكن وضعت هذة الاوامر فقط

حتى لايستغل فى الناحية العدوانية والتجسس على اجهزة الغير

والان هيا بنا لبدء المشروع:-

افتح مشروع جديد وسمية وليكن server

وضع على الفورم الاداة winsock وسميها وليكن wskServer

اضف موديول جديد.

سنأتى الان لوضع الاكواد :

ضع هذا الكود فى قسم التصريحات العامة General :

Public Sub CloseMe()

Dim a$

a$ = "rundll user,exitwindows "

Shell a$, vbNormalFocus

Exit Sub

End Sub

وفى حدث التحميل Load ضع هذا الكود:

Private Sub Form_Load()

'wskServer اسم اداة الوينسوك في هذا البرنامج

wskServer.LocalPort = 10000

' تعيين منفذ للخادم

wskServer.Listen

' بدء تشغيل الخادم

End Sub

وفى حدث التحميل unload للفورم ضع هذا الكود:

Private Sub Form_Unload(Cancel As Integer)

On Error Resume Next

wskServer.Close

End Sub

انتهينا الان من الاكواد الخاصة الفورم وجاء الدور على الاحداث الخاصة

بالاداة winsock وهى كالتالى:

اضغط على الاداة winsock دبل كليك واختار الحدث close وضع هذا الكود:

wskServer.Close

wskServer.Listen

اختار بعد ذلك الحدث ConnectionRequest من القائمة اليمنى وضع هذا الكود:

If wskServer.State <> sckClose Then _

wskServer.Close

wskServer.Accept requestID

wskServer.SendData "عملية الإتصال مع الخادم تمت بنجاح (برمجة الحسام) "

' يقوم الخادم بارسال رسالة لكل عميل يتصل بالخادم

وفى الحدث DataArrival للاداة وينسوك ضع الكود:

Dim command As String

'يجب تعريف المتغير الذي سوف يستقبل البيانات القادمة من العميل

wskServer.GetData command

'يمثل هذا السطر استقبال المتغير للاوامر القادمة من العميل

Select Case command ' تحديد الأمر القادم من البرنامج العميل

Case "openCD" ' اذا تم اختيار امر فتح سواقة الليزر يتم تنفيذ الاجراء التالي

CDOpen

Case "closeCD"

CDClose ' اذا تم اختيار امر اغلاق سواقة الليزر يتم تنفيذ الاجراء التالي

Case "hideDESKTOP" ' اذا تم اختيار امر اخفاء ايقونات سطح المكتب يتم تنفيذ الاجراء التالي

Progman& = FindWindow("Progman", vbNullString)

SHELLDLLDefView& = FindWindowEx(Progman&, 0&, "SHELLDLL_DefView", vbNullString)

SysListView& = FindWindowEx(SHELLDLLDefView&, 0&, "SysListView32", vbNullString)

Call ShowWindow(SysListView&, SW_HIDE)

Case "showDESKTOP" ' اذا تم اختيار امر اظهار ايقونات سطح المكتب يتم تنفيذ الاجراء التالي

Progman& = FindWindow("Progman", vbNullString)

SHELLDLLDefView& = FindWindowEx(Progman&, 0&, "SHELLDLL_DefView", vbNullString)

SysListView& = FindWindowEx(SHELLDLLDefView&, 0&, "SysListView32", vbNullString)

Call ShowWindow(SysListView&, SW_SHOW)

Case "hideSTART" ' اذا تم اختيار امر اخفاء زر ابدأ يتم تنفيذ الاجراء التالي

HideStartButton

Case "showSTART" ' اذا تم اختيار امر اظهار زر ابدأ يتم تنفيذ الاجراء التالي

ShowStartButton

Case "hideTASKBAR" ' اذا تم اختيار امر اخفاء شريط المهام يتم تنفيذ الاجراء التالي

Call SetWindowPos(TaskBarHwnd, 0&, 0&, 0&, 0&, 0&, SWP_HIDEWINDOW)

Case "showTASKBAR" ' اذا تم اختيار امر اظهار شريط المهام يتم تنفيذ الاجراء التالي

Call SetWindowPos(TaskBarHwnd, 0&, 0&, 0&, 0&, 0&, SWP_SHOWWINDOW)

End Select

وهكذا انتهينا ايضا من الاكواد الخاصة بأداة الوينسوك

وجاء الدور على الموديول

ضع الكود التالى فى الموديول:

Public Declare Function GetCurrentProcessId _

Lib "kernel32" () As Long

Public Declare Function GetCurrentProcess _

Lib "kernel32" () As Long

Public Declare Function RegisterServiceProcess _

Lib "kernel32" (ByVal dwProcessID As Long, _

ByVal dwType As Long) As Long

Public Const RSP_SIMPLE_SERVICE = 1

Public Const RSP_UNREGISTER_SERVICE = 0

' API CALLS

'مجموعة من الدالات التي تختص بتنفيذ الأوامر الخاصة بالخادم

Public 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 Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public 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

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Public Const SW_HIDE = 0

Public Const SW_SHOW = 5

Const SWP_HIDEWINDOW = &H80

Const SWP_SHOWWINDOW = &H40

'دالة اخفاء زر ابدأ

Sub HideStartButton()

Dim Handle As Long, FindClass As Long

FindClass& = FindWindow("Shell_TrayWnd", "")

Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)

ShowWindow Handle&, 0

End Sub

' دالة اظهار زر ابدأ

Sub ShowStartButton()

Dim Handle As Long, FindClass As Long

FindClass& = FindWindow("Shell_TrayWnd", "")

Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)

ShowWindow Handle&, 1

End Sub

'دالة اغلاق سواقة الليزر

Sub CDClose()

retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)

End Sub

'دالة فتح سواقة الليزر

Sub CDOpen()

retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)

End Sub

وبهذا نكون قد انتهينا من إعداد البرنامج الخادم (server)

والحلقة الثانية هى شرح البرنامج العميل (client)

ارجو ان اكون قد افدت.

والى اللقاء

تحياتى,,,

وَقُل رَّبِّ زِدْنِي عِلْماً

#18

السلام عليكم :

شكرا أخي والله يعطيك العافية وإلى الأمام ........

وبالسبة لبرنامجك يمكن إضافة زر يحدد كل النص وينسخه إلى الذاكرة ..

فذالك أسهل وأكثر دقة .............

وإلى الإمام

(gift)(f)

#19

أشكرك أخي العزيز على هذه المجهود وأتمنا لك التوفيق

#20

انا شاكر لك جدا اخى موفق زكريا على ذلك وهو يمكن فعلا اضافة زر لتحديد الكود ونسخة فى الزاكرة

وعلى العموم البرنامج فى مرحلة تطوير وربنا يعنى فى ان اجعل البرنامج فى اجمل واتم صورة لكى ينفع كل الاعضاء

وشكرا ايضا اخى البدانى اسف لو اخطأت فى اسمك

وسيتم قريبا ان شاء الله وضع الجزء الثانى لبرنامج العميل والخادم

تحياتى,,,

(clock)

وَقُل رَّبِّ زِدْنِي عِلْماً

#21

الحلقة الثانية من شرح البرنامج الخادم والعميل (client and server )

الجزء الثانى هو العميل (client ) وهو البرنامج المسؤل عن ارسال الاوامر

الى البرنامج الخادم هى بنا نبدء فى شرح البرنامج.

- افتح مشروع جديد وسمية وليكن client

- ضع الادوات الاتية على الفورم:

winsock وسميها وليكن wskclient

ضع اداة Timer واجعل خاصية Interval تساوى 2000

ضع مربع نص وسمية srvrport

ضع مربع نص وسمية srvrip

ضع اداة Label

ضع عدد 11 زر امر واكتب عليهم الاتى بالترتيب:

اتصال

قطع الاتصال

فتح السواقة

غلق السواقة

اظهار سطح المكتب

اخفاء سطح المكتب

اظهار زر ابدء

اخفاء زر ابدء

اظهار شريط المهام

اخفاء شريط المهام

خروج

الان انتهينا من وضع جميع الادوات على الفورم نأتى الان لوضع الاكواد:

الكود الخاص بزر اتصال:

wskclient.Close

'يجب التأكد من أن الإتصال مغلق قبل عمل إتصال جديد

If srvrip.Text = "" Then

MsgBox "IP يجب كتابة رقم"

Exit Sub

End If

If srvrport.Text = "" Then

MsgBox "يجب كتابة رقم المنفذ"

' يجب كتابة رقم منفذ

Exit Sub

End If

If srvrport.Text > 65535 Then

MsgBox "رقم المنفذ بين 1 - 65535"

' يجب التأكد من رقم المنفذ الصحيح

Text2.Text = ""

Exit Sub

End If

wskclient.Connect srvrip.Text, srvrport.Text

'هذا السطر يمثل عملية الإتصال بالخادم

'(Port)ورقم المنفذIP يتم الإتصال بالخادم عن طريق تحديد رقم

'عند الضغط على زر "إتصال" يتم إجراء الإتصال

Command1.Enabled = False

'تعطيل زر "اتصال" عند اجراء الاتصال

الكود الخاص بزر قطع الاتصال:

wskclient.Close

' "يتم إغلاق الإتصال عند الضغط على زر "قطع الإتصال

'عند قطع الإتصال يتم مسح الرسالة القادمة من الخادم

Command1.Enabled = True

'تمكين الزر "اتصال" عند قطع الاتصال

الكود الخاص بالزر فتح السواقة:

' ارسال امر فتح سواقة الليزر

wskclient.SendData "openCD"

الكود الخاص بالزر غلق السواقة:

' ارسال امر اغلاق سواقة الليزر

wskclient.SendData "closeCD"

الكود الخاص بالزر اظهار سطح المكتب:

' ارسال امر اظهار سطح المكتب

wskclient.SendData "showDESKTOP"

الكود الخاص بالزر اخفاء سطح المكتب:

'ارسال امر اخفاء ايقونات سطح المكتب

wskclient.SendData "hideDESKTOP"

الكود الخاص بالزر اظهار زر ابدء:

' ارسال امر اظهار زر ابدأ

wskclient.SendData "showSTART"

الكود الخاص بالزر اخفاء زر ابدء:

' ارسال امر اخفاء زر ابدأ

wskclient.SendData "hideSTART"

الكود الخاص بالزر اظهار شريط المهام:

' ارسال امر اظهار شريط المهام

wskclient.SendData "showTASKBAR"

الكود الخاص بالزر اخفاء شريط المهام:

' ارسال امر اخفاء شريط المهام

wskclient.SendData "hideTASKBAR"

الكود الخاص بالزر خروج:

' الخروج من البرنامج

End

الان الكود الخاص بالاداة winsock

فى حدث DataArrival الخاص بالاداة winsock ضع الكود التالى:

Dim message As String

'يجب تعريف المتغير الذي سوف يستقبل البيانات القادمة من الخادم

wskclient.GetData message

جاء دور الاداة Timer

اضغط دبل كليك على الاداة وضع الكود التالى:

If wskclient.State = 0 Then Label1.Caption = "لايوجد إتصال"

If wskclient.State = 5 Then Label1.Caption = "تم تحديد المتصل"

If wskclient.State = 6 Then Label1.Caption = "جاري الإتصال"

If wskclient.State = 7 Then Label1.Caption = "تم الإتصال مع الخادم" & "[" & wskclient.LocalHostName & "]"

If wskclient.State = 8 Then Label1.Caption = "قام الطرف الثاني بقطع الإتصال"

If wskclient.State = 9 Then Label1.Caption = "خطأ في الإتصال"

'توجد 9 مراحل لإجراء عملية الإتصال بين عميل وخادم

وبهذا اكون قد انتهيت من شرح كيفية عمل اتصال بين خادم وعميل

وارجو من الله ان اكون قد وفقت فى الشرح ونتمنى من الله سبحانى وتعالى

ان يوفقنا لما يحبة ويرضاة.

تابعوا معنا سلسلة الدروس القادمة بمشئة الله.

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

اخوكم عرفه

تحياتى,,,

وَقُل رَّبِّ زِدْنِي عِلْماً

#22

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

#23

Price List - Version 1.0 Trial

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

برنامج قائمة الاسعار برنامج يعمل لمدة خمسة عشر يوما

وهو عبارة عن برنامج لقائمة الاسعار الخاصة بشركات

توزيع إطارات السيارات فهو يحتوى على مقاس الاطار

ونقشة الاطار وعدد التيلة وسعر المستهلك وسعر الجملة

والرصيد الموجود مع وجود أمكانيات اخرى للبرنامج

ويحتوى البرنامج على قاعدة بيانات تخزن فيها

جميع البيانات.

وَقُل رَّبِّ زِدْنِي عِلْماً

#24

ارجو من ادارة المنتدى حذف الملف السابق واعتماد الملف الحالى

لاكتشاف خطأ بالملف السابق.

وشكرا لكم

تحياتى,,,

arafa.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#25

لقد شرحت لكم فى السابق فكرة عمل برنامج العميل والخادم

واليوم سأضع لكم البرنامج العميل والخادم

عليكم بتحميل الملفات المرفقة وتشغيل البرنامج

وارجو من حضراتكم ابداء ارائكم فى البرنامج

وشكرا لكم

تحياتى,,,

client.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

هذا الموضوع مغلق.

مواضيع مشابهة