الأكواد المتعلقه بنظام التشغيل ويندوز


1- تشغيل حافظه الشاشه ( screen saver ) :

كود:
Option Explicit
'قسم التصريحات العامه او موديول
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
'------------------------------
Private Sub Command1_Click()
Call SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0)
End Sub

2- معرفه أسم وعدد محركات الجهاز :
كود:
'قسم التصريحات العامه
Dim fs, d
Dim strDrives As String

Public Sub drive()
Set fs = CreateObject("scripting.filesystemobject")
For Each d In fs.drives
Select Case d.drivetype
Case 0
strDrives = strDrives & "Unknown " & d & vbCrLf
Case 1
strDrives = strDrives & "Removable " & d & vbCrLf
Case 2
strDrives = strDrives & "Fixed " & d & vbCrLf
Case 3
strDrives = strDrives & "Remote " & d & vbCrLf
Case 4
strDrives = strDrives & "Cdrom " & d & vbCrLf
Case 5
strDrives = strDrives & "Ramdisk " & d & vbCrLf
Text1.Text = strDrives
End Select
Text1.Text = strDrives
Next d
End Sub

'ضع هذا الكود في حدث تحميل الفورم Form load
Call drive

3- أظهار وأخفاء شريط المهام :
كود:
'قسم التصريحات العامه او موديول
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

'ضع زرين أمر

'لأخفاء شريط المهام
Private Sub Command1_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

'أظهار شريط المهام
Private Sub Command2_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

4- اخفاء و اظهار ايقونات سطح المكتب :
كود:
'ضع هذا الكود في قسم التصريحات العامه او موديول
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

' ضع زرين أمر علي الفورمه

'لإخفاء الأيقونات على سطح المكتب
Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 0
End Sub

'لإظهار الأيقونات على سطح المكتب
Private Sub Command2_Click()
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hwnd, 5
End Sub

5- نسخ صوره سطح المكتب الى واجهه الفورمه :

كود:
'ضع هذا الكود في قسم التصريحات العامه او موديول
Private Declare Function PaintDesktop Lib "user32" _
(ByVal hdc As Long) As Long

'قم بوضع زر أمر علي الفورمه
Private Sub Command1_Click()
PaintDesktop Form1.hdc
End Sub

6- افراغ سلة المحذوفات:
كود:
'ضع هذا الكود في قسم الاجراءات العامه او موديول
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, _
ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long


Private Sub Form_Load()
'الإفراغ
SHEmptyRecycleBin Me.hwnd, vbNullString, 0
'التحديث
SHUpdateRecycleBinIcon
End Sub
7- اخفاء و اظهار زر ابدأ :
كود:
'ضع هذا الكود فى قسم الأجراءات العامه او موديول
Public OurParent&, OurHandle&
Const SW_SHOWNORMAL = 1
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0


Public Function hideStartButton()
'This Function Hides the Start Button'
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", _
vbNullString)
ShowWindow OurHandle&, SW_HIDE
End Function

Public Function showStartButton()
'This Function Shows the Start Button'
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", _
vbNullString)

ShowWindow OurHandle&, SW_SHOWNORMAL
End Function

'ضع زرين امر علي الفورمه

'زر الأخفاء
Private Sub Command1_Click()
hideStartButton
End Sub

زر الأظهار
Private Sub Command2_Click()
showStartButton
End Sub

8- تجميد البرنامج لفتره :
كود:
'قسم التصريحات العامه او موديول
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Sleep 7000
End Sub

9- معرفة الوقت الذي مضي علي تشغيل الويندوز :

كود:
'قسم التصريحات العامه او موديول
Private Declare Function GetTickCount Lib "Kernel32" () As Long

Private Sub Command1_Click()
Print Format(GetTickCount / 10000 / 6, "0")
End Sub

10- التحكم في رفع و خفض الصوت :
كود:
'قسم الاجراءات العامه او الموديول
Private Declare Function waveOutSetVolume Lib "Winmm.dll" _
(ByVal DevID As Integer, ByVal Vol As Long) As Long

Sub SetVol(Volume As Long)
Dim Vol&
Vol = CLng("&H" & Hex(Volume + 65536))
waveOutSetVolume 0, Vol
End Sub
Private Sub Command1_Click()
SetVol Text1.Text
End Sub

Private Sub Form_Load()
'ضع رقم بين صفر و 65536
Text1.Text = "444"
End Sub

11- فتح Control panel :

كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus)
End Sub

12- عرض Accessibility Properties :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl", vbNormalFocus)
End Sub

13- عرض Add/Remove Programs :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)
End Sub

14- عرض Display Settings (Background)
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)
End Sub

15- عرض Display Settings :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)
End Sub

16- عرض Display Settings (Appearan :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)
End Sub

17- عرض Display Settings (Settings) :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)
End Sub

18- عرض Internet Properties :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", vbNormalFocus)
End Sub

19- عرض Regional Settings :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus)
End Sub

20- عرض Joystick Settings :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)
End Sub

21- عرض Mouse Settings :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)
End Sub

22- عرض Keyboard Settings :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)
End Sub

23- عرض الطابعه :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)
End Sub

24- عرض الخطوط :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)
End Sub

25- عرض Multimedia Settings :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", vbNormalFocus)
End Sub

26- عرض خواص المودم :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)
End Sub

27- عرض Dial-Up Networking Wizard :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus)
End Sub

28- عرض خواص السيستم :
كود:
Private Sub Command1_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus)
End Sub

29- عرض Add New Hardware' Wizar :
كود:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)

30- عرض Add New Printer' Wizard (o :
كود:
Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus)

31- عرض Themes Settings :
كود:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL themes.cpl", vbNormalFocus)

32- عرض Time/Date Settings :
كود:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)

مع تحيات www.3rb-hk.com (http://www.3rb-hk.com)

تسلم

مشكور أخوي

مشكوور اخوي


تحياتي

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

شكرا لك اخي الكريم