請(qǐng)老師幫幫忙　[金字塔]

我在網(wǎng)上看到這個(gè)給qq發(fā)短信的帖子  我想問(wèn)一下  里面有一些東西 我不會(huì)設(shè)置

Sub APPLICATION_VBAStart()
 call Application.SetTimer(0,300) '創(chuàng)建一個(gè)0號(hào)定時(shí)器，間隔時(shí)間3秒
End Sub

Sub APPLICATION_Timer(ID)
Set Formula = marketdata.STKINDI("if00","zj","短線1號(hào)",0,17)'品種、周期、指標(biāo)修改為自己需要的。
    cc =  Formula.GetBufData("mxcc",Formula.DataSize-1) '顯示最后周期指標(biāo)線數(shù)值
    refcc = Formula.GetBufData("mxcc",Formula.DataSize-2) '顯示倒數(shù)第二周期指標(biāo)線數(shù)值
       
set Report1 = marketdata.GetReportData("if00","zj")
    ifjg = Report1.NewPrice
   
Set obj = CreateObject("WWSCommon.TCGroup")
    bq = "明心股指日內(nèi)3分鐘"'這里是信號(hào)之前的版權(quán)（廣告）
    IF refcc=0 and cc>0 then
       mxmsg = bq &" " & Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"開(kāi)多"&cc&"手。"
       'application.MsgOut mxmsg
       call obj.TransMessage("程序化初級(jí)群", mxmsg)
       Set obj = Nothing
    elseIF refcc>0 and cc=0 then
       mxmsg = bq &" " &  Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"平多"&refcc&"手。"
       'application.MsgOut mxmsg
       call obj.TransMessage("程序化初級(jí)群", mxmsg)
       Set obj = Nothing
    elseIF refcc=0 and cc<0 then
       ss = 0-cc
       mxmsg = bq &" " &  Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"開(kāi)空"&ss&"手。"
       'application.MsgOut mxmsg
       call obj.TransMessage("程序化初級(jí)群", mxmsg)
       Set obj = Nothing
    elseIF refcc<0 and cc=0 then
       ss = 0-refcc
       mxmsg = bq &" " &  Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"平空"&ss&"手。"
       'application.MsgOut mxmsg
       call obj.TransMessage("程序化初級(jí)群", mxmsg)
       Set obj = Nothing
    else
     'mxmsg =bq &" " &  Date &" " &Time&vbCrLf&"暫無(wú)變化，保持之前狀態(tài)。"
     'application.MsgOut mxmsg
     'call obj.TransMessage("程序化初級(jí)群", mxmsg)
     'Set obj = Nothing
    end if
      
end sub

Sub qq()
    call APPLICATION_Timer(ID)
End Sub

如果下面這個(gè) 是我的模型

我給他起一個(gè)名字 叫海龜

那么 我怎么把這些  添加到上面那個(gè) 發(fā)QQ的vb的系統(tǒng)里        求老師幫忙一下