Hi Calcasla,
Es indispensable utilizar el VB6?
intente utilizar VC, el puerto es transparentes accesando como LPT1.

Es indispensable utilizar el VB6?
intente utilizar VC, el puerto es transparentes accesando como LPT1.
PHP:
void receive_string_LPT(unsigned char *a)
{
DWORD bytesRead;
UCHAR rxData = 1;
unsigned char c;
c=0; //inicializa variable
do{
ReadFile(hParallel, &rxData, sizeof(rxData), &bytesRead, NULL); //lee dato del puerto
*(a+c) = rxData; //agrega dato a la cadena
c++; //incrementa el contador de c
}while(rxData != 0x0A && rxData != 0x0); //mientras no sea un Return o nulo
}
void send_byte_LPT(unsigned char Data)
{
DWORD bytesSent;
UCHAR txData;
txData = Data; //asigna valor a trasmitir
WriteFile(hParallel, &txData, sizeof(txData), &bytesSent, NULL); //envia byte por puerto
}
unsigned char init_LPT(void)
{
COMMTIMEOUTS parallelTimeouts; //estatus de puerto
LPCWSTR gszPort;
gszPort = LPT;
SetLastError(0); //cancela ultimo error
hParallel = CreateFile( gszPort, //crea connection a comm
GENERIC_READ | GENERIC_WRITE,
0,
0,
OPEN_EXISTING,
0, //FILE_FLAG_OVERLAPPED,
0);
if(hParallel == INVALID_HANDLE_VALUE)return(0); //envia error
parallelTimeouts.ReadIntervalTimeout = MAXDWORD;
parallelTimeouts.ReadTotalTimeoutMultiplier = 0;
parallelTimeouts.ReadTotalTimeoutConstant = 0;
parallelTimeouts.WriteTotalTimeoutMultiplier = 0;
parallelTimeouts.WriteTotalTimeoutConstant = 0;
SetCommTimeouts(hParallel, ¶llelTimeouts);
return(1); //envia OK
}