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

ممكن اكواد غلق الكمبيوتر Vb.net

بدأه khaledbelal في 3 أبريل 2009 · 6 رد · 779 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

بارك الله فيكم ممكن اكواد غلق الكمبيوتر بالفيجوال بيسك دوت نت

وهي كالاتي

 Shut down

 Restart

 Log Off

 Sleep

 Lock

 Hibernate

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

اكس بي ولا تعمل في فيستا والبعض العكس فبارك الله فيكم لمن يعرف جميع الاكواد فليكتبها ويكتب هذا خاص باي ويندوز وطبعا من المعلوم ان بعض هذه العمليات توجد في فيستاولا توجد في اكس بيمثل لوك فيصعب علي ايجاد الاكواد الخاصة بها فارجو بارك الله فيكم الاتيان بهذه الاكواد

وجزاكم الله خيرا

تم تعديل هذه المشاركة بواسطة khaledbelal في 3 أبريل 2009 في 22:18

#2

اخ الكريم

انا عامل على الوندوز PX ولا ادري هذه الاكواد تعمل على الفيستا ام لا

فهي تعمل بنجاح على XP

جربها على الفيستا و قول لنا على النتيجة

هذا للاغلاق
System.Diagnostics.Process.Start("ShutDown", "/s")
و هذا لاعادة التشغيل
System.Diagnostics.Process.Start("ShutDown", "/r")
و هذا تسجيل الخروج
System.Diagnostics.Process.Start("ShutDown", "/l")
#3

بارك الله فيك اخي الكريم جاري التجربة

#4

مرحباً أخي الكريم،

عليك استخدام مايدعى بالـ( API Calls ) والتي عليك الاعتماد عليها في هذه المهمة هي الـ( ExitWindowsEx ), مثال صغير, لكني أفضل أن تقوم بمراجعة المقال التالي : _

How To ShutDown Computer Using VB.Net

المثال :

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Declare [color= #000000; font-weight: bold;]Function ExitWindowsEx Lib [color= #0000ff;]"user32.dll" [color= #009900;](ByVal uFlags [color= #b1b100;]As Int32[color= #339933;], ByVal dwReserve
d [color= #b1b100;]As Int32[color= #009900;]) [color= #b1b100;]As Int32

 

[color= #000000; font-weight: bold;]Private Const EWX_SHUTDOWN [color= #b1b100;]As Int32 [color= #339933;]= [color= #cc66cc;]1

 

[color= #000000; font-weight: bold;]Private Sub BtnShutDownPC_Click[color= #009900;](Byval Sender [color= #b1b100;]As Object[color= #339933;], Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles B
tnShutDownPC[color= #339933;].Click

 

ExitWindowsEx[color= #009900;]( EWX_SHUTDOWN [color= #339933;], [color= #339933;]&HFFFF [color= #009900;])

 

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#5

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

طيب ممكن اكواد

Sleep

Lock

Hibernate

#6

مرحباً أخي الكريم,

يمكنك الاعتماد على العملية SetSuspendState :

Public Declare Function SetSuspendState Lib "Powrprof.dll" _
Alias "SetSuspendState" (ByVal Hibernate As Integer, _
ByVal ForceCritical As Integer,ByVal DisableWakeEvent As Integer) As Integer

الاستخدام لعمل الجهاز في وضع الاثبات :

SetSuspendState(1,0,0 )

الاستخدام لعمل الجهاز في وضع الاستعداد :

SetSuspendState(0,0,0 )

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#7

بارك الله فيك اخي الحبيب

تبقى بارك الله فيكم

كود ال Lock

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