Visual Basic 6 - Errore 429 - Active-x component non puo' creare ..

Forum - Visual Basic 6 - Errore 429 - Active-x component non puo' creare ..

gvigliani (Normal User)
Pro

Messaggi: 106
Iscritto: 30/12/2006

Postato alle 18:28
Mercoledì, 05/03/2008

Aiuto!!!! Ho quasi terminato il mio programmone che, funziona benissimo sulla mia macchina ma , quando lo installo su un altro Pc mi da' errore.

L'errore in oggetto è il error '429' ActiveX component can't create object. Ovviamente se installo il visual basic su questa macchina tutti si risolve ma non riesco a trovare l'errore. Conoscete un buon programma di Error Trapping (Handling) che mi permetta di monitorare il programma in esecuzione per verificare in quale function si verifica l'errore??. Un grazie anticipato a quanti mi daranno una mano.

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 18:30
Mercoledì, 05/03/2008

Beh ... ma il codice che usi qual e'?

Usi un activex?

Esegui una CreateObject ?

gvigliani (Normal User)
Pro

Messaggi: 106
Iscritto: 30/12/2006

Postato alle 18:51
Mercoledì, 05/03/2008

Il problema è che non riesco a trovarlo l'errore!! Sulla mia macchina, sulla quale ho creato il prg l'errore non me lo da'! Questo si presenta dopo aver installato l'applicazione su un altro Pc.

gvigliani (Normal User)
Pro

Messaggi: 106
Iscritto: 30/12/2006

Postato alle 19:01
Mercoledì, 05/03/2008

Questo è probabilmente uno dei due errori che mi vengono addebitati:

Codice sorgente - presumibilmente VB.NET

On Error GoTo ERR_FORM_LOAD
Dim vers As Long
lbl_Version.Caption = App.Major & "." & App.Minor & "." & App.Revision
lblDescription.Caption = App.Comments
            Dim Inet As Object
            Dim b() As Byte
     
                 Const icByteArray = 1
 
                 Set Inet = CreateObject("InetCtls.Inet")
     
                  b() = Inet.OpenURL("http://www.punto13.altervista.org/aggiopunto/version.txt", icByteArray)
 
                 Labelnew.Caption = StrConv(b, vbUnicode)
 
                 Set Inet = Nothing
                 If Mid$(lbl_Version.Caption, 5, 3) < Mid$(Labelnew.Caption, 5, 3) Then
                    lblDisclaimer.Caption = "Nuovi aggiornamenti on line. Premi OK per aggiornare"
                    'cmdOK_Click
                 Else
                 
                    lblDisclaimer.Caption = "Programma aggiornato a " & date
                    cmdOK.Enabled = False
                 End If
Exit Sub
 
ERR_FORM_LOAD:
    'Error handler
    MsgBox "Errore in Form_Load()" & vbCrLf & "Number " & Err.Number & " " & Err.Description & " at line:" & Erl

Dove potrebbe essere l'errore se sul mio pc non rileva?? Ne' in formato nativo che compilato.
Grazie

[edit] Usare il tag code... [/edit]

Ultima modifica effettuata da Shutdown il 06/03/2008 alle 17:19

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 8:02
Giovedì, 06/03/2008

L'errore viene generato da questa linea

Codice sorgente - presumibilmente Visual Basic 6

Set Inet = CreateObject("InetCtls.Inet")

perche' nel PC deve esserci il file

MSINET.OCX

e forse in quello dove porti l'applicazione, quel file non c'e'.

Prendilo dalla cartella C:\Windows\System32 e copialo ... infine registralo con

Regsvr32 C:\Windows\System32\msinet.ocx

[edit] TAG CODE... [/edit]

Ultima modifica effettuata da Shutdown il 06/03/2008 alle 17:20

gvigliani (Normal User)
Pro

Messaggi: 106
Iscritto: 30/12/2006

Postato alle 15:21
Giovedì, 06/03/2008

Il file in oggetto è presente nella installazione del Cyberinstaller. Avevo gia' controllato ma ti ringrazio. Ovviamente è anche presente nella system32 di windows, ma nisba!! Mi da' questo errore del menga.

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 15:43
Giovedì, 06/03/2008

A volte quel problema e' determinato da un problema di licenza ...

Scarica il file VB6cli.exe da Microsoft e installalo ...