- 帖子
- 508
- 主題
- 53
- 精華
- 0
- 積分
- 583
- 點名
- 79
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2024-4-19
          
|
10#
發表於 2019-2-19 08:48
| 只看該作者
回復 8# fei6999
承接 5# 及 7#
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
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)
Sub 技術線圖_個股顯示()
Dim stockNo$
stockNo = "3552"
Sleep (100)
AppActivate "[6000] 技術線圖" 'Focus on this window
Sleep (1000)
''確保鍵盤為英數輸入法
If IMEStatus = 1 Then
SendKeys "+", True '變更輸入法按鍵
End If
SendKeys "2" 'AppAtivate "股票代號、名稱或功能代碼" 視窗
SendKeys "{BS}" ': Sleep (100)
SendKeys stockNo: Sleep (1000)
SendKeys "{ENTER}"
SendKeys "{NUMLOCK}": Sleep (500)
End Sub
'在點金靈看圖軟體 的 "[6000]技術線圖" 點按 Excel圖示
'匯出 線圖資料
'===========================================
Sub 技術線圖匯出_Click()
AppActivate "[6000] 技術線圖"
Sleep 1000
視窗最大化
SetCursorPos 1845, 41 'Excel圖示 的點按位置座標， AutoIt 的量測點 (1476,33) * 顯示倍數 125%
Sleep 1000
MouseLeft_Click
Sleep 2500
SendKeys "% R" '視窗還原
Sleep (500)
SendKeys "{NUMLOCK}"
End Sub
Sub 視窗最大化()
AppActivate "[6000] 技術線圖"
SendKeys "% X", True
SendKeys "{NUMLOCK}"
End Sub
Sub MouseLeft_Click()
mouse_event 2, 0, 0, 0, 0 'Key down
Sleep (50)
mouse_event 4, 0, 0, 0, 0 'Key up
Sleep (50)
End Sub
以上，可以變更股票代號 並 將線圖資料匯出到 EXCEL 檔
不過，在多顯示器時就不知要如何處處理了!!!! (假設 [6000] 技術線圖" 是顯示在第2個顯示器) |
|
