易語言 怎麽獲取鼠標在哪個地方點擊了左鍵和右鍵,還有點擊間隔的時間

'哇好難!!!?竟然沒人會? 會的都不是人?

'那些用"全局鼠標鉤子"的是外星人?妖怪

'寫以下代碼的(用API的)是神是上帝:

'以下代碼用上了?傳說中的?"時鐘控件"?(高科技啊?壹般人不會用的)?狀態顯示在了"窗口標題"(般人我不告訴他)

.版本?2

.程序集?窗口程序集1

.程序集變量?t

.子程序?__啟動窗口_創建完畢

t?＝?取啟動時間?()

時鐘1.時鐘周期?＝?1

.子程序?_時鐘1_周期事件

.如果?(測試虛擬鍵_?(1)?≠?0)

_啟動窗口.標題?＝?“左鍵按下?”?＋?到文本?(取鼠標水平位置?())?＋?“,”?＋?到文本?(取鼠標垂直位置?())

.判斷循環首?(測試虛擬鍵_?(1)?≠?0)

.判斷循環尾?()

_啟動窗口.標題?＝?“左鍵彈起?坐標?”?＋?到文本?(取鼠標水平位置?())?＋?“,”?＋?到文本?(取鼠標垂直位置?())?＋?“?間隔”?＋?到文本?(取啟動時間?()?－?t)?＋?“毫秒”

t?＝?取啟動時間?()

.否則

.如果真?(測試虛擬鍵_?(2)?≠?0)

_啟動窗口.標題?＝?“右鍵按下?”?＋?到文本?(取鼠標水平位置?())?＋?“,”?＋?到文本?(取鼠標垂直位置?())

.判斷循環首?(測試虛擬鍵_?(2)?≠?0)

.判斷循環尾?()

_啟動窗口.標題?＝?“右鍵彈起?坐標?”?＋?到文本?(取鼠標水平位置?())?＋?“,”?＋?到文本?(取鼠標垂直位置?())?＋?“?間隔”?＋?到文本?(取啟動時間?()?－?t)?＋?“毫秒”

t?＝?取啟動時間?()

.如果真結束

.如果結束

.版本?2

.DLL命令?測試虛擬鍵_,?整數型,?"user32",?"GetAsyncKeyState"

.參數?鍵代碼,?整數型,?,?vKey?Long，欲測試的虛擬鍵的鍵碼?