purebasic.info

PureBasic forum
Текущее время: Сб июн 23, 2018 10:28 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
 Заголовок сообщения: Запрос GET для QIWI
СообщениеДобавлено: Ср янв 31, 2018 8:08 pm 
Не в сети
доцент

Зарегистрирован: Сб янв 17, 2015 7:02 pm
Сообщений: 55
Благодарил (а): 7 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Драсьте. Вот код.

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
InitNetwork()
 
Global qiwi_token.s= ""
Global qiwi_number.s = "79619783527"
 
Procedure GetToken()
  If ReadFile(0, "qiwi token.txt")
    qiwi_token = ReadString(0)
    CloseFile(0)
  EndIf
EndProcedure
 
Procedure.s PostToHost(Host$, File$)
  ConnectionID = OpenNetworkConnection(Host$, 80)
  If ConnectionID
    String$ = ""
    String$ + "GET " + File$ + " HTTP/1.1" + Chr(13) + Chr(10)
    String$ + "Accept: application/json" + Chr(13) + Chr(10)
    String$ + "Content-Type: application/json" + Chr(13) + Chr(10)
    String$ + "Authorization: Bearer "+qiwi_token + Chr(13) + Chr(10)
    Debug String$
    SendNetworkString(ConnectionID, String$)
    Repeat : Until NetworkClientEvent(ConnectionID) = 2
    Buffer = AllocateMemory(10000)
    ReceiveNetworkData(ConnectionID, Buffer, 10000)
    CloseNetworkConnection(ConnectionID)
    ProcedureReturn PeekS(Buffer)
  EndIf
EndProcedure
 
GetToken()
 
 
Debug PostToHost("edge.qiwi.com", "/person-profile/v1/profile/current")
Debug PostToHost("edge.qiwi.com", "/payment-history/v1/persons/"+qiwi_number+"/payments?rows=10")
 
; user@server:~$ curl "https://edge.qiwi.com/payment-history/v1/persons/79112223344/payments?rows=10"
;   --header "Accept: application/json"
;   --header "Content-Type: application/json"
;   --header "Authorization: Bearer YUu2qw048gtdsvlk3iu"
; Send
 



ответы не приходят, но если
Код:
1
2
3
 
Debug PostToHost("edge.qiwi.com", "/person-profile/v1/profile/current")
 


заменить на
Код:
1
2
3
 
Debug PostToHost("edge.qiwi.com", "person-profile/v1/profile/current")
 


придёт код ошибки 400, т.е. сервер получает данные и даже отвечает. что я делаю не так?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Запрос GET для QIWI
СообщениеДобавлено: Ср янв 31, 2018 9:31 pm 
Не в сети
профессор

Зарегистрирован: Пт фев 20, 2009 12:57 pm
Сообщений: 1625
Откуда: Алматы
Благодарил (а): 14 раз.
Поблагодарили: 44 раз.
Пункты репутации: 5
может мой случай? как с сайтом индигалы... где какая-то там защита стояла.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Запрос GET для QIWI
СообщениеДобавлено: Ср янв 31, 2018 9:34 pm 
Не в сети
профессор

Зарегистрирован: Пт фев 20, 2009 12:57 pm
Сообщений: 1625
Откуда: Алматы
Благодарил (а): 14 раз.
Поблагодарили: 44 раз.
Пункты репутации: 5
секрет там заключался в чем - браузеру приходит код с фреймом на всю страницу. а в фрейме должен выполнится какой-то джава скрипт. это проходит эту самую защиту и отсекает сто тыщь пятсот ботов, у которых не предусмотрено выполнение скрипта в коде.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Запрос GET для QIWI
СообщениеДобавлено: Ср янв 31, 2018 10:35 pm 
Не в сети
док
Аватар пользователя

Зарегистрирован: Сб мар 28, 2015 11:06 pm
Сообщений: 139
Откуда: Україна
Благодарил (а): 7 раз.
Поблагодарили: 10 раз.
Пункты репутации: 4
leshiy писал(а):
https://edge.qiwi.com/payment-history/v1/persons/79112223344/payments?rows=10

https://ru.wikipedia.org/wiki/HTTPS
http://www.purebasic.fr/english/viewtop ... 05#p441105


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Запрос GET для QIWI
СообщениеДобавлено: Чт фев 01, 2018 4:05 am 
Не в сети
доцент

Зарегистрирован: Сб янв 17, 2015 7:02 pm
Сообщений: 55
Благодарил (а): 7 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
LinXP писал(а):
leshiy писал(а):
https://edge.qiwi.com/payment-history/v1/persons/79112223344/payments?rows=10

https://ru.wikipedia.org/wiki/HTTPS
http://www.purebasic.fr/english/viewtop ... 05#p441105


а, блин, я тупой) сейчас же везде https используется, а там всё по-другому. Понял, спасибо)


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Запрос GET для QIWI
СообщениеДобавлено: Чт мар 15, 2018 1:43 pm 
Не в сети
доцент

Зарегистрирован: Вс май 15, 2016 5:08 pm
Сообщений: 55
Благодарил (а): 1 раз.
Поблагодарили: 1 раз.
Пункты репутации: 0
Ты бы токен и номер телефона подтер в исходниках. Мало ли что.

_________________
Чат по PureBasic в Telegram


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 6 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: Bing [Bot] и гости: 7


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB