求救:关于createfile的一个很棘手的串口通信问题

我用vb6.0调用人家写的动态库做了个串口通信的程序，但是我的串口通信程序在Win2000里完全可以用但是到了win98里怎么运行程序就弹出对话框为“无法打开串口”,这是为什么啊？请各位高手指教一下，谢谢！
VB写的关于串口的程序如下：
Private Sub StartCom
Const GENERIC_READ=&H80000000
Const GENERIC_WRITE=&H40000000
Const OPEN_EXISTING=3
Const FILE_ATTRIBUTE_NORMAL=&H80
Dim SecurityA As SECURITY_ATTRIBUTES


Dim Temp(5) As String
FIleName for inpute Lock Read Write As #1
on Error Resume Next
Input #1, temp(0),temp(1),temp(2),temp(3),temp(4)
Close #1

select case(temp(3))
Case 0:hCom=CreateFile("COM1",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 1:hCom=CreateFile("COM2",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 2:hCom=CreateFile("COM3",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 3:hCom=CreateFile("COM4",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 4:hCom=CreateFile("COM5",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 5:hCom=CreateFile("COM6",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 6:hCom=CreateFile("COM7",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 7:hCom=CreateFile("COM8",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 8:hCom=CreateFile("COM9",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 9:hCom=CreateFile("COM10",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 10:hCom=CreateFile("COM11",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
Case 11:hCom=CreateFile("COM12",GENERIC_READ OR GENERIC_WRITE,0,SECURITYA,OPEN_EXISTING,FILE_ATTRIZBUTE_NORMAL,0)
end select
if hcom=-1 then
i=MSGBOX("无法打开串口",vbOKONLY,"错误"
StatusBar1.Panels(1).Text="无法打开串口!"
else: if iniCom(hcom,Temp(0),8,temp(1),temp(2),Temp(4)=False Then
i=MsgBOX("串口初始化失败",vbOKONLY,"错误")
StatusBar1.Panels(1).Text="串口初始化失败!"
CLoseHandle(hCom)
else:
StartCom.Enabled=False
playCommand.Enabled=False
stopcom.Enabled=true
stopcommand.enabled=true
Combo1.Enabled=True
searchadd.Enabled=True
StatusBAR1.Panels(1).Text="串口已成功打开!"
searchAdd_Click
end if
end sub

调用的动态库程序如下：
extern"C"_declspec(dellexport)BOOL IniCom(HANDLE hCom, long Baurate,short DataBits,short Parity,short StopBits,short TimeOut)
{
DCB dcb
COMMTIMEOUTS CommTime;
BOOL Error=TRUE;


if(hCom==INVALID_HANDLE_value)
{
//MessageBox(NULL,"无法打开串口! " ,"故障",MB_IConERROR);
return FALSE;
}
Error=SetupComm(hCom,1024,1024);
if(!Error)
{
//MessageBox(NULL,"设定串口缓冲区时出错! " ,"故障",MB_IConERROR);
return False;
}
GEtCommTimeots(hcom,&CommTimes);
CommTimes.ReadIntervalTimeout=0x00;//间隔超时(mS);0为不使用
commTimes.ReadTotalTimeoutMultiplier=0X01;//乘量(mS);总超时=乘量*字节+常量
commTimes.ReadTotalTimeoutConstant=TimeOut;//OX64;//常量(ms)
Error=SetcommTimeouts(hCom,&CommTimes);
if(!Error)
{
//MessageBox(NULL,"设定串口读写超时时出错! " ,"故障",MB_IConERROR);
return FALSE
}
Error=GetCommState(hcom,&dcb);
if (!ERROR)
{
//MessageBox(NULL,"读写串口参数时出错! " ,"故障",MB_IConERROR);
return FALSE
}
/********初始化串口参数**********/
dcb.BaudRate=BaudRate;
dcb.ByteSize=DataBits;
dcb.PArity=Parity;
dcb.StopBits=StopBits;
/*********结束*******************/
Error=setCommState(hCom,&dcb);
if(!ERROR)
{
//MessageBox(NULL,"设定串口参数时出错! " ,"故障",MB_IConERROR);
return FASE
}
rturn TRUE;
}


我的email为：jiechen111@163.com,请各位高手联系我，给点解决问题的方法的建议我，谢谢！

extern"C"_declspec(dellexport)BOOL IniCom(HANDLE hCom, long Baurate,short DataBits,short Parity,short StopBits,short TimeOut)
修改为
_declspec(dellexport)BOOL WINAPI IniCom(HANDLE hCom, long Baurate,short DataBits,short Parity,short StopBits,short TimeOut)

哈哈，还有个地方错了，就是COM口的名称
应该是\\\\.\\COMx这样

你们说的不对啊,我在win2000里这个程序很好用的啊,没错啊!肯定不是//./的问题,在vb里可以不加//./的啊!

你们说的不对啊,我在win2000里这个程序很好用的啊,没错啊!肯定不是//./的问题,在vb里可以不加//./的啊!

按上面说的修改后测试了吗？
没有测试，就先不要一下，好不？

以前没有注意，你的SECURITYA没有给值，直接将SECURITYA修改为NULL，可能是2000和98处理堆栈中的变量有所不同

在vb里不存在null，我把SecurityA的值改为0以后在win98里还是出现“无法打开串口”这个问题，然后我只能把SecurityA改成空值即0&在win98还是出现“无法打开串口”这个问题！奇怪啊，请再为我分析一下好吗？谢谢