ممكن كود إغلاق و إعادة تشغيل الكومبيوتر و...و....

الله يعطيك العافية ولكن ماذا عن الباقي

يا أخوان ضرووري أبي يا أخوان بقيت كود إطفاء الكومبيوتر و إعادة تشغيل الكومبيوتر و hibernat

و ستاند باي و log off و switch user

البرنامج مخلص بس ناطر الكودات

تكفون بسرعة ولا عليكم أمر

يا أخوان وينكم تكفووووون ليش كل هلتجاهل للموضوع مجرد الإجابة وو بس

يا أخوان وينكم تكفووووون ليش كل هلتجاهل للموضوع مجرد الإجابة وو بس

ممكن تلاقئ حاجة تقيدك لو دورت فى ال MSDN اكيد هتلاقى اللى انت عايزة هناك

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

    Public Enum RestartOptions
        LogOff = 0
        PowerOff = 8
        Reboot = 2
        ShutDown = 1
        Suspend = -1
        Hibernate = -2
    End Enum

    Friend Structure LUID
        Public LowPart As Integer
        Public HighPart As Integer
    End Structure

    Friend Structure LUID_AND_ATTRIBUTES
        Public pLuid As LUID
        Public Attributes As Integer
    End Structure

    Friend Structure TOKEN_PRIVILEGES
        Public PrivilegeCount As Integer
        Public Privileges As LUID_AND_ATTRIBUTES
    End Structure

    Public Class WindowsController
        Private Const TOKEN_ADJUST_PRIVILEGES As Integer = &H20
        Private Const TOKEN_QUERY As Integer = &H8
        Private Const SE_PRIVILEGE_ENABLED As Integer = &H2
        Private Const FORMAT_MESSAGE_FROM_SYSTEM As Integer = &H1000
        Private Const EWX_FORCE As Integer = 4
        Private Declare Ansi Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As IntPtr
        Private Declare Ansi Function FreeLibrary Lib "kernel32" (ByVal hLibModule As IntPtr) As Integer
        Private Declare Ansi Function GetProcAddress Lib "kernel32" (ByVal hModule As IntPtr, ByVal lpProcName As String) As IntPtr
        Private Declare Ansi Function SetSuspendState Lib "powrprof" (ByVal Hibernate As Integer, ByVal ForceCritical As Integer, ByVal DisableWakeEvent As Integer) As Integer
        Private Declare Ansi Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As IntPtr, ByVal DesiredAccess As Integer, ByRef TokenHandle As IntPtr) As Integer
        Private Declare Ansi Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Integer
        Private Declare Ansi Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As IntPtr, ByVal DisableAllPrivileges As Integer, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Integer, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Integer) As Integer
        Private Declare Ansi Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer
        Private Declare Ansi Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Integer, ByVal lpSource As IntPtr, ByVal dwMessageId As Integer, ByVal dwLanguageId As Integer, ByVal lpBuffer As StringBuilder, ByVal nSize As Integer, ByVal Arguments As Integer) As Integer

        Public Shared Sub ExitWindows(ByVal how As RestartOptions, ByVal force As Boolean)
            Select Case how
                Case RestartOptions.Suspend
                    SuspendSystem(False, force)
                Case RestartOptions.Hibernate
                    SuspendSystem(True, force)
                Case Else
                    ExitWindows(CType(how, Integer), force)
            End Select
        End Sub

        Protected Shared Sub ExitWindows(ByVal how As Integer, ByVal force As Boolean)
            EnableToken("SeShutdownPrivilege")
            If force Then how = how Or EWX_FORCE
            If ExitWindowsEx(how, 0) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error))
        End Sub

        Protected Shared Sub EnableToken(ByVal privilege As String)
            If Not CheckEntryPoint("advapi32.dll", "AdjustTokenPrivileges") Then Return
            Dim tokenHandle As IntPtr
            Dim privilegeLUID As LUID
            Dim newPrivileges As TOKEN_PRIVILEGES
            Dim tokenPrivileges As TOKEN_PRIVILEGES
            If OpenProcessToken(System.Diagnostics.Process.GetCurrentProcess.Handle, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, tokenHandle) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error))
            If LookupPrivilegeValue("", privilege, privilegeLUID) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error))
            tokenPrivileges.PrivilegeCount = 1
            tokenPrivileges.Privileges.Attributes = SE_PRIVILEGE_ENABLED
            tokenPrivileges.Privileges.pLuid = privilegeLUID
            If AdjustTokenPrivileges(tokenHandle, 0, tokenPrivileges, 4 + (12 * tokenPrivileges.PrivilegeCount), newPrivileges, 4 + (12 * newPrivileges.PrivilegeCount)) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error))
        End Sub

        Protected Shared Sub SuspendSystem(ByVal hibernate As Boolean, ByVal force As Boolean)
            If Not CheckEntryPoint("powrprof.dll", "SetSuspendState") Then Throw New PlatformNotSupportedException("The SetSuspendState method is not supported on this system!")
            SetSuspendState(CType(IIf(hibernate, 1, 0), Integer), CType(IIf(force, 1, 0), Integer), 0)
        End Sub

        Protected Shared Function CheckEntryPoint(ByVal library As String, ByVal method As String) As Boolean
            Dim libPtr As IntPtr = LoadLibrary(library)
            If Not libPtr.Equals(IntPtr.Zero) Then
                If Not GetProcAddress(libPtr, method).Equals(IntPtr.Zero) Then
                    FreeLibrary(libPtr)
                    Return True
                End If
                FreeLibrary(libPtr)
            End If
            Return False
        End Function

        Protected Shared Function FormatError(ByVal number As Integer) As String
            Dim buffer As New StringBuilder(255)
            FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, IntPtr.Zero, number, 0, buffer, buffer.Capacity, 0)
            Return buffer.ToString()
        End Function
    End Class

    Public Class PrivilegeException
        Inherits Exception

        Public Sub New()
            MyBase.New()
        End Sub

        Public Sub New(ByVal message As String)
            MyBase.New(message)
        End Sub
    End Class

لاعادة تشغيل الجهاز

RestartWindows.WindowsController.ExitWindows(RestartWindows.RestartOptions.LogOff, True)

لعمل Suspend

RestartWindows.WindowsController.ExitWindows(RestartWindows.RestartOptions.Suspend, True)

لعمل logoff

RestartWindows.WindowsController.ExitWindows(RestartWindows.RestartOptions.LogOff, True)

لاطفاء الجهاز

RestartWindows.WindowsController.ExitWindows(RestartWindows.RestartOptions.PowerOff, True)

http://204.157.36.16/index.php?showtopic=8...36entry454536

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

اسف اخي عليك اضافة الفضاء التالي

System.Runtime.InteropServices

أخوي كلمة StringBuilder يطلع تحتها خط متعرجو RestartWindows ألي بأول سطر يطلع تحتها خط متعرج وو

ر يطلع تحت القوس الأول في السطر الثاني خط متعرج

أتمنى لو أنك تقولي وين الخطأ

اخي هل قمت باستيراد الفضاء System.Runtime.InteropServices؟؟

ااااااأخوي لي الحين شسوي تكفون أنقذوني

كلمت سستيم يظهر تحتها خط متعرج تكفون ضرووري أبي الحين الحين الحين

ممكن تذكر الخطأ ؟؟

اخي في اول سطر في الmodule اضف

imports System.Runtime.InteropServices

أخوي كلمة StringBuilder يطلع تحتها خط متعرج و RestartWindows

كلمت سستيم يظهر تحتها خط متعرج تكفون ضرووري أبي الحين الحين الحين

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

اخي يجب ان تضع الكزد الطويل داخل Module وتضع في اول الmodule

imports System.Runtime.InteropServices

انا للاسف لا يوجد لدي vb.net الان لكي اعطيك مثال

سويت بس في أشياء وايد يطلع تحتها خط متعرج ؟؟؟؟؟

أولها

Dim buffer As New StringBuilder(255(

أولها StringBuilder

السلام عليكم

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

تكفون لا تبخلون علي

أنا أبي أحترف

لا تبخلون علي تكفون

أخي الكريم إنسخ الموديل التالي وضعه في برنامجك وبالتوفيق ،،،

Runtime.InteropServices.zip