目前我寫vb.net連接元大yeswin報價軟體,利用NDDE元件
Advise裡面我沒有寫東西(如下)
Private Sub DDE_Advise(ByVal sender As Object, ByVal e As NDde.Client.DdeAdviseEventArgs) Handles DDE.Advise
End Sub
而我1600檔股票是跑回圈,類似下面這樣撈出收盤價(程式碼是從其他地方複製,不知道有沒有錯)
DDE.StartAdvise(dt8.Rows(t).Item("股票代碼") & ".Price", 1, True, 1000)
temp11 = DDE.Request(dt8.Rows(t).Item("股票代碼") & ".Price", 1, 1000)
ClosePrice = Encoding.GetEncoding(950).GetString(temp11, 0, temp11.Length).ToString.Replace(",", "")
但是每次總是在九點開盤到九點15分左右都會很多檔無法抓到正確的報價資料
九點15分之後就比較正常些了
不曉得有沒有大大有遇到這樣問題,不知道有沒有解決方式呢?
謝謝
|