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]