Подскажите как реализовать в программе запрос на сайт, например, на авторизацию. В теории я понимаю как все происходит: передаешь параметры запроса на желаемую страницу, потом получаешь куки и анализируешь результаты. В примере я создал набросок интерфейса для авторизации например на http://purebasic.mybb.ru/ Как именно передать эти данные?
Код:
;
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#String_0
#Text_1
#Text_3
#String_1
#Text_5
#Text_7
#Button_0
EndEnumeration
;- Fonts
Global FontID1
FontID1 = LoadFont(1, "Times New Roman", 8)
Global FontID2
FontID2 = LoadFont(2, "Times New Roman", 6)
Global FontID3
FontID3 = LoadFont(3, "Times New Roman", 7)
Global FontID4
FontID4 = LoadFont(4, "Times New Roman", 16)
Procedure Open_Window_0()
If OpenWindow(#Window_0, 395, 273, 146, 141, "Запрос", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
If CreateGadgetList(WindowID(#Window_0))
StringGadget(#String_0, 70, 35, 70, 20, "", #PB_String_Password | #PB_String_Numeric)
TextGadget(#Text_1, 10, 15, 40, 15, "Логин:")
TextGadget(#Text_3, 10, 40, 45, 15, "Пароль:")
StringGadget(#String_1, 70, 10, 70, 20, "", #PB_String_Numeric)
TextGadget(#Text_5, 75, 65, 60, 15, "Результат:")
TextGadget(#Text_7, 10, 90, 125, 40, "", #PB_Text_Center)
SetGadgetFont(#Text_7, FontID4)
ButtonGadget(#Button_0, 10, 60, 55, 20, "Войти")
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
event=WaitWindowEvent()
Until event=#PB_Event_CloseWindow
