在VB中实现通讯的例子

				@ECHO OFF
				
				REM
				REM INSTALL.BAT
				REM
				REM Copy *.BAS and *.DLL files
				REM
				
				IF "%1" == "16" GOTO WIN16
				IF "%1" == "32" GOTO WIN32
				GOTO USAGE
				
				:WIN16
				ECHO ...Copying Win16 .BAS files
				COPY /V WSC16.BAS    WSC4VB.BAS  > NUL
				COPY /V MIO16.BAS    MIO.BAS     > NUL
				COPY /V XYDRV16.BAS  XYDRV.BAS   > NUL
				COPY /V ASDRV16.BAS  ASDRV.BAS   > NUL
				COPY /V ERRORS16.BAS ERRORS.BAS  > NUL
				GOTO WHICHOS
				
				:WIN32
				ECHO ...Copying Win32 .BAS files
				COPY /V WSC32.BAS    WSC4VB.BAS  > NUL
				COPY /V MIO32.BAS    MIO.BAS     > NUL
				COPY /V XYDRV32.BAS  XYDRV.BAS   > NUL
				COPY /V ASDRV32.BAS  ASDRV.BAS   > NUL
				COPY /V ERRORS32.BAS ERRORS.BAS  > NUL
				
				:WHICHOS
				IF "%2" == "nt" GOTO WINNT
				IF "%2" == "NT" GOTO WINNT
				IF "%2" == "95" GOTO WINDOWS
				IF "%2" == "98" GOTO WINDOWS
				IF "%2" == ""   GOTO WINDOWS
				
				:USAGE
				ECHO ERROR. Usage is:
				ECHO 'INSTALL 16'    Win16 Visual Basic (VB 3)  running Windows 95/98  
				ECHO 'INSTALL 32'    Win32 Visual Basic (VB 4+) running Windows 95/98
				ECHO 'INSTALL 16 NT' Win16 Visual Basic (VB 3)  running Windows NT
				ECHO 'INSTALL 32 NT' Win32 Visual Basic (VB 4+) running Windows NT
				GOTO DONE
				
				:WINDOWS
				ECHO ...Copying all DLLs to C:\WINDOWS
				COPY /V  *.DLL C:\WINDOWS > NUL
				GOTO DONE
				
				:WINNT
				ECHO ...Copying all DLLs to C:\WINNT
				COPY /V *.DLL C:\WINNT > NUL
				
				:DONE
				ECHO Delete any previous versions of our DLLs. Search for
				ECHO WSC*.DLL, MIO*.DLL, ASDRV*.DLL, and XYDRV*.DLL.