Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: odesa en 22 Octubre 2008, 17:11 pm



Título: Timer And Inet Help (Emergency) Wait for vb gurus
Publicado por: odesa en 22 Octubre 2008, 17:11 pm
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


Título: Re: Timer And Inet Help (Emergency) Wait for vb gurus
Publicado por: ssccaann43 © en 22 Octubre 2008, 17:16 pm
Hi..

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



Título: Re: Timer And Inet Help (Emergency) Wait for vb gurus
Publicado por: odesa en 22 Octubre 2008, 17:44 pm
timers 4,5,6 ?


Título: Re: Timer And Inet Help (Emergency) Wait for vb gurus
Publicado por: odesa en 22 Octubre 2008, 18:18 pm
I took object required error.
Is anybody help me?
Please!!!


Título: Re: Timer And Inet Help (Emergency) Wait for vb gurus
Publicado por: WestOn en 22 Octubre 2008, 18:39 pm
wenas, i don't know what happeing xDD, your problem is with interval timer¿?
in form_load:
Código:
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)


Título: Re: Timer And Inet Help (Emergency) Wait for vb gurus
Publicado por: odesa en 22 Octubre 2008, 23:52 pm
The cod is upper eveything is that.
please check the code and try in your computer.
Where is wrong WestOn?


Título: Re: Timer And Inet Help (Emergency) Wait for vb gurus
Publicado por: WestOn en 23 Octubre 2008, 00:58 am
wenas, plz upload your code to: http://rapidshare.com/ (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


Título: Re: Timer And Inet Help (Emergency) Wait for vb gurus
Publicado por: odesa en 23 Octubre 2008, 02:08 am
I uploaded:
http://rapidshare.com/files/156636448/Logtry.rar.html

Thx for everything