35 ответов в эту тему

[AlexX]

1) Const SessTokFile = "C:\Betfair\SessToken.txt" где запись сессии?
2)

.header = oHeaderUK()
.header.sessionToken = My.Computer.FileSystem.ReadAllText(SessTokFile)

Вот скрин

Attached File(s)

•  12123131.JPG   85.45K   2 Количество загрузок

Отредактировано AlexX, 29 November 2012 - 17:14.

[nikola86]

AlexX, on 29 November 2012 - 17:16, сказал:

1) Const SessTokFile = "C:\Betfair\SessToken.txt" где запись сессии?
2)

.header = oHeaderUK()
.header.sessionToken = My.Computer.FileSystem.ReadAllText(SessTokFile)

Вот скрин

создай файл SessToken.txt в папке проекта и укажи путь до него,а лучше кинь на диск с как у меня

Отредактировано nikola86, 29 November 2012 - 17:24.

[AlexX]

nikola86, on 29 November 2012 - 17:22, сказал:

создай файл SessToken.txt в папке проекта и укажи путь до него,а лучше кинь на диск с как у меня

Погодь не много по делам надо отлучиться. еще вечером отпишу...

[AlexX]

Проблема решена в файле App.config

все заменить на maxStringContentLength="999999999"

Attached File(s)

•  4545645645646.JPG   127.8K   1 Количество загрузок

[nikola86]

AlexX, on 29 November 2012 - 18:18, сказал:

Проблема решена в файле App.config

все заменить на maxStringContentLength="999999999"

все верно,большое спасибо за помощь

[AlexX]

nikola86, on 29 November 2012 - 18:29, сказал:

все верно,большое спасибо за помощь

Не за что. Обращайтесь по возможности помогу.

[nikola86]

а как сделать цикл в цикле с использованием тех же данных

Dim AllMarkets As New UnpackAllMarkets(.marketData)   'Create an object and unpack the string
			    With AllMarkets
				    For i = 0 To .marketData.Length - 1
					    With .marketData(i)
						    If .marketName = "Перерыв" = False Then

							    '  MarkID = .marketId
							    '  Print(.marketId & " " & .marketStatus & "  " & .marketName & "  " & .menuPath)
							    '  Call ShowMprices(BetFairUK.getMarketPrices(MpricesReq))
						    End If
					    End With
				    Next
			    End With

цикл
т.е.если рынок ПЕРЕРЫВ закрыт то
если рынок Б/М 0.5 открыт то
MarkID = .marketId рынка 2.5

если рынок Б/М 1.5 открыт то
MarkID = .marketId рынка 3.5

как реализовать подобную структуру?

[nikola86]

решил проблему созданием новых
UnpackAllMarkets

[nikola86]

подскажите, кто-нибудь сталкивался с программой bee.exe с сайта klabor.com? что это такое? скачать нигде не могу...

[gav]

Добрый день!
Как выбрать нужный selection на рынке результат и тому подобных?

[AlexX]

gav, on 27 December 2012 - 06:37, сказал:

Добрый день! Как выбрать нужный selection на рынке результат и тому подобных?

Я правильно понял?
пример: типа строка с кефами и суммами 0-0 и т.п ?

Отредактировано AlexX, 27 December 2012 - 07:41.

[gav]

Ну да , как определить что данный селеction именно 2-1 (к примеру). Вроде там есть сортировка как показывается на Бэтфайре,но вот вчера один матч был показан криво,почему не пойму.

[proger]

gav, on 27 December 2012 - 09:34, сказал:

Ну да , как определить что данный селеction именно 2-1 (к примеру). Вроде там есть сортировка как показывается на Бэтфайре,но вот вчера один матч был показан криво,почему не пойму.

заидите на сайт бф,выберите любой матч,там если нажать на графики,то увидете в url этого графика marketid и selectionid,который всегда тотже по маркету "резултат",на отделные исходы.

[gav]

Используя АРI как определить ? Он всегда ему равен что на графике? Вот вчера было исключение на sortorder.

[Jericho]

gav, on 27 December 2012 - 14:51, сказал:

Используя АРI как определить ? Он всегда ему равен что на графике? Вот вчера было исключение на sortorder.

Данные находятся в функции GetMarket

   '==============================================================================
	Public Sub GetNameAndSelId(ByVal MarketId As String)
		Dim oMarketReq As New BFUK.GetMarketReq
		Dim oMarketResp As BFUK.GetMarketResp
		With oMarketReq
			.header = oHeaderUK()
			.marketId = MarketId
		End With
		oMarketResp = BetFairUK.getMarket(oMarketReq)
		With oMarketResp
			CheckHeader(.header)
			If .errorCode = BFUK.GetMarketErrorEnum.OK Then
				With .market
					For i = 0 To .runners.Length - 1
						With .runners(i)
							MsgBox(.name & " " & .selectionId)
						End With
					Next i
				End With
			End If
		End With
	End Sub
	'==============================================================================

На вход моей процедурки передаете id рынка. На выходе, вставил просто вывод сообщения:

MsgBox(.name & " " & .selectionId)

получите циклом все selection так сказать. Если это рынок лошадей - получите имена всех лошадей в забеге и их selectionid. Если это рынок correctscore - получите сообщение вида - 0-0 45458921..... 0-1 66564578 и .т.д. то есть все счета и соответствующие им selectionid.

Далее имея в массиве selectionid и marketid уже можно получать графики, делать ставки и т.д.

nikola86, on 03 December 2012 - 15:22, сказал:

подскажите, кто-нибудь сталкивался с программой bee.exe с сайта klabor.com? что это такое? скачать нигде не могу...

Нет такого сайта

[gav]

Огромное спасибо !