Results 1 to 5 of 5
  1. #1
    Accelerate''s Avatar
    Join Date
    Apr 2011
    Gender
    male
    Posts
    21
    Reputation
    10
    Thanks
    1
    My Mood
    Relaxed

    Downloading a file

    Hey guys im making a file downloader for some random shit, and everytime i test it to download i get this error: The remote server returned an error: (403) Forbidden.

    Any way i can fix that?
    Here's my code:

    Code:
    Imports System.IO
    Public Class Form1
        Private _path As Object
        Private Sub AeroButtonA1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AeroButtonA1.Click
            _path = TextBox1.Text
            If RadioButton1.Checked = True Then
                Install2()
            End If
    
    
            If RadioButton2.Checked = True Then
                Install()
            End If
        End Sub
        Public Sub perx()
            Label8.Text = "Downloading PerX.zip..."
            Cursor = Cursors.WaitCursor
            My.Computer.Network.DownloadFile("https://dl-web.*******.com/get/PerX.zip?w=f01debe1&dl=1", "" + _path + "\PerX.zip")
    
    
        End Sub
    
    
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            My.Computer.Audio.Play(My.Resources.gamestartup01, AudioPlayMode.BackgroundLoop)
        End Sub
    
        Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
    
        End Sub
        Public Sub Install()
            perx()
            Cursor = Cursors.Default
            MsgBox("Finished downloading PerX.zip!", MsgBoxStyle.Information, "Download Finished")
            Label8.Text = "Idle"
        End Sub
        Public Sub Install2()
            hack()
            Cursor = Cursors.Default
            MsgBox("Finished downloading CABase.rar!", MsgBoxStyle.Information, "Download Finished")
            Label8.Text = "Idle"
        End Sub
        Public Sub hack()
            Label8.Text = "Downloading CABase.rar..."
            Cursor = Cursors.WaitCursor
            My.Computer.Network.DownloadFile("https://dl-web.*******.com/get/CABASE.rar?w=15eeb2d7", "" + _path + "\CABase.rar")
        End Sub
    
        Private Sub AeroButtonA2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AeroButtonA2.Click
            Dim FolderBrowserDialog1 As New FolderBrowserDialog
            FolderBrowserDialog1****otFolder = Environment.SpecialFolder.Desktop
            FolderBrowserDialog1.SelectedPath = "C:\"
            FolderBrowserDialog1.Description = "Select your save directory."
            If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
                TextBox1.Text = FolderBrowserDialog1.SelectedPath
                AeroButtonA1.Enabled = True
            End If
        End Sub
    End Class

  2. #2
    master131's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Melbourne, Australia
    Posts
    8,858
    Reputation
    3438
    Thanks
    101,754
    My Mood
    Breezy
    It's something to do with the server/website you're downloading from, it's rejecting the request. You sure the link is even valid?
    Donate:
    BTC: 1GEny3y5tsYfw8E8A45upK6PKVAEcUDNv9


    Handy Tools/Hacks:
    Extreme Injector v3.7.3
    A powerful and advanced injector in a simple GUI.
    Can scramble DLLs on injection making them harder to detect and even make detected hacks work again!

    Minion Since: 13th January 2011
    Moderator Since: 6th May 2011
    Global Moderator Since: 29th April 2012
    Super User/Unknown Since: 23rd July 2013
    'Game Hacking' Team Since: 30th July 2013

    --My Art--
    [Roxas - Pixel Art, WIP]
    [Natsu - Drawn]
    [Natsu - Coloured]


    All drawings are coloured using Photoshop.

    --Gifts--
    [Kyle]

  3. #3
    Accelerate''s Avatar
    Join Date
    Apr 2011
    Gender
    male
    Posts
    21
    Reputation
    10
    Thanks
    1
    My Mood
    Relaxed
    yes im sure, iv tested it alot

    and i uploaded the files today
    Last edited by Accelerate'; 05-21-2011 at 07:22 PM.

  4. #4
    master131's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Melbourne, Australia
    Posts
    8,858
    Reputation
    3438
    Thanks
    101,754
    My Mood
    Breezy
    Try using this to download the file:
    [highlight=vb.net]Dim wc As New WebClient
    wc.DownloadFile("blah, link here", "destination")
    wc.Dispose()
    [/highlight]
    Donate:
    BTC: 1GEny3y5tsYfw8E8A45upK6PKVAEcUDNv9


    Handy Tools/Hacks:
    Extreme Injector v3.7.3
    A powerful and advanced injector in a simple GUI.
    Can scramble DLLs on injection making them harder to detect and even make detected hacks work again!

    Minion Since: 13th January 2011
    Moderator Since: 6th May 2011
    Global Moderator Since: 29th April 2012
    Super User/Unknown Since: 23rd July 2013
    'Game Hacking' Team Since: 30th July 2013

    --My Art--
    [Roxas - Pixel Art, WIP]
    [Natsu - Drawn]
    [Natsu - Coloured]


    All drawings are coloured using Photoshop.

    --Gifts--
    [Kyle]

  5. #5
    Accelerate''s Avatar
    Join Date
    Apr 2011
    Gender
    male
    Posts
    21
    Reputation
    10
    Thanks
    1
    My Mood
    Relaxed
    ok ill try that and let ya know it if works