تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أريد أكواد تنفيذية Bat or Autorun or any Thing - يريت حد يساعدني ؟
#1
مساء الخير علي احلي شباب

كنت محتاج اي اكواد لاي صيغة تنفيذية لعمل الآتي :
بمعني : أضغط = [اثنين كليك أو انتر يعني] علي الملف يقوم بتنفيذ الأمر .

1- غلق جهاز الكمبيوتر = Shutdown
2- إعادة تشغيل جهاز الكمبيوتر = Restart
3- تسجيل الخروج = Log Off
4- إغلاق برنامج معين = لو فاتح الفيرفوكس او برنامج الورد وعايز أغلقه
5- إغلاق برنامج معين من التسك مانيجر = ALt + Contral + Delet + End Proc
6- فتح فولدر معين موجود داخل الجهاز = D:\Prsonal\Mark\My Photo
7- تشغيل برنامج معين = Open IDM Or Word 2003
8- تغير اللغة من العربية إلي الإنجليزية أو العكس = Alt + Shift

ده الي محتاجه حالياً ولو فيه حاجة تاني هكتبهالكم
وشكراً مقدماً لكل من سيقوم بمساعدتي
الرد }}}
تم الشكر بواسطة:
#2
هذه أكواد الحصول على اللغة الحالية وتغييير اللغة للعربية زتغيير اللغة للانجليزية
PHP كود :
Public Sub LangArabic()
        
Dim Lang As InputLanguage
        
For Each Lang In InputLanguage.InstalledInputLanguages
            
If Lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
                InputLanguage
.CurrentInputLanguage Lang
            End 
If
        
Next
    End Sub

    
Public Sub LangEnglish()
        
Dim Lang As InputLanguage
        
For Each Lang In InputLanguage.InstalledInputLanguages
            
If Lang.Culture.EnglishName.ToUpper Like "*english*".ToUpper Then
                InputLanguage
.CurrentInputLanguage Lang
            End 
If
        
Next
    End Sub

    
Public Function CurLang() As String
        
Return InputLanguage.CurrentInputLanguage.Culture.EnglishName
    End 
Function 

هذه فئة كاملة من أجل إعادة تشغيل الويندوز وتسجيل الخروج
PHP كود :
Imports System.Text
Imports System
.Runtime.InteropServices

Namespace RestartWindows

    
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 IntPtrByVal lpProcName As String) As IntPtr
        
Private Declare Ansi Function SetSuspendState Lib "powrprof" (ByVal Hibernate As IntegerByVal ForceCritical As IntegerByVal DisableWakeEvent As Integer) As Integer
        
Private Declare Ansi Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As IntPtrByVal DesiredAccess As IntegerByRef TokenHandle As IntPtr) As Integer
        
Private Declare Ansi Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As StringByVal lpName As StringByRef lpLuid As LUID) As Integer
        
Private Declare Ansi Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As IntPtrByVal DisableAllPrivileges As IntegerByRef NewState As TOKEN_PRIVILEGESByVal BufferLength As IntegerByRef PreviousState As TOKEN_PRIVILEGESByRef ReturnLength As Integer) As Integer
        
Private Declare Ansi Function ExitWindowsEx Lib "user32" (ByVal uFlags As IntegerByVal dwReserved As Integer) As Integer
        
Private Declare Ansi Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As IntegerByVal lpSource As IntPtrByVal dwMessageId As IntegerByVal dwLanguageId As IntegerByVal lpBuffer As StringBuilderByVal nSize As IntegerByVal Arguments As Integer) As Integer

        
Public Shared Sub ExitWindows(ByVal how As RestartOptionsByVal force As Boolean)
            
Select Case how
                
Case RestartOptions.Suspend
                    SuspendSystem
(Falseforce)
                Case 
RestartOptions.Hibernate
                    SuspendSystem
(Trueforce)
                Case Else
                    
ExitWindows(CType(howInteger), force)
            
End Select
        End Sub

        
Protected Shared Sub ExitWindows(ByVal how As IntegerByVal force As Boolean)
            
EnableToken("SeShutdownPrivilege")
            If 
force Then how how Or EWX_FORCE
            
If ExitWindowsEx(how0) = 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(Process.GetCurrentProcess.HandleTOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERYtokenHandle) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error))
            If 
LookupPrivilegeValue(""privilegeprivilegeLUID) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error))
            
tokenPrivileges.PrivilegeCount 1
            tokenPrivileges
.Privileges.Attributes SE_PRIVILEGE_ENABLED
            tokenPrivileges
.Privileges.pLuid privilegeLUID
            
If AdjustTokenPrivileges(tokenHandle0tokenPrivileges+ (12 tokenPrivileges.PrivilegeCount), newPrivileges+ (12 newPrivileges.PrivilegeCount)) = 0 Then Throw New PrivilegeException(FormatError(Marshal.GetLastWin32Error))
        
End Sub

        
Protected Shared Sub SuspendSystem(ByVal hibernate As BooleanByVal 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(hibernate10), Integer), CType(IIf(force10), Integer), 0)
        
End Sub

        
Protected Shared Function CheckEntryPoint(ByVal library As StringByVal method As String) As Boolean
            Dim libPtr 
As IntPtr LoadLibrary(library)
            If 
Not libPtr.Equals(IntPtr.ZeroThen
                
If Not GetProcAddress(libPtrmethod).Equals(IntPtr.ZeroThen
                    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_SYSTEMIntPtr.Zeronumber0bufferbuffer.Capacity0)
            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

End Namespace 
الرد }}}
تم الشكر بواسطة:
#3
انت تريدها في برنامج تصممه بالفيجوال ام ملفات سكريبت تعمل من الويندوز مباشرة ؟؟
الرد }}}
تم الشكر بواسطة:
#4
شكراً لكم ( samerselo ) - ( ؛ أحمد ؛ ) شكراً جزيلاً
انا كل اسئلتي تكمن في اني عايز اعمل برنامج مفكرة ومنبه وبه خاصية اغلاق وعمل اشياء كثيرة في الويندوز مثل فتح برنامج معين بعد مده معين وهكذا شخصي لي , اكتب فيه الوقت والتاريخ ورسالة التنبية او العمل الذي سيقوم به فيفعله , بمعني اضع ملفات تنفيذيه قمت بانشائها عن طريق الفيجول او عن طريق اي لغة اخري مثل ملفات البات داخل مجلد , واقوم بستخدامها داخل البرنامج , يعني اقول له في الوقت الفلاني اليوم الفلاني افعل كذا مثلاً افتح برنامج كذا الساعة كذا عن طريق كتابتي لكود صغير في الفيجول او في البات يكون ملف تنفيذي خارجي خارج اطار البرنامج البرنامج ما إلا مستضيف للأوامر لكي ينفذها .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] مطلوب تبسيط كود VB.NET ليتوافق مع أكواد VBScript AhmedEissa 0 210 20-10-23, 09:57 AM
آخر رد: AhmedEissa
  أريد كود لغلق جميع النوافذ عند تسجيل الخروج Emam emam 2 502 10-07-23, 02:12 AM
آخر رد: Emam emam
  [سؤال] ممكن حد يساعدني في السؤال ده حسن الجلب 1 504 21-07-22, 11:44 AM
آخر رد: alfaiz678
  أريد كود يعمل عمل لصق للنص Past عند الضغط علي زر بوتن ؟ DanyGhost2010 2 4,179 29-12-21, 10:56 AM
آخر رد: سعود
  [سؤال] محتاج حد يساعدني في مسئله حسن الجلب 0 669 28-12-21, 03:05 AM
آخر رد: حسن الجلب
  أريد أعرف كيفية ربط الكريستال ريبورت مع قاعدة بيانات من نوع MySQL alessam4pro 0 955 07-11-21, 06:01 PM
آخر رد: alessam4pro
  أريد معرفة ما ان كان البرنامج موجود مسبقا علي الكمبيوتر ام لا أبو عبدالله الحلواني 9 2,190 06-05-21, 08:10 PM
آخر رد: أبو عبدالله الحلواني
  [سؤال] ممكن حد يساعدني سويت الخطوات كلها كامله ومار رضوان الجماعي 0 1,091 22-03-21, 05:57 PM
آخر رد: رضوان الجماعي
  أريد كود يقوم بأضافة الاسم للـ TextBox or My.Settings تلقائياً بدل يدوياً ؟ PeterGhattas082460 1 1,198 07-02-21, 03:16 AM
آخر رد: ابراهيم ايبو
  [مثال] أريد حفظ البيانات بعد تحديثها mmaalmesry 3 1,270 01-02-21, 09:18 AM
آخر رد: mmaalmesry

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم