AI人工智慧程式交易 - 重磅登場 [開放實測] 僅到2019/12/31

Simon

jerry 發表於 19-8-23 16:30
大大請問您一開始是如何起手
還是您舊版本可以分享如何進入這新世界呢
就像您說您IT朋友很快就上手

Jerry 大，您好，
我個人建議先學會類神經網路，
之後再研究程式交易，
因為朋友之前有研究過人工智慧演算法
所以點一下就打通任督二脈...
我也是從網路上範例開始研究...
這段時間每天寫程式到深夜...
學習真的沒有捷徑...
還是...你願意付錢上課？...

cukie

Simon 發表於 19-8-23 21:39
學習真的沒有捷徑...
還是...你願意付錢上課？...

Simon大若開課 我願意付費

Simon

cukie 發表於 19-8-24 06:11
Simon大若開課 我願意付費

感謝 Cukie大支持。

Simon

課程資訊僅供參考:

課程ˊ資訊連結

mick

Simon 發表於 19-8-25 19:29
課程資訊僅供參考:

課程ˊ資訊連結

請問 simon 是用哪一種方式呢？

LSTM、random forest或是別的？

Simon

mick 發表於 19-8-26 11:49
請問 simon 是用哪一種方式呢？

LSTM、random forest或是別的？

Mick 大您好，
程式目前使用C# 類神經網路回歸 Neural Network Regression 加上獨創類似LSTM 方式
勝率可達70%以上
LSTM才能有效處理時序問題（解決期貨當沖問題）。
如果已經會LSTM就不需要報名惹。

kimoze

執行E-LEADERE
有顯示DDE連線報價成功

運作畫面這樣是正常嗎?
還是有遺漏什麼?

Simon

kimoze 發表於 19-8-27 09:35
執行E-LEADERE
有顯示DDE連線報價成功

Kimoze 大您好，
畫面跑掉了
請重新執行程式即可
下班後，再上載 本月當沖21勝/1負最強更新版本給您。
謝謝您

Simon

kimoze 發表於 19-8-27 09:35
執行E-LEADERE
有顯示DDE連線報價成功

請重新下載更新版


SimpleNeuralNetwork.rar (3.36 MB, 下載次數: 65, 售價: 10 金錢)

19-8-27 21:33 上傳

點擊文件名下載附件
類神經網路程式交易

下載後請直接覆蓋原來舊版程式即可

新版針對台指期當沖平倉出場條件判斷已經跑過參數最佳化

目前本月實單實戰最佳戰績 21勝/日 1負/日

mick

請問開永豐 Eleader 還要手動輸入帳號與密碼，有沒有自動輸入帳號密碼的方法呢？

Simon

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") '[4306]期貨近月技術分析 :(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, "錯誤") '[4306]期貨近月技術分析 :(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 去設定時間差去執行判斷
以上程式碼僅供參考

mick

simon 大大的程式會跳出提示訊息，要不要改用這個看看？

https://freeobfuscator.com/

Simon

mick 發表於 19-8-27 22:36
simon 大大的程式會跳出提示訊息，要不要改用這個看看？

https://freeobfuscator.com/ ...

那個太弱了...有試過

mick

以前寫的 永豐Eleader自動登入小工具，給需要的人。

可以桌上型電腦設定 BIOS 的 RTC 自動開機時間。
然後時間到 自動執行 永豐Eleader自動登入小工具.

省去輸入帳號與密碼的步驟，用 Excel 接 DDE 資訊時也可以方便使用。
附上Eleader自毀程式，可以在收盤時間過後，關閉 Eleader 程式。
要注意的是，帳號與密碼會存在 Config.txt 文字檔裡面，是用 [明碼] 的方式存檔。
Eleader帳號與密碼有被其他操作此台電腦的人偷看的風險。

Simon

mick 發表於 19-8-27 23:00
以前寫的 永豐Eleader自動登入小工具，給需要的人。

可以桌上型電腦設定 BIOS 的 RTC 自動開機時間。

很棒的小工具。
3Q