[VB6] Funziona solo su 1 macchina

[simcario]

Ciao a tutti,

ho compilato la seguente applicazione che se la eseguo sulla stessa macchima su cui l'ho creata allora funziona ma su altre macchine mi da l'errore

Run-time error '713':

Application-defined or object-defined error


potete aiutarmi?

Dim IE As SHDocVw.InternetExplorer
Dim Cmd1 As New Command

Sub Main()
 p = App.Path
 
Cmd1.ActiveConnection = Database.Connection1.ConnectionString

Data = Format(Date, "dd/mm/yyyy")
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.Navigate p & "\form_wo.html"

                Do While IE.Busy
                    Loop
                Call attendi

IE.Document.Forms(Form1).username.Value = "WOREPORT"
IE.Document.Forms(Form1).userpwd.Value = "tccres2004"
IE.Document.Forms(Form1).submit

IE.Navigate p & "\form_wo.html"
                
                
                Do While IE.Busy
                    Loop
                Call attendi
                
                
IE.Document.Forms(1).giorno.Value = Data
IE.Document.Forms(1).submit


                Do While IE.Busy
                    Loop
                Call attendi
                
                
a = ""
i = 0
Do While a <> "Numero Cl. "
a = IE.Document.All.Item(i).outertext
i = i + 1
Loop
i = i + 22
Do While temp <> "Tempo di esecuzione"
telefono = IE.Document.All.Item(i).outertext
prodotto = IE.Document.All.Item(i + 1).outertext
modulo = IE.Document.All.Item(i + 3).outertext
modulo = Mid(modulo, 7, 2)
Query = "insert into wo (telefono, prodotto, modulo, dataora) values ('" & telefono & "','" & prodotto & "','" & modulo & "',' " & Data & "')"
Cmd1.CommandText = Query
Cmd1.Execute
temp = IE.Document.All.Item(i - 1).outertext
temp = Mid(temp, 1, 19)
i = i + 11
Loop
Cmd1.ActiveConnection.Close
IE.Quit
Close
 End Sub

Sub attendi()
   'Exit Sub
    PauseTime = 3                       ' Imposta la durata (secondi).
    Start = Timer                       ' Imposta l'ora di inizio.
    Do While Timer < Start + PauseTime
        DoEvents                        ' Passa il controllo ad altri processi.
    Loop
    Finish = Timer                      ' Imposta l'ora di fine della pausa.
    TotalTime = Finish - Start          ' Calcola il tempo totale.
End Sub

[Brainjar]

Il problema è stato più volte affrontato e risolto. Fai una ricerca
nei post. Proprio ieri c'era un problema simile al tuo.
E' un problema di componenti e/o riferimenti.

Ciao,

[simcario]

Ho cercato ma non ho trovato niente di simile....

penso che sia una sciocchezza comunque trovare il problema!!!!

[Brainjar]

Prova a dare un'occhiata qui :

http://forum.html.it/forum/showthrea...hreadid=812981
http://forum.html.it/forum/showthrea...hreadid=802747

Ciao,

[simcario]

vi prego aiutatemi per favore

[simcario]

purtroppo non riesco a capire dove sta l'errore...

ho controllato anche altre applicazioni fatte in modo simile e che girano anche su altre macchine e non trovo niente di diverso a quell che ho fatto in questa...

forse l'unica differenza è che questa applicazione parte da una sub main e non da un form.... ma mi sembra che non sia questo il problema....

[Brainjar]

La tua applicazione l'hai installata tramite una procedura di
installazione, o hai semplicemente copiato l'eseguibile ?

Probabilmente sulle due 'macchine' ci sono gli stessi componenti,
ma con versioni diverse.

Guardando bene il frammento di codice, si capisce che la tua
applicazione effettua un collegamento internet tramite IE.

Hai controllato, se funziona il collegamento alla linea nei PC che
ti danno problemi ?

Infatti l'errore 713 guarda a cosa è dovuto :

Da MSDN

Remote Access Service (RAS) Error code list for Windows NT 4.0
... ...................................
... ...................................
... ...................................
... ...................................
... ...................................
713 No active ISDN lines are available.
... ...................................
... ...................................
... ...................................
... ...................................
... ...................................

Ciao,