Timer And Inet Help (Emergency) Wait for vb gurus

Iniciado por odesa, 22 Octubre 2008, 17:11 PM

0 Miembros y 3 Visitantes están viendo este tema.

odesa

Hi guys
I have a problem, when I make this I took permission denied error.
I supposed , I can't set of timers intervals.
Please help me , try this code on your vb.
We should make this working thanks, why I get error?
The Timers intervalls must have=?????? sec.
I need your help.

Private Sub Form_Load()
Timer5.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute Inet1.URL, "Send d:\" & Date$ & "on.txt " & Date$ & "on.txt"
'Inet1.Execute Inet1.URL, "Send d:\" & Dosyaadi & " " & Dosyaadi
Timer6.Enabled = True
End Sub

Private Sub Timer2_Timer()
'With Inet1
Inet1.Protocol = icFTP
Inet1.URL = "ftp://adress.com"
Inet1.Password = "pass"
Inet1.username = "username"
'Inet1.RequestTimeout = 40
'Timer3.Enabled = False
'Timer1.Enabled = True
End Sub

Private Sub Timer3_Timer()

'Dim Dosyaadi As String
'Dim fullyol As String
'Dosyaadi = Environ("Computername") & ".log"
'fullyol = App.Path & "\" & Dosyaadi
'Open Dosyaadi For Append As #1
Open Date$ & "on.txt " For Append As #1
Print #1, Text1.Text
Close #1
Timer4.Enabled = True
'Timer1.Enabled = False

End Sub

Private Sub Timer4_Timer()

Timer3.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Timer5_Timer()
Timer2.Enabled = True
Timer3.Enabled = True
Timer1.Enabled = False

End Sub

Private Sub Timer6_Timer()
Timer1.Enabled = False
Timer5.Enabled = True
End Sub

ssccaann43 ©

Hi..

1000 is a second
2000 is a 2 seconds
3000 is a 3 seconds

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"


odesa

I took object required error.
Is anybody help me?
Please!!!

WestOn

#4
wenas, i don't know what happeing xDD, your problem is with interval timer¿?
in form_load:
timer4.interval = 6000
timer5.interval = 18000
timer6.interval = 12000

good bye  :xD

PD:when you write the post, up there are many icons, you must use the labels in order to do commentaries         (Only for CODE)
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
                                                                                                                                                                                                                            

odesa

The cod is upper eveything is that.
please check the code and try in your computer.
Where is wrong WestOn?

WestOn

wenas, plz upload your code to: http://rapidshare.com/ and 'postea' (your next post, url of you program).

sube tu codigo a esa pagina y luego poner la url de tu archivo, asi es mas facil.

un saludo
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.