تقييم الموضوع :
  • 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 ) - ( ؛ أحمد ؛ ) شكراً جزيلاً
انا كل اسئلتي تكمن في اني عايز اعمل برنامج مفكرة ومنبه وبه خاصية اغلاق وعمل اشياء كثيرة في الويندوز مثل فتح برنامج معين بعد مده معين وهكذا شخصي لي , اكتب فيه الوقت والتاريخ ورسالة التنبية او العمل الذي سيقوم به فيفعله , بمعني اضع ملفات تنفيذيه قمت بانشائها عن طريق الفيجول او عن طريق اي لغة اخري مثل ملفات البات داخل مجلد , واقوم بستخدامها داخل البرنامج , يعني اقول له في الوقت الفلاني اليوم الفلاني افعل كذا مثلاً افتح برنامج كذا الساعة كذا عن طريق كتابتي لكود صغير في الفيجول او في البات يكون ملف تنفيذي خارجي خارج اطار البرنامج البرنامج ما إلا مستضيف للأوامر لكي ينفذها .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أريد أن أصنع برنامج يمثل الدوال أرجو المساعدة Bettayeb 4 402 20-10-16, 10:54 PM
آخر رد: Bettayeb
  أريد برنامج يقوم بتصميم جداول الاوقات المدرسية صبري زينوبي 6 304 21-09-16, 08:29 PM
آخر رد: محمد كريّم
Wink [Acces2010] أريد أسهل كود لعملية البحث esra 4 237 28-05-16, 03:45 PM
آخر رد: esra
  أريد ارسل ايميلات مع المرفقات بشكل تلقائى VB.net 2012 HERO92 4 238 12-04-16, 04:47 PM
آخر رد: HERO92
  [SQL] أريد استعلام يجمع بين حقلين من عمودين مختلفين في txbox biloo20 7 277 23-03-16, 01:57 AM
آخر رد: boudyonline
  [VB.NET] أريد كود لتشفير الأرقام mrnooo2000 3 273 21-02-16, 11:35 PM
آخر رد: سعود
  أريد طريقة للبحث عن طريق listbox1 superwoofer 6 306 04-02-16, 09:44 PM
آخر رد: superwoofer
  [VB.NET] أريد حل لمشكل في إضافة أداة vlc الى vb.net 2008 yassine002 0 146 02-02-16, 05:04 PM
آخر رد: yassine002
  [VB.NET] أريد كود vb.net 2008 لتشغيل ملف صوتي أو فيديو معين ب vlc ليشتغل في الفورم yassine002 0 206 22-01-16, 02:17 AM
آخر رد: yassine002
  أريد كود تحميل صورة من مجلد البرنامج ؟ Abdh111 2 390 26-11-15, 09:29 PM
آخر رد: Abdh111

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


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