PureBasic

Bonjour, voila je voudrai savoir si il était possible que le progamme clic sur tout les lien d'une ou plusieur page web

Merci a++

Je pense que c'est possible mais pas en "cliquant". Plutot en fouillant dans le code HTML d'une page et en ouvrant tous les liens presents !

merci de la théori ^^ mais du code m'aurai un peu aider ^^

Ce code n'est pas de moi, et est pour la 3.94

Code : Tout sélectionner

;/ Author : Pille
; Proxy like this : "192.168.0.1:8080"

ProcedureDLL.s Url2Text2(URL.s, OpenType.b,ProxyAndPort.s) 
  ; 1 INTERNET_OPEN_TYPE_DIRECT                       Resolves all host names locally. 
  ; 0 INTERNET_OPEN_TYPE_PRECONFIG                    Retrieves the proxy Or direct configuration from the registry. 
  ; 4 INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  Retrieves the proxy Or direct configuration from the registry And prevents the use of a startup Microsoft JScript Or Internet Setup (INS) file. 
  ; 3 INTERNET_OPEN_TYPE_PROXY                        Passes requests To the proxy unless a proxy bypass list is supplied And the name To be resolved bypasses the proxy. In this Case, the function uses INTERNET_OPEN_TYPE_DIRECT. 
  
  isLoop.b=1 
  INET_RELOAD.l = $80000000 
  hInet.l=0 
  hURL.l=0 
  Bytes.l=0 
  Buffer.s=Space(2048) 
  RES.s="" 
  
  hInet = InternetOpen_("", OpenType, ProxyAndPort, "", 0) 
  hURL = InternetOpenUrl_(hInet, URL, #Null, 0, INET_RELOAD, 0) 
  
  Repeat 
    InternetReadFile_(hURL,@Buffer, Len(Buffer), @Bytes) 
    If Bytes = 0 
      isLoop=0 
    Else 
      RES = RES + Left(Buffer, Bytes) 
    EndIf 
  Until isLoop=0 
  
  InternetCloseHandle_(hURL) 
  InternetCloseHandle_(hInet) 
  ProcedureReturn RES 
EndProcedure 

ProcedureDLL.s Url2Text(URL.s)
  ProcedureReturn Url2Text2(URL,1,"")
EndProcedure


;/ Test 
; #Site="http://google.com"
; MessageRequester(#Site,Url2Text(#Site))

PureBasic

Cliquer sur tout les lien d'une page ?

Cliquer sur tout les lien d'une page ?