这个代码怎么用啊，怎么在vb用不起???

来源：百度知道编辑：UC知道时间：2024/07/07 00:45:00

WINIO在VB下模拟鼠标左键点击,具体代码如下:
Private Sub XR()
Dim Result As Boolean

Result = SetPortVal(Val("&H64"), Val("&HD3"), 1)

If (Result = False) Then
MsgBox "Whoops ! There is a problem with SetPortByte.", vbOKOnly + vbCritical, "VBDumpPort32"
Unload FrmVBDumpPort32
End If
Sleep 100
Result = SetPortVal(Val("&H64"), Val("&Hf4"), 1)

If (Result = False) Then
MsgBox "Whoops ! There is a problem with SetPortByte.", vbOKOnly + vbCritical, "VBDumpPort32"
Unload FrmVBDumpPort32
End If

Result = SetPortVal(Val("&H60"), Val("&H09"), 1)

If (Result = False) Then
MsgBox "Whoops ! There is a problem with SetPortByte.", vbOKOnly + vbCritical, "VBDumpPort32"
Unload FrmVBDumpPort32
End If

Result = SetPort

运行不了?出错信息呢?
不会漏了这个吧:
Declare Function SetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean

还有,SetPortVal(Val("&H60"), Val("&H00"), 1)写得麻烦了点,这样写就可以了:SetPortVal( &H60% , &H0& , 1)

最近总看到楼上的同志啊,也在学vb吗?

你的SetPortVal模块呢?

这个代码怎么用啊，怎么在vb用不起??? 怎么用VB代码结束进程啊这个VB代码应该怎么写 vb adodc 怎么用代码实现数据库连接怎么用VB代码打开ACD`````` 当得到VB代码后怎么用啊 VB中，在text里能不能用换行符替换空格？用代码怎么替换？用vbscript写的代码怎么才能在vb里使用？（关于WMI）这个VB代码怎么写（进来看看）请问VB的这个代码要怎么写