Visual Basic 6 - problema per scaricare file .exe da sito

Forum - Visual Basic 6 - problema per scaricare file .exe da sito

Pagine: [ 1 2 ]

visualrenzo (Normal User)
Pro

Messaggi: 94
Iscritto: 15/05/2009

Postato alle 22:31
Lunedì, 04/01/2010

salve a tutti ho un problema.
sto cercando di usare l' inet e a quanto pare ci sono riuscito.
ho scritto il seguente codice che estrae dal sito http://www.estrazionidellotto.com/enaltxt.exe
il file enaltxt.exe e me lo salva su c:
Il problema è che il file è un punto exe io vorrei che una volta scaricato, in automatico me lo estrae e  lo trasforma in un .xls di excel infatti quando lo estraggo è un .csv  ma a me serve .xml
Io  lo trasformo in xls  aprendo il file .csv e salvandolo come cartella di lavoro di microsoft excel 97-2002.

Questo è il codice

Public Sub Command1_Click()
Dim strSourceFile As String, strDestinationFile As String

strSourceFile = "http://www.estrazionidellotto.com/enaltxt.exe"
strDestinationFile = ("C:\Enascaricato.exe")
Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = Inet1.OpenURL(strSourceFile, icByteArray)
IntNumberFile = FreeFile
Open strDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile
End Sub

.... e poi come faccio a sapere quando ha finito di salvarlo in c:  ?
Grazie

nessuno (Normal User)
Guru^2

Messaggi: 6405
Iscritto: 03/01/2010

Postato alle 0:12
Martedì, 05/01/2010

Che vuol dire? Dopo la Close ha finito ...

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

visualrenzo (Normal User)
Pro

Messaggi: 94
Iscritto: 15/05/2009

Postato alle 9:03
Martedì, 05/01/2010

quindi dopo che arriva alla close siamo sicuri che l' ha prelevato dal sito e l' ha salvato su c:

e per quanto riguarda lo scompattamento e la trasformazione?

nessuno (Normal User)
Guru^2

Messaggi: 6405
Iscritto: 03/01/2010

Postato alle 10:51
Martedì, 05/01/2010

Ovviamente, a meno di errori che si possono presentare prima della Close.
Ma dovrai inserire del codice per trapparli.

Per la scompattazione, usa un programma appropriato (zip, rar?) lanciandolo da Shell con appositi parametri.

Per la trasformazione, se vuoi usare Excel, dovrai farlo tramite Automation, creando un'istanza del server Excel con CreateObject o simili.

visualrenzo (Normal User)
Pro

Messaggi: 94
Iscritto: 15/05/2009

Postato alle 16:12
Martedì, 05/01/2010

non so cos' è shell

nessuno (Normal User)
Guru^2

Messaggi: 6405
Iscritto: 03/01/2010

Postato alle 16:19
Martedì, 05/01/2010

Testo quotato

Postato originariamente da visualrenzo:

non so cos' è shell

Ottimo motivo per documentarsi

http://msdn.microsoft.com/en-us/library/aa242087(VS.60).aspx

lorenzo (Normal User)
Guru

Messaggi: 1178
Iscritto: 15/04/2008

Postato alle 20:10
Martedì, 05/01/2010

Testo quotato

Postato originariamente da nessuno:

Ottimo motivo per documentarsi

mitor (Normal User)
Pro

Messaggi: 73
Iscritto: 01/08/2007

Postato alle 20:20
Martedì, 05/01/2010

Testo quotato

Postato originariamente da visualrenzo:

salve a tutti ho un problema.
sto cercando di usare l' inet e a quanto pare ci sono riuscito.
ho scritto il seguente codice che estrae dal sito http://www.estrazionidellotto.com/enaltxt.exe
il file enaltxt.exe e me lo salva su c:
Il problema è che il file è un punto exe io vorrei che una volta scaricato, in automatico me lo estrae e  lo trasforma in un .xls di excel infatti quando lo estraggo è un .csv  ma a me serve .xml
Io  lo trasformo in xls  aprendo il file .csv e salvandolo come cartella di lavoro di microsoft excel 97-2002.

Questo è il codice

Public Sub Command1_Click()
Dim strSourceFile As String, strDestinationFile As String

strSourceFile = "http://www.estrazionidellotto.com/enaltxt.exe"
strDestinationFile = ("C:\Enascaricato.exe")
Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = Inet1.OpenURL(strSourceFile, icByteArray)
IntNumberFile = FreeFile
Open strDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile
End Sub

.... e poi come faccio a sapere quando ha finito di salvarlo in c:  ?
Grazie

basta che richiami l'eseguibile di win rar che si occupa dell'estrazione dei file e gli fai eseguire l'operazione tramite shell per quel che riguarda l'estrazione.

Ultima modifica effettuata da mitor il 05/01/2010 alle 20:21

visualrenzo (Normal User)
Pro

Messaggi: 94
Iscritto: 15/05/2009

Postato alle 20:59
Mercoledì, 06/01/2010

qualcuno sa dirmi perchè non mi funziona la parte della label ovvero ha funzionato per qualche volta poi non vedo mai i messaggi delle select case la il file lo scarica correttamente.

Private Sub Inet1_StateChanged(ByVal State As Integer)
On Error GoTo errore
  Select Case State
  Case 0
  labelStato = "*******"
  Case 1
  labelStato = "Controllo host"
  Case 2
  labelStato = " Controllo Host OK"
  Case 3
  labelStato = "Connessione in corso..."
    Case 4
  labelStato = "Connesso"
  Case 5
  labelStato = "Richiesta..."
  Case 6
  labelStato = "Attendere..."
   Case 7
  labelStato = "Connessione..."
    Case 8
  labelStato = "Risposta ricevuta, attendere.."
  Case 9
  labelStato = "Disconnessione in corso.."
  Case 10
  labelStato = "Disconnesso"
   Case 11
  labelStato = "Errore"
  Case 12
  labelStato = "Concluso"
  End Select
  Exit Sub
errore:
labelStato.Caption = Err.Description
Resume Next
End Sub

Private Sub bottonScarica_Click()
Dim stringSourceFile As String, stringDestinationFile As String

stringSourceFile = "http://www.estrazionidellotto.com/enaltxt.exe"
stringDestinationFile = ("C:\Enalotto.exe")
Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = Inet1.OpenURL(stringSourceFile, icByteArray)
IntNumberFile = FreeFile
Open stringDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile

    'MsgBox "File scaricato  e salvato correttamente", vbDefaultButton1

End Sub

Pagine: [ 1 2 ]