vb常用代码总结.doc

vb常用代码总结 我用UltraISO了下ISO文件Setupsetup.sdb文件提取出来，将Product KeyT2CRQGDKBVW7KJR8C6CKXMW3D改成Product KeyPYHYPWXB3BB2CCMV9DX9VDY8T这样，安装的时候就默认是这个正版的序列号了。 还有一种方法就是，不改这个文件，安装后，再添加删除程序的时候可以输入序列号PYHYPWXB3BB2CCMV9DX9VDY8T也可以变成正版。 VB常用代码总结移动无标题栏的窗体(borderstyle=none)dim mouseXas integerdim mouseYas integerdim moveXas integerdim moveYas integerdim downas booleanform_mousedown:mousedown事件down=true mouseX=x mouseY=y form_mouseup:mouseup事件down=false form_mousemove ifdown=true thenmoveX=me.leftmouseX+X moveY=me.topmouseY+Y me.move moveX,moveY endif*闪烁控件比如要闪烁一个label（标签）添加一个时钟控件间隔请根据实际需要设置enabled属性设为true代码为label1.visible=not label1.visible*禁止使用Alt+F4关闭窗口Private Declare Function DeleteMenuLibuser32(ByVal hMenuAs Long,ByVal nPositionAs Long,ByVal wFlagsAs Long)As LongPrivate Declare Function GetMenuItemCountLibuser32(ByVal hMenuAs Long)As LongPrivate ConstMF_BYPOSITION=&H400&Private Sub Form_Load()Dim hwndMenuAs LongDim cAs LonghwndMenu=GetSystemMenu(Me.hwnd,0)c=GetMenuItemCount(hwndMenu)DeleteMenu hwndMenu,c1,MF_BYPOSITION c=GetMenuItemCount(hwndMenu)DeleteMenu hwndMenu,c1,MF_BYPOSITION End Sub*启动控制面板大全打开控制面板Call Shell(rundll32.exe shell32.dll,Control_RunDLL,9)辅助选项属性键盘Call Shell(rundll32.exe shell32.dll,Control_RunDLL aess.cpl,1,9)辅助选项属性声音Call Shell(rundll32.exe shell32.dll,Control_RunDLL aess.cpl,2,9)辅助选项属性显示Call Shell(rundll32.exe shell32.dll,Control_RunDLL aess.cpl,3,9)辅助选项属性鼠标Call Shell(rundll32.exe shell32.dll,Control_RunDLL aess.cpl,4,9)辅助选项属性常规Call Shell(rundll32.exe shell32.dll,Control_RunDLL aess.cpl,5,9)添加/删除程序属性安装/卸载Call Shell(rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,1,9)添加/删除程序属性Windows安装程序Call Shell(rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,2,9)添加/删除程序属性启动盘Call Shell(rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,3,9)显示属性背景Call Shell(rundll32.exe shell32.dll,Control_RunDLL desk.cpl,0,9)显示属性屏幕保护程序Call Shell(rundll32.exe shell32.dll,Control_RunDLL desk.cpl,1,9)显示属性外观Call Shell(rundll32.exe shell32.dll,Control_RunDLL desk.cpl,2,9)显示属性设置Call Shell(rundll32.exe shell32.dll,Control_RunDLL desk.cpl,3,9)Inter属性常规Call Shell(rundll32.exe shell32.dll,Control_RunDLL Icpl.cpl,0,9)Inter属性安全Call Shell(rundll32.exe shell32.dll,Control_RunDLL Icpl.cpl,1,9)Inter属性内容Call Shell(rundll32.exe shell32.dll,Control_RunDLL Icpl.cpl,2,9)Inter属性连接Call Shell(rundll32.exe shell32.dll,Control_RunDLL I*怎样关闭一个程序你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。 下面的范例演示如何关闭一个标题为Calculator的窗口。 Dim winHwndAs LongDim RetValAs LongwinHwnd=FindWindow(vbNullString,Calculator)Debug.Print winHwndIf winHwnd0Then RetVal=PostMessage(winHwnd,WM_CLOSE,0&,0&)If RetVal=0Then MsgBoxError postingmessage.End If Else MsgBoxThe Calculatoris notopen.End IfFor thiscode towork,you musthave declaredthe APIfunctions ina modulein yourproject.You mustput thefollowing inthe declarationssection ofthe module.Declare FunctionFindWindow Libuser32Alias_FindWindowA(ByVal lpClassNameAs String,_ByVal lpWindowNameAs String)As LongDeclare FunctionPostMessage Libuser32Alias_PostMessageA(ByVal hwnd As Long,ByVal wMsgAs Long,_ByVal wParamAs Long,lParam As Any)As LongPublic ConstWM_CLOSE=&H10*如何使Form的背景图随Form大小改变单纯显示图形用Image即可,而且用Image也正好可解决你的问题设定Image的Stretch=true在加入以下的code Private SubForm_Resize()Image1.Move0,0,ScaleWidth,ScaleHeight End Sub或者使用以下的方式来做也可以Private SubForm_Paint()Me.PaintPicture Me.Picture,0,0,ScaleWidth,ScaleHeight End Sub*软件的注册可用注册表简单地保存已用的天数或次数次数限制（如次）如下Private SubForm_Load()Dim RemainDayAs LongRemainDay=GetSetting(MyApp,set,times,0)If RemainDay=30Then MsgBox试用次数已满，请注册Unload MeEnd IfMsgBox现在剩下&30RemainDay&试用次数，好好珍惜！RemainDay=RemainDay+1SaveSettingMyApp,set,times,RemainDay End Sub时间限制的（如天）Private SubForm_Load()Dim RemainDayAs LongRemainDay=GetSetting(MyApp,set,day,0)If RemainDay=30Then MsgBox试用期已过，请注册Unload MeEnd IfMsgBox现在剩下&30RemainDay&试用天数，好好珍惜！if day(now)remainday0then RemainDay=RemainDay+1SaveSettingMyApp,set,times,RemainDay End Sub*MMControl控件全屏播放Option ExplicitPrivate Declare Function mciSendStringLibwinmm.dll_AliasmciSendStringA(ByVal lpstrCommandAs_String,ByVal lpstrReturnStringAsAny,ByVal_uReturnLength As Long,ByVal hwndCallbackAs_Long)As LongPrivate Declare Function mciSendCommandLibwinmm.dll_AliasmciSendCommandA(ByVal wDeviceIDAs Long,_ByVal uMessageAs Long,ByVal dwParam1As Long,_dwParam2As MCI_OVLY_RECT_PARMS)As LongPrivate Declare Function GetShortPathNameLibkernel32_AliasGetShortPathNameA(ByVal lpszLongPathAs_String,ByVal lpszShortPathAs String,ByVal_hBuffer As Long)As LongPrivate TypeRECT LeftAs LongTop As Long RightAs LongBottom As Long End Type Private Type MCI_OVLY_RECT_PARMS dwCallbackAs Longrc AsRECT End Type Const MCI_OVLY_WHERE_SOURCE=&H20000Const MCI_OVLY_WHERE_DESTINATION=&H40000ConstMCI_WHERE=&H843Dim PlayAs BooleanPrivate SubForm_Load()MMControl1.Wait=True MMControl1.UpdateInterval=50MMControl1.hWndDisplay=Picture1.hWnd Picture1.ScaleMode=3Timer1.Interval=50End Sub Private SubForm_Unload(Cancel As Integer)MMControl1.Command=stopMMControl1.Command=closeEnd Sub Private Sub Command1_Click()MMControl1.Command=stopMMControl1.Command=closePlay=False CommonDialog1.Filter=(VBDateien(*.avi)|*.avi;)CommonDialog1.InitDir=App.Path CommonDialog1.ShowOpen IfCommonDialog1.filenameThen MMControl1.DeviceType=avivideoMMControl1.filename=CommonDialog1.filename MMControl1.Command=openMMControl1.Notify=True Label4.Caption=MMControl1.Length If Check2.Value=vbChecked AndOption2Then CallAdaptPicture End If IfOption3.Value Then Call Option3_Click Me.Caption=CommonDialog1.filename End If End Sub Private Sub Command2_Click()If NotOption3.Value ThenIf Play=False AndMMControl1.filenameThen MMControl1.Command=playPlay=True End IfElseCall Option3_Click End If End Sub Private Sub Command3_Click()Play=False MMControl1.Command=stopEnd Sub Private SubCommand4_Click()MMControl1.Command=pauseEnd Sub Private Sub MMControl1_Done(NotifyCode As Integer)If PlayAnd Check1.Value=vbChecked ThenPlay=False MMControl1.Command=stopMMControl1.Command=prevMMControl1.Command=playPlay=True End If End Sub Private SubMMControl1_StatusUpdate()Label2.Caption=MMControl1.Position End Sub Private Sub Option1_Click()Check1.Enabled=True Check2.Enabled=False MMControl1.hWndDisplay=0EndSub Private Sub Option2_Click()Check1.Enabled=True Check2.Enabled=True MMControl1.hWndDisplay=Picture1.hWnd EndSub Private SubOption3_Click()注意这里Dim R&,AA$Check1.Enabled=False Check2.Enabled=False MMControl1.Command=stopPlay=False AA=Space$ (255)R=GetShortPathName(CommonDialog1.filename,AA,Len(AA)AA=Mid$(AA,1,R)R=mciSendString(play&AA&fullscreen,0&,0,0&)EndSub Private SubCheck2_Click()IfCheck2.Value=vbChecked AndMMControl1.filenameThenCallAdaptPicture End If EndSub PrivateSub Timer1_Timer()Dim x%,AA$x=MMControl1.Mode Select Case xCase524:AA=NotOpenCase525:AA=StopCase526:AA=PlayCase527:AA=RecordCase528:AA=SeekCase529:AA=PauseCase530:AA=ReadyEnd SelectLabel6.Caption=AA EndSubPrivateSub AdaptPicture()Dim Result&,Par AsMCI_OVLY_RECT_PARMS Par.dwCallback=MMControl1.hWnd Result=mciSendCommand(MMControl1.DeviceID,_MCI_WHERE,MCI_OVLY_WHERE_SOURCE,Par)If Result0Then MsgBox(Fehler)Else Picture1.Width=(Par.rc.RightPar.rc.Left)*15+4*15Picture1.Height=(Par.rc.BottomPar.rc.Top)*15+4*15EndIfEndSub*通用对话框专辑（全）使用API调用Winodws各种通用对话框(Common Diaglog)的方法（一）1.文件属性对话框Type SHELLEXECUTEINFOcbSize As Long fMaskAs LonghwndAs Long lpVerbAs StringlpFile As String lpParametersAs StringlpDirectory As String nShowAs LonghInstApp As Long lpIDListAs Long可选参数lpClass As String可选参数hkeyClass As Long可选参数dwHotKey As Long可选参数hIcon As Long可选参数hProcess As Long可选参数End TypeConst SEE_MASK_INVOKEIDLIST=&HC Const SEE_MASK_NOCLOSEPROCESS=&H40ConstSEE_MASK_FLAG_NO_UI=&H400Declare FunctionShellExecuteEX Libshell32.dllAliasShellExecuteEx_(SEI As SHELLEXECUTEINFO)As LongPublic FunctionShowProperties(filename As String,OwnerhWnd As Long)As Long打开指定文件的属性对话框,如果返回值=32则出错Dim SEIAsSHELLEXECUTEINFODim rAs LongWith SEI.cbSize=Len(SEI).fMask=SEE_MASK_NOCLOSEPROCESS OrSEE_MASK_INVOKEIDLIST OrSEE_MASK_FLAG_NO_UI.hwnd=OwnerhWnd.lpVerb=properties.lpFile=filename.lpParameters=vbNullChar.lpDirectory=vbNullChar.nShow=0.hInstApp=0.lpIDList=0End Withr=ShellExecuteEX(SEI)ShowProperties=SEI.hInstApp EndFunction新建一个工程,添加一个按钮和名为Text1的文本框把以下代码置入CommandbButton_Click中Dim rAs LongDim fnameAs String从Text1中获取文件名及路径fname=(Text1)r=ShowProperties(fname,Me.hwnd)If r=32Then MsgBoxError2.使用Win95的关于对话框Private DeclareFunction ShellAboutLibshell32.dll_AliasShellAboutA(ByVal hwndAs Long,ByVal szAppAs String,_ByVal szOtherStuffAs String,ByVal hIconAs Long)As Long示例:Dim xAs Longx=shellabout(Form1.hwnd,Visual Basic6.0,_Alp StudioMouseTracker Ver1.0,Form1.icon)2.调用捕获打印机端口对话框Private DeclareFunction WNetConnectionDialogLibmpr.dll_(ByVal hwndAs Long,ByVal dwTypeAs Long)As Long示例:Dim xAs Longx=WNetConnectionDialog(Me.hwnd,2)3.调用颜色对话框Private TypeChooseColor lStructSizeAs LonghwndOwner As Long hInstance As LongrgbResult As Long lpCustColorsAs Stringflags As Long lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private DeclareFunction ChooseColorLibdlg32.dllAliasChooseColorA(pChoosecolor As ChooseColor)As Long将以下代码置入某一事件中:Dim AsChooseColorDim CustColor (16)As Long.lStructSize=Len().hwndOwner=Form1.hWnd .hInstance=App.hInstance .flags=0.lpCustColors=String$(16*4,0)Dim aDim xDim c1Dim c2Dim c3Dim c4a=ChooseColor()Cls If(a)Then MsgBoxColor chosen:&Str$(.rgbResult)For x=1To Len(.lpCustColors)Step4c1=Asc(Mid$(.lpCustColors,x,1)c2=Asc(Mid$(.lpCustColors,x+1,1)c3=Asc(Mid$(.lpCustColors,x+2,1)c4=Asc(Mid$(.lpCustColors,x+3,1)CustColor(x/4)=(c1)+(c2*256)+(c3*65536)+(c4*16777216)MsgBoxCustom Color&Int(x/4)&=&CustColor(x/4)Next xElse MsgBoxCancel waspressedEndIf4.调用复制磁盘对话框Private DeclareFunction SHFormatDriveLibshell32(ByVal hwndAs Long,ByVal DriveAs Long,ByVal fmtIDAs Long,ByVal optionsAs Long)As LongPrivate DeclareFunction GetDriveTypeLibkernel32AliasGetDriveTypeA(ByVal nDriveAs String)As Long示例:向窗体中添加一个名为Drive1的DriveListBox,将以下代码置入某一事件中Dim DriveLetter$,DriveNumber&,DriveType&Dim RetVal&,RetFromMsg&DriveLetter=UCase(Drive1.Drive)DriveNumber=(Asc(DriveLetter)65)DriveType=GetDriveType(DriveLetter)If DriveType=2ThenFloppies,etc RetVal=Shell(rundll32.exe diskcopy.dll,DiskCopyRunDll_&DriveNumber&,&DriveNumber,1)Notice spaceafter ElseJust incaseDiskCopyRunDll RetFromMsg=MsgBox(Only floppiescan&vbCrLf&_be diskcopied!,64,DiskCopy Example)EndIf5.调用格式化软盘对话框Private DeclareFunction SHFormatDriveLibshell32(ByVal hwndAs Long,ByVal DriveAs Long,ByVal fmtIDAs Long,ByVal optionsAs Long)As LongPrivate DeclareFunction GetDriveTypeLibkernel32AliasGetDriveTypeA(ByVal nDriveAs String)As Long参数设置:fmtID3.55.2501.44M1.2M11.44M1.2M21.44M1.2M31.44M360K41.44M1.2M5720K1.2M61.44M1.2M71.44M1.2M81.44M1.2M91.44M1.2M选项0快速1完全2只复制系统文件3只复制系统文件4快速5完全6只复制系统文件7只复制系统文件8快速9完全示例:要求同上Dim DriveLetter$,DriveNumber&,DriveType&Dim RetVal&,RetFromMsg%DriveLetter=UCase(Drive1.Drive)DriveNumber=(Asc(DriveLetter)65)Change letterto Number:A=0DriveType=GetDriveType(DriveLetter)If DriveType=2ThenFloppies,etc RetVal=SHFormatDrive(Me.hwnd,DriveNumber,0&,0&)Else RetFromMsg=MsgBox(This driveis NOTa removeable&vbCrLf&_drive!Format thisdrive?,276,SHFormatDrive Example)Select CaseRetFromMsg Case6YesUnComment todo it.RetVal=SHFormatDrive(Me.hwnd,DriveNumber,0&,0&)Case7NoDo nothingEnd SelectEndIf使用API调用Winodws各种通用对话框(Common Diaglog)的方法（二）1.选择目录/文件夹对话框将以下代码置于一模块中Option Explicit调用方式:string=BrowseForFolders(Hwnd,TitleOfDialog)例如:String1=BrowseForFolders(Hwnd,Select targetfolder.)Public TypeBrowseInfo hwndOwner As LongpIDLRoot As Long pszDisplayNameAs LonglpszTitle As Long ulFlagsAs LonglpfnCallback As Long lParamAs LongiImage As Long End Type Public Const BIF_RETURNONLYFSDIRS=1Public ConstMAX_PATH=260Public DeclareSub CoTaskMemFreeLibole32.dll(ByVal hMemAs Long)Public DeclareFunction lstrcatLibkernel32AliaslstrcatA(ByVal lpString1As String,ByVal lpString2As String)As LongPublic DeclareFunction SHBrowseForFolderLibshell32(lpbi As BrowseInfo)As LongPublic DeclareFunction SHGetPathFromIDListLibshell32(ByVal pidListAs Long,ByVal lpBufferAs String)As LongPublic FunctionBrowseForFolder(hwndOwner As Long,sPrompt As String)As StringDim iNullAs IntegerDim lpIDListAs LongDim lResultAs LongDim sPathAs StringDim udtBIAsBrowseInfo初始化变量With udtBI.hwndOwner=hwndOwner.lpszTitle=lstrcat(sPrompt,).ulFlags=BIF_RETURNONLYFSDIRS EndWith调用API lpIDList=SHBrowseForFolder(udtBI)If lpIDListThen sPath=String$(MAX_PATH,0)lResult=SHGetPathFromIDList(lpIDList,sPath)Call CoTaskMemFree(lpIDList)iNull=InStr(sPath,vbNullChar)If iNullThen sPath=Left$(sPath,iNull1)EndIf如果选择取消,sPath=BrowseForFolder=sPath EndFunction2.调用映射网络驱动器对话框Private/Public DeclareFunction WNetConnectionDialogLibmpr.dll_(ByVal hwndAs Long,ByVal dwTypeAs Long)As Longx%=WNetConnectionDialog(Me.hwnd,1)3.调用打开文件对话框Private TypeOPENFILENAME lStructSizeAs LonghwndOwner As Long hInstanceAs LonglpstrFilter As String lpstrCustomFilterAs StringnMaxCustFilter As Long nFilterIndexAs LonglpstrFile As String nMaxFileAs LonglpstrFileTitle As String nMaxFileTitleAs LonglpstrInitialDir As String lpstrTitleAs Stringflags As Long nFileOffsetAs IntegernFileExtension As Integer lpstrDefExtAs StringlCustDataAs LonglpfnHookAs LonglpTemplateNameAs StringEnd TypePrivate DeclareFunctionGetOpenFileName Libdlg32.dllAliasGetOpenFileNameA(pOpenfilename As OPENFILENAME)As Long将以下代码置于某一事件中Dim ofnAsOPENFILENAMEofn.lStructSize=Len(ofn)ofn.hwndOwner=Form1.hWnd ofn.hInstance=App.hInstance ofn.lpstrFilter=Text Files(*.txt)+Chr$ (0)+*.txt+Chr$ (0)+Rich TextFiles(*.rtf)+Chr$ (0)+*.rtf+Chr$ (0)ofn.lpstrFile=Space$ (254)ofn.nMaxFile=255ofn.lpstrFileTitle=Space$ (254)ofn.nMaxFileTitle=255ofn.lpstrInitialDir=curdir ofn.lpstrTitle=Our FileOpen Titleofn.flags=0Dim aa=GetOpenFileName(ofn)If(a)Then MsgBoxFile toOpen:+Trim$(ofn.lpstrFile)Else MsgBoxCancel waspressedEndIf4.调用打印对话框PrivateTypePrintDlg lStructSizeAs LonghwndOwnerAs Long hDevModeAs LonghDevNames As Long hdcAs Longflags As Long nFromPageAs IntegernToPage As Integer nMinPageAs IntegernMaxPage As Integer nCopiesAs IntegerhInstanceAs Long lCustDataAs LonglpfnPrintHook As Long lpfnSetupHookAs LonglpPrintTemplateName AsString lpSetupTemplateNameAsStringhPrintTemplate As Long hSetupTemplateAs Long EndTypePrivateDeclareFunction PrintDlgLibdlg32.dllAliasPrintDlgA(pPrintdlg As PrintDlg)As Long将以下代码置于某一事件中Dim tPrintDlgAsPrintDlgtPrintDlg.lStructSize=Len(tPrintDlg)tPrintDlg.hwndOwner=Me.hwnd tPrintDlg.hdc=hdc tPrintDlg.flags=0tPrintDlg.nFromPage=0tPrintDlg.nToPage=0tPrintDlg.nMinPage=0tPrintDlg.nMaxPage=0tPrintDlg.nCopies=1tPrintDlg.hInstance=App.hInstance lpPrintTemplateName=Print PageDim aa=PrintDlg(tPrintDlg)If aThen lFromPage=tPrintDlg.nFromPage lToPage=tPrintDlg.nToPage lMin=tPrintDlg.nMinPage lMax=tPrintDlg.nMaxPage lCopies=tPrintDlg.nCopies PrintMyPageCustom printingSubroutine EndIf*用WinSock控件下载文件1增加一个Winsock控件，名称为Winsock1。 2建立连接Winsock1.RemoteHost=nease.Winsock1.RemotePort=80Winsock1.Connect3在Winsock1.Connect事件中加入Dim strCommandas StringDim strWebPageas StringstrWebPage=.nease./kenj/index.html;strCommand=GET+strWebPage+/1.0+vbCrLf strCommand=strCommand+Aept:*/*+vbCrLf strCommand=strCommand+Aept:text/html+vbCrLf strCommand=strCommand+vbCrLf Winsock1.SendData strCommand4Winsock开始下载，在收到数据时，发生DataArrival事件。 Dim webDataAsStringWinsock1.GetData webData,vbString TxtWebPage.Text=TxtWebPage.Text+webData*用VB实现客户服务器（TCP/IP）编程实例现在大多数语言都支持客户服务器模式(C/S)编程，其中VB给我们提供了很好的客户服务器编程方式。 下面我们用VB来实现TCPIP网络编程。 TCPIP协议是Inter最重要的协议。 VB提供了WinSock控件,用于在TCPIP的基础上进行网络通信。 当两个应用程序使用Socket进行网络通信时，其中一个必须创建Socket服务器侦听，而另一个必须创建Socket客户去连接服务器。 这样两个程序就可以进行通信了。 1创建服务器，首先创建一个服务端口号。 并开始侦听是否有客户请求连接。 建立一窗体，并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件)添加两文本框Text1,Text2,和一按钮Command1PrivateSubForm_Load()SockServer.LocalPort=2000服务器端口号,最好大于1000SockServer.Listen开始侦听EndSubPrivateSubForm_Unload(Cancel AsInteger)SockServer.Close EndSubPrivateSub SockServer_Close()SockServer.Close EndSubPrivateSub SockServer_ConnectionRequest(ByVal requestIDAs Long)SockServer.Close SockServer.Aept requestID表示客户请求连接的ID号EndSub当客户向服务器发送数据到达后,产生DataArrival事件,在事件中接收数据,GetData方法接收数据。 PrivateSubSockServer_Data Arrival(ByVal bytesTotalAs Long)Dim sAsStringSockServer.GetData sText1.Text=s EndSub当我需要向客户发送数据时，只需调用SendData方法。 PrivateSubCommand1_Click()SockServer.SendData Text2.Text EndSub2创建客户。 要创建客户连接服务器，首先设置服务器主机名，如IP地址、域名或计算机名，然后设置服务器端口，最后连接服务器。 建立一窗体，并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件)，取名为SockC1。 添加两文本框Text1,Text2,和一按钮Command1PrivateSubForm_Load()SockCl.RemoteHost=表示服务器主机名SockCl.RemotePort=2000表示服务器端口名SockCl.Connect连接到服务器EndSubPrivateSubForm_Unload(Cancel AsInteger)SockCl.Close EndSubPrivateSub SockCl_Close()SockCl.Close EndSubPrivateSub SockCl_DataArrival(ByVal bytesTotalAs Long)Dim sAsStringSockCl.GetData s接收数据到文本框中Text1.Text=s EndSubPrivateSubCommand1_Click()SockCl.SendData Text2.Text向服务器发送数据EndSub3进行通信。 把这两个窗体分别编译成两个EXE文件，服务器Server.exe和客户Client.exe程序，并把它们分别安装在服务器端和客户端，这样就可以实现两者通信了。 *PING一个IP地