XHTML

Commentaire de celiphane le 04/11/2002 17:22:34

Qu'est-ce que c'est que ça ? "qui n'a jamais révé... blabla" ?
Référencer une DLL ? XHTML ? pour obtenir une source ?
oula, d'où tu nous sors tout ça toi ?

Tiens, met donc ça dans un module :


Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Function ReponseWeb(ByVal URL As String) As String
On Error Resume Next
Dim hOpen As Long
Dim hOpenUrl As Long
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String * 2048
Dim lNumberOfBytesRead As Long
Dim sBuffer As String
  hOpen = InternetOpen("VB OpenUrl", 0, vbNullString, vbNullString, 0)
  hOpenUrl = InternetOpenUrl(hOpen, URL, vbNullString, 0, &H80000000, 0)
  bDoLoop = True
  While bDoLoop
    sReadBuffer = vbNullString
    bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
    sBuffer = sBuffer & Left(sReadBuffer, lNumberOfBytesRead)
    If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
  Wend
  If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
  If hOpen <> 0 Then InternetCloseHandle (hOpen)
  ReponseWeb = sBuffer
End Function



Faut TOUJOURS ALLER AU MOINS ENCOMBRANT !!!
Bonne prog' qd mm... @+

Commentaire de celiphane le 05/11/2002 10:55:18

lol
tu commences toi je me trompe ?
non, sérieusement, tu n'as pas bien compris :
en ajoutant une dll, tu fais mal a ton prgm. c tres contraignant de devoir distribuer des composants, surtout pour l'utilisateur, personnellement je déteste les prgm qui vont m'installer des DLL a la c... .
Sache qu'1 DLL contient du code qui exploite ce que ton SYSTEME CONNAIT DEJA, de sorte que tu n'es pas à le programmer toi mm.
Et souvent, comme ici par ex, la dll ne se limite pas aux seules fonctions que tu utilises ! Ce que je t'ai donné, c'est LE BOUT que tu exploites. POINT. le reste est INUTILE et encombre...
"mon prgm fait moins de lignes!" -> tu rigolais j'espère !
tu crois qu'un prgm performant est un pgrm court ? quand je dis moins encombrant, je parle de ta DLL. A ton niveau, tu me parles de "moins" de lignes, pour comprendre, regarde le poids de ta dll et imagine le nombre de ligne qu'elle contient, pour en plus "pollué" le système du receveur de l'appli.

Voilà, je pense que tu as compris ce que j'ai voulu t'expliquer précédemment, dsl de pas avoir été assez clair...
(En tout cas, ceci aura permis de faire comprendre des notions importantes a de nbx débutants !)
Je te souhaite une bonne programmation ! @Bi1to !

Commentaire de yoman64 le 07/11/2002 18:10:39

C'est koi ce bordel??? des commentaires ,c'est pas des sources completes!