计算机启动 ---> 我用自己的程序写COM 端口时会出错 ---->用别人用VB写好的COM调试程序试写端口时不会出错 -----> 再用我的程序写端口不

[wrongt]

计算机启动 ---> 我用自己的程序写COM 端口时会出错 ---->用别人用VB写好的COM调试程序试写端口时不会出错 -----> 再用我的程序写端口不会出错（以后都不会出错）； 我的意思是为什么要先用别的程序运行一次，然后我的程序才能运行？我的程序是用VC写的！COM口初始化时的代码如下：

BOOL OpenCom(CString strCom)
{
m_hFile = CreateFile(strCom,
GENERIC_READ|GENERIC_WRITE,
0,
NULL,
OPEN_EXISTING,
0,
NULL);
if(m_hFile == (HANDLE)-1 )
{
this->GetError();
return FALSE;
}

::SetupComm(m_hFile,1024,512);

DCB dcb;
dcb.DCBlength = sizeof(DCB);
::GetCommState(m_hFile,&dcb);
dcb.DCBlength = sizeof(DCB);
dcb.ByteSize = 8;
dcb.BaudRate = 9600;
dcb.StopBits = 1;
dcb.fNull = 0;
dcb.fOutX = 0;
dcb.fInX = 0;
dcb.fDtrControl = DTR_CONTROL_ENABLE;
dcb.fRtsControl = 0;
dcb.fParity = FALSE;
dcb.fBinary = TRUE;
dcb.XoffLim = 0;
dcb.XonLim = 0;

::SetCommState(m_hFile,&dcb);


COMMTIMEOUTS TimeOuts;
::GetCommTimeouts(m_hFile,&TimeOuts);

TimeOuts.ReadIntervalTimeout = 10;
TimeOuts.ReadTotalTimeoutMultiplier = 10;
TimeOuts.ReadTotalTimeoutConstant = 100;
TimeOuts.WriteTotalTimeoutMultiplier = 10;
TimeOuts.WriteTotalTimeoutConstant = 100;

::SetCommTimeouts(m_hFile,&TimeOuts);

return TRUE;
}

上面说的出错情况是：
BYTE DoData[30];
unsigned long int nLength =0 ;
DoData = ".00124567890"
用WriteFile(hFile,DoData,13,&nLength,NULL);写端口时输出的数据时乱码！
我把这几行代码去掉也不行：
dcb.fNull = 0;
dcb.fOutX = 0;
dcb.fInX = 0;
dcb.fDtrControl = DTR_CONTROL_ENABLE;
dcb.XoffLim = 0;
dcb.XonLim = 0;
dcb.fRtsControl = 0;
能告诉我为什么吗？谢谢！