أول برنامج مصرى مجانى و محترف لمقاهى الانترنت

وفق الله

بعض الصور للبرنامج

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

برنامج رائع جدا ،

وأنا على استعداد لتقديم خبرتي المتواضعة في عمل وتطوير البرنامج .

وفقك الله للخير والفائدة .

شكرا لك يا أخى البريشى

وأرجو من جميع الأخوة تقديم أفكار نافعة و مفيدة لهذا البرنامج القيم

و قريبا إن شاء الله سوف أطرح الكود الخاص بالبرنامج و لكن بعد تنقيحه و شرحه بحيث يسهل للمبرمجين فهمه بسرعة و تقديم التعديلات و الحلول الجيدة لانى من هواة الكود المفتوح المصدر وضد الاحتكار.

و سوف اطرح قريبا كود برنامج تروجان هورس يحتوى عى امكانيات جميلة و ايضا برنامج محادثة chat للتحدث عبر شبكة مغلقة lan مثل شبكة مقاهى الانترنت وذلك لتقديم شرح لكيفية استخدام ال winsocket control بطريقة عملية .

و لكم جزيل الشكر و الاحترام

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

اخي العزيز من خلال الصورتين التين وضعتهما لكي نراهما يبدو ان البرنامج يتمتع بميزات ممتازه جدا ...

ولكني ارى ان الوجهه ليست جميله وليست بشكل احترافي ،، فمثلا النافذة ذات اللون البرتقالي ليس لونها مناسبا ولو تركت لونها على لون النوافذ العادية لكانت افضل وكذلك بالنسبه للنافذة الاخرى التي جعلت خلفيتها صوره ...

تحياتي

أخى النبهانى

بعد التحية

شكرا على التعليق و سوف أحاول تغير شكل واجهة البرنامج الى الافضل و لكن ....

أهم ما فى الموضوع هو المساعدة فى الافكار الجوهرية وسوف اعطي امثلة للاخوة المبدعين لكى يرسلوا الاكواد اللزمة لها مثل :

1- دالة تعطى نوع نظام التشغيل (win98 or winxp or win nt or windows2000)

2- كيف تمنع المستخدم من العبث محتويات الهاردديسك فى كل نظام تشغيل على حده

3-كيف توقف عمل لوحة المفاتيح و الموس

4 - كيف تتحكم فى جهاز ال client تحكما كاملا من الجهاز الرئيسى و كأنك جالس عليه مثل برنامج remote adminisrator

انتظر الرد من المحترفين او المثابرين المجاهدين للتعلم

وشكرا لاهتمامكم

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

:rolleyes: :rolleyes: :rolleyes: :rolleyes: :rolleyes: :rolleyes:

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

من ضمن الافكار التي احب ان ازودك بها

بالنسبة للسرفر

1- استخدام خاص .. هذا الاستخدام يتيح للمدير ان يعطي بعض الاشخاص استخدامات خاصه باسعار يحددها المدير مثل استخدام خاص للطلاب . اذا كانت سعر الدقيقه 3 ريال للجميع يكون سعر الاستخدام الخاص للطلاب هو 1 دقيقه مثلا ..

2- الاشتراكات .. يقوم بتحديدها المدير من حيث السعر ونوع الاشتراك مثل ان يكون هناك اشتراك ذهبي واخر فضي واخر برونزي ولكل واحد سعر خاص به وعدد ساعات .. ويختار الزبون اي نوع يريد حسب ميزانيته .. ويقوم المدير بانشاء اسم مستخدم وكلمة مرور للزبون ويكون باستطاعت الزبون الدخول الى حسابه من اي جهاز بالمقهى ..

3- الاستخدام المجاني .. (تمكين نظامي) بحيث يقوم المدير بفتح اي جهاز لاي زبون يريد مجانا ..

==

اما بالنسبة للكلنت

يكون اكلنت شاشه شفافه يظهر من خلالها سطح المكتب ولكن لا يستطيع الزبون ان يفعل اي شئ الا بعد الضغط على زر بد الاستخدام ..

اي يكون للكنت زرارين 1- بد استخدام 2- دخول المشتركين ..

عند الضفط على زر بد الاستخدام يعطي رساله للسرف ان الجهاز رقم كذا يريد بد الاستخدام (موافق-الغاء الامر ) عند الضغط على موافق يفتح الجهاز وعند الضغط على الغاء الامر تظهر رساله للعميل (لقد تم رفض طلبك من قبل مدير الشبكه )

اتمنى لك كل التوفيق

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

اهلا بك اخي العزيز وشكرا على الرد ...

واليك هذا الكود الذي يساعدك على معرفه بعض المعلومات حول النظام وستستفيد منه لأ،ه يوضح نوع نظام التشغيل المستخدم :

'make a form with a label on it
'put the code in the appropiate places

'form1 general section
Option Explicit

Dim dosver$, winver$, windir$, sysdir$
Dim sdir$, wmode$, mchip$, defdir$
Dim MemTotaal$, MemBeschikbaar$, MemVirtueelTotaal$, MemVirtueelBeschikbaar$
Dim vTekst$

Private Sub Form_Load()
    Dim msg As String
    Dim ret%, buffer$
    Dim ver_major$, ver_minor$, build$
    
    vTekst$ = "System Information" & vbCrLf & vbCrLf
    ' Get windowsdirectory
    buffer$ = Space(255)
    ret% = GetWindowsDirectory(buffer, 255)
    windir$ = Left$(buffer$, ret%)
    vTekst$ = vTekst$ & "windowsdirectory: " & windir$ & vbCrLf
        
    buffer$ = Space(255)
    ret% = GetSystemDirectory(buffer, 255)
    sysdir$ = Left$(buffer$, ret%)
    vTekst$ = vTekst$ & "windows-systemdirectory: " & sysdir$ & vbCrLf

    buffer$ = Environ("temp")
    vTekst$ = vTekst$ & "tempory-directory: " & buffer$ & vbCrLf
    
    ' Get operating system and version.
    Dim verinfo As OSVERSIONINFO
    verinfo.dwOSVersionInfoSize = Len(verinfo)
    ret% = GetVersionEx(verinfo)
    If ret% = 0 Then
        MsgBox "Error Getting Version Information"
        Exit Sub
    End If
    Select Case verinfo.dwPlatformId
        Case 0
            winver$ = "Windows 32s "
        Case 1
            winver$ = "Windows 95 "
        Case 2
            winver$ = "Windows NT "
    End Select
    vTekst$ = vTekst$ & "operating system: " & winver$ & vbCrLf
    
    ver_major$ = verinfo.dwMajorVersion
    ver_minor$ = verinfo.dwMinorVersion
    build$ = verinfo.dwBuildNumber
    dosver$ = ver_major$ + "." + ver_minor$
    dosver$ = dosver$ + " (Build " + build$ + ")"
    vTekst$ = vTekst$ & "windows-version: " & dosver$ & vbCrLf
    
    ' Get CPU type and operating mode.
    Dim sysinfo As SYSTEM_INFO
    GetSystemInfo sysinfo
    Select Case sysinfo.dwProcessorType
        Case PROCESSOR_INTEL_386
            mchip$ = "Intel 386"
        Case PROCESSOR_INTEL_486
            mchip$ = "Intel 486"
        Case PROCESSOR_INTEL_PENTIUM
            mchip$ = "Intel Pentium"
        Case PROCESSOR_MIPS_R4000
            mchip$ = "MIPS R4000"
        Case PROCESSOR_ALPHA_21064
            mchip$ = "DEC Alpha 21064"
        Case Else
            mchip$ = "(unknown)"
    End Select
    vTekst$ = vTekst$ & "processor: " & mchip$ & vbCrLf
        
    ' Get free memory.
    Dim memsts As MEMORYSTATUS
    Dim memory&
    GlobalMemoryStatus memsts
    memory& = memsts.dwTotalPhys
    MemTotaal = Format$(memory& \ 1024, "###,###,###") + "K"
    vTekst$ = vTekst$ & "Total Memory: " & MemTotaal$ & vbCrLf
    memory& = memsts.dwAvailPhys
    MemBeschikbaar = Format$(memory& \ 1024, "###,###,###") + "K"
    vTekst$ = vTekst$ & "Free Memory: " & MemBeschikbaar$ & vbCrLf
    memory& = memsts.dwTotalVirtual
    MemVirtueelTotaal = Format$(memory& \ 1024, "###,###,###") + "K"
    vTekst$ = vTekst$ & "Virtual Memory: " & MemVirtueelTotaal$ & vbCrLf
    memory& = memsts.dwAvailVirtual
    MemVirtueelBeschikbaar = Format$(memory& \ 1024, "###,###,###") + "K"
    vTekst$ = vTekst$ & "Free Virtual Memory:" & MemVirtueelBeschikbaar$ & vbCrLf & vbCrLf
    
    vTekst$ = vTekst$ & "application: " & App.EXEName & vbCrLf
    vTekst$ = vTekst$ & "location: " & App.Path & vbCrLf
    vTekst$ = vTekst$ & "version: " & App.Major & "." & App.Minor & " (" & App.Revision & ")" & vbCrLf
    vTekst$ = vTekst$ & App.CompanyName & vbCrLf
    vTekst$ = vTekst$ & App.LegalCopyright & vbCrLf
    vTekst$ = vTekst$ & App.LegalTrademarks & vbCrLf

'also App.Title, App.Comments, App.Produktname... just see the helpfile on App
    MousePointer = vbNormal
    Label1.Caption = vTekst$
    
End Sub

نصيحه أخي العزيز :

مقاهي الانترنت يفضل ان تعمل بنظام ويندوز أكس بي لأنه يتيح خيارات كثيرة جدا بالنسبه للتحكم بالشبكه وانا شخصيا أرى شبكه تم تعطيل السيدي روم فيها وكذلك الصوت وامور اخرى كثيرة من خلال الخيارات الواسعه والسهله التي يقدمها هذا النظام ..

تحياتي

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

الى الأخ العزيز النبهانى :

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

و الف شكر على الكود المنمق الذى يظهر نوع نظام التشغيل

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

و السلام عليكم

:) :) :)

السلام عيكم

الى الأخ الكريم (محمد برمجة )

أفكارك جميلة و جذابة و رائعة جدا و لكنها تحتاج الى بعض الجهد فى التنفيذ و لكنها ضرورية

الف الف شكر يا (محمد) على هذه الافكار و نتمنى نشوف كود مع الافكار المطروحة ان امكن

و نتمنى المزيد من اعزائى القراء حتى يزداد البرنامج قوة

تحياتى

ابراهيم

العفو اخي العزيز

ولكن لاتنسانا بالكود المصدري له اذا امكن للفائده ..

تحياتي

السلام عليكم

بالنسبة للبرنامج

انا اعمل حاليا لبرنامج شبيه له هو مشروع تخرجي

بنفس المميزات الي طرحها الاخ

والبرنامج شارف على الانتهاء

وإن شاء الله راح ارسل نسخة منه إن شاء الله

السلام عليكم

الى الاخ العزيز النبهانى

بمجرد ان انتهى كلية من البرنامج سوف اطرحه بالكود إن شاء الله كاملا

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

و بالنسبة للأخ ham22

شكرا على مشاركتك الفعالة و سوف نتبادل الخبرات معا بأذن الله حنى ننتج برنامجا نهائيا خالى من الثغرات و قابل للتعديل و التحديث المستقبلى بسهولة و يسر

و لكم جميعا جزيل الشكر على اهتمامكم

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

:) :) :) :)

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

اخوتي واخي الفاضل VB6-Rocket وفقكم الله في مشروعكم الشيق وانا نتشرف ان اكون ضمن فريق هدا البرنامج .للعلم انا املك مقهي انترنت ولدي بعض الاضفات لهدا البرنامج لاني استخدم الان برنامج اسمه الايسي كفي ومعقد اشوي.

اقتراحي هو انا يكون في البرنامج الرئيسي تنبيه للموظف المقهي اي الشخص الذي يشتغل في المقهي تنبيه في حالة ان مستخدم معين ضمن الصالة دخل الى المواقع الاباحية وفي هده رسالة التنبيه تطهر مع رقم الجهاز الذي دخل على هده المواقع .

الاقتراح التاني هو انا يكون ضمن واجهة البرنامج ايقونة متصفح الانترنت بحيت من خلال يتم تصفح الانترنت

ولكم مني خالص التقدير والاحترام وفقكم الله

أنت ممتاز يا ابراهيم

وإن شاء الله نشوف برنامجك مكتمل قريبز

وبم أنك مبرمج ممتاز في الشبكات، ممكن تساعد في موضوع VB_WINSOCK اللى وضعته على المنتدى قبل يومين.

حاول أرجوك!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :D

السلام عليكم جميعا

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

بأخى tasm شكر خاص لك على الاضافة الجميلة المفيدة للمشروع و هى الحماية من المواقع الاباحية أو المحظورة ولكن طريقة التنفيذ كيف تتم ....

توجد فكرة فى رأسى و هى عمل قاموس dictionary يتم وضع فيه معظم الكلمات التى تدل على الاباحية أو المواقع المحظورة و يتم البحث فى جميع نوافذ برنامج الاكسبلورر عن هذه الكلمات فى عنوان النوافذ المفتوحة بصفة دورية و ليكن كل خمس ثوان وإذا وجد أى منها يرسل تحذير الى البرنامج الرئيسى ويظهر رقم الجهاز

ما رأيكم فى هذه الفكرة .....

إذا وجد أحدكم فكرة أخرى أرجو إبلاغى بها و إذا لم يوجد أرجو من الأخوة عمل قاموس به الكثير من الكلمات التى تدل على المواقع الاباحية مثل pron , sex , ..... ألخ

أما بالنسبة للأخ الكريم (عبد السلام)

شكرا على إطرائك الجميل و سوف اقوم إن شاء الله بزيارة موضوع vb_winsock الان و سأبذل ما فى وسعى لتوضيح أى غموض فى هذا الموضوع

و شكرا لكم جميعا و اتمنى المزيد و المزيد من القراء الاعزاء

تحياتى وشكرى الخالص لكم

إبراهيم

اخي برهوم صح بدنك وبارك الله فيك اقولك :-

انت قرات افكري قبل ما اشرح طريق الحماية من المواقع الاباحية وهي ان نعمل قاموس يحتوي على جميع الكلمات المشبوهة وبشكل تلقائي نبحت عن هذه الكلمات في اجهزة الزبائن في حالة وجد اي من الكلمات يطهر منبه ورقم الجهاز المشبوه .وإن شاء الله سوف احاول في ها الايام ان اكون قاموس بكلامات المشبوها إن شاء الله تعالى.

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

ولك مني خالص التقدير والاحترام ولكل فريق البرنامج المحترم.

اخي برهوم صح بدنك وبارك الله فيك اقولك :-

انت قرات افكري قبل ما اشرح طريق الحماية من المواقع الاباحية وهي ان نعمل قاموس يحتوي على جميع الكلمات المشبوهة وبشكل تلقائي نبحت عن هذه الكلمات في اجهزة الزبائن في حالة وجد اي من الكلمات يطهر منبه ورقم الجهاز المشبوه .وإن شاء الله سوف احاول في ها الايام ان اكون قاموس بكلامات المشبوها إن شاء الله تعالى.

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

ولك مني خالص التقدير والاحترام ولكل فريق البرنامج المحترم.

برنامج احترافي اتمنى لك التوفيق

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

واي شخص تشتبه به فقط ما عليك سوى عمل برنت سكرين لجهازه

السلام عليكم

شكرا جزيل اخوانى الاعزاء على اهتمامكم بالموضوع

أولا بالنسبة للأخ tasm لقد اوشكت على النتهاء من جزء الserver فى البرنامج حيث ابرمج الجزأ الخاص بالتسعير و تقسيم الوقت و بعد ذلك سوف انهى الجزأ الخاص بالكلينتclient و هو جزأ سهل نسبيا و سوف اطرح بالرنامج للتجربة و اكتشاف الثغرات و بعد ذلك نطرح النسخة النهائية إن شاء الله

و انتظر منكم اى مساعدات سواء بافكار او بالكود و بالتوفيق إن شاء الله

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

و ننتظر منكم المزيد

مع خالص تحياتى

ابراهيم

السلام عليكم

احتاج المشورة فى جزأ من البرنامج و هو جزأ حساب الوقت و التسعير

و ذلك اذا جلس المستخدم خلال فترتين زمنيتين و كل منهما لها سعر !

و اليكم الافتراض الاتى :-

1 - مدة الوحدة ============= 15 دقيقة

2 - فترة السماح ============ 5 دقائق

3 - مدة المستخدم فى الفترة الاولى == 21 دقيقة

4 - مدة المستخدم فى الفترة الثانية == 39 دقيقة

5 - سعر الوحدة فى الفترة الاولى ==== 50 قرش

6 - سعر الوحدة فى الفترة اثانية ==== 75 قرش

التحليل :

=========

(1) تحليل الوقت الكلى :

----------------------

الوقت الكلى للمستخدم = 60 دقيقة

عدد الوحدات للوقت الكلى = 60 ÷ 15 = 4 وحدات

السعر باسعار الفترة الاولى فقط = 4 × 50 = 200 قرش

السعر باسعار الفترة الثانية فقط = 4 × 75 = 300 قرش

(2) تحليل الفترة الأولى :

-----------------------

1 - عدد الوحدات = 21 ÷ 15 = 1 وحدة

2 - السعر = 1 × 50 = 50 قرش

3 - الوقت المتبقى = 6 دقائق و هى أكبر من فترة السماح (المفروض انها تحسب كوحدة اضافية ولكن ما هى ظروف المتبقى من الفترة الثانية !)

4 - سعر ما زاد عن فترة السماح = سعر وحدة = 50 قرش

5 - السعر النهائى للفترة الاولى = 50 + 50 = 100 قرش

(3) تحليل الفترة الثانية :

-------------------------

1 - عدد الوحدات = 39 ÷ 15 = 2 وحدة

2 - السعر = 2 × 75 = 150 قرش

3 - الوقت المتبقى = 9 دقائق و هى أكبر من فترة السماح (المفروض انها لا تحسب كوحدة اضافية ولكن ما هى ظروف المتبقى من الفترة الثانية !)

4 - سعر ما زاد عن فترة السماح = سعر وحدة = 75 قرش

5 - السعر النهائى للفترة الثانية = 150 + 75 = 225 قرش

(4) تحليل الفترتين معا :

------------------------

السعر النهائى = 100 + 225 = 325 قرش

_*_*_*_ إذا هناك ظلم للمستخدم فى هذه الحالة _*_*_*_

وذلك بسبب الوقت المتبقى

_____________

الحل الذى فكرت فيه :

--------------------

1 - نأخذ الوقت المتبقى من الفترة الاولى و الثانية ونجمعهم

2 - الفترة المتبقية الاكبر هى 9 دقائق و هى من نصيب الفترة الثانية (إذا سنتعامل بسعر الفترة الثانية )

3 - الوقت المتبقى الكلى = 6 + 9 = 15

4 - اذا زاد عن فترة السماح و هى 5 دقائق اذا ننفذ الخطوة التالية

5 - اذا زاد عن مدة الوحدة و هى 15 دقيقة يعامل كأنه وقت عادى كالتالى

= 15 ÷ 15 = 1 ولا يوجد باقى

6 - إذا لم يزد عن الوحدة إذا يحسب كوحدة = 1 وحدة

6 - اذا السعر للوقت المبقى الكلى = 1 × 75 = 75 قرش

و بذلك يكون السعر النهائى حسب ذلك التحليل

سعر الفترة الاولى = 50 قرش

سعر الفترة الثانية = 150 قرش

سعر الفترة المتبقية = 75 قرش

---------------------------

الاجمالى = 275 قرش

و بذلك يكون السعر معقولا و منصفا

ما رأيكم ؟

هل هناك خطط تسعيرية أفضل ؟

هل انا مخطأ فى شئ أو تجاهلت شئ ؟

أرجو الافادة من الاخوة الاعزاء

السلام عليكم

ألا من مجيب ؟ :)

هذا البرنامج سيستفيد منه الجميع !!

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

بالتوفيق اخي الكريم لما ستقوم به وارجو من الجميع تقديم النصح على الاقل واتمنى ان يكون لي الوقت الكافي لتقديم بعض النصائح في هذا المجال بحكم التجربة فقط عملت برنامج يشبه ما تقوم به الآن

بالنسبة لي النصيحة الاولى لك أخي دعك من استعمال الTimer كثيرا

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

بالتوفيق ان شاء الله