【正文】 k()　　Sub　　Private=sAsLong)　　DimbytesTotalSubSockCl_Close()　　　　EndSub　　PrivateAsSub　　End　=Form_Load()　　添加兩文本框Text1,Text2,和一按鈕Command1　　Private要創(chuàng)建客戶連接服務(wù)器，首先設(shè)置服務(wù)器主機名，如IP地址、域名或計算機名，然后設(shè)置服務(wù)器端口，最后連接服務(wù)器?！　ndCommand1_Click()　　SockServer　　Privates　　Ends　　AsLong)　　DimbytesTotalSubSub　　′當(dāng)客戶向服務(wù)器發(fā)送數(shù)據(jù)到達后,產(chǎn)生DataArrival事件,在事件中接收數(shù)據(jù),GetData方法接收數(shù)據(jù)。requestIDLong)　　requestIDSubSockServer_Close()　　　　EndSub　　PrivateAsSub′開始偵聽　　End2000Form_Load()　　　　Private并開始偵聽是否有客戶請求連接。這樣兩個程序就可以進行通信了。VB提供了WinSock控件,用于在TCP／IP的基礎(chǔ)上進行網(wǎng)絡(luò)通信。下面我們用VB來實現(xiàn)TCP／IP網(wǎng)絡(luò)編程。webData*******************************************用VB實現(xiàn)客戶——服務(wù)器（TCP/IP）編程實例vbStringAsDim發(fā)生DataArrival開始下載，strCommand4vbCrLfstrCommandstrCommand+Accept:strCommandstrCommand+Accept:strCommandstrCommand+strWebPage=~kenj/。StringstrWebPagestrWebPageas事件中加入：Dim803建立連接：Winsock1?？丶?，增加一個控件下載文件*******************************************用Endprinting39。=====a=PageDim===========As將以下代碼置于某一事件中DimAsAsPrintDlgAPrintDlgDeclareLongEndLonghSetupTemplateStringhPrintTemplateStringlpSetupTemplateNameLonglpPrintTemplateNameLonglpfnSetupHookLonglpfnPrintHookLonglCustDataIntegerhInstanceIntegernCopiesIntegernMaxPageIntegernMinPageIntegernToPageLongnFromPageLongflagsLonghdcLonghDevNamesLonghDevModeLonghwndOwnerPrintDlglStructSizeIf打印對話框PrivatewasTrim$()ElseMsgBoxtoThenMsgBoxGetOpenFileName(ofn)Ifaa=OpenOurcurdir255Space$(254)255Space$(254)Chr$(0)*.rtfChr$(0)(*.rtf)Text++++Files====AsLong將以下代碼置于某一事件中DimOPENFILENAME)(pOpenfilenameAliasLibFunctionTypePrivateAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsAsTypeWNetConnectionDialog(,Longx%Long)dwTypeLong,hwndWNetConnectionDialogDeclaresPathEndBrowseForFoldersPathIf39。Left$(sPath,sPathiNullInStr(sPath,CoTaskMemFree(lpIDList)iNullSHGetPathFromIDList(lpIDList,0)lResult=lpIDList=調(diào)用BIF_RETURNONLYFSDIRSEnd).ulFlags==初始化變量WithAsStringDimsPathAsLongDimlpIDListAsStringDimString)sPromptAsFunctionAsAsByValAs(ByValLibFunctionLongPublicBrowseInfo)(lpbiLibFunctionLongPublicString)lpString2String,lpString1lstrcatAkernel32lstrcatDeclareAs(ByValLibSub260PublicMAX_PATH1PublicBIF_RETURNONLYFSDIRSTypePublicAsAsAsAsAsAsAsAsTypetargetBrowseForFolders(Hwnd,例如:String1BrowseForFolders(Hwnd,TitleOfDialog)39。stringDiaglog)的方法（二）將以下代碼置于一模塊中OptionSelectEndDoNo39。70amp。0amp。SHFormatDrive(,RetValdoUnCommentYes39。6CaseSHFormatDrivedrive?,FormatvbCrLfamp。aisMsgBox(This)ElseRetFromMsg,DriveNumber,=Floppies,Then=GetDriveType(DriveLetter)IfA=0DriveTypetoChange39。==,Dim,DriveLetter$,快速9只復(fù)制系統(tǒng)文件只復(fù)制系統(tǒng)文件快速5只復(fù)制系統(tǒng)文件只復(fù)制系統(tǒng)文件快速1720KLong參數(shù)設(shè)置:fmtIDString)nDriveGetDriveTypeAkernel32GetDriveTypeDeclareAsAsByValAsByValAsByValAs(ByValLibFunctionIfPrivateDiskCopydiskcopied!,vbCrLfamp。floppies=39。inafterElseNotice1),amp。Shell(etcRetVal39。2DriveType===RetFromMsgamp。RetValamp。DriveTypeamp。DriveNumberamp。Long示例:向窗體中添加一個名為Drive1的DriveListBox,將以下代碼置入某一事件中DimString)nDriveGetDriveTypeAkernel32GetDriveTypeDeclareAsAsByValAsByValAsByValAs(ByValLibFunctionIfPrivatewasxElseMsgBox/amp。/Custom*+*+*+=/3,x=2,x=1,x=x,=StepTo=Str$()Foramp。Color(a)=c3Dimc1DimaDim4,String$(160Len(cc)LongCustColor(16)AsLong將以下代碼置入某一事件中:DimChooseColor)(pChoosecolorAliasLibFunctionTypePrivateAsAsAsAsAsAsAsAsAsTypeWNetConnectionDialog(,LongxxAsAsByValAs_(ByValLibFunction)捕獲打印機端口對話框PrivateVerStudio,VisualshellaboutLongxxAsAsByValAs_ByValAsByValAs(ByVal_AliasLibFunctionErrorPrivateThen=)If==從Text1AsLongDimrFunction新建一個工程,添加一個按鈕和名為Text1的文本框把以下代碼置入CommandbButton_Click==0End0.lpIDList0.hInstAppvbNullChar.nShowvbNullChar.lpDirectoryfilename.lpParametersproperties.lpFileOwnerhWnd.lpVerbSEE_MASK_FLAG_NO_UI.hwndSEE_MASK_INVOKEIDLISTSEE_MASK_NOCLOSEPROCESSLen(SEI).fMaskSEI.cbSizeAsSHELLEXECUTEINFODimSEILong39。Long)OwnerhWndAsFunctionAsAsShellExecuteExShellExecuteEXH400Declare=H40Const=HCConst=TypeConst39。As39。As39。As39。As39。As39。AsAsAsAsAsAsAsAsAsAsDiaglog)的方法（一）TypeIfEnd*+*=*+*=MsgBoxThenIfPar)MCI_WHERE,mciSendCommand(,ResultMCI_OVLY_RECT_PARMSParResultamp。SubAAEndSelect=530:=529:=528:=527:=526:=525:=524:Case=x%,SubIfEndCallThenAnd=IfCheck2_Click()SubPrivate0amp。,amp。=1,=AA,======,DimOption3_Click()‘－－－－－－－－－－－注意這里SubPrivate===Sub0EndFalseTrueOption1_Click()SubPrivate=SubIfEnd=====vbCheckedPlayAsSubpauseEndCommand4_Click()SubPrivate==SubIfEndCallElseIf==FalsePlayIfCommand2_Click()SubPrivateEndOption3_ClickThenIfIfCallThenAnd=IfTrueopenavivideoThenIf)(