DarkJull
Messages postés4Date d'inscriptionmardi 29 juillet 2003StatutMembreDernière intervention10 janvier 2004
-
9 janv. 2004 à 20:29
ivrit
Messages postés3Date d'inscriptionmercredi 21 avril 2010StatutMembreDernière intervention 5 février 2004
-
15 janv. 2004 à 23:29
je fais un programme qui me dit la derniere new d'un site
prennons comme exemple jeuxvideo.com
j'ai mis un script pour avoir la source de la page(et donc la new)
mais je ne sais pas comment faire pour garder que la new mais pas le reste!
je vous donne le script pour la source :
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
Dim sUrl As String
sUrl = "www.jeuxvideo.com"
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
DoEvents
hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
DoEvents
bDoLoop = True
While bDoLoop
sReadBuffer = vbNullString
DoEvents
bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend
cs_radada
Messages postés488Date d'inscriptionlundi 15 septembre 2003StatutMembreDernière intervention21 avril 20091 10 janv. 2004 à 12:03
Ben si je ne dis pas de bétises, tu ne peux pas faire un soft générique puisqu'il faut que tu connaissa chaque page, la façon dont elle est programmée et le nom des différents champs...