کد:My.Computer.Audio.Play("File Path")به جای عبارت File Path، مسیر فایل صوتی را داخل نقل قول قرار دهید.
ابتدا مرجع System.Management را به پروژه خودتان اضافه کنید. برای این کار به منوی Project رفته و گزینه ی Add Refrence را انتخاب کنید سپس در پنجره ی جدید باز شده مرجع System.Management را انتخاب و آن را به برنامه اضافه کنید.
سپس کد زیر را در خارج Public Class فرم برنامه قرار دهید:
اکنون از کد زیر استفاده کنید:کد:Imports System.Management
منبع: http://www.devasp.netکد: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)
آخرین ویرایش توسط ravegoat در تاریخ 30-01-09 انجام شده است
كد زير مسيري را كه فايل .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")
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks