هل اجد هذه الاكواد للفيجوال بيسك ..؟؟؟؟؟؟؟؟؟

[The Pirate]

السلام عليكم ....
يعطيكم العافية شباب ...صراحة ماتقصرون كفيتوا ووفيتوا ....
لكن ابغى طلب بسيط ماهو صعب ان شاء الله .. ابغى الاكواد التالية :
1- كود عمل shutdown للجهاز
2- كود عمل اعادة تشغيل
3- كود عمل Log off ( هذا بيكون غريب شوي :biggrin: )
وشكرا شكرا ... ويعطيكم العافية

[oms]

هذا طلبك أخوي



Const EWX_LogOff As Long = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindows _
Lib "User32" Alias "ExitWindowsEx" _
(ByVal dwOptions As Long, ByVal dwReserved As Long) As Long


Private Sub Command1_Click()

'Shut down windows
ExitWindows EWX_SHUTDOWN, &HFFFFFFFF


End Sub



Private Sub Command2_Click()

'Reboot computer
ExitWindows EWX_REBOOT, &HFFFFFFFF


End Sub

[MXA]

اخوي هذه طريقة اخرى لعمل(shut down the computer):

Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

'shut down the computer
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
' 1) Open a new project in Visual Basic.
' 2) On the Tools menu, choose References and select the Microsoft CDO 1.21 Library.
' 3) Add a CommandButton to the default form. Accept the default name, Command1.
' 4) Copy the following code into the General Declarations section of the default form:

[فرحان السلمان]

طريقة لعمل اعادة تشغيل الجهاز

اتبع الخطوات التالية:
من قائمة ابدأ اختر microsoft visual studio ثم اختر icrosoft visual stuio tools ثم اختر API Text بعدها من قائمة File اختر oad Text File ثم اختر win 32 API بعدها اختر كلمة Exitwindowsex يظهر بالاسفل كود انسخه ثم افتح برنامج VB واضف Module والصق الكود اللي نسخته ثم اعمل زر امر واكتب الكود التالي
Call Exit WindowsEX (0,1)

اتمنى انه يكون واضح واتمنى لك التوفيق وشكرا