[PYTANIE] Jak ustawić ścieżkę pobierania

[MalakPl]

Mam problem otuż nie wiem jak ustawić ścieżkę pobierania moich plików ponieważ wywala mi takie błędy:

 

 

Kod:

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim sr As New IO.StreamReader("http://xxx.ugu.pl/Updata/Launcher/files.txt")
        Dim line As String = sr.ReadLine()

        Dim req As Net.WebRequest
        Dim resp As IO.Stream
        Dim out As IO.BinaryWriter

        Do While line IsNot Nothing
            req = Net.HttpWebRequest.Create("http://xxx.ugu.pl/Updata/Launcher/" & line)
            resp = req.GetResponse().GetResponseStream()

                out = New IO.BinaryWriter(New IO.FileStream("C:\Users\" & Environment.UserName & "\AppData\Roaming\.launcher\bin\natives\")" & line, IO.FileMode.OpenOrCreate) -------------- Toooooooooo

            Dim buf(4096) As Byte
            Dim k As Int32 = resp.Read(buf, 0, 4096)

            Do While k > 0
                out.Write(buf, 0, k)
                k = resp.Read(buf, 0, 4096)
            Loop

            resp.Close()
            out.Close()

            line = sr.ReadLine()
        Loop
    End Sub

 

 

[Inorist™]

dodaj ) na końcu... Tylko prawdziwy. Masz takie same przezwisko jak ja

[MalakPl]

Nie działa

[MalakPl]

• ref

[Gość]

No przecież masz źle string ułożony w tej linii.

   out = New IO.BinaryWriter(New IO.FileStream("C:\Users\" & Environment.UserName & "\AppData\Roaming\.launcher\bin\natives\)" & line, IO.FileMode.OpenOrCreate)' -------------- Toooooooooo

[MalakPl]

właśnie o to mi chodzi że nie wiem jak go ułożyć i zrobiłem tak jak jest napisane powyżej i nie działa

[Inorist™]

Prosz:

 

out = New IO.BinaryWriter(New IO.FileStream("C:\Users\" & Environment.UserName & "\AppData\Roaming\.launcher\bin\natives\" & line, IO.FileMode.OpenOrCreate))
 

[MalakPl]

Imports System.Net
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim uruchom As String

        uruchom = "start javaw -Xmx1024m -Djava.library.path=%APPDATA%/.minecraft/bin/natives -cp %APPDATA%/.minecraft/bin/minecraft.jar;%APPDATA%/.minecraft/bin/jinput.jar;%APPDATA%/.minecraft/bin/lwjgl.jar;%APPDATA%/.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft "


        Shell("cmd.exe /c" & uruchom & TextBox1.Text)


        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
        End If
        Label1.Text = ProgressBar1.Value & (" %")
    End Sub

    Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        Dim client As WebClient = New WebClient()
        Label2.Text = client.DownloadString("http://xxx.ugu.pl/Updata/Launcher/ver.txt")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim sr As New IO.StreamReader("http://xxx.ugu.pl/Updata/Launcher/files.txt")
        Dim line As String = sr.ReadLine()

        Dim req As Net.WebRequest
        Dim resp As IO.Stream
        Dim out As IO.BinaryWriter

        Do While line IsNot Nothing
            req = Net.HttpWebRequest.Create("http://xxx.ugu.pl/Updata/Launcher/" & line)
            resp = req.GetResponse().GetResponseStream()

            out = New IO.BinaryWriter(New IO.FileStream("C:\Users\" & Environment.UserName & "\AppData\Roaming\.launcher\bin\natives\" & line, IO.FileMode.OpenOrCreate))

            Dim buf(4096) As Byte
            Dim k As Int32 = resp.Read(buf, 0, 4096)

            Do While k > 0
                out.Write(buf, 0, k)
                k = resp.Read(buf, 0, 4096)
            Loop

            resp.Close()
            out.Close()

            line = sr.ReadLine()
        Loop
    End Sub
End Class

 

Został jeden błąd:

 

Handles clause requires a WithEvents variable defined in the containing type or one of its base types.	34	99	

[Inorist™]

skopiuj:

       Dim sr As New IO.StreamReader("http://xxx.ugu.pl/Updata/Launcher/files.txt")
        Dim line As String = sr.ReadLine()

        Dim req As Net.WebRequest
        Dim resp As IO.Stream
        Dim out As IO.BinaryWriter

        Do While line IsNot Nothing
            req = Net.HttpWebRequest.Create("http://xxx.ugu.pl/Updata/Launcher/" & line)
            resp = req.GetResponse().GetResponseStream()

            out = New IO.BinaryWriter(New IO.FileStream("C:\Users\" & Environment.UserName & "\AppData\Roaming\.launcher\bin\natives\" & line, IO.FileMode.OpenOrCreate))

            Dim buf(4096) As Byte
            Dim k As Int32 = resp.Read(buf, 0, 4096)

            Do While k > 0
                out.Write(buf, 0, k)
                k = resp.Read(buf, 0, 4096)
            Loop

            resp.Close()
            out.Close()

            line = sr.ReadLine()
        Loop

 

kliknij 2 razy na guzik button4, wklej tam skopiowany kod.

[MalakPl]

Mam problem ponieważ nie wiem jak ustawić jakie pliki ma pobierać najlepiej jakby pobierało plik rar i po pobraniu go rozpakowywało