عند الدخول الى الكونترول بنل يوجد هناك administrative tools
ندخل الى قائمة services
اريد ان اقوم بعمل ستارت لل Telnet
من خلال الفيجوال بيسك فهل من طريقة ؟؟؟
وشكرا
كيف اقوم بتشغيل التلنت من خلال الفيجوال بيسك ؟
مغلق
إن كانت telnet service غير شغالة disabled فاستخدم الامر التالي لجعلها enabled
net start telnet
ولعمل اتصال استخدم Shell أو Winexecute أو غيرها والأمر كالتالي :
telnet [-a][-e escape char][-f log file][-l user][-t term][host [port]]
لمعلومات اكثر عن الأمر السابق راجع windows help او في Command prompt اكتب
telnet /?
تم تعديل هذه المشاركة بواسطة cipher في 27 يوليو 2006 في 08:45
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
مشكور اخي الكريم والله كلمة شكر قليلة بحقك
اخي كيف ممكن افعلها من خلال الفيجوال بيسك ؟؟
اقتباساخي كيف ممكن افعلها من خلال الفيجوال بيسك ؟؟
الأمثلة في المنتدى والانترنت كثيرة ..
هل سمعت بالدوال التي ذكرتها؟
سواء كانت الإجابة بنعم أم لا فأنصحك بقراءة معلومات عنها ومحاولة إستخدامها بنفسك وأتمنى ألا تنتظر الرد من آخرين ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اقتباسالأمثلة في المنتدى والانترنت كثيرة ..هل سمعت بالدوال التي ذكرتها؟
سواء كانت الإجابة بنعم أم لا فأنصحك بقراءة معلومات عنها ومحاولة إستخدامها بنفسك وأتمنى ألا تنتظر الرد من آخرين ...
اخي الكريم لم اجد اي مثال على سؤالي الرجاء لمن يعرف ان يجاوبني :(
السلام عليكم ورحمة الله وبركاته
اخي الكريم هل تقصد مجرد تشغيل التلنت ام انك تريد تنفيذ اوامر عليها من خلال الفيجوال بيزك ؟
اذا كان المراد هو تشغيلها فقط فقم باستخدام الكود التالي
Shell ("C:\WINDOWS\system32\telnet.exe")وبالطبع يمكنك استخدام ادوات لايجاد مسار مجلد السيستم حتى تتجنب مشكلة تغير مسار الويندوز عن المسار الموضوع في الكود
اما تنفيذ الاوامر من خلال الفيجوال بيزك فبصراحة لم اجربها وأعتقد انه غير ممكن من خلال الفيجوال بيزك
ارجو اني اكون افدتك :)
=============
الى اللقاء
JusT LeT YouR MinD WorK
شكرا اخي الكريم
انا اريد ان اشغل هذا الامر من خلال الفيجوال بيسك
net start telnet
هذا يعمل على تفعيل خدمة التلنت
وشكرا على ردك
اقتباسانا اريد ان اشغل هذا الامر من خلال الفيجوال بيسكnet start telnet
ما أنا قلت لك الطريقة لكن أنت تريد الكود جاهزاً !!
جرب هذا
Shell ("net start telnet")طبعاً إن كانت telnet service في الحالة Disabled فلن يتم تشغيلها ..
- كيف نعرف حالة أي service ؟
أسهل طريقة: استخدم run واكتب فيه services.msc /s ثم ok وستجد معلومات جميع الـ services ..
باعتبار أن telnet service في وضع Disabled فما العمل؟
نقوم بتغيير ذلك يدوياً ؟ <-------- هراء
-إذا كيف نقوم بذلك برمجياً ؟
كخطوة بداية راجع الدوال هنا Service Functions
طيب! الدوال هناك كثيرة من سنحتاج منها؟
لاحظ وجود تابع باسم StartService.. وظيفته تشغيل الـ service ..
BOOL WINAPI StartService( SC_HANDLE hService, DWORD dwNumServiceArgs, LPCTSTR* lpServiceArgVectors );
نلاحظ أن أول عنصر هو hService وبالاطلاع على الشرح في MSDN نجد هذه العبارة الهامة
اقتباسThis handle is returned by the OpenService or CreateService function, and it must have the SERVICE_START access right
اذا لا بد أولاً من الحصول على hService باستخدام أحد التابعين المذكورين وهنا سنستخدم OpenService
SC_HANDLE WINAPI OpenService( SC_HANDLE hSCManager, LPCTSTR lpServiceName, DWORD dwDesiredAccess );
وبالإطلاع على عناصر هذا التابع نلاحظ أولاً hSCManager وبقراءة الشرح نلاحظ
اقتباسThe OpenSCManager function returns this handle.
اذاً لا بد من الحصول على هذا الـ handle عن طريق التابع OpenSCManager
SC_HANDLE WINAPI OpenSCManager( LPCTSTR lpMachineName, LPCTSTR lpDatabaseName, DWORD dwDesiredAccess );
اذاً سنقوم بما يلي:
1) إستدعاء OpenSCManager والحصول على hSCManager
2) إستدعاء OpenService والحصول على hService
3) إستدعاء StartService
طبعاً في كل خطوة يجب معالجة أي أخطاء قد تنتج ...
هنا سأشير إلى أحدها الخاص بالخطوة رقم 3 وهو حين يكون الخطأ ERROR_SERVICE_DISABLED ..
وهو ما نريده في سؤالي السابق "إذا كيف نقوم بذلك برمجياً ؟"
بعد إستدعاء التابع StartService وفي حالة كون القيمة التي يرجعها التابع هو الخطأ ERROR_SERVICE_DISABLED فمعنى ذلك أنه لا يمكن تشغيل service إلا إذا تم تغيير حالتها ..
برمجياً سنقوم بذلك باستخدام ChangeServiceConfig
BOOL WINAPI ChangeServiceConfig( SC_HANDLE hService, DWORD dwServiceType, DWORD dwStartType, DWORD dwErrorControl, LPCTSTR lpBinaryPathName, LPCTSTR lpLoadOrderGroup, LPDWORD lpdwTagId, LPCTSTR lpDependencies, LPCTSTR lpServiceStartName, LPCTSTR lpPassword, LPCTSTR lpDisplayName );
هنا سنلاحظ وجود hService كما في الجزء الأول لذا فالخطوات هي
1) إستدعاء OpenSCManager والحصول على hSCManager
2) إستدعاء OpenService والحصول على hService وهنا سنعطي القيمة SERVICE_CHANGE_CONFIG لـ dwDesiredAccess
3) إستدعاء ChangeServiceConfig بحيث نعطي القيمة SERVICE_DEMAND_START لـ dwStartType
وبعد أن يتم تغيير StartType الخاص بالـ service بامكاننا استخدام StartService ...
لاننسى إستخدام CloseServiceHandle
هذا شرح مبسط وسريع و من الأفضل الرجوع إلى التوابع التي أشرت إليها سابقاً وقراءتها جميعاً مع معرفة جميع حالات الخطأ التي قد تحدث وكيفية التعامل معها ..
بالنسبة لتصريح التوابع السابقة بالفيجوال بيسك فبالإمكان الرجوع إلى AllAPI أو البحث في google ...
عذراً إن وجدت أي أخطاء في الشرح فقد كنت بدأت بكتابة جزء من الرد ثم توقفت لأسباب طارئة وعدت مرة أخرى لإكمال الرد ..
ننتظر منك مثال بالفيجوال بيسك و أي مشاكل تواجهك يرجى وضعها بتفصيل أكثر ...
تم تعديل هذه المشاركة بواسطة cipher في 29 يوليو 2006 في 10:03
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
لا استطيع يا اخي انا ما اعرف شي عن الفيجوال بيسك ولا شي عن الدوال اشي بسيط جدا ولا اعرف ما هذا AllAPI
ولا حتى باي لغة انت كاتب اللغات اللي فوق ولغتي بالانجليزية للاسف ضعيفة
استطيع فهم الكودات المشروحة بالعربية والمكتوبة بالفيجوال بيسك :(
اقتباسلا استطيع يا اخي انا ما اعرف شي عن الفيجوال بيسك
أول أسباب الفشل هو قول لا أستطيع
قل سأتعلم , سأقرأ , سأحاول وإن شاء الله ستتمكن من ذلك
اقتباسولا اعرف ما هذا AllAPI
هناك شئ اسمه google اكتب فيه AllAPI وستجد انه هذا الموقع
اقتباسولا حتى باي لغة انت كاتب اللغات اللي فوق ولغتي بالانجليزية للاسف ضعيفة
لا توهم نفسك بأعذار تجعلك تتقاعس عن طلب العلم ... يعني شايف لغتنا الإنجليزية كويسة!! كلنا زي بعض فقط عليك القراءة ثم القراءة ثم القراءة
لا أعتقد أنه ليس لديك قاموس إنجليزي عربي ؟ إن لم يكن لديك عليك باقتناء واحد أو استخدم أحد القواميس الإلكترونية .. دا انا بترجم أحيانا من الانجليزية الى الصينية ثم الى العربية لعدم وجود قاموس ورقي إنجليزي عربي :wacko:
اقتباساستطيع فهم الكودات المشروحة بالعربية والمكتوبة بالفيجوال بيسك
إن كنت تنتظر شرح بالعربي فأنصحك بتغيير هذا التفكير ... إن كنت ستظل تجعل الانجليزية عائقاً في طريقك فلن تتعلم ..
أضف إلى ذلك لا تنتظر مني أو من غيري إعطاءك أكواد جاهزة وأنت مسترخٍ أمام شاشة الكمبيوتر
حاول كتابة أي كود وبعد ذلك سنقوم بمساعدتك ..
كبداية أكتب لي تصريح الدوال التي أشرت إليها سابقا بالفيجوال بيسك ...
لبقية الشباب , أعلم أن المسألة لا تستاهل كل هذا لكن إن قام أحدكم بكتابة الكود نيابة عنه فذلك يعني عدم إحترام لإمكانيات الأخ العزيز ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اخي الكريم
انا احترم رايك وطريقة تفكيرك وكلامك مزبوط مية المية بس لو تتكرمو علينا انتم اصحاب الخبرة في هذا المنتدى بسلسلة دروس منظمة لانو في اشياء نيجي نحاول نفهمها تكون تتطلب اشياء قبلها ما نكون على دراية بها يعني انا اخذت الفيجوال بيسك في الجامعة والدكتور مثل ما تعرف بدو يخلص الفصل ما عمري اسمعت عن شي اسمو دوال وفي اشئاء كثيرة بس للاسف لا اجد سلسلة منتظمة للدروس ولو كنت تعرف موقع به دروس منتظمة ولو بالهندية ضعه هنا وسنقوم بترجمتها وفهمها اما عندما لا يكون هنالك دروس منتظمة فهذا اكثر ما يشتتني
وشكرا مرة اخرى على حرصك
هذا الموضوع مغلق.