lalchetian 0 Newbie Poster
Function GetHTMLPage(Inet1 As INet, ByVal url As String, ByVal filename As String, ByVal proxy As String) As String
    Dim fnum As Integer
    On Error GoTo errorfetch
    INet.Cancel

    INet.proxy = proxy
errorfetch:
nme = Form1.Caption
    GetHTMLPage = Inet1.OpenURL(url)
    If Inet1.StillExecuting = True Then
    DoEvents
    End If
    Form1.Caption = nme
        fnum = FreeFile
        Open filenamehtml + filename For Output As #fnum
        Print #fnum, GetHTMLPage
        Close #fnum

End Function

It gets url from a file,fetches it via a proxy ,processes it and then gets the subsequent url
urls are like:

http://www.arzt-auskunft.de/Arzt-Auskunft/Suche/suche_s/DataDetail.plx?EntryIdExStat=a6414x66911h8i8048896991776&DbNr=1&

http://www.arzt-auskunft.de/Arzt-Auskunft/Suche/suche_s/DataDetail.plx?EntryIdExStat=a7416k30831p2yso7o454360955865&DbNr=1&

http://www.arzt-auskunft.de/Arzt-Auskunft/Suche/suche_s/DataDetail.plx?EntryIdExStat=a8615u63982o50252132y624210&DbNr=1&

http://www.arzt-auskunft.de/Arzt-Auskunft/Suche/suche_s/DataDetail.plx?EntryIdExStat=a22113x9911c4a9g837v996928198&DbNr=1&

http://www.arzt-auskunft.de/Arzt-Auskunft/Suche/suche_s/DataDetail.plx?EntryIdExStat=a91139u0990s962463662823q97&DbNr=1&

http://www.arzt-auskunft.de/Arzt-Auskunft/Suche/suche_s/DataDetail.plx?EntryIdExStat=a29156s4570d9845215q2u23h943j2&DbNr=1&

now the problem is It actually fetches the html but not of the same url as passed in the argument but of some different url . I can say this coz i save the html and when i open it in browser the page format is same but its not of the url requested. the code is simple enough and i have been trying to figure it out for a week now
any sort of help/alternatives would be highly appreciated

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.