نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

MsgBox("Screen Resolution: " + Cstr(My.Computer.Screen.WorkingArea.Width) + " * " + Cstr(My.Computer.Screen.WorkingArea.Height))

[ravegoat]

My.Computer.Audio.Play("File Path")

به جای عبارت File Path، مسیر فایل صوتی را داخل نقل قول قرار دهید.

[ravegoat]

ابتدا مرجع 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

منبع: http://www.devasp.net

[ravegoat]

 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)

[ravegoat]

ابتدا کد (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)

[ravegoat]

MsgBox(System.Windows.Forms.SystemInformation.BootMode.ToString)

[ravegoat]

كد زير مسيري را كه فايل .exe در حال حاضر از آن جا اجرا مي شود را با جعبه ي متني نمايش مي دهد:

MsgBox(Application.StartupPath)

كد زير علاوه بر مسير اجراي، نام فايل اجرايي را نيز نمايش مي دهد:

MsgBox(Application.ExecutablePath)

[ravegoat]

'مقدار فضاي مصرف شده رم
        MsgBox((My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) \ 1024 ^ 2)
'مقدار فضاي آزاد رم
        MsgBox(My.Computer.Info.AvailablePhysicalMemory \ 1024 ^ 2)

[ravegoat]

اگر برنامه ی شما شامل چندین فرم است، با این کد می توانید عنوان پنجره هایی از برنامه که بارگذاری شده اند را در قالب یک جعبه ی متنی مشاهده کنید:

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

[ravegoat]

هر بار كه اين كد اجرا شود يك عدد بين 1 تا 6 -اعداد تاس- را به طور تصادفي با جبعه متني نمايش مي دهد:

Dim diceno As New Random
MsgBox(diceno.Next(1, 6), 64, "Dice")