尋找有研究Visual Basic

小弟我有寫出一個程式碼


可是我座標的語法還是不會到我指定的點


有研究Visual Basic的大大 可以一起討論嗎??

我目前寫的只是簡易的就是類似按鍵精靈      圖片的   只是我還不懂座標..該怎麼移動

模擬鼠標
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VB API函數：
mouse_event ←模擬一次鼠標事件
--------------------------------------------------------------------------------------------------------------------------------------------------------
相關API聲明：
mouse_event
↓
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 )
--------------------------------------------------------------------------------------------------------------------------------------------------------
定義變量：
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP
= &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const
MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const
MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
--------------------------------------------------------------------------------------------------------------------------------------------------------
MOUSEEVENTF_LEFTDOWN'鼠標左鍵按下
MOUSEEVENTF_LEFTUP'鼠標鬆開
MOUSEEVENTF_RIGHTDOWN '鼠標右鍵按下
MOUSEEVENTF_RIGHTUP'鼠標右鍵鬆開
--------------------------------------------------------------------------------------------------------------------------------------------------------
代碼：
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 )
Const MOUSEEVENTF_LEFTDOWN = &H2
Const
MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN =
&H8
Const MOUSEEVENTF_RIGHTUP = &H10
'這裡是 鼠標左鍵按下 和鬆開兩個事件的組合即一次單擊
mouse_event MOUSEEVENTF_LEFTDOWN or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
'模擬鼠標右鍵單擊事件
mouse_event MOUSEEVENTF_RIGHTDOWN or MOUSEEVENTF_RIGHTUP, 0,
0, 0, 0
'兩次連續的鼠標左鍵單擊事件 構成一次鼠標雙擊事件
mouse_event MOUSEEVENTF_LEFTDOWN or
MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN or
MOUSEEVENTF_LEFTUP, 0, 0, 0, 0



模擬鍵盤
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VB API函數：
keybd_event ←函數模擬了鍵盤行動
--------------------------------------------------------------------------------------------------------------------------------------------------------
相關API聲明：
keybd_event
↓
Private Declare Sub keybd_event Lib
"user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal
dwExtraInfo As Long)
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：Timer（interval不為空）
--------------------------------------------------------------------------------------------------------------------------------------------------------
代碼：
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,
ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Timer1_Timer()
Call keybd_event(82, 0, 0, 0) '模擬按下"R"鍵
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它模擬：
方法一：
AppActivate sTitle
SendKeys "5"
方法二：
AppActivate sTitle
SendKeys vbKey5
方法三：
SendMessage Hwnd,
WM_KEYDOWN, vbKey5, 0&
SendMessage Hwnd, WM_KEYUP, vbKey5, 0&
方法四：
AppActivate sTitle
keybd_event 53, 0, 0, 0
keybd_event 53,
0, KEYEVENTF_KEYUP, 0
方法五：
PostMessage lHwnd, WM_KEYDOWN, vbKey5, 0&
PostMessage lHwnd, WM_KEYUP, vbKey5


你自己試試看吧！我懶得做了∼上面有模擬鍵盤滑鼠行動的原始碼妳事著用用看！
不會的再問我∼

抱歉唷！我做好了但是。。。。。。最大的問題來了＝　＝?

ＮＰ過不了。。。。只能滑鼠移動（自動找怪）。。。其他按鍵部分完全被鎖住唷！

不能不血不能點怪只能蒐尋找怪∼。。。。

我還以為可以過。。。。我寫了好久＝　＝?累。。。。。刪掉刪掉灰心。。。

大大加油阿..

希望您能努力的完成..

然後來造福大家yociexp174.gif

大家都好厲害唷~我也要變強~謝謝大家