Cómo programar para probar el voltaje de la CPU en VB.NET
'! ! ! Importante: Primero agregue una "referencia" a una dll, seleccione "Sistema?Administración";
'
Importaciones?Microsoft.VisualBasic
Importaciones?Sistema
p>¿Importaciones?System.Collections.Generic
Importaciones?System.ComponentModel
Importaciones?System.Data
Importaciones?System. Dibujo
Importaciones?System.Text
Importaciones?System.Windows.Forms
Importaciones?System.Management
Importaciones?System. IO
¿Espacio de nombres?WindowsApplication1
¿Parcial?Público?Clase?Form1
¿Hereda?Formulario
Público?Sub?Nuevo()
InitializeComponent()
Fin?Sub
Privado?Sub?button1_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)
'Obtener número de CPU
¿Dim?[MyClass]?As?New?ManagementClass("Win32_Processor")
¿Dim?MyCollection?As?ManagementObjectCollection?=? [MyClass] .GetInstances()
Dim?MyInfo?As?String?=?"El número de CPU actual del sistema es: "
Dim?MyCPUID?As?String?=? ""
p>Para?Cada?MiObjeto?Como?ManagementObject?En?MiColección
MiCPUID?=?MyObject.Properties("ProcessorId").Value.ToString()
¿Salir?Para
Siguiente?MiObjeto
MiInfo?amp;=?MiCPUID
MessageBox.Show(MiInfo,?"Mensaje ",?MessageBoxButtons.OK ,?MessageBoxIcon.Information)
Fin?Sub
Privado?Sub?button2_Click(ByVal?Sender?As?Object,?ByVal?e?As? EventArgs)
'Obtener el voltaje actual de la CPU de la computadora
Dim?MyInfo?As?String?=?"El voltaje actual de la CPU de la computadora es:"
¿Atenuar?MySearcher?As?New ?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")
Para?Cada?MyO
bject?As?ManagementObject?In?MySearcher.Get()
Probar
MyInfo?amp;=?ControlChars.Lf?amp;?String.Format("CurrentVoltage?:? "?amp;?MyObject("CurrentVoltage").ToString())
MyInfo?amp;=?ControlChars.Lf?amp;?"============== = ============================================="
Captura
Fin?Intentar
Siguiente?MiObjeto
MessageBox.Show(MyInfo,?"Mensaje emergente",?MessageBoxButtons.OK,?MessageBoxIcon . Información)
Fin?Sub
Privado?Sub?button3_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)
' Obtener la frecuencia externa de la CPU de la computadora
Dim?MyInfo?As?String?=?"La frecuencia externa de la CPU de la computadora es: "
Dim?MySearcher?As? New?ManagementObjectSearcher(" SELECT?*?FROM?Win32_Processor")
Para?Cada?MyObject?As?ManagementObject?In?MySearcher.Get()
Probar
¿Mi información? amp;=?ControlChars.Lf?amp;?String.Format("ExtClock?:?"?amp;?MyObject("ExtClock").ToString())
¿Mi información? amp;=?ControlChars .Lf?amp;?"======================================== ====== =============="
Captura
¿Fin? Intentar
¿Siguiente?MiObjeto
MessageBox.Show(MyInfo,?"Mensaje emergente",?MessageBoxButtons.OK,?MessageBoxIcon.Information)
Fin?Sub
Privado?Sub?button4_Click (ByVal?sender?As ?Object,?ByVal?e?As?EventArgs)
'Obtener el caché de segundo nivel de la CPU de la computadora
Dim?MyInfo?As?String ?=?"El caché de segundo nivel de la CPU de la computadora. El tamaño del caché es: "
Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")
¿Para?Cada?MiObjeto?¿Como?Objeto de Gestión?En ?MiBuscador.Get()
MiInfo?amp;=?Contr
olChars.Lf?amp;?String.Format("L2CacheSize:?"?amp;?MyObject("L2CacheSize").ToString())
MyInfo?amp;=?ControlChars.Lf?amp; ?"================================================== ========="
¿Siguiente?MiObjeto
MessageBox.Show(MyInfo,?"Mensaje emergente",?MessageBoxButtons.OK,?MessageBoxIcon.Information)
Fin?Sub
Privado?Sub?button5_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)
'Obtener la computadora CPU El nombre del fabricante de la CPU de la computadora
Dim?MyInfo?As?String?=?"El nombre del fabricante de la CPU de la computadora es:"
Dim?MySearcher?As?New ?ManagementObjectSearcher("SELECT ?*?FROM?Win32_Processor")
Para?Each?MyObject?As?ManagementObject?In?MySearcher.Get()
MyInfo?amp;=? ControlChars.Lf?amp ;?String.Format("Fabricante?:?"?amp;?MyObject("Fabricante").ToString())
MyInfo?amp;=?ControlChars.Lf?amp ;?"== =============================================== ===== ====="
Siguiente?MiObjeto
MessageBox.Show(MiInformación,?"Mensaje emergente",?MessageBoxButtons.OK,?MessageBoxIcon.Información)
Fin?Sub
Privado?Sub?button6_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)
'Obtener el nombre de producto de la CPU de la computadora
Dim?MyInfo?As?String?=?"El nombre de producto de la CPU de la computadora es:"
Dim?MySearcher?As?New?ManagementObjectSearcher ("SELECT?*?FROM?Win32_Processor ")
Para?Cada?MiObjeto?As?ManagementObject?In?MySearcher.Get()
MiInfo?amp;=?ControlChars. Lf?amp;?String.Format( "Nombre?:?"?amp;?MyObject("Name").ToString())
MyInfo?amp;=?ControlChars.Lf?amp;? "======== ==================
==============================="
¿Siguiente?MiObjeto
Cuadro de mensajes .Show(MyInfo,?"Mensaje de mensaje",?MessageBoxButtons.OK,?MessageBoxIcon.Information)
Fin?Sub
Privado?Sub?button7_Click(ByVal?remitente?As? Object,?ByVal?e?As?EventArgs)
'Obtener la información de la versión de la CPU de la computadora
Dim?MyInfo?As?String?=?"La información de la versión del La CPU de la computadora es la siguiente: "
Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")
For?Each?MyObject?As?ManagementObject ?In?MySearcher.Get ()
MyInfo?amp;=?ControlChars.Lf?amp;?String.Format("Versión:?"?amp;?MyObject("Versión").ToString( ))
MyInfo?amp;=?ControlChars.Lf?amp;?"============================ ======= ========================"
¿Siguiente?MiObjeto
Cuadro de mensajes .Show(MyInfo,?" Mensaje de información",?MessageBoxButtons.OK,?MessageBoxIcon.Information)
Fin?Sub
Privado?Sub?button8_Click(ByVal?sender?As? Object,?ByVal?e? As?EventArgs)
'¿Obtener el porcentaje de uso actual de la CPU de la computadora? Tenga cuidado al encender SQLserver u otro software que consuma CPU, de lo contrario no verá el efecto y siempre será 0
Dim?MyInfo?As?String?=?"El porcentaje de uso actual de la CPU de la computadora es:"
Dim?MySearcher?As?New?ManagementObjectSearcher ("SELECT?*?FROM?Win32_Processor")
Para?Cada?MyObject?As?ManagementObject?In?MySearcher.Get()
MyInfo?amp;=?ControlChars. Lf?amp;?String.Format("LoadPercentage?:?"? amp;?MyObject("LoadPercentage").ToString())
MyInfo?amp;=?ControlChars.Lf?amp;? "================ =================================== ========="
¿Siguiente?MiObjeto
MessageBox.Show(MyInfo,?"Mensaje emergente",?MessageBox
Botones.OK,?MessageBoxIcon.Information)
Fin?Sub
Privado?Sub?button9_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)
'Obtener la frecuencia de reloj máxima de la CPU de la computadora
Dim?MyInfo?As?String?=?"La frecuencia de reloj máxima de la CPU de la computadora es:"
¿Atenuar? MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")
Para?Cada?MyObject?As?ManagementObject?In?MySearcher.Get()
Mi Información ?amp;=?ControlChars.Lf?amp;?String.Format("MaxClockSpeed?:?"?amp;?MyObject("MaxClockSpeed").ToString())
¿Mi Información? amp;=? ControlChars.Lf?"========================================= = ==============="
Siguiente?MiObjeto
MessageBox.Show(MiInformación,?"Mensaje emergente",?MessageBoxButtons.OK , ?MessageBoxIcon.Information)
Fin?Sub
Privado?Sub?button10_Click(ByVal?sender?As?Object, ?ByVal?e?As?EventArgs)
'Obtener la frecuencia de reloj actual de la CPU de la computadora
Dim?MyInfo?As?String?=?"La frecuencia de reloj actual de la CPU de la computadora es:"
Dim ?MySearcher?As? New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")
Para?Cada?MyObject?As?ManagementObject?In?MySearcher.Get()
MyInfo?amp;= ?ControlChars.Lf?amp;?String.Format("CurrentClockSpeed?:?"?amp;?MyObject("CurrentClockSpeed").ToString())
MyInfo?amp;= ?ControlChars.Lf? &?"========================================== ==== ==========="
Siguiente?MiObjeto
MessageBox.Show(MiInformación,?"Mensaje emergente",?MessageBoxButtons.OK, ?MessageBoxIcon.Information )
Fin?Sub
Privado?Sub?button11_Click(ByVal?sender?As?Object,?ByVal?e?
As?EventArgs)
'Obtener el ancho de la dirección de CPU de la computadora
Dim?MyInfo?As?String?=?"El ancho de la dirección de CPU de la computadora actual es:"
¿Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")
Para?Cada?MyObject?As?ManagementObject?In?MySearcher.Get()
MyInfo?amp;=?ControlChars.Lf?amp;?String.Format("AddressWidth:?"?amp;?MyObject("AddressWidth").ToString())
MyInfo ?amp ;=?ControlChars.Lf?amp;?"======================================= ===== =================="
Siguiente?MiObjeto
MessageBox.Show(MiInfo,?"Mensaje Prompt",?MessageBoxButtons .OK,?MessageBoxIcon.Information)
Fin?Sub
Privado?Sub?button14_Click(ByVal?sender?As?Object,?ByVal?e?As ?EventArgs)
'Obtener el ancho de datos de la CPU de la computadora
Dim?MyInfo?As?String?=?"El ancho de datos de la CPU de la computadora actual es: "
¿Atenuar?MiBuscador?Como?Nuevo?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")
Para?Cada?MiObjeto?Como?ManagementObject?In?MySearcher.Get()
MyInfo?amp ;=?ControlChars.Lf?amp;?String.Format("DataWidth?:?"?amp;?MyObject("DataWidth").ToString())
MyInfo?amp ;=?ControlChars?amp;?"=======================================. ===== ============="
Siguiente?MiObjeto
MessageBox.Show(MiInformación,?"Mensaje emergente",?MessageBoxButtons .OK,?MessageBoxIcon .Información)
Fin?Sub
Fin?Clase