jerry 發表於 19-8-23 16:30
大大請問您一開始是如何起手
還是您舊版本可以分享如何進入這新世界呢
就像您說您IT朋友很快就上手
Jerry 大，您好，
我個人建議先學會類神經網路，
之後再研究程式交易，
因為朋友之前有研究過人工智慧演算法
所以點一下就打通任督二脈...
我也是從網路上範例開始研究...
這段時間每天寫程式到深夜...
學習真的沒有捷徑...
還是...你願意付錢上課？...
本帖最後由 cukie 於 19-8-24 07:09 編輯
Simon 發表於 19-8-23 21:39
學習真的沒有捷徑...
還是...你願意付錢上課？...
Simon大若開課 我願意付費{:4_196:}
cukie 發表於 19-8-24 06:11
Simon大若開課 我願意付費
感謝 Cukie大支持。
課程資訊僅供參考:
課程ˊ資訊連結
Simon 發表於 19-8-25 19:29
課程資訊僅供參考:
課程ˊ資訊連結
請問 simon 是用哪一種方式呢？
LSTM、random forest或是別的？
本帖最後由 Simon 於 19-8-26 15:52 編輯
mick 發表於 19-8-26 11:49
請問 simon 是用哪一種方式呢？
LSTM、random forest或是別的？
Mick 大您好，
程式目前使用C# 類神經網路回歸 Neural Network Regression 加上獨創類似LSTM 方式
勝率可達70%以上
LSTM才能有效處理時序問題（解決期貨當沖問題）。
如果已經會LSTM就不需要報名惹。
執行E-LEADERE
有顯示DDE連線報價成功
運作畫面這樣是正常嗎?
還是有遺漏什麼?
本帖最後由 Simon 於 19-8-27 10:16 編輯
kimoze 發表於 19-8-27 09:35
執行E-LEADERE
有顯示DDE連線報價成功
Kimoze 大您好，
畫面跑掉了
請重新執行程式即可
下班後，再上載 本月當沖21勝/1負最強更新版本給您。
謝謝您
本帖最後由 Simon 於 19-8-27 21:43 編輯
kimoze 發表於 19-8-27 09:35
執行E-LEADERE
有顯示DDE連線報價成功
請重新下載更新版
下載後請直接覆蓋原來舊版程式即可
新版針對台指期當沖平倉出場條件判斷已經跑過參數最佳化{:4_163:}
目前本月實單實戰最佳戰績 21勝/日 1負/日 {:4_186:}
請問開永豐 Eleader 還要手動輸入帳號與密碼，有沒有自動輸入帳號密碼的方法呢？
mick 發表於 19-8-27 22:07
請問開永豐 Eleader 還要手動輸入帳號與密碼，有沒有自動輸入帳號密碼的方法呢？ ...
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Integer) As Integer
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
上面是會用到的 API
下面是 VB.NET 自動執行永豐易利得方法還可以自動輸入帳密
#Region "ELEADER 視窗控制函數"
Private Function LoadEleader() As Status
LoadEleader = Status.Loading
Dim c As Char
For Each c In Pwd
password.AppendChar(c)
Application.DoEvents()
Next c
LoadEleader = Status.Loading_Completed
Try
Process.Start(Path + "VUp.exe", name, password, domain)
Catch ex As Exception
LoadEleader = Status.Loading_failed
RaiseEvent EleaderStatusEvent(Status.Loading_failed, ex.Message)
End Try
End Function
Private Function Input_Pwd() As Status
LoginInputPassword = Status.eNothing
Dim lngHwnd As IntPtr
lngHwnd = FindWindow(vbNullString, "CatXP Login") '尋找視窗標題 'e-Leader
SetForegroundWindow(lngHwnd)
If (lngHwnd) Then
SendKeys.Send(Pwd)
SendKeys.Send("{ENTER}")
LoginInputPassword = Status.LoginPassword_Completed
End If
Return LoginInputPassword
End Function
Private Function Version_Management() As Boolean
'--- 版本管理 ---
Version_Management = False
Dim lngHwnd As IntPtr
lngHwnd = FindWindow(vbNullString, "版本管理")
SetForegroundWindow(lngHwnd)
If (lngHwnd) Then
'SendMessage(lngHwnd, WM_CLOSE, 0, 0)
'SendMessage(lngHwnd, WM_COMMAND, &H2015, 0)
'SendKeys.Send("{ENTER}")
'E_Status = Status.Version_Management
Version_Management = True
End If
lngHwnd = Nothing
'TabControl1.SelectedTab = TabControl1.TabPages(0)
Return Version_Management
End Function
Private Function Entry_Eleader_System() As Status
EntryEleaderSystem = Status.eNothing
Dim lngHwnd As IntPtr
lngHwnd = FindWindow(vbNullString, "e-Leader") '尋找視窗標題 'e-Leader
'SetForegroundWindow(lngHwnd)
If (lngHwnd) Then
EntryEleaderSystem = Status.EntryEleaderSystem_Completed
End If
lngHwnd = Nothing
Return EntryEleaderSystem
End Function
Public Function Exit_Eleader_System() As Boolean
Dim lngHwnd As IntPtr
lngHwnd = FindWindow(vbNullString, "e-Leader") '期貨近月技術分析 :(0) TR<420503>
SetForegroundWindow(lngHwnd)
If (lngHwnd) Then
'SendMessage(lngHwnd, WM_CLOSE, 0, 0)
SendMessage(lngHwnd, WM_COMMAND, &H2015, 0)
'SendKeys.Send("{ENTER}")
'KWindows = False
'Timer1.Enabled = False ' 計數器停止計數
Exit_Eleader_System = True
Else
Exit_Eleader_System = False
End If
'TabControl1.SelectedTab = TabControl1.TabPages(0)
Return Exit_Eleader_System
End Function
Private Function Eleader_Error() As Status
'---連線中斷---
Dim lngHwnd As IntPtr
lngHwnd = FindWindow(vbNullString, "錯誤") '期貨近月技術分析 :(0) TR<420503>
SetForegroundWindow(lngHwnd)
If (lngHwnd) Then
'SendMessage(lngHwnd, WM_CLOSE, 0, 0)
'SendMessage(lngHwnd, WM_COMMAND, &H2015, 0)
SendKeys.Send("{ENTER}")
E_Status = Status.Running_Error
End If
lngHwnd = Nothing
'TabControl1.SelectedTab = TabControl1.TabPages(0)
Return E_Status
End Function
#End Region
抓取視窗的方法可以參考 SPY++開發工具
執行永豐易利得與自動輸入帳密接需要透過 Timer 去設定時間差去執行判斷
以上程式碼僅供參考{:4_186:}
simon 大大的程式會跳出提示訊息，要不要改用這個看看？
https://freeobfuscator.com/
mick 發表於 19-8-27 22:36
simon 大大的程式會跳出提示訊息，要不要改用這個看看？
https://freeobfuscator.com/ ...
那個太弱了...有試過
以前寫的 永豐Eleader自動登入小工具，給需要的人。
可以桌上型電腦設定 BIOS 的 RTC 自動開機時間。
然後時間到 自動執行 永豐Eleader自動登入小工具.
省去輸入帳號與密碼的步驟，用 Excel 接 DDE 資訊時也可以方便使用。
附上Eleader自毀程式，可以在收盤時間過後，關閉 Eleader 程式。
要注意的是，帳號與密碼會存在 Config.txt 文字檔裡面，是用 [明碼] 的方式存檔。
Eleader帳號與密碼有被其他操作此台電腦的人偷看的風險。
mick 發表於 19-8-27 23:00
以前寫的 永豐Eleader自動登入小工具，給需要的人。
可以桌上型電腦設定 BIOS 的 RTC 自動開機時間。
很棒的小工具。
3Q