一段代码,仅供参考:    MSComm_Mifare.InputMode = comInputModeBinary
  MSComm_Mifare.Settings = "9600,n,8,1"
  MSComm_Mifare.InBufferSize = 2048
  MSComm_Mifare.OutBufferSize = 512
  MSComm_Mifare.CommPort = 1
  MSComm_Mifare.InputLen = 0
  If MSComm_Mifare.PortOpen = True Then MSComm_Mifare.PortOpen = False
  MSComm_Mifare.PortOpen = True  Dim ArrClearOut(2) As Byte
  Dim ArrClearIn() As Byte
  
  On Error GoTo LabelWrong
  
  ArrClearOut(0) = &H1
  ArrClearOut(1) = &H2
  ArrClearOut(2) = &H5
  
  MSComm_Mifare.Output = ArrClearOut
  Do Until MSComm_Mifare.OutBufferCount = 0
    DoEvents
  Loop
  Exit Function
LabelWrong:
  MsgBox Err.Description, vbInformation, "信息提示"

解决方案 »

  1.   

    端口,不是串口。
    如C中的 _intp(); _outp()函数
      

  2.   

    你说的是直接对I/O地址操作的吧
    有这样的动态连接库,我以前用过,是在一个英文网站下载的
    有98版和nt版(nt版有保护模式,多了一个.sys文件),几十K而已吧
    一时找不到了,是其他语言编写的DLL,可以用vb调用,我忘了下载地址了
    在一个VB串口编程(清华出的那本)里面有个地方提到过,有下载网址
    你是要做数据采集板卡的程序吗?
      

  3.   

    到www.google.com里面查找
    “I/O的DLL下载”,里面应该有,自己找吧,
    http://music.sc.cninfo.net/download/list.jsp?sort=sof_sdk&page=1
    32位端口I/O DLL For Win95 的
     NT 的和这个不一样
      

  4.   


    如C中的 _intp(); _outp()函数那样直接对端口操作,vb里如何做?
    不想通过其它的DLL,行吗?
      

  5.   

    不通过其他的DLL不行,VB作不了!
    想VB,PB这样的语言都作不到,但C++可以,里面有函数!
    用其他语言作好的DLL(里面有函数可以调用),就像用API函数一样
      

  6.   

    就算通过dll,好像也不行了,可能需要写wdm虚拟一个设备了
      

  7.   

    不用,NT下面,也已经解决了,多了一个.sys文件,是虚拟设备
    具体地址我忘了,你自己找吧
      

  8.   

    找了一下午都没找到,找到一个DirectIo.dll(下载地址:http://drhe.topcool.net/programm/directio/DirectIO.zip)却无法正常使用,好像没有开放接口,可说明却有:
    2.端口读函数 
      unsigned char inportbyte(unsigned short port):读Byte(8bit) 
      unsigned short inportword(unsigned short port):读Word(16bit) 
      unsigned long inportdword(unsigned short port):读Double Word(32bit) 
      
    3.端口写函数 
        void outportbyte(unsigned short port,unsigned char data):读Byte(8bit) 
        void outportword(unsigned short port,unsigned short data):读Word(16bit) 
        void outportdword(unsigned short port,unsigned long data):读Double Word(32bit) 
    请大家帮忙阿!!
      

  9.   

    我手上有两个操作I/O端口的DLL,NT/2000/XP下都可以用,请和我联系。
    [email protected]
      

  10.   

    楼上的,给我一个,谢谢了!      [email protected]
      

  11.   

    使用VC可以先做个DLL,然后在VB中说明调用就可以了,我原来写过这个DLL,你告诉我的EMAI 我会发个给你
      

  12.   

    SeeMeStudio(程式猎人) 能否给一个
    [email protected]
    谢了!
      

  13.   

    VB接直做不了I/O的读写.
    只有调用其它言语写的DLL.
    到其它网站下在DLL然后调用了就OK了