在windows2000xp下直接进行端口操作的程序。

				VERSION 5.00
				Begin VB.Form Form1 
				   Caption         =   "Form1"
				   ClientHeight    =   3195
				   ClientLeft      =   60
				   ClientTop       =   345
				   ClientWidth     =   4680
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   3195
				   ScaleWidth      =   4680
				   StartUpPosition =   3  'Windows Default
				   Begin VB.TextBox Text2 
				      Height          =   375
				      Left            =   2640
				      TabIndex        =   3
				      Top             =   600
				      Width           =   975
				   End
				   Begin VB.TextBox Text1 
				      Height          =   375
				      Left            =   720
				      TabIndex        =   2
				      Top             =   600
				      Width           =   975
				   End
				   Begin VB.CommandButton Command2 
				      Caption         =   "out"
				      Height          =   615
				      Left            =   2880
				      TabIndex        =   1
				      Top             =   1440
				      Width           =   1095
				   End
				   Begin VB.CommandButton Command1 
				      Caption         =   "in"
				      Height          =   615
				      Left            =   360
				      TabIndex        =   0
				      Top             =   1440
				      Width           =   1095
				   End
				   Begin VB.Label Label2 
				      Caption         =   "Data"
				      Height          =   255
				      Left            =   2880
				      TabIndex        =   5
				      Top             =   240
				      Width           =   855
				   End
				   Begin VB.Label Label1 
				      Caption         =   "Address"
				      Height          =   255
				      Left            =   960
				      TabIndex        =   4
				      Top             =   240
				      Width           =   855
				   End
				End
				Attribute VB_Name = "Form1"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Private Sub Command1_Click()
				Text2.Text = Str(Inp(Val("&H" + Text1.Text)))
				End Sub
				
				Private Sub Command2_Click()
				Out Val("&H" + Text1.Text), Val(Text2.Text)
				End Sub