PureBoard

Code: Alles auswählen

;
; das programm holt sich die beiden Bilder aus dem internetz
;und nutzt dann die skinwin.lib aus dem PBOSL für die Darstellung
;der .. öö .Darstellung
;
If InitNetwork() And ExamineDesktops()
  If LoadImage(0,GetTemporaryDirectory()+"r1.bmp") =0
    ReceiveHTTPFile("http://trollkind.comaoma.de/images/randschaeuble1.bmp",GetTemporaryDirectory()+"r1.bmp")
    If LoadImage(0,GetTemporaryDirectory()+"r1.bmp")=0
      MessageRequester("","dann eben nicht")
      End
    EndIf
  EndIf
  If LoadImage(1,GetTemporaryDirectory()+"r2.bmp")=0
    ReceiveHTTPFile("http://trollkind.comaoma.de/images/randschaeuble2.bmp",GetTemporaryDirectory()+"r2.bmp")
    If LoadImage(1,GetTemporaryDirectory()+"r2.bmp")=0
      MessageRequester("","dann eben nicht")
      End
    EndIf
  EndIf
  hwnd=OpenWindow(0,0,0,ImageWidth(0),ImageHeight(0),"s1",#PB_Window_BorderLess|#PB_Window_Invisible)
  SkinWinMakeRegion(ImageID(0),0,0)
  SkinWin(hWnd, ImageID(1))
  ResizeWindow(0,#PB_Ignore,DesktopHeight(0),#PB_Ignore,#PB_Ignore)
  HideWindow(0,0)
  StickyWindow(0,1)
  For y= DesktopHeight(0) To  DesktopHeight(0)-200 Step -1
    ResizeWindow(0,#PB_Ignore,y,#PB_Ignore,#PB_Ignore)
    Delay(1)
  Next y
  For z=1 To 4
    SetWinBackgroundImage(hWnd, ImageID(0))
    Delay(100)
    SetWinBackgroundImage(hWnd, ImageID(1))
    Delay(150)
  Next z
  For y= DesktopHeight(0)-200 To DesktopHeight(0) Step 2
    ResizeWindow(0,#PB_Ignore,y,#PB_Ignore,#PB_Ignore)
  Next y
  
  Repeat
    q + 1
    If q > 5
      quit=1
    EndIf
    Select WaitWindowEvent(100)
    Case #WM_LBUTTONDOWN
      SendMessage_(WindowID(0),#WM_NCLBUTTONDOWN, #HTCAPTION,0)
    Case #WM_RBUTTONDOWN
      End
      quit=1
    Case #PB_Event_CloseWindow
      quit=1
    EndSelect
  Until quit
Else
  MessageRequester("","hmm . .egal dann")
EndIf
End