install.bat

在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.