94 replies to this topic

[Jericho]

boinc, on 26 January 2012 - 11:44, said:

Очень интересная тема.
А проболжение будет.

Продолжение будет на выходных.

[x.x.x]

Jericho, on 26 January 2012 - 12:27, said:

Если вы про бота из темы - Закономерность для торговли на тоталах в перерыве матча. Футбол, то в модуле mGlobal.vb
найти строку:

If .marketName = "Over/Under 2.5 goals" Then

и заменить на:

If .marketName = "Over/Under 4.5 Goals" Then

регистр у Goals соблюдать!

Без изменений так же ищет тм 2.5

[Jericho]

x.x.x, on 26 January 2012 - 15:55, said:

Без изменений так же ищет тм 2.5

Быть такого не может. Именно в той единственной строке, которую указал поменять - и проверяется какой рынок отображать.


Вот изменения:
 036.png   9.42K   5 downloads

Вот программа на исполнение. Показывает рынки ТМ4,5:
 035.png   31.22K   3 downloads

[x.x.x]

БОТ

папка mod

Изменили и сохранили

Без изменений.

Attached Files

•  Scrshot #0 27.01.2012 07.06.46 Noactivewindowfound.jpg   17.02K   1 downloads
•  Scrshot #1 27.01.2012 07.10.08 Noactivewindowfound.jpg   4.07K   1 downloads
•  Scrshot #4 27.01.2012 07.17.47 Noactivewindowfound.jpg   24.73K   3 downloads
•  Scrshot #3 27.01.2012 07.16.33 Noactivewindowfound.jpg   69.66K   3 downloads

Edited by x.x.x, 27 January 2012 - 04:22.

[Jericho]

x.x.x, on 27 January 2012 - 04:27, said:

Изменили и сохранили
Без изменений.

Странно очень. Ощущение, будто "непересобрался" проект после внесенных изменений...
Прикрепил для ТМ4,5, переделанный исходник:
 bot_jericho.zip   145.8K   49 downloads

Попробуйте.

[vlad56]

Jericho, on 24 January 2012 - 20:27, said:

Дополнение. №1

В теме "Запланированное и не очень отключение серверов Betfair" говорилось о боте, который "поможет" узнать какие технические работы ведутся на бирже, и когда это кончится...

Пример сегодняшних работ для английской аудитории:
031.png

______________
Немного теории как это все получить:
Чтобы увидеть ведутся ли технические работы на сервере - достаточно пройти по адресу: service.betfair.info/index.html

Открыв исходники html страницы, мы увидим следующее:
032.png

В файле englishfrom1.js содержится строка даты и времени, когда планируется отключение (25/01/2012, 6:00AM), соответственно englishto1.js - время и дата окончания работ, englishproduct1.js - вид работ...

В имени файла, например englishfrom1.js - english означает страну, для которой отображать время (для России - russianfrom1.js), а цифра 1 - означает строку работ. Как видно строк с работами 3, значит и фалов должно быть три...
______________

Теперь давайте получим это все программно...
1. На форме разместим элемент ListView:
034.png

и в коде формы у нас должно быть следующее:

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

Теперь разберем по функциям:
1. Private Sub Form1_Invalidated.... - начинает работу при запуске программы.В ней через цикл Do... Loop заполняются строки элемента ListView. Если технических работ на сервере нет - мы получим пустой список.

2. GetContents - функция возвращает строку между скобками и удаляет все лишнее. Если, например есть строка блаблабла(инфа)бла... то функция возвратит - инфа

3. GetErr - функция через web_client.OpenRead получает содержимое тех самых файлов, описаных выше (englishfrom1.js) и возвращает через GetContents чистую нужную строку с информацией...

В итоге мы видим следующую картину:
033.png

Для России в Private Sub Form1_Invalidated заменить

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.01.2012г дата from 25,/01./2012г 11.00 to 25/01/2012 16.00 и в столбе Notes Игры
И при работе программы постоянно добавляется эта строка.Что делать? Как устранить?

[Jericho]

vlad56, on 27 January 2012 - 14:37, said:

У меня выскочило сегодня 27.01.2012г дата from 25,/01./2012г 11.00 to 25/01/2012 16.00 и в столбе Notes Игры
И при работе программы постоянно добавляется эта строка.Что делать? Как устранить?

Старые даты у них остались... Дополнение это писалось в день тех. работ...
Поставь в цикл проверку сегодняшнего дня: If GetErr("englishfrom", i) = Today Then

			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, said:

У меня выскочило сегодня 27.01.2012г дата from 25,/01./2012г 11.00 to 25/01/2012 16.00 и в столбе Notes Игры
И при работе программы постоянно добавляется эта строка.Что делать? Как устранить?

Что там за супербота пишешь? Определился с направлением?

[vlad56]

Jericho, on 27 January 2012 - 15:02, said:

Что там за супербота пишешь? Определился с направлением?

Могу сбросить исходник своего бота. Для тебя не жалко. Много комментариев поясняющих процедуры на русском языке. Но до конечного варианта еще дапеко.Основной смысл поиск рынков на скачках заданым условиям. Уже ищет но много еще не знаю как сделать,поэтому жду продолжения твоего туториала, чтобы задавать вопросы.

[Jericho]

vlad56, on 27 January 2012 - 15:22, said:

Могу сбросить исходник своего бота.

Не надо, спасибо. Интересно просто, что кодишь...

[vlad56]

Jericho, on 27 January 2012 - 15:26, said:

Не надо, спасибо. Интересно просто, что кодишь...

Интересно я доживу до такого уровня когда мне будут предлагать исходник бота, а я также откажусь от него как и ты?

[Jericho]

vlad56, on 27 January 2012 - 15:31, said:

Интересно я доживу до такого уровня когда мне будут предлагать исходник бота, а я также откажусь от него как и ты?

Не льстите мне ) допишешь своего бота, потом любой сможешь написать...

[x.x.x]

Jericho, on 27 January 2012 - 13:09, said:

Странно очень. Ощущение, будто "непересобрался" проект после внесенных изменений...
Прикрепил для ТМ4,5, переделанный исходник:
bot_jericho.zip

Попробуйте.

Выдает ошибку.

[Jericho]

x.x.x, on 27 January 2012 - 16:53, said:

Выдает ошибку.

Какую?

[x.x.x]

ошибка

Attached Files

•  Scrshot #0 27.01.2012 20.40.26 Noactivewindowfound.jpg   37.43K   6 downloads

[Jericho]

x.x.x, on 27 January 2012 - 17:43, said:

ошибка

Обрабатывать нужно эту ошибку. Два варианта:

• или рынок уже закрыт, и данная функция не может получить коэф.
  
• или на этом рынке нет коэф-та.. (Когда коэф. на рынке в поле Lay уже 1,01.)

Программа писалась для получения доматчевых коэф-ов. Поэтому все эти ошибки не учитывались..

[x.x.x]

Очень жаль что на ТМ 4.5 неработает

[Snikola]

Всё работает только не забывайте сохранять изменения в файле и регистр у Goals соблюдать!

[x.x.x]

Нажимаю на этот файл 2 снизу

появляется вот это.что делать дальше?

Attached Files

•  Scrshot #2 28.01.2012 19.58.07 Noactivewindowfound.jpg   5.94K   1 downloads
•  Scrshot #1 28.01.2012 18.55.50 Noactivewindowfound.jpg   72.82K   3 downloads

Edited by x.x.x, 28 January 2012 - 17:02.

[Jericho]

x.x.x, on 28 January 2012 - 17:04, said:

Нажимаю на этот файл 2 снизу

появляется вот это.что делать дальше?

Это свойства проекта. Можно эту вкладку закрыть. Чтобы просмотреть код формы или модуля выбирайте здесь:
 037.png   10.95K   0 downloads

x.x.x вы только начинаете программировать, или какие-то азы все-таки есть?