vb.net 誰有寫好的vb.net源碼的編輯器

我覺得你概念上有問題。

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

首先編輯器只是一類軟件的名稱，即便你說是VB編輯器，可以是微軟出的VB6等IDE，我也可以說系統自帶的記事本也是VB編輯器，總之一般只要能編寫源代碼的就可以叫編輯器。

而.Net也只是一個.Net Framework框架而已，.Net包括很多技術，不光是編程技術。

最后，你是不是要問VB6和VB.Net的關系？

如果是這個問題，我可以告訴你VB6是上個世紀的IDE，而VB.Net是Visual Studio大集成環境里面的一種而已，像C++，C#也集成在里面。他們兩個可以說除了語法還比較相像以外，沒有一點關系了，編程思想不同，編譯原理不同，運行機制不同，總之就是整個架構都不同，不要覺得VB.Net就是VB6的本世紀升級版。

請問為什么我公司的vb.net源碼到了我的電腦上運行就會顯示好多未聲明啊？

用API 函數GetVolumeInformation得到的不是硬盤的序列號！！！

BOOL GetVolumeInformation(

LPCTSTR lpRootPathName,

LPTSTR lpVolumeNameBuffer,

DWORD nVolumeNameSize,

LPDWORD lpVolumeSerialNumber,

LPDWORD lpMaximumComponentLength,

LPDWORD lpFileSystemFlags,

LPTSTR lpFileSystemNameBuffer,

DWORD nFileSystemNameSize

);

看看英文啊：VolumeSerialNumber!得到的只是卷區序列號！

硬盤的序列號應該是

Drive Model Number________________: WDC WD400EB-00CPF0

Drive Serial Number_______________: WD-WCAATF083586

Drive Controller Revision Number__: 06.04G06

Controller Buffer Size on Drive___: 2097152 bytes

Drive Type________________________: Fixed

Drive Size________________________: 40020664320 bytes

中：

Drive Serial Number_______________: WD-WCAATF083586 這才是硬盤Serial Number！！！！

這個號是不會因為你格式化硬盤而改動，也不是網上流傳的修改工具能改的，（其實網上流傳的修改工具的也不過是卷區號而已！）

建議用 DiskID.dll或DiskID32.dll來獲取

用diskid.dll和disk32.dll獲得硬盤序列號

1.調用diskid.dll實現：

Option Explicit

Private Declare Function IsWinNT Lib "DiskID.DLL" () As Long

Private Declare Function ReadPhysicalDrive9X Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long

Private Declare Function ReadPhysicalDriveInNT Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long

Private Type DRIVER_INFO_OK

ModalNumber(39) As Byte

SerialNumber(19) As Byte

ControlNum(7) As Byte

DriveType As Long

Cylinders As Long

Heads As Long

Sectors As Long

End Type

Private Sub Command1_Click()

Dim x As DRIVER_INFO_OK

Dim i As Long

If IsWinNT = 1 Then

i = ReadPhysicalDriveInNT(ByVal 0, ByVal VarPtr(x), ByVal 256)

Else

i = ReadPhysicalDrive9X(ByVal 0, ByVal VarPtr(x), ByVal 256)

End If

Dim s As String

s = StrConv(x.ModalNumber, vbUnicode)

s = Left(s, InStr(1, s, Chr(0)) - 1)

MsgBox "硬件廠商代碼為：" + s

s = StrConv(x.SerialNumber, vbUnicode)

s = Left(s, InStr(1, s, Chr(0)) - 1)

MsgBox "硬盤序列號為：" + s

End Sub

2.調用diskid32.dll實現：

Option Explicit

Private Declare Function DiskID32 Lib "DiskID32.DLL" (ByRef DiskModel As Byte, ByRef DiskID As Byte) As Long

Private Sub Command1_Click()

Dim DiskModel(31) As Byte, DiskID(31) As Byte, i As Integer, Model As String, ID As String

If DiskID32(DiskModel(0), DiskID(0)) 1 Then

MsgBox "get diskid32 err"

Exit Sub

End If

For i = 0 To 31

If Chr(DiskModel(i)) Chr(0) Then

Model = Model Chr(DiskModel(i))

End If

If Chr(DiskID(i)) Chr(0) Then

ID = ID Chr(DiskID(i))

End If

Next

MsgBox "硬件產生代碼為：" + Model

MsgBox "硬盤序列號為：" + ID

End Sub

說明：diskid.dll可從下載

diskid32.dll可從下載

vb.net源代碼如何生成exe格式

vb.net編譯出來的exe只有依賴.net

framework才能運行

但有一些第三方工具可以用來把exe用到的assembly和dll打包成一個exe文件，不過這樣的結果就是exe體積非常大

比如.netz工具，它的官方地址：

使用很簡單，比如你的exe文件是a.exe，直接netz

a.exe就可以把a和它用到的.net代碼一起打包成一個exe