[es] - visual basic ftp

pr0gramer
nezaposlen

Član broj: 163931
Poruke: 66
*.adsl.net.t-com.hr.

Profil

^{09.01.2008. u 11:38 - pre 198 meseci}

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

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.dynamic.sbb.co.yu.

Sajt: www.vasictech.net

+1 Profil

Re: visual basic ftp

^{09.01.2008. u 13:11 - pre 198 meseci}

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

edit: lose sam procitao

_{[Ovu poruku je menjao The_End_is_close dana 09.01.2008. u 14:39 GMT+1]}

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.114.*

+7 Profil

Re: visual basic ftp

^{09.01.2008. u 13:29 - pre 198 meseci}

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

HomePage http://www.eurora3d.com

Odgovor na temu

pr0gramer
nezaposlen

Član broj: 163931
Poruke: 66
*.adsl.net.t-com.hr.

Profil

Re: visual basic ftp

^{09.01.2008. u 14:53 - pre 198 meseci}

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

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

_{[Ovu poruku je menjao Aleksandar Ružičić dana 09.01.2008. u 16:18 GMT+1]}

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.105.*

+7 Profil

Re: visual basic ftp

^{10.01.2008. u 02:41 - pre 198 meseci}

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

_{[Ovu poruku je menjao Eurora3D Team dana 10.01.2008. u 11:41 GMT+1]}

HomePage http://www.eurora3d.com

Prikačeni fajlovi

FTPUpload.zip - 2.45k

Odgovor na temu