Visual Basic 6 - Errore Run-Time 458

Forum - Visual Basic 6 - Errore Run-Time 458

.:ViRuS:. (Ex-Member)
Pro

Messaggi: 174
Iscritto: 01/06/2008

Postato alle 17:23
Martedì, 24/06/2008

Ragazzi, Vi prego Mi dovete aiutare, Sto uscendo pazzo...

HO un problema maledetto.. un codice semplicissimo dove non ci sono errori... e visual basic mi segnala questo:

Errore Run-Time 458

La variabile usa un tipo di automatizzazione non supportato in Visual Basic...

E si ferma ad un punto..

Ecco il Codice che ho usato:

Codice sorgente - presumibilmente VB.NET

Dim data As String
Dim First As Boolean
Dim a As Integer
a = -1
Winsock1.GetData data
sis:
If data = "Writing Done" Then
GoTo lego
End If
 
If data = "File Created Successifully" Then
 
 
Open dialog1.FileName For Binary As #1
 
First = True
 
While Not EOF(1)
Get #1, , c
a = a + 1
If a >= 1 Then
First = False
End If
DoEvents
 
 
'Text1.Text = Text1.Text & c
'Text1.SelLength = Len(Text1.Text)
Winsock1.SendData "BinarySendData," & c
 
 
If First = False Then GoTo sis
lego:
 
 
 
Wend
Close #1
 
MsgBox "finito"
Winsock1.SendData "Fine"
End If
 
End Sub

L'errore appare quando arriva a leggere: Get #1, , c

PERCHEEEEE DICO IOOOOOO è un codice che ha sempre funzionato.. non ho modificato niente! ho solo aggiunto l'if tra while e wend e le variabili... NIENT'altro!!!!

PErchè!!!!?!?!?

Per Favore Mi Date una Mano?

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 17:36
Martedì, 24/06/2008

forse perchè nn hai dichiarato la variabile c
vedi se va senza la parte della if

nn assicuro niente

.:ViRuS:. (Ex-Member)
Pro

Messaggi: 174
Iscritto: 01/06/2008

Postato alle 17:40
Martedì, 24/06/2008

Provo... però vedi... questo progetto è stato modificando togliendo solo le parti che erano ESTREMAMENTE inutili per il trasferimento tra socket..

e prima (il procedimento era esattamente lo stesso... ma senza winsock.. una semplice copia binaria...)

e li non dava alcun problema...

ora faccio quello che hai detto tu

GRAZIE 1000 davvero di tutto... se funziona ti faccio una statua...

anche se potevo pensarci uff...

.:ViRuS:. (Ex-Member)
Pro

Messaggi: 174
Iscritto: 01/06/2008

Postato alle 17:49
Martedì, 24/06/2008

FUNZIONAAAAAAAAAAAAAAAAAAAAAAAA!!!!!

ora però il trasferimento si è rallentato... e di molto anche uff...

forse per tutti gli if e then e le variabili e i goto..

Però non so come fare...

GRazie mille di tutto!