- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- aquark: Jó platformer játékokat keresek!
- Imilenni: Egy kis depi (szösszenet inkább), remélem elfér itt :) 3#
- Geri Bátyó: Agglegénykonyha 5 – Edények és konyhai eszközök
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- aquark: A ló túloldalán (Intel-AMD szivatás)
Új hozzászólás Aktív témák
-
initio
csendes tag
válasz
sztanozs #8408 üzenetére
Sziasztok srácok!
Nagy segítség kéne ismét ( előzőt is köszönöm )
Kicsit próbáltam kiélezni a tudásom hogy merészebb dolgokba is belefogjak
egy frissítőt gyártok épp a programomhoz, de egyszerre több fájlt ( 10-et ) kellene hogy frissítsen.
próbáltam egyszerre ( all timer start ) és egymás után is.
itt a teljes kód, és egy kép. nomeg, egy link magáról a projektről.
összesen 10 tételt kéne frissítsen. Egy gyakorlott hozzáértő biztosan tud segíteni, amit szívből köszönök, sok sok óra kínlódás és éjszakázás után!
A link a projekthez:
Ez az egy fájl-letöltő, ez működik, ebből van a forrás ( és az ötlet )
http://hsp.mine.nu/hsp-episodes/simple.zip
Ez pedig a saját próbálkozásom:
http://hsp.mine.nu/hsp-episodes/multifrissito.zip
a kód:
Imports System.Net
Imports System.IO
Public Class Form1
Public link As String
Private Sub Downloader_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Downloader.DoWork
File.Delete("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\var\Enginedata\Reaver\installsection\themeaionew.exe")
link = TextBox1.Text
Dim size As Int64
Dim wr As WebRequest
wr = WebRequest.Create(link)
Dim webr As WebResponse = wr.GetResponse
size = webr.ContentLength
size = size / 2048
ProgressBar1.Maximum = size
Label8.Text = size
Dim wc As New WebClient
wc.DownloadFile(link, "c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\var\Enginedata\Reaver\installsection\themeaionew.exe")
Exit Sub
MsgBox("ERROR", vbCritical, "ERROR")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
Timer1.Start()
Downloader.RunWorkerAsync()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim amount As Int64
If System.IO.File.Exists("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\var\Enginedata\Reaver\installsection\themeaionew.exe") Then
Dim o As New System.IO.FileInfo("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\var\Enginedata\Reaver\installsection\themeaionew.exe")
amount = o.Length
amount = amount / 2048
Label9.Text = amount
ProgressBar1.Value = amount
End If
End Sub
Private Sub Downloader_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles Downloader.RunWorkerCompleted
Timer1.Stop()
Timer2.Start()
End Sub
' Mostkezdődik a második
Private Sub Downloader2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Downloader2.DoWork
File.Delete("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\var\Enginedata\Reaver\installsection\themeaio.exe")
link = TextBox2.Text
Dim size2 As Int64
Dim wr2 As WebRequest
wr2 = WebRequest.Create(link)
Dim webr As WebResponse = wr2.GetResponse
size2 = webr.ContentLength
size2 = size2 / 2048
ProgressBar2.Maximum = size2
Label15.Text = size2
Dim wc As New WebClient
wc.DownloadFile(link, "c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\var\Enginedata\Reaver\installsection\themeaio.exe")
Exit Sub
MsgBox("ERROR", vbCritical, "ERROR")
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim amount2 As Int64
If System.IO.File.Exists("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\var\Enginedata\Reaver\installsection\themeaio.exe") Then
Dim o As New System.IO.FileInfo("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\var\Enginedata\Reaver\installsection\themeaio.exe")
amount2 = o.Length
amount2 = amount2 / 2048
Label16.Text = amount2
' ProgressBar2.Value = amount ( ezt ki kellet kapcsolni mert hibát írt rá )
End If
End Sub
Private Sub Downloader2_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles Downloader2.RunWorkerCompleted
Timer2.Stop()
End Sub
End Class
Új hozzászólás Aktív témák
Hirdetés
● ha kódot szúrsz be, használd a PROGRAMKÓD formázási funkciót!
- AMD Navi Radeon™ RX 9xxx sorozat
- gban: Ingyen kellene, de tegnapra
- Sony MILC fényképezőgépcsalád
- Anglia - élmények, tapasztalatok
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Gaming notebook topik
- Forza sorozat (Horizon/Motorsport)
- Vicces képek
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- További aktív témák...
- Microsoft Surface Pro 7 Érintős Szétszedhető Laptop Tablet 12,3" -80% i5-1035G4 8/256 Retina
- Mars Gaming MK60W 60% Mechanikus Blue Switches Gamer Billentyűzet Spanyol Kiosztás
- 2019 - BMW I3S 120Ah
- ASUS ROG Strix G15 144Hz / AMD Ryzen 5 / RTX 3050Ti / 16GB RAM / 512GB SSD
- Microsoft Surface Pro 7+ Érintős Szétszedhető Laptop Tablet 12,3" -80% i5-1135G7 16/256 Retina
- Apple iPhone 12 128 GB Fehér 1 év Garancia Beszámítás Házhozszállítás
- Vállalom Xianomi Okos kamerák, szoftveres javíttását
- Dell és HP szerver HDD caddy keretek, adapterek. Több száz darab készleten, szállítás akár másnapra
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- Apple iPhone Xs 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest