خواندن و نوشتن در پورتها با CreateFile

[noorsoft]

با عرض پورش لینک را اصلاح کردم اگه ممکنه دوباره ببینید

داخل این زیر برنامه بود

Private Function OpenPort(sPort As String) As Boolean

   Dim sa As SECURITY_ATTRIBUTES
  
   hFakePort = CreateFile(sPort, _
                          0, _
                          FILE_SHARE_READ Or FILE_SHARE_WRITE, _
                          sa, _
                          OPEN_EXISTING, _
                          FILE_ATTRIBUTE_NORMAL, _
                          0)
    
   OpenPort = hFakePort <> -1
    
End Function