using System; using MT4API; class Program { static void Main(string[] args) { string symbol = "EURUSD"; MT4DDE dde = new MT4DDE(""); dde.OnQuote += new EventHandler<QuoteEventArgs>(MT_OnQuote); dde.Connect(); dde.Subscribe(symbol); Console.WriteLine("Press any key..."); Console.ReadKey(); dde.Unubscribe(symbol); } private static void MT_OnQuote(object sender, QuoteEventArgs args) { Console.WriteLine(args.Symbol + " " + args.Bid + " " + args.Ask); } }
Imports MT4API Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Dim symbol As String = "EURUSD" Dim dde As New MT4DDE("cms") AddHandler dde.OnQuote, AddressOf MT_OnQuote dde.Connect() dde.Subscribe(symbol) TextBox1.Text = "Press any key" + vbCrLf dde.Unubscribe(symbol) Catch ex As Exception TextBox1.Text = TextBox1.Text + ex.Message End Try End Sub Private Sub MT_OnQuote(ByVal sender As Object, ByVal args As QuoteEventArgs) TextBox1.Text = TextBox1.Text + args.Symbol + vbTab + args.Bid + vbTab + args.Ask + vbCrLf End Sub End Class
Imports MT4API Class Program Private Shared Sub Main(args As String()) Dim symbol As String = "EURUSD" Dim dde As New MT4DDE("") dde.OnQuote += New EventHandler(Of QuoteEventArgs)(AddressOf MT_OnQuote) dde.Connect() dde.Subscribe(symbol) Console.WriteLine("Press any key...") Console.ReadKey() dde.Unubscribe(symbol) End Sub Private Shared Sub MT_OnQuote(sender As Object, args As QuoteEventArgs) Console.WriteLine(Convert.ToString(args.Symbol) & " " & Convert.ToString(args.Bid) & " " & Convert.ToString(args.Ask)) End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)