VB.NET怎么編程測試CPU電壓

'

創(chuàng)新互聯(lián)建站是一家專業(yè)從事成都做網(wǎng)站、成都網(wǎng)站制作、網(wǎng)頁設(shè)計的品牌網(wǎng)絡(luò)公司。如今是成都地區(qū)具影響力的網(wǎng)站設(shè)計公司,作為專業(yè)的成都網(wǎng)站建設(shè)公司,創(chuàng)新互聯(lián)建站依托強大的技術(shù)實力、以及多年的網(wǎng)站運營經(jīng)驗,為您提供專業(yè)的成都網(wǎng)站建設(shè)、營銷型網(wǎng)站建設(shè)及網(wǎng)站設(shè)計開發(fā)服務(wù)！

'！！！重要：首先要添加“引用”一個dll，選擇“System?Management”；

'

Imports?Microsoft.VisualBasic

Imports?System

Imports?System.Collections.Generic

Imports?System.ComponentModel

Imports?System.Data

Imports?System.Drawing

Imports?System.Text

Imports?System.Windows.Forms

Imports?System.Management

Imports?System.IO

Namespace?WindowsApplication1

Partial?Public?Class?Form1

Inherits?Form

Public?Sub?New()

InitializeComponent()

End?Sub

Private?Sub?button1_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取CPU編號

Dim?[MyClass]?As?New?ManagementClass("Win32_Processor")

Dim?MyCollection?As?ManagementObjectCollection?=?[MyClass].GetInstances()

Dim?MyInfo?As?String?=?"當前系統(tǒng)CPU編號是："

Dim?MyCPUID?As?String?=?""

For?Each?MyObject?As?ManagementObject?In?MyCollection

MyCPUID?=?MyObject.Properties("ProcessorId").Value.ToString()

Exit?For

Next?MyObject

MyInfo?=?MyCPUID

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button2_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機CPU的當前電壓

Dim?MyInfo?As?String?=?"計算機CPU的當前電壓是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

Try

MyInfo?=?ControlChars.Lf??String.Format("CurrentVoltage?:?"??MyObject("CurrentVoltage").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Catch

End?Try

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button3_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機CPU的外部頻率

Dim?MyInfo?As?String?=?"計算機CPU的外部頻率是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

Try

MyInfo?=?ControlChars.Lf??String.Format("ExtClock?:?"??MyObject("ExtClock").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Catch

End?Try

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button4_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機CPU的二級緩存

Dim?MyInfo?As?String?=?"計算機CPU的二級緩存尺寸是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

MyInfo?=?ControlChars.Lf??String.Format("L2CacheSize:?"??MyObject("L2CacheSize").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button5_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機CPU的制造商名稱

Dim?MyInfo?As?String?=?"計算機CPU的制造商名稱是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

MyInfo?=?ControlChars.Lf??String.Format("Manufacturer?:?"??MyObject("Manufacturer").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button6_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機CPU的產(chǎn)品名稱

Dim?MyInfo?As?String?=?"計算機CPU的產(chǎn)品名稱是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

MyInfo?=?ControlChars.Lf??String.Format("Name?:?"??MyObject("Name").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button7_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機CPU的版本信息

Dim?MyInfo?As?String?=?"計算機CPU的版本信息如下："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

MyInfo?=?ControlChars.Lf??String.Format("Version:?"??MyObject("Version").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button8_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機CPU的當前使用百分比?注意要把SQLserver或者其他耗CPU的軟件開著否則看不到效果就一直為0

Dim?MyInfo?As?String?=?"計算機CPU的當前使用百分比是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

MyInfo?=?ControlChars.Lf??String.Format("LoadPercentage?:?"??MyObject("LoadPercentage").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button9_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機CPU的最大時鐘頻率

Dim?MyInfo?As?String?=?"計算機CPU的最大時鐘頻率是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

MyInfo?=?ControlChars.Lf??String.Format("MaxClockSpeed?:?"??MyObject("MaxClockSpeed").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button10_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機CPU的當前時鐘頻率

Dim?MyInfo?As?String?=?"計算機CPU的當前時鐘頻率是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

MyInfo?=?ControlChars.Lf??String.Format("CurrentClockSpeed?:?"??MyObject("CurrentClockSpeed").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button11_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機的CPU地址寬度

Dim?MyInfo?As?String?=?"當前計算機的CPU地址寬度是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

MyInfo?=?ControlChars.Lf??String.Format("AddressWidth:?"??MyObject("AddressWidth").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

Private?Sub?button14_Click(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

'獲取計算機的CPU數(shù)據(jù)寬度

Dim?MyInfo?As?String?=?"當前計算機的CPU數(shù)據(jù)寬度是："

Dim?MySearcher?As?New?ManagementObjectSearcher("SELECT?*?FROM?Win32_Processor")

For?Each?MyObject?As?ManagementObject?In?MySearcher.Get()

MyInfo?=?ControlChars.Lf??String.Format("DataWidth?:?"??MyObject("DataWidth").ToString())

MyInfo?=?ControlChars.Lf??"========================================================="

Next?MyObject

MessageBox.Show(MyInfo,?"信息提示",?MessageBoxButtons.OK,?MessageBoxIcon.Information)

End?Sub

End?Class

服務(wù)器被攻擊導(dǎo)致sqlserver.exe占CPU90%網(wǎng)站打不開，是什么攻擊如何解決，謝謝

你可以試以下幾個方法同時用，效果會好些：

1、修改MSSQL的端口號；

2、修改復(fù)雜的SA密碼，如aKLFJD13aaK_1@這一類，黑客就無法爆破了；

3、打開WIN的自帶防火墻，僅開有用的80端口和遠程桌面（記住遠程桌面端口也改），別開21端口。

4、關(guān)閉PING功能。

用上面的方法可以大大提高你服務(wù)器的安全，其他的防火墻有一定的作用，但會占資源。

sqlserver2017換行符為unix(LF)的csv文件如何導(dǎo)入數(shù)據(jù)庫表

使用十六進制表示法來指定 LF 行終止符，即：ROWTERMINATOR = '0x0A'。

至于slq server為什么在CRLF的時候可以識別出\r\n，但是換到LF時只能識別16進制，我也沒搞懂，猜想可能跟文件編碼有關(guān)，但是沒有實際驗證。

如何從SQL Server遷移大批量數(shù)據(jù)到Oracle

第一步：從SQLSERVER中導(dǎo)出數(shù)據(jù)

在SQLSERVER數(shù)據(jù)庫上使用Import and Export Data工具

1.在choose a Data source頁

選取：

source= Microsoft OLE DB Porvider for Sql Server

server=local

database=icd_db_bill

{use Sql Server authentication}

user=sa

選擇下一步

2.在choose destination 頁中

選取destination為Text File

file name ="d:\backup\tbilllog1.txt"

選擇下一步

3. 選擇use a query to specify the data to transfer

選擇下一步

注：由于SQLSERVER導(dǎo)出時會將table_id作為一個域?qū)С觯鴒racle沒有（oracle 為rowid），所以必須選擇此項為use a query to specify the data to transfer而不是copy table(s) from source database

4.在Query Builder選項進入

選取tbilllog1,添加然后將table_id從列表中去掉

一直確認直到select Destination File Format頁面

5.選擇

file type =ansi （缺省）

row={cr}{lf} （缺省）

column=comma （缺省）

text= double quote{"} （缺省）

在comumn和text選項會影響到oracle的controlfile的設(shè)置

第二步：

oracle方面的設(shè)置

首先將tbilllog1.txt 拷貝到log1.ctl的目錄

提示：如果NT平臺可以先壓縮再傳送可以節(jié)省時間，到目的目錄再解開

controlfile example: log1.ctl

LOAD DATA

INITFILE 'tbilllog1.txt'

insert into table tbilllog1

fields terminated by ',' optionally enclosed by '"'

(

callid,

callidnum,

callerno,

calleeno,

waitbegin date "yyyy--mm-dd hh24:mi:ss",

waitend date "yyyy-mm-dd hh24:mi:ss",

ackbegin date "yyyy-mm-dd hh24:mi:ss",

ackend date "yyyy-mm-dd hh24:mi:ss",

...

)

*fields terminated by ','指明域由,分割，對應(yīng)到上面第5步的column=comma

*optionally enclose by '"'指明字符型數(shù)據(jù)有" "括起來，對應(yīng)到text=double quote{"}如果選擇text=none 不加此語句。

java數(shù)據(jù)庫連接問題

樓上的同志們,,,java連數(shù)據(jù)庫方式有3種,

你們所說的那種是純java驅(qū)動方式,無需配置數(shù)據(jù)源,但是要加特定的驅(qū)動包才可以

樓主用的連接方式JDBC-ODBC橋接方式,需要先配置數(shù)據(jù)源(雖然我不建議樓主使用這種方式,不便于移植,換個環(huán)境就要配置數(shù)據(jù)源先),jdk自帶驅(qū)動.

連接代碼沒寫錯

建議:

1:如果你會VB的話,可以用VB簡單測試一下數(shù)據(jù)源配置是否成功

2:將你的sql打印到控制臺,再復(fù)制到查詢分析器中去執(zhí)行看看 看sql是否拼錯

3:記得隨手關(guān)閉連接和結(jié)果集

報錯信息是sql異常 sql拼錯的可能性比較大

下面的程序我測試通過 你把表名和dsn名改成你自己的,再加上密碼就可以運行了

import java.sql.*;

public class Access {

public static void main(String args[]) {

Connection con;

Statement sql; // 聲明Statement對象

ResultSet rs;

try {

Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");

} catch (ClassNotFoundException e) {

System.out.println("" + e);

}

try {

con = DriverManager.getConnection("jdbc:odbc:MS Access Database", "", "");

sql = con.createStatement();

rs = sql.executeQuery("Select * FROM Mytable");

while (rs.next()) {

String colum1 = rs.getString(1); // 獲得數(shù)據(jù)庫第一列 System.out.println(colum1);

}

con.close();

} catch (SQLException el) {

System.out.println("" + el);

}

}

}

文章題目：LFsqlserver的簡單介紹
當前路徑：http://chinadenli.net/article26/dsioijg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供、App設(shè)計、動態(tài)網(wǎng)站、網(wǎng)站設(shè)計、網(wǎng)站排名、響應(yīng)式網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)