请问如何对LPT1、COM1等进行访问

[szch]

请问如何对LPT1、COM1等进行访问
FileOpen(1, "LPT1", OpenMode.Output)
提示调用 CreateFile，然后使用采用 OS 句柄作为 IntPtr 的 FileStream 构造函数。
如何调用 CreateFile?

[szch]

Montaque(Rainman)兄，谢谢了！
再想问一下，CreateFile在VB.NET中有无对应的类？

[Montaque]

system.io下面有很多文件操作的类，比如filestream等。

[szch]

Montaque(Rainman)兄
CreateFile对应的类还是找不到。

[Montaque]

CreateFile是一个API，比如这样写：

Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000

Const OPEN_EXISTING = 3

Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" _
(ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As IntPtr

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim iHandle As IntPtr
iHandle = CreateFile("LPT1", GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)
If (iHandle.ToInt32 = -1) Then
MsgBox("can not open port")
Else
MsgBox("Open Succes!")
Dim fs As New FileStream(iHandle, FileAccess.ReadWrite)
Dim sr As New StreamReader(fs) '读数据
Dim sw As New StreamWriter(fs) '些数据
End If
End Sub

[szch]

Montaque(Rainman)兄，是否没有？
那我只好结贴了。

[Montaque]

CreateFile是一个API函数，很多通讯的程序都用到，

[szch]

谢谢了！