;////////////////////////////Заставка перед стартом программы//////////////////////////
UsePNGImageDecoder()
hWnd    = OpenWindow(0,0,0, 500, 434, "Window Name", #WS_POPUP|#PB_Window_Invisible|#PB_Window_ScreenCentered)
hBitmap = LoadImage(0, "489537.png") ; ваш логотип
SkinWin(hWnd, hBitmap)
HideWindow(0,#False)
Delay(1000); время работы заставки
;//////////////////////////////////////////////////////////////////////////////////////

Enumeration
#Window_0
EndEnumeration 

OpenWindow(#Window_0, 100, 100, 480,640, "окно", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered| #PB_Window_MaximizeGadget|#PB_Window_Invisible) 
SetWindowColor(#Window_0, RGB(255, 255, 255))



ProgPath.s=GetPathPart(ProgramFilename())
WebGadget(333, 5, 5, 470, 370, "file://localhost/"+ProgPath+"фон.htm", #PB_Web_ScrollX ) 

HideWindow(#Window_0,0)

Repeat
Event= WaitWindowEvent()
Window=EventWindow()
Gadget=EventGadget()

Select Event
Case #PB_Event_Gadget
Select EventGadget()
   Case 1

   Case 2
   
   Case 3  
EndSelect
EndSelect

If Event=#PB_Event_CloseWindow
CloseWindow(Window)
EndIf
Until Event=#PB_Event_CloseWindow And Window=#Window_0

Procedure Web_WndProc(hwnd, msg, wParam, lParam)
Shared *PointOldWebFunc
   If msg=#WM_RBUTTONDOWN Or msg=#WM_RBUTTONUP
     msg=0 : wParam=0 : lParam=0 
     Debug msg
     ProcedureReturn 0
   EndIf
ProcedureReturn CallWindowProc_(*PointOldWebFunc,hwnd, msg, wParam, lParam)
EndProcedure


Procedure.l enumChildren(hwnd.l) 
Shared *PointOldWebFunc
  If hwnd  
    MainText.s = Space(256) 
    classText.s = Space(256) 
    GetWindowText_(hwnd,@MainText,256) 
    GetClassName_(hwnd, @classText, 256) 
    
    If LCase(classText)="internet explorer_server"
       *PointOldWebFunc=GetWindowLong_(hwnd, #GWL_WNDPROC)
       SetWindowLong_(hwnd, #GWL_WNDPROC, @Web_WndProc()) 
       Debug hwnd
    EndIf 
    
    ProcedureReturn 1 
  Else 
    ProcedureReturn 0 
  EndIf 
EndProcedure 

OpenWindow(0, 0, 0, 600, 300, "Наше окно", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
WebGadget(0, 10, 10, 580, 280, "D:\PureBasic - главная.mht")

AddWindowTimer(0,1,2000)

 Repeat
   Event=WaitWindowEvent()
   If Event=#PB_Event_Timer
     If EventTimer()=1
       EnumChildWindows_(GadgetID(0), @enumChildren(), 0) ; Handle - хендл окна.
       RemoveWindowTimer(0,1)
     EndIf
   EndIf
 Until Event = #PB_Event_CloseWindow

Enumeration 
#Window_0
#Window_2     
#but
#tex1
#str1
#tex2
#str2
#tex3   
EndEnumeration
 
Global  Category$, w.s, i

InitNetwork()

Procedure LSDH()
DeleteFile("_GetImagePage.tmp") 
If ReceiveHTTPFile("http://fotki.yandex.ru/tag/" + Category$ + "?&p=" + w.s, "_GetImagePage.tmp") 
  If OpenFile(0,"_GetImagePage.tmp") 
    While Eof(0) = 0 
      Text$ = Text$ + ReadString(0) + Chr(13) 
    Wend
    ;CloseFile(0) 
    ;DeleteFile("_GetImagePage.tmp") 
    Temp = FindString(Text$, "<b class=" + Chr(34) + "number" + Chr(34) + ">", 0) 
    If Temp 
      String$ = Right(Text$, Len(Text$) - Temp - 17) 
      Temp = FindString(String$, "</b>", 0)
      If Temp 
        AllFoto = Val(Left(String$, Temp))
        Debug  AllFoto 
        AllPage = AllFoto / 20 
        If AllPage > 10 Or AllPage = 10 
          ;If ReceiveHTTPFile("http://fotki.yandex.ru/tag/" + Category$ + "?&p=" + Str(Random(10)), "_GetImagePage.tmp") 
            If OpenFile(0,"_GetImagePage.tmp") 
              Text$ = "" 
              While Eof(0) = 0 
                Text$ = Text$ + ReadString(0) + Chr(13) 
              Wend
              ;CloseFile(0) 
              ;DeleteFile("_GetImagePage.tmp") 
              Temp = FindString(Text$, "b-preview-photos", 0) 
              If Temp 
                Text$ = Right(Text$, Len(Text$) - Temp) 
                Temp = FindString(Text$, "<div class=" + Chr(34) + "b-pager g-js" + Chr(34), 0) 
                If Temp 
                  Text$ = Left(Text$, Temp) 
                  For i = 0 To 20
                  SetGadgetText(#tex3,Str(i+1)) 
                    Temp = FindString(Text$, "src=", 0) 
                    If Temp 
                      Start = Temp + 5 
                      Temp = FindString(Text$, " />", Temp) 
                      If Temp 
                        Image$ = Mid(Text$, Start, Temp - Start - 2) + "L" 
                        ReceiveHTTPFile(Image$, Category$+w.s+"/" + Str(i) + ".jpg")                      
                        Text$ = Right(Text$, Len(Text$) - Temp) 
                      EndIf 
                    EndIf 
                  Next 
                EndIf 
              EndIf 
            ;EndIf 
          EndIf 
        EndIf 
      EndIf 
    EndIf 
  EndIf 
EndIf
EndProcedure 
 

;{------------------Окно--------------------------------
OpenWindow (#Window_0,0,0,380,200,"Окно",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered) 
   ;SetWindowColor(#Window_0,RGB(255, 255, 255))
   ButtonGadget(#but, 15, 70,90, 20,"Загрузить")
   TextGadget  (#tex1,15, 32,70, 15,"Категория" )
   StringGadget(#str1,100,30,150,20,"красота")   
   TextGadget  (#tex2,275,32,20, 15,"Стр" )
   StringGadget(#str2,305,30,50, 20,"1")   
   TextGadget  (#tex3,275,70,50, 15,"коллич" )   
;}------------------------------------------------------


;{-----------------Главный цикл-------------------------
Repeat
Event =  WaitWindowEvent() 
Window = EventWindow() 
Gadget = EventGadget() 
   Select Event
        Case #PB_Event_Gadget
          Select EventGadget()
             Case #but
             SetGadgetText(#but,"Идет загрузка")
             Category$ = GetGadgetText(#str1)   ; категория
             w.s       = GetGadgetText(#str2)   ; номер страницы
             CreateDirectory(Category$+w.s)     ; создаём папку по имени
             LSDH()      
              SetGadgetText(#but,"Ура !")
              CloseFile(0)
              DeleteFile("_GetImagePage.tmp")
          EndSelect
   EndSelect
If Event = #PB_Event_CloseWindow
Break
EndIf
ForEver
;}-------------------------------------------------------