Accueil > Forum > > > > Inet marche pas ? bizarre...
 Inet marche pas ? bizarre...
samedi 27 décembre 2003 à 12:31:46 |
Inet marche pas ? bizarre...
UniCyclon
|
Est-ce que quelqu'un arriverait à afficher la source de la "page" située à l'adresse : http://subria.com/securitycentral/online/system/advisoryfr.inm Un inet.openUrl("http://subria.com/securitycentral/online/system/advisoryfr.inm") ne renvoie strictement rien, pareil avec winsock, mais ça marche étonamment avec IE... Help :'( Pierre |
|
samedi 27 décembre 2003 à 13:44:08 |
Re : Inet marche pas ? bizarre...
pcpunch
|
G eu pas mal de probléme avec inet, il est apparement assez capricieux!!!!!
Renfiled ma donné ce code que je n ai pas encore testé, c'est au niveau du buffer de inet que ca merde d apres lui :
Private Function OpenURL(URL As String)
Dim Buffer As String, Ret As String
Buffer = Inet.OpenURL(URL)
While Len(Buffer) > 0
Ret = Ret & Buffer
Buffer = Inet.GetChunk(1024)
Wend
OpenURL = Ret & Buffer
End Function
Sinon moi j'utilise le webbrowser et je pique le code src du web browser qui n'est pas formater de la mm maniére qu'avec inet mais ca marche a chaque fois!!!!
Voila tien moi au courrant!!!
|
|
samedi 27 décembre 2003 à 16:41:55 |
Re : Inet marche pas ? bizarre...
UniCyclon
|
Mwai... Le code est pas mal, mais ça marche pas mieux... Merci quand même, pour le webbrowser, ça marche nikel.  |
|
samedi 27 décembre 2003 à 16:45:07 |
Re : Inet marche pas ? bizarre...
UniCyclon
|
Atta, j'ai rien dit, comment tu fais pour récupérer la source de ce qu'il y-a dans le webbrowser après un navigate... Je me sens con là...
|
|
samedi 27 décembre 2003 à 17:10:17 |
Re : Inet marche pas ? bizarre...
pcpunch
|
Oui, c'est vrai que j'ai galéré aussi pour trouver lol :
Dim CodeSrc As String 'Variable qui contiendra le code source
Private Sub Form_Load() 'lance le navigate sur l 'url
WebBrowser1.Navigate "http://www.yahoo.fr"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'A la fin du chargement de la page on charge le code src dans la variable!!!
CodeSrc = WebBrowser1.Document.documentElement.innerHTML
End Sub
Ps: voila tien moi au courant et s tu a besoin d aide!!
|
|
samedi 27 décembre 2003 à 17:16:39 |
Re : Inet marche pas ? bizarre...
pcpunch
|
Par contre g essayer le code de renfiel avec ton url ca marche!!! mm avec un open url classique!!!
----Code renfield-----
Dim CodeSrc As String
Private Sub Command1_Click()
CodeSrc = OpenURL("http://subria.com/securitycentral/online/system/advisoryfr.inm")
MsgBox CodeSrc
End Sub
Private Function OpenURL(URL As String)
Dim Buffer As String, Ret As String
Buffer = Inet.OpenURL(URL)
While Len(Buffer) > 0
Ret = Ret & Buffer
Buffer = Inet.GetChunk(1024)
Wend
OpenURL = Ret & Buffer
End Function
------ Code Sans la fonction ------
Dim CodeSrc As String
Private Sub Command1_Click()
CodeSrc = Inet.OpenURL("http://subria.com/securitycentral/online/system/advisoryfr.inm")
MsgBox CodeSrc
End Sub
Les 2 marche trés bien!!!!!!
|
|
samedi 27 décembre 2003 à 17:19:19 |
Re : Inet marche pas ? bizarre...
|
samedi 27 décembre 2003 à 17:25:38 |
Re : Inet marche pas ? bizarre...
UniCyclon
|
Bon, je vais garder avec le webbrowser. Si ça marche chez toi, c'est bien, mais je vais pas prendre le risque que ça ne marche que chez 60% des gens... Merci quand même Arf, il me rajoute des balises à la con : "<HEAD></HEAD> <BODY><PRE>[mon texte]</PRE></BODY>" |
|
samedi 27 décembre 2003 à 18:19:00 |
Re : Inet marche pas ? bizarre...
pcpunch
|
Normal tu extrait le codesrc de la page, si c du html tu aura tj les balises!!! mais il est trés facile d'extraie que le texte qui t'interesse!!! j'ai fais une src de recherche et d extraction d'affiche et d info sur allociné, a coté de ça ton url, c'est du gateau!!!!!
|
|
samedi 27 décembre 2003 à 18:33:33 |
Re : Inet marche pas ? bizarre...
pcpunch
|
voici un petit exmple dans ton cas, mais il faut voir comment sera mis a jour l 'url et voir si il y aura pas plusieurs ligne a extraire enfin sinon c pas compliquer a modifier tu fais une boucle jusque quand P1 renvoi 0, c'est qu'il y a aura plus de texte a extraire!!!
Si tu comprend pas !!! fais le moi savoir!!!
Private Sub Form_Load() 'lance le navigate sur l 'url
WebBrowser1.Navigate "http://subria.com/securitycentral/online/system/advisoryfr.inm"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'A la fin du chargement de la page on charge le code src dans la variable!!!
CodeSrc$ = WebBrowser1.Document.documentElement.innerHTML
'code exmple pour extraire le texte entre 2 repéres ici "|"!!!
P1% = InStr(1, CodeSrc, "|") + 1
P2% = InStr(P1%, CodeSrc, "|")
TxtExtrait$ = Mid(CodeSrc, P1%, P2% - P1%)
End Sub
|
|
Cette discussion est classée dans : http, marche, inet, bizarre, subria
 Répondre à ce message
 Sujets en rapport avec ce message
Connaitre la taille d'un fichier distant (de type http) inet ? winsock ? [ par Mad ]
Voila, donc a mon avis y'a une soluce avec inet, et la méthode getheader grace a l'entete de fichier Content-length.Si vous savez comment ça marche me
Download avec Inet en http ?? [ par JcDuss ]
Peut on recuperer une image avec le controle inet ?Peut etre avec le ByteArray, mais je ne sais pas l'utiliser.Et j'aimerais eviter d'utiliser winsock
Télécharger un fichier par http via inet [ par Florian29 ]
Salut !J'aimerai pouvoir télécharger un fichier (zip) par inet à partir d'une adresse HTTP (et non FTP)...Quelqun aurait-il une solution ou encore mie
Question Inet [ par talking ]
Voilà j'aimerai faire un petit programme d'inscription externe sur http://webmail.ados.fr/inscription.php mais quand j'ouvre la page avec Inet http://
INET BIZARRE [ par cherik ]
helloj'utilise inet pour récupérer des fichiers.je récupère un fichier, tout se passe bien. je supprime le fichier source et destination. je le redema
INET - download http .... [ par jamesX001 ]
J'ai un probleme avec INET !!!!!!!!!!!!!!!!!!J'essaye de downloader un fichier via le HTTP et il me met une foixs le tranfer apparement finis : type m
inet : download de fichier sur serveur http authentifié [ par doggy ]
Bon ... après avoir tourné en rond pendant pas mal de temps, il me semble que les propriétés .username et .password de inet ne soient valables que pou
Bordel de m..... INET comment ça marche ? [ par JoPopo ]
Besoin urgent d'exemple complet pour INET.... Je cherche à telecharger des fichiers sur un ftp. Mais je ne connais pas les noms des fichiers, il faut
Windows 2000 et Inet... [ par z980x ]
Salut !Voici mon problème :J'ai fais un programme qui utilise Inet pour aller chercher des infos sur le net.Sous Windows 95, 98 et Xp, ca marche SANS
BIZARRE!!!! [ par panorama12 ]
Bonjour. J'ai un petit souci avec un serveur http. Quand j'uitlise internet et que je spécifie http:\\....?04G HTTP/1.1 par exemple,le serveur me donn
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|