- 1 page = 1 code source
- fichier créé dans C:\
- J'ai viré FileSeek() qui va à la fin du fichier...
Code : Tout sélectionner
Enumeration
#WIN_0
#Gadget_Form1_Web2
#EditorSource
EndEnumeration
Enumeration 0 ; #INET_
#INET_RELOAD = $80000000
EndEnumeration
Enumeration 0 ; #INTERNET_OPEN_TYPE_
#INTERNET_OPEN_TYPE_PRECONFIG = 0
#INTERNET_OPEN_TYPE_DIRECT = 1
#INTERNET_OPEN_TYPE_PROXY = 3
#INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4
EndEnumeration
ProcedureDLL.s Url2Text(Url.s, AccessType.l = #INTERNET_OPEN_TYPE_DIRECT, ProxyName.s = #NULL$, ProxyBypass.s = #NULL$) ; procédure de Flype
Protected hInet.l, hURL.l, Bytes.l, Result.s, Buffer.s{2048}
hInet = InternetOpen_(#NULL$, AccessType, ProxyName, ProxyBypass, #Null)
If hInet
hURL = InternetOpenUrl_(hInet, Url, #NULL$, #Null, #INET_RELOAD, #Null)
If hURL
While InternetReadFile_(hURL, @Buffer, 2048, @Bytes) And Bytes
Result + Left(Buffer, Bytes)
Wend
InternetCloseHandle_(hURL)
EndIf
InternetCloseHandle_(hInet)
EndIf
ProcedureReturn Result
EndProcedure
If OpenWindow(#WIN_0,411,108,480,348,"SDIS-Inter" ,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_TitleBar)=0 Or CreateGadgetList(WindowID(#WIN_0))=0
End
EndIf
WebGadget(#Gadget_Form1_Web2,0,1,480,304,"http://www.sdis54.fr/interventions.php")
EditorGadget(#EditorSource,0,1,480,304)
SendMessage_(GadgetID(#EditorSource), #EM_SETTARGETDEVICE, #Null, 0)
HideGadget(#EditorSource,1)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #Gadget_Form1_Web2
Url$="http://www.sdis54.fr/interventions.php"
Source$ = Url2Text(Url$)
If Source$
SetGadgetText(#EditorSource, Source$)
HideGadget(#EditorSource,0)
HideGadget(#Gadget_Form1_Web2,1)
If OpenFile(0, "c:\SourceCode.txt")
;FileSeek(0, Lof(0))
WriteString(0, Source$, #PB_Ascii)
CloseFile(0)
EndIf
EndIf
EndSelect
EndSelect
If Event=#PB_Event_CloseWindow : quit = #True
EndIf
Until quit=#True
End 
: 
