کد:
MsgBox("Screen Resolution: " + Cstr(My.Computer.Screen.WorkingArea.Width) + " * " + Cstr(My.Computer.Screen.WorkingArea.Height))
Printable View
کد:
MsgBox("Screen Resolution: " + Cstr(My.Computer.Screen.WorkingArea.Width) + " * " + Cstr(My.Computer.Screen.WorkingArea.Height))
کد:
My.Computer.Audio.Play("File Path")
به جای عبارت File Path، مسیر فایل صوتی را داخل نقل قول قرار دهید.
ابتدا مرجع System.Management را به پروژه خودتان اضافه کنید. برای این کار به منوی Project رفته و گزینه ی Add Refrence را انتخاب کنید سپس در پنجره ی جدید باز شده مرجع System.Management را انتخاب و آن را به برنامه اضافه کنید.
سپس کد زیر را در خارج Public Class فرم برنامه قرار دهید:
اکنون از کد زیر استفاده کنید:کد:
Imports System.Management
منبع: برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]کد:
Dim objMOS As ManagementObjectSearcher
Dim objMOC As Management.ManagementObjectCollection
Dim objMO As Management.ManagementObject
objMOS = New ManagementObjectSearcher("Select * From Win32_Processor")
objMOC = objMOS.Get
For Each objMO In objMOC
MessageBox.Show("CPU ID = " & objMO("ProcessorID"))
Next
objMOS.Dispose()
objMOS = Nothing
objMO.Dispose()
objMO = Nothing
کد:
Dim cpuinfo(3) As String
cpuinfo(0) = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", "")
cpuinfo(1) = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "Identifier", "")
cpuinfo(2) = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "VendorIdentifier", "")
cpuinfo(3) = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz", "")
MsgBox("CPU Name: " + cpuinfo(0) + Chr(13) + "Identifier (Model): " + cpuinfo(1) + Chr(13) + "Vendor ID (Manufacture): " + cpuinfo(2) + Chr(13) + "CPU Frequency: " + cpuinfo(3) + " MHz", 64)
ابتدا کد (API) زیر را در Public Class فرم برنامه قرار دهید:
سپس از فرمان زیر استفاده کنید:کد:
Private Declare Function MonTurnOff Lib "user32" Alias "SendMessageA"(ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
کد:
MonTurnOff(Me.Handle.ToInt32, &H112s, &HF170, 2)
کد:
MsgBox(System.Windows.Forms.SystemInformation.BootMode.ToString)
كد زير مسيري را كه فايل .exe در حال حاضر از آن جا اجرا مي شود را با جعبه ي متني نمايش مي دهد:
كد زير علاوه بر مسير اجراي، نام فايل اجرايي را نيز نمايش مي دهد:کد:
MsgBox(Application.StartupPath)
کد:
MsgBox(Application.ExecutablePath)
کد:
'مقدار فضاي مصرف شده رمMsgBox((My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) \ 1024 ^ 2)
'مقدار فضاي آزاد رم
MsgBox(My.Computer.Info.AvailablePhysicalMemory \ 1024 ^ 2)
اگر برنامه ی شما شامل چندین فرم است، با این کد می توانید عنوان پنجره هایی از برنامه که بارگذاری شده اند را در قالب یک جعبه ی متنی مشاهده کنید:
کد:
Dim openfrmtle As String
For Each appform As Form In Application.OpenForms
openfrmtle += Chr(13) + appform.Text
MsgBox(openfrmtle, 64, "Open Form(s) : " + CStr(Application.OpenForms.Count))
Next
هر بار كه اين كد اجرا شود يك عدد بين 1 تا 6 -اعداد تاس- را به طور تصادفي با جبعه متني نمايش مي دهد:
کد:
Dim diceno As New Random
MsgBox(diceno.Next(1, 6), 64, "Dice")