boinc, on 26 January 2012 - 11:44, сказал:
А проболжение будет.
Продолжение будет на выходных.
Добавлено 26 January 2012 - 15:55
Jericho, on 26 January 2012 - 12:27, сказал:
If .marketName = "Over/Under 2.5 goals" Then
If .marketName = "Over/Under 4.5 Goals" Then
Добавлено 26 January 2012 - 20:09
x.x.x, on 26 January 2012 - 15:55, сказал:
Добавлено 27 January 2012 - 04:27
Отредактировано x.x.x, 27 January 2012 - 04:22.
Добавлено 27 January 2012 - 13:09
x.x.x, on 27 January 2012 - 04:27, сказал:
Добавлено 27 January 2012 - 14:37
Jericho, on 24 January 2012 - 20:27, сказал:
Imports System.IO Public Class Form1 Private Sub Form1_Invalidated(ByVal sender As Object, ByVal e As System.Windows.Forms.InvalidateEventArgs) Handles Me.Invalidated Dim objItem As ListViewItem Try Dim i As Integer = 1 Do objItem = ListView1.Items.Add(GetErr("englishfrom", i)) objItem.SubItems.Add(GetErr("englishto", i)) objItem.SubItems.Add(GetErr("englishproduct", i)) i = i + 1 Loop Catch ex As Exception 'MsgBox("Err") End Try End Sub Function GetContents(ByRef strSource As String) As String Dim strStart, strEnd As Integer, strLen As Integer strStart = InStr(strSource, "(") + 2 strEnd = InStr(strSource, ")") - 1 strLen = strEnd - strStart Return Mid(strSource, strStart, strLen) End Function Function GetErr(ByVal str As String, ByVal i As Integer) As String Dim web_client As New Net.WebClient() Dim response As Stream response = web_client.OpenRead("http://service.betfair.info/files/frames/" & str & i & ".js") Dim stream_reader As New IO.StreamReader(response) Return GetContents(stream_reader.ReadToEnd()) : stream_reader.Close() End Function End Class
objItem = ListView1.Items.Add(GetErr("englishfrom", i)) objItem.SubItems.Add(GetErr("englishto", i)) objItem.SubItems.Add(GetErr("englishproduct", i))на
objItem = ListView1.Items.Add(GetErr("russianfrom", i)) objItem.SubItems.Add(GetErr("russianto", i)) objItem.SubItems.Add(GetErr("russianproduct", i))
Добавлено 27 January 2012 - 15:02
vlad56, on 27 January 2012 - 14:37, сказал:
Do If GetErr("englishfrom", i) = Today Then objItem = ListView1.Items.Add(GetErr("englishfrom", i)) objItem.SubItems.Add(GetErr("englishto", i)) objItem.SubItems.Add(GetErr("englishproduct", i)) End If i = i + 1 Loop
vlad56, on 27 January 2012 - 14:37, сказал:
Добавлено 27 January 2012 - 15:22
Jericho, on 27 January 2012 - 15:02, сказал:
Добавлено 27 January 2012 - 16:53
Jericho, on 27 January 2012 - 13:09, сказал:
Добавлено 27 January 2012 - 17:43
Добавлено 27 January 2012 - 17:54
x.x.x, on 27 January 2012 - 17:43, сказал:
Добавлено 27 January 2012 - 18:04
Добавлено 28 January 2012 - 09:50
Добавлено 28 January 2012 - 17:04
Отредактировано x.x.x, 28 January 2012 - 17:02.
Добавлено 28 January 2012 - 17:40
x.x.x, on 28 January 2012 - 17:04, сказал: