VB獲取電腦機器碼

很難達到你的要求的,VB好像是獲取不到硬盤的物理序列號的,只能獲取到某一個分區的序列號.不過可以調用其它的程序寫的獲取硬盤物理序列號的dll來獲取,CPU的序列號我用的是wmi.VB本來對底層方面就不是很好

創新互聯公司于2013年成立，是專業互聯網技術服務公司，擁有項目成都網站制作、成都網站設計網站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元師宗做網站,已為上家服務,為師宗各地企業和個人服務,聯系電話:18982081108

引用api獲得硬盤序列號

Private Declare Function MymachineC Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Form_Load()

Dim AA, 硬盤序列號, Maxlen, Sysflag As Long: Dim VolName, FsysName As String

AA = MymachineC("c:\", VolName, 256, 硬盤序列號, Maxlen, Sysflag, FsysName, 256)

msgbox "C硬盤序列號-機器碼啦-(16制): " Hex(硬盤序列號)

End Sub

Visual Basic .NET的編譯

.NET語言，包括VB.NET，它們所開發的程序源代碼并不是直接編譯成能夠直接在操作系統上執行的二進制本地代碼，而是被編譯成為中間代碼，然后通過.NET Framework的通用語言運行時（CLR）——執行。　所有的.Net編程語言都被編譯成這種被稱為MSIL（Microsoft Intermediate Language ）的中間代碼，這與Java的字節碼類似。因此雖然最終的程序在表面上仍然與傳統意義上的可執行文件都具有“.exe”的后綴名。但是實際上，如果計算機上沒有安裝.Net Framework，那么這些程序將不能夠被執行。在程序執行時，.Net Framework將中間代碼翻譯成為二進制機器碼，從而使它得到正確的運行。最終的二進制代碼被存儲在一個緩沖區中。所以一旦程序使用了相同的代碼，那么將會調用緩沖區中的版本。這樣如果一個.Net程序第二次被運行，那么這種翻譯不需要進行第二次，速度會明顯加快。

VB.NET代碼之所以不直接編譯成二進制機器碼，是基于.NET跨平臺這一目標的考慮。 Visual Basic .NET 2002

2002年Visual Basic .NET 問世，此后Visual Basic 包含在 Visual Studio套裝中。該版本又被稱為VB 7.0，是與C#一起在2002年發布的最初始的VB點虐 版本。C#是一門新設計.Net語言并且語法上和Java有一定的相似性，所以被大力宣傳為微軟對付JAVA的王牌，受到媒體極力關注。然而VB.NET則相反被錯誤地認為僅僅是VB的一個升級(故有時被稱為VB7)，它的受關注度也因此較低，當然VB社區以及喜歡Basic系列風格的語言的人還是很關注它的。那些試用過此版VB.NET的人在層層幕布下發現一個強大卻艱深的語言。不過任何一種語言都是有弱點的，當然后面這一點也是.NET語言的共性，那就是運行的計算機上必須裝相應版本的.Net framework。

Visual Basic .NET 2003

該版本是和.NET Framework 1.1一起發布的。新功能包括對.NET Compact Framework的支持和更好的VB升遷向導。并改進了運行狀況，IDE穩定性(尤其是后臺編譯器)，以及運行時RunTime穩定性。另外，VB.NET2003還有一個學院版Visual Studio .NET 2003 Academic Edition (VS03AE)，它是分發給各國某些學者免費使用的版本。

Visual Basic .NET 2005

該版本是VB.Net的重大轉變。但是這個版本的 Visual Studio 仍然還是面向 .NET 框架的（版本2.0）。它同時也能開發跨平臺的應用程序，如開發使用微軟操作系統的手機的程序等。總體來說是一個非常龐大的軟件，甚至包含代碼測試功能。

Visual Basic .NET 2008

Visual Basic 2008于2008年2月1日發布。通過幾年的發展，它已成為一種專業化的開發語言和環境。用戶可用 Visual Basic 快速創建 Windows 程序，現在還可以編寫企業水平的客戶/服務器程序及強大的數據庫應用程序。

Visual Studio 2010

Visual Studio 2010于2010年4月12日上市，其中包含 Visual Basic .NET 2010 。Visual Studio是微軟公司推出的開發環境。是目前最流行的Windows平臺應用程序開發環境。Visual Studio 2010集成開發環境（IDE）的界面被重新設計和組織，變得更加簡單明了。Visual Studio 2010同時帶來了 NET Framework 4.0、Microsoft Visual Studio 2010 CTP( Community Technology Preview--CTP)，并且支持開發面向Windows 7的應用程序。除了Microsoft SQL Server，它還支持 IBM DB2和Oracle數據庫等。

Visual Studio 2012

從該版本開始VB.NET已沒有單獨發售的IDE了，微軟給Visual Basic .NET 以及C#開發者的IDE就只有Visual Studio 了。該版本增加了modern（原metro）風格的支持等眾多新特性。

Visual Studio 2015

增加了大量新特性，提升你的編寫效率。對編譯器和開發環境優化，提高編譯速度，幫你重構代碼和解決錯誤。最明顯的14項改進見參考資料的14 Top Improvements in Visual Basic 14。 不能簡單認為VB 點虐 是VB的新版本。首先它們一個是完全面向對象的語言，而另一個不是完全面向對象的，其次VB .NET是構建于.Net framework之上的。當然，它們同屬Basic系列語言，又同為微軟所開發，語法上有一定的相似或沿襲是很正常的，但不能因此認為VB .NET是VB的升級版。

對于想從VB轉到VB .NET的開發者來說，如果你只是喜歡Basic系列語言的代碼風格，那么你的遷移會很順利，如果你想沿襲之前VB的編程思想和習慣，你會很苦惱，原因之一就是VB .NET貫穿的是完全面向對象的思想，而VB不是。

微軟為使VB開發者更容易轉到VB .NET，兼容一些VB6函數和庫的用法，但是比不上.NET語言中自帶的可替換的函數和庫來得高效，所以我們應該盡量使用.NET下的新方法。微軟還提供了VB到VB .NET的自動轉換器，雖幾經改進，但仍無法轉換全部代碼，幾乎所有非小型程序都需要人工修改以完成編譯。為了運行優化，大多程序需要大量工作去重構。

爭議與解釋：許多資深的VB程序員抱怨VB .NET，因為VB .NET丟掉了許多不再發行的VB6中使用的大量語言constructs和用戶界面功能，并且對保留下來的東西也改變了語意。其實不應該再把VB和VB .NET做功能上的比較，因為它們除了有些語法相似外，可以說是完全不同的兩種語言。

Visual Basic .NET與VB都代表了Basic系列語言的編碼風格，Visual Basic .NET是這種編碼風格在.NET平臺上的繼承，而不是同系列語言VB的沿襲。

語言革命

* 1991年4月，Visual Basic誕生，Visual Basic 1.0 Windows版本發布。這個連接編程語言和用戶界面的進步被稱為Tripod（有些時候叫做Ruby），最初的設計是由阿蘭·庫珀（Alan Cooper）完成的。 1992年9月，Visual Basic 1.0 DOS版本發布。

* 1998年夏天，VB6.0發布。

* 2001年，Visual Basic .NET和.NET Framework發布。Visual Basic .NET正式誕生。

* 2005年，微軟宣布將不會再對非.NET版本的VB進行支持。

*2010年，Visual Basic .NET隨Visual Studio 2010發布，不再提供單獨的Visual Basic .NET IDE。 MONO開發平臺提供了一個VB.NET特性庫(VB.NET-specific libraries)并著手研發一個編譯器和Windows Forms GUI 庫。由于各方面的原因，VB.NET開發的開源工具較C#發展得慢一些。

VB.NET中的動態代碼生成技巧

本文的討論也將著眼于這兩種情況 首先是當程序員需要動態建立一個控件并將代碼附著于控件之上時 例如 你或許想創建一個鏈接列表 但是不知道需要創建鏈接的數量或是鏈接中會出現什么樣的數據 第二種是當程序員需要定義代碼以反映出特殊需求的時候 例如 你或許要執行能反映用戶系統配置的代碼

類似上述的情況當然不會每天都上演 事實上 它們只在非常情況下才出現 然而 作為程序員 仍然要意識到 NET為解決動態情形提供了方案 有了正確的技巧 你就可以寫出能靈活處理動態情況的應用程序了

使用動態控件

許多程序員總會遇到需要動態創建控件的時候 我們所展示的例子中程序員向FlowLayoutPanel中添加了LinkLabels 或許你可以個這樣的設置來記錄和保存常用的URL 文件 網絡地址或是其他資源所在位置的數值 這一示例沒有真正保存鏈接 但是你可以使用XML序列化功能來實現保存

每次當用戶點擊Test按鈕時 示例代碼就會動態創建一個新的LinkLabel控件 真正的演示代碼并不復雜 例一就展示了創建這類控件以及將控件放入FlowLayoutPanel lstLabel中通常所需要做的一切

例一 向FlowLayoutPanel中添加新的鏈接 ?Private　Sub　btnTest_Click()　Handles　btnTest Click　 　Create　a　link 　Dim　NewLink　As　LinkLabel　=New　LinkLabel()　 　Add　some　properties　to　it 　NewLink Text　=　DateTime Now　 ToLongTimeString()　 　Set　the　click　event　handler 　AddHandler　NewLink Click 　AddressOf　NewLink_Click　 　Place　the　button　on　the　form 　lstLinks Controls Add(NewLink)　End　Sub

如你所料 該代碼開始的時候創建了一個新的LinkLabel并為其賦予了一些值 這一示例使用的是當前時間 你的代碼或許能夠對某一真實資源進行訪問

請注意該代碼也向鏈接的Click事件中指定了一個處理程序 你必須使用示例中的AddHandler技巧 因為普通的Handles關鍵詞路徑不起作用 一方面 設計應用程序的時候你并不清楚控件的名稱 即便你為控件指定了一個名稱 你也不知道用戶要創建的控件數量 所以我們沒有辦法清楚會有多少處理程序會被創建 處理程序的代碼與控件代碼類似 因此沒有必要創建多個處理程序 用于這個示例的處理代碼見例二 例二 處理動態控件點擊事件 ?Private　Sub　NewLink_Click(　_　ByVal　sender　As　System Object 　ByVal　e　As　System EventArgs) 　Verify　that　you　actually　have　a　LinkLabelIf　Not　sender GetType()　Is　GetType(LinkLabel)　ThenMessageBox Show( Wrong　control　type　provided! )ReturnEnd　If 　Convert　the　input　sender　to　a　Button Dim　ThisLink　As　LinkLabel　=　sender　 　Show　that　we　have　the　correct　button MessageBox Show( You　created　this　link　at:　 　+　ThisLink Text)End　Sub　

你可能已經注意到例一中的事件處理器使用的是寬松代表——它沒有將ByVal發送器作為System Object 也沒有將ByVal e作為System EventArgs作為參數因為它不需要這二者 然而 當你創建一個事件處理器來動態創建控件時 通常你需要將ByVal發送器作為System Object參數 這意味著將這兩者都包含其中

有些程序員在創建事件處理器的時候會出現一個錯誤 即沒有檢查傳入控件的類型 發送器對象可能包含多選擇 而如果未對事件處理器進行事件處理類型的設置 那么你就會面臨更多的選擇 我們的示例代碼一開始就檢查了傳入控件對象的類型 這樣以來發送器就不會像下面所展示的代碼一樣 ?Private　Sub　btnTest _Click()　Handles　btnTest Click　 　Create　a　link Dim　NewButton　As　Button　=　New　Button() 　Add　some　properties　to　it NewButton Text　=　DateTime Now ToLongTimeString() 　Set　the　click　event　handler AddHandler　NewButton Click 　AddressOf　NewLink_Click 　Place　the　button　on　the　form lstLinks Controls Add(NewButton)End　Sub　

此代碼在FlowLayoutPanel中創建了一個按鈕 大多數情況下這都能正常運行 除非事件處理器不按照按鈕所示的進行操作 如果你打算服務多個控件類型 那么每個控件類型都需要一個獨特的處理 你可以使用多事件處理器或者為某些類型提供選擇標準

NewLink_Click（）事件處理器照常將傳入發送器轉換成指定類型 在這個示例中則是LinkLabel 該代碼可以訪問LinkLabel屬性并能用其他方式進行互動 在我們的示例中 只顯示了一個能在創建鏈接的時候告知我們的對話框

使用動態代碼

在運行時創建一個控件是在無法確定應用程序功能的時候采取的一種策略 但是動態創建控件并不適用于所有的情況 有些時候你必須建立可執行代碼 雖然你的應用程序運行的目的是補償不同極其之間的配置 不同用戶的需求 不同的環境需求或是其他要求 當應用程序所運行的電腦不存在控件 那么通常是需要創建動態代碼的

幸運的是 NET為我們提供了一系列動態代碼選項 例如 你可以創建一個可執行的能獨立運行的程序或是可以想運行中的程序加載一個DLL然后再執行 當你需要演示一個外部任務的時候可以使用選擇可執行 如運行一種腳本——該DLL選項最適合擴大現有的應用程序功能

你可以運行來自文件或內存的動態代碼 當你需要不止一次地運行代碼時 可以使用文件 對代碼的檢查可以再次運行外部文件而不需要對其進行二次編譯 當你需要多次演示任務的時候 如一個安裝請求 那可以使用內存圖像

當然我們也可以更改源代碼 例如 你可以使用字符串來建立需要在應用程序中直接使用的代碼 如果你需要代碼具有高度靈活性 且代碼本身不是很長時 這一方法的優勢就非常顯著 也可以從文件里建立代碼 就如同VS一樣 這一方法最適用于相對穩定且不需要復雜編碼的需求 第三種選擇是使用Documentation Object Model來創建代碼并將其作為CodeDom樹型結構的一個系列 該樹型結構包括了CodeCormpileUnits 這就像是用DOM模式創建了一個XML文件

使用動態創建代碼的最好方式是用示例來檢查一下 例三展示了一個基本 Hello World 示例 該示例用源代碼直接創建了代碼因此你可以看到整個運行以及生成一個外部可執行文件的過程

例三 動態編碼示例 ?Private　Sub　btnTest _Click()　Handles　btnTest Click　 　Create　a　piler Dim　Comp　As　VBCodeProvider　=　New　VBCodeProvider() 　Define　the　parameters　for　the　code　you　want　to　pile Dim　Parms　As　CompilerParameters　=　New　CompilerParameters)　 　We　do　want　to　create　an　executable 　rather　than　a　DLL Parms GenerateExecutable　=　True　 　The　piler　will　create　an　output　assembly　called　Output Parms OutputAssembly　=　 Output 　 　The　piler　won t　treat　warnings　as　errors Parms TreatWarningsAsErrors　=　False　 　Add　any　assembly　you　want　to　reference Parms ReferencedAssemblies Add( System Windows Forms dll )　 　Define　the　code　you　want　to　run 　Dim　SampleCode　As　StringBuilder　=　New　StringBuilder()　SampleCode Append( Imports　System Windows Forms 　+　vbCrLf)　SampleCode Append( Module　TestAssembly 　+　vbCrLf)　SampleCode Append( Sub　Main() 　+　vbCrLf)　SampleCode Append( MessageBox Show( 　+　Chr( )　+　_ Dynamically　Created　Code! 　+　_Chr( )　+　 ) 　+　vbCrLf)SampleCode Append( End　Sub 　+　vbCrLf)SampleCode Append( End　Module 　+　vbCrLf) 　Define　the　code　to　run Dim　Executable　As　CompilerResults　=　_　Comp CompileAssemblyFromSource(Parms 　SampleCode ToString()) 　Display　error　messages　if　there　are　any If　Executable Errors HasErrors　ThenFor　Each　Item　As　CompilerError　In　Executable ErrorsMessageBox Show(Item ErrorText)NextElse 　If　there　aren t　any　error　messages 　start　the 　executable Process Start( Output )End　IfEnd　Sub　

一開始你創建了一個使用VBCodeProvider的編譯器Comp 舊一點的 NET版本使用的是不同的方法但是這里所講的是微軟推薦的一個新方法

為了使用編譯器 你必須創建能描述應用程序的參數 這些參數類似于VS中你創建的參數 只是現在你可以對它們進行定義 該代碼一開始就將GenerateExecutable設置為True 這意味著你需要的是一個EXE文件而不是DLL

Parms OutputAssembly屬性包含了輸出文件的名稱 你只需要在想創建文件時提供這一信息即可 而不需要生成可執行內存了 如果你ixiang生成可執行文件的內存版本 可以將Parm GenerateInMemory屬性設置為True

使用Parm TreatWarningsAsErrors屬性來確定如何處理警告信息 默認的設置會使其為錯誤 這意味著你的應用程序可能無法對其進行編譯 大多數程序員使用默認設置 盡管他們開發了程序 但是在開發完成的程序中卻將其設置為False

大多數應用程序需要外部DLL以正常運行 當然 你不能創建任意的沒有引用外部DLL的Windows表單程序 通常 你要使用Reference文件夾來完成這一任務 不過 當你動態創建代碼的時候可以依賴于Parms ReferencedAssemblies屬性 如下所示 只需添加你要的DLL即可

現在 你已經定義了項目 接下來需要為其創建源代碼 如前文所述 你可以依賴于一個外部文件或DOM模式 然后 該示例創建了代碼因此你可以看到整個過程 下面是代碼的原始形式 ?Imports　System Windows Forms　Module　TestAssemblySub　Main()MessageBox Show( Dynamically　Created　Code! )End　SubEnd　Module　

這個簡單的例子顯示了一個對話框 注意vbCrLf的使用 如果你不使用這一方法 那編譯器會發送給你一個錯誤信息 vbCrLf條目在該代碼中所起的作用與在程序代碼中的作用相同 只是添加的方式不一樣

從這一點老說 你最后會用Comp CompileAsseblyFromSource（）方法編譯代碼 當使用DOM模式和文件的時候可以使用這一方法 而在所有三種情況中 編譯器用參數和源代碼創建了你請求的輸出 該運算的輸出出現在Executable中 是CompilerResults類型

編譯的失敗次數多于程序員的預計 無論你是在哪里使用動態編碼技巧 你必須假設會出現失敗的情況以及處理失敗的方案 在本例中 代碼尋找的是錯誤并在編譯失敗時將其展示在了信息框中 否則 代碼會依賴于Process Start（）方法來啟用可執行文件

底線

動態編碼技巧并不是萬能鑰匙 當你為開發問題找到了好的靜態解決方案時 當然也可以使用 但是在我們所列出的情況中沒有可行的靜態方案 因此要選擇動態編碼技巧 大多數情況下 要用動態編碼技巧解決以下問題

◆ 用戶的環境會以不可預見的方式更改時

◆ 無法控制用戶電腦的安裝

◆ 用戶或應用程序都添加了你要用控件執行的數據要素

◆ 應用程序必須執行很早以前的安裝任務 且這些任務與電腦 環境 網絡或其他不確定因素聯系緊密時

◆ 應用程序要執行了處理級別的任務 且這些任務取決于機器連接或其他狀況

lishixinzhi/Article/program/ASP/201311/21812