visual basic ftp

visual basic ftp 09.01.2008. u 12:38 · pre 229 meseci #1

Imam problem u visual basicu 6, naime imam 1 tekst box i komponentu INET(za slanje na ftp) i 1 timer, sad bi trebao napraviti da mi se svakih 10 minuta na ftp šalje sve što pišem u taj tekst box.
Dali mi to netko moze napraviti?

Hvala

Re: visual basic ftp 09.01.2008. u 14:11 · pre 229 meseci #2

daj kod koji si ti pisao i pojasni malo to bolje kako mislis na ftp se salje?

edit: lose sam procitao

Re: visual basic ftp 09.01.2008. u 14:29 · pre 229 meseci #3

Mozes ovako

Code:

Dim tmrCounter As Long 'Brojac sekundi

Private Sub Timer1_Timer() ' Timer interval je podesen na 1000 ms = 1 s
tmrCounter = tmrCounter + 1 ' plus sekunda
If tmrCounter = Timer1.Interval * 600 Then ' 1000 ms * 600 = 1 s * 600 = 10 min
tmrCounter = 0 ' Resetujemo brojac
Call NekaFunkcija ' Pozivamo neku fn
End If
End Sub

Bolje je da za FTP Upload koristis kod koji sam ti poslao ovde http://www.elitesecurity.org/t298114-0#1788000 zato sto on radi na svakom Windowsu. Neko npr. mozda nema INET ActiveX (stari windows npr.) a sa ovim ti ne treba nikakva instalacija i sl.
Kad mogu da biram izmedju ActiveX i koda ja uvek izaberem kod.
Pozdrav

Potpis

HomePage http://www.eurora3d.com

Re: visual basic ftp 09.01.2008. u 15:53 · pre 229 meseci #4

Proučio sam tvoj kod, nisam baš pro u vbu

Code:

Private Sub Command1_Click()
Dim ret As Boolean
ret = UploadToFTP("http://www.eurora3d.com", "ftp://ftp.eurora3d.com", "UserNeme", "PassWord", "/www/myfiles/testfile.txt", Text1.Text)
End Sub

znaci ovim kodom, pritiskom/odabirom command buttona mi se sadrzaj text1 salje na ftp, ali meni treba da mi se nakon 10 min sadržaj "automatski" šalje na ftp

2. problem

Code:

Dim tmrCounter As Long 'Brojac sekundi

Private Sub Timer1_Timer() ' Timer interval je podesen na 1000 ms = 1 s
tmrCounter = tmrCounter + 1 ' plus sekunda
If tmrCounter = Timer1.Interval * 600 Then ' 1000 ms * 600 = 1 s * 600 = 10 min
tmrCounter = 0 ' Resetujemo brojac
Call NekaFunkcija ' Pozivamo neku fn
End If
End Sub

Imam ovaj kod, na početku imam Dim tmrCounter As Long , trebam li za to ubaciti neku posebnu klasu??

3. problem
dio koda: Call NekaFunkcija , daj mi neki primjer za to, što treba staviti pod "NekaFunkcija"?

Hvala

Re: visual basic ftp 10.01.2008. u 03:41 · pre 229 meseci #5

Pa neka funkcija ... mislio sam da tu pozoves ovu funkciju iz koda koji sam postavio ranije.
Ovako

Code:

Dim tmrCounter As Long 'Brojac sekundi

Private Sub Timer1_Timer() ' Timer interval je podesen na 1000 ms = 1 s
tmrCounter = tmrCounter + 1 ' plus sekunda
If tmrCounter = 600 Then ' 1000 ms * 600 = 1 s * 600 = 10 min
tmrCounter = 0 ' Resetujemo brojac
Dim ret As Boolean
ret = UploadToFTP("http://www.eurora3d.com", "ftp://ftp.eurora3d.com", "UserNeme", "PassWord", "/www/myfiles/testfile.txt", Text1.Text) ' Promeni podatke ovde
'Tvoj FTP Server (2 X) , pa tvoje UserName , pa tvoj PassWord, pa putanja do fajla i ostavi Text1.Text na kraju
End If
End Sub

Najjednostavnije , uzmes onaj kod od ranije i (imamo formu i text1 TextBox) dodaj na nju Timer1 i ovaj komad gore
Prvi red (Dim tmrCounter As Long 'Brojac sekundi) stavi u vrhu koda (tamo gde su deklaracije funkcija itd.)
Pozdav
Zakacio sam ti i primer

Potpis

HomePage http://www.eurora3d.com

FTPUpload.zip2.45k

Re: visual basic ftp 10.01.2008. u 13:38 · pre 228 meseci #6

Hvala na pomoći, najbolji ste

Forum kao aplikacija na telefonu

Srodne teme