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
|
merci!!!!