2015-05-08 28 views
0

我試圖從網站下載圖像,但它給了我錯誤ie(遠程服務器返回錯誤:(502)壞的網關)。我在互聯網上搜索了很多,但沒有得到確切的解決方案。此代碼正在某些網站上工作,但在少數網站上顯示以上錯誤。 請檢查我下面的代碼...「遠程服務器返回錯誤(502)錯誤的網關」,同時從URL下載圖像文件

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim filename As String = Application.StartupPath 
    If Not filename.EndsWith("\") Then filename &= "\" 
    txtLocalFile.Text = "D:\a.jpg" 'filename & " " 
    txtRemoteFile.Text = "http://bseworld.bseindia.com/eventgallery/cricket2015/19Feb2015/2.jpg" 
End Sub 


Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click 
    Application.DoEvents() 
    Try 
     Dim web_client As WebClient = New WebClient 

     Dim wp = New WebProxy("proxy ip", proxy_port) 
     wp.Credentials = New NetworkCredential("uname", "password", "domainname") 
     web_client.Proxy = wp 
     web_client.DownloadFile(txtRemoteFile.Text, txtLocalFile.Text) 

     MessageBox.Show("Done") 
    Catch ex As Exception 

    End Try 

    End Sub 

能否請你告訴我哪部分代碼丟失或我要改變..

+0

這是服務器上的錯誤。如果您擁有服務器上的代碼,請看那裏。如果您不這樣做,請聯繫支持團隊並尋求他們的幫助。 – Tim

+0

@tim ..你在服務器上的代碼中想到了什麼樣的問題.... –

+0

我不知道,但服務器出了問題。這就是爲什麼我建議你查看服務器上的代碼(和日誌),如果你擁有它,或者聯繫那些人。 – Tim

回答

0

我做了一些RND,最後我的代碼工作。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim filename As String = Application.StartupPath 
    If Not filename.EndsWith("\") Then filename &= "\" 
    txtLocalFile.Text = "" 'filename & " " 
    txtRemoteFile.Text = "" 
End Sub 

Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click 
    Application.DoEvents() 
    Dim web_client As WebClient = New WebClient 
    Try 
     web_client.UseDefaultCredentials = True 
     web_client.DownloadFile(txtRemoteFile.Text, txtLocalFile.Text) 
     MessageBox.Show("Done") 

    Catch ex As Exception 
     Dim wp = New WebProxy("Proxy IP", Proxy_port) 
     wp.Credentials = New NetworkCredential("MachineUsername", "Machine Password", "Domain Name") 
     web_client.Proxy = wp 
     web_client.DownloadFile(txtRemoteFile.Text, txtLocalFile.Text) 
     MessageBox.Show("Done") 
    End Try 

End Sub 
相關問題