[ pr0gramer @ 09.01.2008. 11:38 ] @
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
[ Aleksandar Vasic @ 09.01.2008. 13:11 ] @
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]
[ Eurora3D Team @ 09.01.2008. 13:29 ] @
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
[ pr0gramer @ 09.01.2008. 14:53 ] @
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

[Ovu poruku je menjao Aleksandar Ružičić dana 09.01.2008. u 16:18 GMT+1]
[ Eurora3D Team @ 10.01.2008. 02:41 ] @
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]
[ pr0gramer @ 10.01.2008. 12:38 ] @
Hvala na pomoći, najbolji ste