PleaceOrderNewStock 方法 | 金字塔量化

# PleaceOrderNewStock 方法

PleaceOrderNewStock(Code, Market, Price, Vol, Account)

执行新股申购操作，
返回值：返回申购的下单ID，下单后的消息与普通委托一致通过OrderStatusEx2事件返回。

参数

参数	说明
Code	新股代码
Market	申购市场
Price	申购价格
Vol	申购数量
Account	申购的账户，若为空字符串表示当前登录的默认账户

示例

自动新股申购源码共享

您是否为了记住每天都要查看都有哪些新股需要发行而烦恼呢，是否会因为忘记申购发行的新股而懊恼呢？从现在开始就不用怕啦，金字塔已经全面支持股票的自动化操作了，有了这个强大的工具，为啥该机器去做的事情，还要人工的去搞呢。

示例

'该VBA代码仅限4.2正式版或更高版本支持
'该标志用来标记属于VBA的查询，防止手工查询新股申购时自动申购
Dim NewStockStatus 
NewStockStatus = 0

Sub APPLICATION_Timer(ID)
    If Id = 0 Then

        If Time = "09:45:00" Then
            '执行新股申购查询
            NewStockStatus = 1
            Order.ReqNewStockInfo ""
        End If

        If Time = "09:46:00" Then
            '一分钟后停止标记
            NewStockStatus = 0
        End If

        If Time = "09:50:00" Then
        '查询是否中签
        Order.ReqNewStockLotInfo ""
        End If

    End If
End Sub

Sub APPLICATION_VBAStart()
    Application.SetTimer 0,1000
End Sub

Sub ORDER_ActionNotify(Types, Account, Data)

    If Types = 2 And Data > 0 And NewStockStatus = 1 Then
        '当新股申购查询返回直接处理申购事宜
        NewStockPleaceOrder(Data)
    End If

    If Types = 3 And Data > 0 Then
        '当查询到中签新股后，触发语音播报消息
        SpkSound
    End If

End Sub

'该过程对已经查询过的当日可申购新股做自动申购操作
Sub NewStockPleaceOrder(Count)
    Dim Code
    Dim Name
    Dim Market
    Dim Price
    Dim Upperlimit
    Dim Lowerlimit

    NewSize = Count
    For I = 0 To NewSize - 1
        Ret = Order.GetNewStockInfo(i,"",Code,Name,Market,Price,Upperlimit,Lowerlimit)

        If Ret = 1 Then
            '满额申购新股
            MaxVol = Order.GetNewStockMaxVol("",Market)

            If MaxVol > 0 Then
                call Order.PleaceOrderNewStock(Code,Market,Price,MaxVol,"")
                Application.MsgOut "已经处理新股委托"&Code&"--"&Name
            End If

            Set Code = NoThing
            Set Name = NoThing
            Set Market = NoThing
        End If

    Next
End Sub

Sub SpkSound

    Set Spk = CreateObject("SAPI.SpVoice")
    Spk.Speak "恭喜您，新股中签啦"
    Set Spk = nothing
    Application.PlaySoundFile "OptimizeComplete.wav"

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

应用于

Order 对象