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

用API 函數(shù)GetVolumeInformation得到的不是硬盤的序列號?。?！

成都創(chuàng)新互聯(lián)是一家從事企業(yè)網(wǎng)站建設、成都做網(wǎng)站、成都網(wǎng)站建設、成都外貿(mào)網(wǎng)站建設、行業(yè)門戶網(wǎng)站建設、網(wǎng)頁設計制作的專業(yè)網(wǎng)站設計公司，擁有經(jīng)驗豐富的網(wǎng)站建設工程師和網(wǎng)頁設計人員，具備各種規(guī)模與類型網(wǎng)站建設的實力，在網(wǎng)站建設領域樹立了自己獨特的設計風格。自公司成立以來曾獨立設計制作的站點成百上千。

BOOL GetVolumeInformation(

LPCTSTR lpRootPathName,

LPTSTR lpVolumeNameBuffer,

DWORD nVolumeNameSize,

LPDWORD lpVolumeSerialNumber,

LPDWORD lpMaximumComponentLength,

LPDWORD lpFileSystemFlags,

LPTSTR lpFileSystemNameBuffer,

DWORD nFileSystemNameSize

);

看看英文?。篤olumeSerialNumber!得到的只是卷區(qū)序列號！

硬盤的序列號應該是

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?。。。?/p>

這個號是不會因為你格式化硬盤而改動，也不是網(wǎng)上流傳的修改工具能改的，（其實網(wǎng)上流傳的修改工具的也不過是卷區(qū)號而已?。?/p>

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

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

1.調用diskid.dll實現(xiàn)：

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實現(xiàn)：

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 "硬件產(chǎn)生代碼為：" + Model

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

End Sub

說明：diskid.dll可從下載

diskid32.dll可從下載

VB登陸程序錯誤

cnum 沒有聲明dim的聲明一下,

你必須明白，如果你用 vb.net 做開發(fā)就別再用 ado 而改用ado.net

用oledb.oldbconnection代替 adodb.connection

如果你堅持在 .net 中用ado，請?zhí)砑右?，引?com 中的 ado

setfocus 不是.net 用法 改成 focus

unload改成 close

或者你可以用vb.net 的自帶工具，升級vb6的代碼。

vb編程中出現(xiàn)未聲明Txet1 是什么意思

窗體上不存在 Text1 這個控件，所以出錯。

通常文本框控件在VB6中默認是Text1，而在VB.NET中則是TextBox1，是不是這個錯誤？如果是，那么你可以把代碼中的全部Text1改為TextBox1，或者把文本框控件的名稱改為Text1也行。

VB 中 未聲明名稱"MessageBox"

MessageBox因該是一個控件的名稱，你一個空白頁面，什么控件都沒，當然無法引用。

隨便拉一個控件出來，然后屬性名稱設置為MessageBox就可以了。

vb.net 中 未聲明名稱“instr” 是什么情況？ 謝謝解答?。。?/h2>

返回的Variant（長），指定一個字符串在另一個字符串在第一的位置。

語法

INSTR（[開始]字符串1，字符串[比較]）

InStr函數(shù)的語法有以下參數(shù)：

部分

啟動可選參數(shù)。數(shù)值表達式，設置每次搜索的起點。如果從第一個字符的位置被刪去。如果start包含Null，將發(fā)生錯誤。如果指定了compare參數(shù)，你必須有一個起始參數(shù)。

string1中所需的參數(shù)。接受搜索字符串表達式。

字符串所需的參數(shù)。搜索的字符串表達式。

比較可選參數(shù)。指定的字符串比較。如果比較是空的，就會發(fā)生錯誤。如果省略比較選項比較設置決定比較的類型。

集

比較參數(shù)設置：

恒定值說明

vbUseCompareOption -1用Option Compare語句設置為執(zhí)行的比較。的執(zhí)行0

描述vbBinaryCompare 0二進制比較。 / vbTextCompare 1進行比較，根據(jù)原來的。

vbDatabaseCompare 2僅適用于Microsoft Access中，根據(jù)數(shù)據(jù)庫中的信息進行比較。

返回值

如果InStr返回

string1是零長度0

STRING1為Null空

字符串長度為零開始字符串是空空

字符串找不到

在string1中找到string2中找到位置

開始字符串0

描述

INSTRB功能作用于在字符串中包含的數(shù)據(jù)字節(jié)。因此INSTRB返回的字節(jié)位置，而不是字符位置。

INSTR函數(shù)示例

本示例使用InStr函數(shù)來找到一個字符串在另一個字符串中第一次出現(xiàn)的。

暗淡的searchstring SearchChar MyPos

搜尋字串=“XXpXXpXXPXXP”'被搜索的字符串。該，

SearchChar =“P”'要查找字符串“P”。

“從一開始的第四個字符，文本比較看。返回值是6（小寫對）。

'小寫p，大寫的P在文字下是相同的。

MyPos = INSTR（4，搜尋字串，SearchChar 1），

“開放二進制比較從第一個字符找到。 9（大寫P）的返回值。

'小寫p和大寫的P在二進制比較是不一樣的。在，

MyPos = INSTR（1搜尋字串，SearchChar 0）

的默認，而不是二進制比較（最后一個參數(shù)可省略）。

MyPos = INSTR（搜尋字串SearchChar），返回到9。

MyPos = INSTR（1，搜尋字串，“W”）'返回0。

關于鹿養(yǎng)生的知識非常樂意與您分享

VB.NET 我在Class里面用Public關鍵詞寫的函數(shù)和變量為什么在窗體里面調用時被提示未聲明?

猜想你使用時是用類名.方法名？

改成(new 類名()).方法名試試。