dflag=False

Fordrive_no=0To25

drive_disk=Chr(drive_no 67)

drive_chr=drive_disk&“:\”

drive_flag=GetDriveType(drive_chr)

Ifdrive_flag=3Then

kkk=GetVolumeInformation(drive_chr,strlabel,Len(strlabel),serial_no,0,0,strtype,Len(strtype))'通过GetVolumeInformation获得磁盘序列号

SelectCasedrive_no

Case0

strc=serial_no

EndSelect

Ifserial_no=stemp3Then

dflag=True

ExitFor

EndIf

EndIf

Nextdrive_no

Ifdrive_no=26Anddflag=FalseThen'非法用户

GoToerr:

EndIf

MsgBox(“HI，合法用户

mvn test-compile假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读

表单画面

'表单部分

'-------------------------------------------------------------

Form.Name="Form1"

Caption="Form1"

CommandButton.Name=Command2

Caption="停止测试"

CommandButton.Name=Command1

Caption="开始测试"

TextBox.Name=Text1

MSComm.Name=MSComm1

DTREnable=-1'True

Label.Name=Label1

AutoSize=-1'True

Caption="欲送出的资料-按下[Enter]送出"

Label.Name=Label3

BorderStyle=1'单线固定

Label.Name=Label2

AutoSize=-1'True

Caption="折返显示"

'程式部分

'-------------------------------------------------------------

OptionExplicit

'设一个此表单的区域变数，来作终止读取通讯埠的指标

DimbStopAsBoolean

'设一个区域变数，来作读取通讯埠的暂存区

DimInStringAsString

PrivateSubCommand1_Click()

bStop=False

Text1.SetFocus

WithMSComm1

'设定通讯埠号，可依照您的需求更改

.CommPort=2

'设定传输速率等，可依照您的需求更改

.Settings="14400,N,8,1"

'将通讯埠打开

.PortOpen=True

EndWith

'假如使用者未按下「停止测试」钮(bStop=False),则继续读取

DoWhileNotbStop

IfMSComm1.InBufferCountThen

'通讯埠中假如有资料的话,则读取进来

InString=InString&MSComm1.Input

'如果资料中有Chr(13)和Chr(10)的话,则显示出来

IfInStr(InString,vbCrLf)Then

Label3.Caption=Label3.Caption&InString

InString=""

'暂时把系统资源让出来给其它的程式使用

DoEvents

EndIf

EndIf

DoEvents

Loop

EndSub

PrivateSubCommand2_Click()

'按下「停止测试」钮时,把bStop设为「真」(True)

'如此程式才会停止等待(或读取)通讯埠所收到的资料

bStop=True

EndSub

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)

bStop=True

'把通讯埠关闭,才不会影响其它程式的使用通讯埠

MSComm1.PortOpen=False

End

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

'当按下[Enter]时,把Text1文字框中的资料送至通讯埠

IfKeyAscii=13Then

MSComm1.Output=Text1.Text&vbCrLf

Text1.Text=""

KeyAscii=0

EndIf

EndSub->

com.bjpowernode.java_learning;用数据库复本可以重新产生一个数据库，使两个或多个用户同时使用自己的数据库复本

Dubbo 版本需要大于 2.0.5，远程调用需要注意网络是否可用

5.建立背景图案形成子程序：

DimpictfileAsString'位图文件名

DimFILEPATHAsString'文件路径

SubBackpict(pictfile)

picture1.ScaleMode=3

Form1.ScaleMode=3

picture1.Picture=LoadPicture(pictfile)

'网格控件覆盖整个窗体背景

grid1.Top=-1

grid1.Left=-1

grid1.Width=Width

grid1.Height=Height

grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) 1

grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) 1

'所有单元大小等于基本图案大小

ForI=0Togrid1.Cols-1

Forj=0Togrid1.Rows-1

grid1.ColWidth(I)=picture1.ScaleWidth*15

grid1.RowHeight(j)=picture1.ScaleHeight*15

Nextj

NextI

'选定所有单元

grid1.SelStartCol=0

grid1.SelStartRow=0

grid1.SelEndCol=grid1.Cols-1

grid1.SelEndRow=grid1.Rows-1

grid1.Picture=Picture1.Picture

EndSub

6.窗体主程序：

PrivateSubForm_Load()

'得到运行程序路径名，路径名后带反斜杠

IfRight(App.Path,1)<>""Then

filePath=App.Path&""

Else

filePath=App.Path

EndIf

'窗体初始显示由Tiles.bmp基本图案组成的背景

pictfile="c:\windows\Tiles.bmp"

backpict(pictfile)

EndSub

7.退出程序命令按钮：

PrivateSubSSCommand1_Click()

End

EndSub

8.演示不同的底纹图案：本文选取了Windows Tiles.bmp图，读者也可以选取自己喜爱的其它图形

蒸汽石然后用一个文本编辑器(notepad,editplus,etc)打开工程文件(就是那个后缀是vbp的家伙)，通常vbp文件由几个部分组成，比如我的vbp有两部分：->Type=Exe

Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\System32\stdole2.tlb#OLEAutomation

Form=Form1.frm

Module=Module1;Module1.bas

Startup="Form1"

ExeName32="Project1.exe"

Command32=""

Name="Project1"

HelpContextID="0"

CompatibleMode="0"

MajorVer=1

MinorVer=0

RevisionVer=0

AutoIncrementVer=0

ServerSupportFiles=0

VersionCompanyName="AmericanStandard"

CompilationType=0

OptimizationType=0

FavorPentiumPro(tm)=0

CodeViewDebugInfo=0

NoAliasing=0

BoundsCheck=0

OverflowCheck=0

FlPointCheck=0

FDIVCheck=0

UnroundedFP=0

StartMode=0

Unattended=0

Retained=0

ThreadPerObject=0

MaxNumberOfThreads=1

[MSTransactionServer]

AutoRefresh=1->

你要做的就是在第一部分MaxNumberofThreads=1后添加一行DebugStartupOption=0输出如下：。