问几个问题

Siner

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

这个函数可以通过一个运行的程序的标题名来获取句柄号
比如我是这么写的：
l = FindWindow(vbNullString,"无标题 - 记事本")
请问一下，ByVal lpClassName As String这个参数是什么东西？ 类型名？

如果我想通过某个映象名称来获取它的句柄号，我应该用什么函数？ 请告诉我谢谢。

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

这个函数可以像一个窗口发送消息，目前我能做到的是发送关闭程序，和模拟键盘。
我想知道如何模拟鼠标？ 请告诉我谢谢
您就写个，把鼠标移动到100,100的位置双击左键

游戏之家

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
MI As Long
MJ As Long
End Type

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_LBUTTON = &H1      '鼠标左键
Private Const VK_RBUTTON = &H2      '鼠标右键

--------------------------------------------------------------'

Dim POINT As POINTAPI
GetCursorPos POINT

Text1 = "(" & POINT.MI & "," & POINT.MJ & ")"      '显示鼠标的坐标(需要建一个TEXT文本框)

If POINT.MI > 0 And POINT.MI < 100 And POINT.MJ > 0 And POINT.MJ < 100 Then    '鼠标的位置0,0-100,100

If GetAsyncKeyState(VK_LBUTTON) And &H8000 Then      '按下鼠标左键
If GetAsyncKeyState(VK_RBUTTON) And &H8000 Then      '按下鼠标右键

不明白的话我发例子上来.

Siner

If GetAsyncKeyState(VK_LBUTTON) And &H8000 Then      '按下鼠标左键
If GetAsyncKeyState(VK_RBUTTON) And &H8000 Then      '按下鼠标右键

这两句不明白啊，怎么用了IF
GetAsyncKeyState返回一个整形数值？ 这里意思就是不返回0的话就THEN？
And &H8000 这又是什么意思？
THEN后面没写东西，我试着写：GetAsyncKeyState VK_LBUTTON不过没有用。

Siner

我明白你写的了，不过你理解错了我的意思。

我要的效果相当于：
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 '  left button up

Private Sub Command1_Click()
    SetCursorPos 100, 100
    Sleep 100
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub Command2_Click()    '这个按钮在100,100的位置
    MsgBox "Click!"
End Sub

但是这个程序运行的时候，我就不能再移动我的鼠标了
其实就是要做一个在游戏里模仿鼠标和键盘的动作
但运行的时候我一样可以干别的事情，比如聊QQ。

游戏之家

THEN  后面是你要做的事.

可能我没明白你的意思, 不过我的方法是可以实现你的想法, 还需要写更多的代码.

Siner

可是我想知道的就是，要后面再写的代码
就是如何让程序模拟鼠标的移动的点击。
并不是判断鼠标是否在某一个区域点击了。

游戏之家

你是不是搞外挂呀!!???

Siner

是呀
Ultima Online知道吗？
这个游戏练功是允许挂机的，不是官方站。
这个游戏练功不挂机会死人的。
我是想试着做个外挂，主要还是学会。

何况只是模拟鼠标和键盘的，并不是修改什么东西呀。