لو عندي عدة أجهزة علي الشبكة وارد ان أأخذ الوقت من أحد الاجهزة الموجودة علي الشبكة
كيف يتم ذلك
كيف أخذ الوقت من جهاز علي الشبكة
مغلق
ادرج مربع نص و زر امر
اكتب هذا الامر في زر امر
Shell "cmd.exe /c Net Time \\" & text1.text & " > c:\Time.txt"
أو هذا الامر اذا كنت تملك و ندوز Me او ما قبله
Shell "command.com /c Net Time \\" & text1.text & " > c:\Time.txt"
نفذ البرنامج بالضغط على F5
اكتب اسم الجهاز الذي على الشبكة في مربع النص
قم بالنقر على زر الأمر
ستجد انه قد تم حفظ الوقت في ملف نصي على القرص C بإسم Time
تم تعديل هذه المشاركة بواسطة سلام الشرجبي في 13 ديسمبر 2005 في 16:00
سأجرب هذا الكود أخي سلام وسأخبرك النتيجة
أخي سلام لقد جربت الكود وبالفعل نجح الكود
وارجو منك ان تجعله ان يضع الوقت في تكست داخل البرنامج و التاريخ في تكست اخر داخل البرنامج ايضا
وانا شاكر لك علي حسن تعاونك معي وجزاك الله كل خير
لا شكر على واجب اخ yasserstars
جهزت لك مثال يستخرج الوقت و التاريخ والصراحة جربته على و يندوز 2000 و اشتغل بصورة ممتازة
ولا اعرف ان كان سيعمل جيداً على الأنظمة الأخرى
هذا هو المثال
أشكرك أخي سلام علي البرنامج الجميل وهو يعمل بالفعل عندي
ولكني ارجو منك شرح الكود
لكي أعدل به ما استطيع وعلي حسب ما اريد
شخصياً اعتبر تلك إحدى الطرق لكن لا أفضلها ... حيث أننا بذلك نستدعي برنامج جاهز
أعتقد أن net.exe يستعمل التابع NWGetFileServerDateAndTime
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
يبدو أني كنت مخطئ
NWGetFileServerDateAndTime احدى دوال Novel
الدالة المستخدمة هي NetRemoteTOD
معلومات أكثر عن الدالة السابقة
http://msdn.microsoft.com/library/default....etremotetod.asp
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
أخي cipher
أرجو توضيح استخدام الاداة مع مثال لكي تعم الفائدة
انظر للرابط :
http://www.vbcity.com/forums/topic.asp?tid=7289
لمزيد من النتائج :
http://www.google.com.sa/search?hl=ar&safe...oteTOD%22&meta=
أخي سوف تبكي عليك العيون * * * وتـسـأل عـنك دمـوع المـئـين
فإن جف دمعي سيبكي الغمام * * * يـرصـع قـبرك بــالـياسـمـيـن
أخـي مـا يـأسـنـا ولـن نيـأسـا * * * وما طال في القلب لبث الأسى
ومـا حـل أفــئــدة الــمــــؤمـن * * * سـوى أمـل في الـجنـان رسـى
أخي فانتظر ولتعش في غـد * * * سـيـنـبـثـق الأمـل الـسـرمـد
فـإن مـزقـتـنـا سني الــحـيـاة * * * فإنـا مع الـنصـر فـي مـوعــد
أعتقد أن الأخ MSVS قد أعطى ما يفيد من معلومات .
حبيت أضيف شئ
من نظرة سريعة على net.exe لاحظت انه يستدعي net1.exe (موجود في system32 ) والذي يستدعي الدالتين المذكورتين في ردي أعلاه ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
هذا الموضوع مغلق.