十年网站开发经验+多家企业客户+靠谱的建站团队
量身定制+运营维护+专业推广+无忧售后，网站问题一站解决
DimurlAsString="网址"
Internet资源建立持久连接。
DimreaderAsStreamReader=_
System.Text.Encoding.GetEncoding(-0))
DimrespHTMLAsString=reader.ReadToEnd()'respHTML就是网页源代码
下面这段代码，是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimnianxianAsInteger'年限变量
DimdingcunAsInteger'定存变量
Dimfuli_bigAsLong'大复利
Dimfuli_smallAsLong'小复利
DimiAsInteger'循环变量
DimDATAstringAsString'数据字符串
nianxian=Val(年限_TextBox.Text)
dingcun=Val(定存_TextBox.Text)
DATAstring=""
Fori=1Tonianxian
fuli_small=dingcun*(1+0.1875)
dingcun=fuli_small
fuli_big=fuli_big+fuli_small
DATAstring=DATAstring+"["+Trim(Str(i))+"]"+Str(fuli_big)+Chr(13)+Chr(10)
'DATAstring=DATAstring+"["+Trim(Str(i))+"]"+Str(fuli_small)+Chr(13)+Chr(10)
Next
'fuli_big=fuli_small
TextBox1.Text=DATAstring
结果_TextBox.Text=Str(fuli_big)+"元"
EndSub
使用webbrowser控件来加载网页，然后再
Private
Sub
WebBrowser
1_DocumentCompleted下通过使用WebBrowser1.Document.Body.
InnerHtml
来获取网页的源代码，或使用
WebBrowser1.Document.Body.InnerText来获取网页中的文本。之后可以通过字符串控制指令或者
正则表达式
来精确获取到你所需的数据。
用API函数GetVolumeInformation得到的不是硬盘的序列号！！！
BOOLGetVolumeInformation(
LPCTSTRlpRootPathName,
LPTSTRlpVolumeNameBuffer,
DWORDnVolumeNameSize,
LPDWORDlpVolumeSerialNumber,
LPDWORDlpMaximumComponentLength,
LPDWORDlpFileSystemFlags,
LPTSTRlpFileSystemNameBuffer,
DWORDnFileSystemNameSize
);
看看英文啊：VolumeSerialNumber!得到的只是卷区序列号！
硬盘的序列号应该是
DriveModelNumber________________:WDCWD400EB-00CPF0
DriveSerialNumber_______________:WD-WCAATF083586
DriveControllerRevisionNumber__:06.04G06
ControllerBufferSizeonDrive___:2097152bytes
DriveType________________________:Fixed
DriveSize________________________:40020664320bytes
中：
DriveSerialNumber_______________:WD-WCAATF083586这才是硬盘SerialNumber！！！！
这个号是不会因为你格式化硬盘而改动，也不是网上流传的修改工具能改的，（其实网上流传的修改工具的也不过是卷区号而已！）
建议用DiskID.dll或DiskID32.dll来获取
用diskid.dll和disk32.dll获得硬盘序列号
1.调用diskid.dll实现：
OptionExplicit
PrivateDeclareFunctionIsWinNTLib"DiskID.DLL"()AsLong
PrivateDeclareFunctionReadPhysicalDrive9XLib"DiskID.DLL"(driveIDAsLong,bufferAsLong,bufLenAsLong)AsLong
PrivateDeclareFunctionReadPhysicalDriveInNTLib"DiskID.DLL"(driveIDAsLong,bufferAsLong,bufLenAsLong)AsLong
PrivateTypeDRIVER_INFO_OK
ModalNumber(39)AsByte
SerialNumber(19)AsByte
ControlNum(7)AsByte
DriveTypeAsLong
CylindersAsLong
HeadsAsLong
SectorsAsLong
EndType
PrivateSubCommand1_Click()
DimxAsDRIVER_INFO_OK
DimiAsLong
IfIsWinNT=1Then
i=ReadPhysicalDriveInNT(ByVal0,ByValVarPtr(x),ByVal256)
Else
i=ReadPhysicalDrive9X(ByVal0,ByValVarPtr(x),ByVal256)
EndIf
DimsAsString
s=StrConv(x.ModalNumber,vbUnicode)
s=Left(s,InStr(1,s,Chr(0))-1)
MsgBox"硬件厂商代码为："+s
s=StrConv(x.SerialNumber,vbUnicode)
MsgBox"硬盘序列号为："+s
2.调用diskid32.dll实现：
PrivateDeclareFunctionDiskID32Lib"DiskID32.DLL"(ByRefDiskModelAsByte,ByRefDiskIDAsByte)AsLong
DimDiskModel(31)AsByte,DiskID(31)AsByte,iAsInteger,ModelAsString,IDAsString