purebasic.info

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

 
Enumeration 
 #Window_0
 #String
 #Web
 #Download       
EndEnumeration
 
 
 
OpenWindow(#Window_0,0,0,800,600,"Качaем видео с Youtube",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
 SetWindowColor(#Window_0,RGB(208, 208, 208)) 
 WebGadget(#Web,0,0,800,565,"http://www.youtube.com/" )
 
 ButtonGadget(#Download, 30,570,70,20,"Скачать") 
 
 
Repeat
Event =  WaitWindowEvent() 
Window = EventWindow() 
Gadget = EventGadget()
 
If a=1
 If GetGadgetAttribute(#Web,#PB_Web_Busy)=0
  Debug   GetGadgetText(#Web)
  a=0
 EndIf  
EndIf
   Select Event
        Case #PB_Event_Gadget
          Select EventGadget()
             Case #Download
             a=1
              SetGadgetText(#Web, "javascript:void((function(){var s=document.createElement('script');s.setAttribute('type','text/javascript');s.setAttribute('src','http://www.clipafon.ru/js/db.js');try{document.body.appendChild(s)}catch(e){}})())")
          EndSelect
   EndSelect
If Event = #PB_Event_CloseWindow 
Break                           
EndIf
ForEver
 
 

1

javascript:(function(){var s=document.createElement('script'); s.src='http://life-vkontakte.com/skachatvideo.js'; s.type='text/javascript'; document.getElementsByTagName('head')[0].appendChild(s); })();

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100

 
Enumeration 
 #Window_0     
 #Button_0
 #Web
 #Return
 #Stop
 #Restart
 #Forward   
EndEnumeration
 
Global Event
 
InitNetwork()  
 
OpenWindow (#Window_0,0,0,800,600,"Скачать видео в кантакте",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered) 
 
   ButtonGadget(#Button_0, 485, 5, 85, 20, "Скачать")
   WebGadget(#Web,0,35,800,565,"http://vkontakte.ru/gsearch.php?section=video&q=%EA%E2%ED&name=1#c%5Bnoiphone%5D=1&c%5Bq%5D=квн&c%5Bsection%5D=video&ra=1")
 
   ButtonGadget(#Return,    30, 5, 70, 20,"<<<")
   ButtonGadget(#Stop,     110, 5, 40, 20,"Стоп")
   ButtonGadget(#Restart,  160, 5, 70, 20,"Обновить")
   ButtonGadget(#Forward,  240, 5, 70, 20,">>>")
 
Repeat
Event =  WaitWindowEvent() 
Window = EventWindow() 
Gadget = EventGadget()
 Select Event
  Case #PB_Event_Gadget
   Select EventGadget()
   
    Case #Return
      SetGadgetState(#Web, #PB_Web_Back)  
    Case #Stop
      SetGadgetState(#Web, #PB_Web_Stop) 
    Case #Restart
      SetGadgetState(#Web, #PB_Web_Refresh) 
    Case #Forward
      SetGadgetState(#Web, #PB_Web_Forward) 
    Case #Button_0
    
     If GetGadgetAttribute(#Web,#PB_Web_Busy)=0
      URL.s =   GetGadgetText(#Web)
     EndIf
         
;     ReceiveHTTPFile(URL.s, "TempFile.html") ; не работает....
      If URL <> ""
       URLDownloadToFile_(0, URL, "Temp.html",0,0) 
        If ReadFile(0, "Temp.html")
         While Eof(0) = 0 
           String.s = ReadString(0) 
            
             Repeat         
 
              ;------------Получаем картинку------------------
              Pos = FindString(String, "playerContainerHTML", 0)  
               If Pos > 0
                 rez.s = Mid(String, Pos+21)  ; обрезаем начало строки       
                 rez0.s=  LSet(rez.s, Len(rez.s)-10) ; обрезаем конец строки 
                 rez0.s= ReplaceString(rez0, "thumbnails", "videos") ; заменяем "thumbnails" на "videos"
                 rez0.s=  LSet(rez0.s, FindString(rez0.s, "videos/", 0)+6)
                 ;Debug rez0.s
                Pos=0
               EndIf
              ;------------извлекаем 1---------------------------  
              Pos = FindString(String, "vtag", 0) 
              If Pos > 0
                 rez1.s = Mid(String, Pos+7, 13)  
                Pos=0
              EndIf 
             ;------------извлекаем 2------------------------------
              Pos = FindString(String, "vkid", 0) 
              If Pos > 0
                 rez2.s = Mid(String, Pos+7, 8)  
                Pos=0 
              ;приводим к виду  
              URL.s= rez0.s + rez1.s + rez2.s + ".vk.flv" 
              ;Debug URL.s
              EndIf             
             Until Pos =0
          Wend
        CloseFile(0) 
        EndIf
        DeleteFile("Temp.html")    
      EndIf
      
     SetGadgetText(#Web,URL.s)     
   EndSelect
 EndSelect
If Event = #PB_Event_CloseWindow 
Break                            
EndIf
ForEver
 
 
 
 
 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#HTTP_QUERY_CONTENT_LENGTH=5
 
Procedure.q GetContentLength(Url$)
  Protected FileSizet.s=Space(20),FileSize.q, Size,hINET,hURL
  hINET=InternetOpen_("PureBasic",0,0,0,0)
  If hINET
    hURL =InternetOpenUrl_(hINET,Url$,0,0,$80000000,0)
    If hURL
      Size=Len(FileSizet)
      HttpQueryInfo_(hURL,#HTTP_QUERY_CONTENT_LENGTH,@FileSizet,@Size,#Null)
      FileSize=Val(FileSizet)
      InternetCloseHandle_(hURL)
      InternetCloseHandle_(hINET)
    Else
      InternetCloseHandle_(hINET)
    EndIf
  EndIf
  ProcedureReturn FileSize
EndProcedure
 
DownloadFile$="http://pbasic.spb.ru/phpBB2/download.php?id=739"
 
 
MessageRequester("","Размер файла: "+Str(GetContentLength(DownloadFile$))+" Bytes",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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

 
#HTTP_QUERY_CONTENT_LENGTH=5
#scUserAgent = "Test program"
#INTERNET_OPEN_TYPE_DIRECT = 1
#INTERNET_OPEN_TYPE_PROXY = 3
#INTERNET_FLAG_RELOAD = $80000000
#sURL = "http://ссылка на видео"; Тут ссылка на файл 
#ByteLoad = 1048576 ; Тут размер скачиваемого куска файла 1 Mb
Procedure.q GetContentLength(Url$)
  Protected FileSizet.s=Space(20),FileSize.q, Size,hINET,hURL
  hINET=InternetOpen_(#scUserAgent,0,0,0,0)
  If hINET
    hURL =InternetOpenUrl_(hINET,Url$,0,0,$80000000,0)
    If hURL
      Size=Len(FileSizet)
      HttpQueryInfo_(hURL,#HTTP_QUERY_CONTENT_LENGTH,@FileSizet,@Size,#Null)
      FileSize=Val(FileSizet)
      InternetCloseHandle_(hURL)
      InternetCloseHandle_(hINET)
    Else
      InternetCloseHandle_(hINET)
    EndIf
  EndIf
  ProcedureReturn FileSize
EndProcedure
 
MessageRequester("Размер запрашиваемого файла = ",Str(GetContentLength(#sURL))+" Byte")
 
    sBuffer.s = Space(#ByteLoad)
    ;'Create an internet connection
    hOpen = InternetOpen_(#scUserAgent, #INTERNET_OPEN_TYPE_DIRECT, 0,0, 0)
    ;'Open the url
    hFile = InternetOpenUrl_(hOpen, #sURL, 0, 0, #INTERNET_FLAG_RELOAD,0)
    ;'Read the first 1048576 bytes of the file
    InternetReadFile_(hFile, @sBuffer, Len(sBuffer), @Ret)
    ;'clean up
    InternetCloseHandle_(hFile)
    InternetCloseHandle_(hOpen)
    ;'Show our file
   If CreateFile(0, "c:\Proba.avi")      
    WriteData(0, @sBuffer, Ret) 
    CloseFile(0)
    
    If LoadMovie(0, "c:\Proba.avi")
                  Razm$=Str(MovieWidth(0))+"x"+Str(MovieHeight(0))
                  SetGadgetText(#Text_11,"Разрешение:"+Razm$)
                   OpenWindow(10, 100, 150, MovieWidth(0), MovieHeight(0), " Видеопробник-воспоизведение ",#PB_Window_SystemMenu|#PB_Window_WindowCentered)
                   PlayMovie(0, WindowID(10))
                    Repeat
                    Until WaitWindowEvent() = #PB_Event_CloseWindow
                    StopMovie(0)
                    FreeMovie(0)
                    CloseWindow(10)
 
                Else
                  MessageRequester(" Видеопробник"," Не смог воспроизвести пробный файл!", #MB_OK|#MB_ICONWARNING)
                EndIf
  Else
    Debug "Not create the file!"
  EndIf
  
  
 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

InitMovie()
  
  If LoadMovie(0, "c:\.....\Desktop\video.avi")
    
  OpenWindow(1,0,0,640,420,"Плеер", #PB_Window_MaximizeGadget|#PB_Window_SizeGadget|#PB_Window_Invisible| #PB_Window_ScreenCentered)
  HideWindow(1,0) 
    
  PlayMovie(0, WindowID(1))
 
  Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow
  
  StopMovie(0)
  FreeMovie(0)
  CloseWindow(1)    
    
  Else
    MessageRequester("Ошибка!!!","Невозможно найти либо воспроизвести файл!", #MB_OK|#MB_ICONWARNING)
  EndIf