新建 文本文档 (3).txt

SIM读卡器的源码

 Public   Declare   Function   RTr2card   Lib   "rwcommnew.dll"   (ByVal   inb   As   String,   Byval   inTr2str   As   string)   As   Long     
    
  Private   Sub   CmdReadCard_Click()   
  Dim   str2   As   string   
  Dim   rc_flag   As   Long   
  str2=space(80)   
  rc_flag   =   RTr2card("COM4",   str2)   
  End   Sub