pomoc-status bar do InetGet-status pobierania

[JDaniel1]

<p>Proszę o szybką pomoc. Robię pobieraczkę gry, którą robię i chcę aby status bar pokazywał stan pobierania pliku(InetGet). Korzystałem już z strony autorów AutoIT, ale nie za bardzo "kumam". Pomożecie mi poprawić ten skrypt? (robiłem go dla braci, dlatego są te zmienne).

Napiszę w wiadomości (prv), bo nie mogę zrobić przejrzystego kodu w tym temacie. Napiszcie mi.

Pomożecie? Proszę. Jakby można, to poproszę o poprawny kod w wiadomości

[jackraymund]

daj swoj kod pierw

[Gość]

$pobieranie = InetGet( , , ,1) ;trzy pierwsze parametry sam uzupełnij

$zmienna = InetGetInfo($pobieranie,2)

Do

$progress = InetGetInfo($pobieranie,1)

ProgressSet(($progress / $zmienna) * 100)

Until $progress = $zmienna

 

[JDaniel1]

Macie oto kod z poprawką TrollMasterPRO nie działa status bar, albo tak szybko to mija. Skrypt:(zmienne dla moich braci, aby nie grzebali w skrypcie.)

 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

 
;dane gry
$nazwa="Dorinas 2D- Downloander"
$obrazek="http://www.dorinas.cba.pl/news.png"
$stronagry="http://www.dorinas.cba.pl"
$instalka=http://www.dorinas.cba.pl/game.exe"

 

 
 

 

$oIE = _IECreateEmbedded()
$Form1 = GUICreate($nazwa, 531, 392, 128, 91)
$www = GUICtrlCreateObj($oIE,   0, 0, 529, 329)
$Progress1 = GUICtrlCreateProgress(0, 360, 526, 25)
$Button1 = GUICtrlCreateButton("Pobierz grę", 1, 328, 87, 25)
$Button2 = GUICtrlCreateButton("Zainstaluj Grę", 88, 328, 83, 25)
$Button3 = GUICtrlCreateButton("Strona gry", 168, 328, 75, 25)
$Input1 = GUICtrlCreateInput("C:/Frogram Files/Dorinas/instal.html", 256, 336, 241, 21)
GUISetState(@SW_SHOW)

 
_IENavigate ( $oIE, $obrazek)

 
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
Case $Button3
   ShellExecute($stronagry)
   Case $Button1
   $b=GUICtrlRead($Input1)

 
$pobieranie = InetGet( $instalka, "instal.exe",$b ,1) ;trzy pierwsze parametry sam uzupełnij
$zmienna = InetGetInfo($pobieranie,2)
Do
$progress = InetGetInfo($pobieranie,1)
ProgressSet(($progress1 / $zmienna) * 100)
Until $progress = $zmienna
MsgBox (0, $nazwa, "Gra jest gotowa do instalacji")
 EndSwitch
WEnd

 

[Phoenix_PL]

 

$zmienna = InetGetInfo($pobieranie,2)

 

Niet, to się musi uaktualnieć przy każdym wykonaniu pętli.

[JDaniel1]

nie rozumiem o co Tobie chodzi / co masz na myśli. Poprawiłbyś ten kawałek kodu albo mi wytłumaczył?

[Gość]

 

$zmienna = InetGetInfo($pobieranie,2)

 

Niet, to się musi uaktualnieć przy każdym wykonaniu pętli.

Nie nie musi. To sprawdza całkowitą wielkość pliku(2), a nie to co już ściągnąłeś(1).

 

nie rozumiem o co Tobie chodzi / co masz na myśli. Poprawiłbyś ten kawałek kodu albo mi wytłumaczył?

Sorry, myślałem że masz już zrobionego tego progressbara.

I myślałem że to wogóle taki inny typ progressbara(ProgressOn, ProgressSet, ProgressOff).

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
;dane gry
$nazwa="Dorinas 2D- Downloander"
$obrazek="http://www.dorinas.cba.pl/news.png"
$stronagry="http://www.dorinas.cba.pl"
$instalka=http://www.dorinas.cba.pl/game.exe"
$oIE = _IECreateEmbedded()
$Form1 = GUICreate($nazwa, 531, 392, 128, 91)
$www = GUICtrlCreateObj($oIE,   0, 0, 529, 329)
$Progress1 = GUICtrlCreateProgress(0, 360, 526, 25)
$Button1 = GUICtrlCreateButton("Pobierz grę", 1, 328, 87, 25)
$Button2 = GUICtrlCreateButton("Zainstaluj Grę", 88, 328, 83, 25)
$Button3 = GUICtrlCreateButton("Strona gry", 168, 328, 75, 25)
$Input1 = GUICtrlCreateInput("C:/Program Files/Dorinas/instal.html", 256, 336, 241, 21)
GUISetState(@SW_SHOW)
_IENavigate ( $oIE, $obrazek)

 
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
Case $Button3
   ShellExecute($stronagry)
   Case $Button1
   $b=GUICtrlRead($Input1)
$pobieranie = InetGet( $instalka, "instal.exe",$b ,1) ;trzy pierwsze parametry sam uzupełnij
$zmienna = InetGetInfo($pobieranie,2)
Do
$progress = InetGetInfo($pobieranie,1)
GUICtrlSetData($Progress1,($progress / $zmienna) * 100)
Until $progress = $zmienna
MsgBox (0, $nazwa, "Gra jest gotowa do instalacji")
 EndSwitch
WEnd

@edit: poprawiłem duży bład(przy jednej zmiennej napisałem "1" co sprawiało że źle działało

[JDaniel1]

Dzięki, temat do zamknięcia.