Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Kod nie pobiera pliku


Rekomendowane odpowiedzi

Opublikowano

Chciałem uczynić system aktualizacji, lecz coś nie pyka. Kod nie pobiera pliku na pulpit, tak to wykonuje wszystko, nawet wyskakuje MsgBox. 

        Dim clien As New Net.WebClient
        Dim spr As String = My.Computer.FileSystem.ReadAllText(folder5)
        Dim nowawersja As String = clien.DownloadString("TUTAJ MAM WPISANA WIĘKSZĄ WERSJE LAUNCHERA")
        If nowawersja > spr Then
            If MsgBox("Chcesz pobrac nowa wersje launchera?", vbQuestion + vbYesNo, "Wersja") = vbYes Then
                Dim desktop As String = GetFolderPath(My.Computer.FileSystem.SpecialDirectories.Desktop)
                WC.DownloadFileAsync(New Uri("https://www.dropbox.com/s/qk5qhff0fckvy3f/CircleCraft.exe?dl=1"), desktop & "/CircleCraft.exe")
            Else
                MsgBox("Nowa wersja Launchera to:" & nowawersja)
            End If
        End If

Ajaj soreczka za tą nazwe tematu :/

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...