Avko 20.03.2015 14:42
Predmet:downloader u vb6

evo mene opet sa glupim pitanjima
nakon sto sam pokusavao nisam uspio pa se javljam ako netko ima snage i volje
radi se o sljedecem
potreban je "kod" vrlo jednostavan za skinuti fajl sa internet web stranice ili jos bolje sa google diska
recimo da imamo svi nekakve programe u vb6 (primjer tel.imenik) i upisujemo nove kontakte i onda svi nadogradimo sa novim adresama i kontaktima jednim klikom.
vidio sam po internetu da koriste Microsoft Common Dialog kontrole 6.0 dodao sam to n formu
a ono sto sam mislio da je najbolje je ovaj kod:

Private Sub Command1_Click()
dim URL as string
dim extension as string
URL = "http://jedno.weebly.com/data.txt"
extension = ".txt"
call skiniFajl(URL, extension)
End Sub

dodamo novi modul i stavimo ovo:

Public Function skiniFajl(url As String, extension As String)
    On Error GoTo Error
    Dim strURL As String
    Dim bData() As Byte
    Dim intFile As Integer
    strURL = url
    intFile = FreeFile()
    bData() = Inet1.OpenURL(strURL, icByteArray)
    Open Environ("temp") & "temp" & extension For Binary Access Write As #intFile
        Put #intFile, , bData()
    Close #intFile
    Exit Function
    Error:
    End
End Function

meni ovo uopce ne radi i trazim po temp mapi no nema data.txt ni za ljek
a niti znam kako snimiti na hd pokusavao sam ovo

Open "C:\data.txt" For Binary Access Write As #intFF
Put #intFF, , bData
Close #intFF

no nece pa nece. ode na Error , uhvatio sam ga na End, znaci preskoci sve ko da je pijano
i sad ti budi pametan.

ajd ako neko ima volje da malo pripomogne, nije hica to je vise za kucnu razbibrigu pa tako da nemorate zuriti

zxz 20.03.2015 22:53
Predmet:Re: downloader u vb6

evo probaj sa ovim kodom.
samo moras izbrisati tu tvoju kontrolu i dodati MIcrosoft conection desiger v6.0

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command1_Click()
  2. Dim url As String
  3.  Dim extension As String
  4.  url = "http://jedno.weebly.com/uploads/4/5/6/0/45602969/data.txt"
  5.  extension = ".txt"
  6.  Call skiniFajl(url, extension)
  7.  End Sub
  8. Public Function skiniFajl(url As String, extension As String)
  9.      On Error GoTo Error
  10.      Dim strURL As String
  11.      Dim bData() As Byte
  12.      Dim intFile As Integer
  13.      Dim icByteArray
  14.      
  15.      strURL = url
  16.      intFile = FreeFile()
  17.      bData() = Inet1.OpenURL(strURL, icByteArray)
  18.      Open "C:\temp." & extension For Binary Access Write As #intFile
  19.          Put #intFile, , bData()
  20.      Close #intFile
  21.      Exit Function
  22. Error:
  23.      End
  24.  End Function

Fajl ce ti biti na rutu i zvat ce se temp.txt.

Avko 21.03.2015 15:22
Predmet:Re: downloader u vb6

nazalost nisam mogao naci Microsoft conection desiger v6.0 komponentu


gifs upload

malo sam pretrazivao internet pa neznam dali moram skinuti mscdrun.dll v6.0.81.69 i instalirati ili na neki drugi nacin to moram omoguciti

zxz 21.03.2015 17:08
Predmet:Re: downloader u vb6

Izvini ja sam pogrijesio.
Treba Microsoft internet tranfer control ukljuciti.

Avko 22.03.2015 12:28
Predmet:Re: downloader u vb6

ma sve 5
evo i meni je trebalo malo vremena dok nisam zakljucio da Microsoft internet tranfer control ne samo da treba dodati nego ju i staviti na formu, a jesam mutav. zapravo ona se stavi na formu ali se nevidi kada se pokrene program.
jedino sam promijenio ovo:
Open "C:\temp." & extension For Binary Access Write As #intFile
u ovo:
Open "C:\data.txt" For Binary Access Write As #intFile
jer nisam mogao pronaci gdje se skinulo
navodno se skine u nekakav ram ili tako nesto pa je brze skidanje, ali neznam kako tamo u temp to se obraduje pa sam skinuo u root
poslje cu prilagoditi da mi skida u mapu gdje se nalazi i sam program
sve u svemu zahvaljujem

zxz 22.03.2015 12:47
Predmet:Re: downloader u vb6

Ja sam samo dao primjer putanje.
Posto ti nisi imao tu putanju vjerovatno i onda nista nije niti zapisao.
Putanju treba napraviti kako ti pase a najbolje app.path & imefilea.txt.

Avko 23.03.2015 15:00
Predmet:Re: downloader u vb6

covjek jednostavno izludi uz ove stvari
uz popijen lonac kave, popusenih 2 kutije cigareta ostaje samo bol u glavi i depresija
onaj dan sam uspio skinuti fajl, cak sam pronasao fajl temp..txt i otkrio da je to skinuti fajl iz tvojeg koda no danas nece pa nece, a zasto to ni sam neznam. proceduru sam ponovio vise puta cak otvorio i novu besplatnu web stranicu no nece
dakle prica ide ovako:

otvorim vb6, dodam Microsoft internet tranfer control komponentu pa stavim to na formu i stavim button



nakon toga dvokliknem na button i unesem ovaj kod

Dim url As String
Dim extension As String
url = "http://jedno.weebly.com/...opis.txt"
extension = ".txt"
Call skiniFajl(url, extension)
End Sub



dodam modul i unesem ovaj kod:

Public Function skiniFajl(url As String, extension As String)
On Error GoTo Error
Dim strURL As String
Dim bData() As Byte
Dim intFile As Integer
Dim icByteArray

strURL = url
intFile = FreeFile()
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\temp." & extension For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Exit Function
Error:
End
End Function



sada sa kliknem na start i uhvatim da je otislo na error



i neznam i neznam i neznam kako juce oce danas nece i zasto je icByteArray a cini mi se da je trebalo biti sa necim napunjeno

isto racunalo od juce, ista veza, veza radi jer nebi mogao ici na internet da nije
dali ima mozda veze sto sam prije se mucio da sam otkrijem pa pokretao razne kodove i nesto je ostalo u memoriji, to neznam dali ima veze sa svime time
stvarno covjeka izlude te stvari. mislim da je problem u mome znanju sto ne baratam bas sa protokolima i sto gdje i kako radi te koje varijable treba pri tome uneti.
sve u svemu ludnica, ali sigurno nesto krivo radim Crazy

zxz 23.03.2015 23:23
Predmet:Re: downloader u vb6

Malo su te izigrali na toj tvojoj stranici.
Promijenili su ime fajla i to je jedan problem:
Putanja je sad:
url = "http://jedno.weebly.com/...opis.txt"
Druga stvar stavio si proceduru u novi modul pa ti onda ovaj red koda nevalja:
bData() = Inet1.OpenURL(strURL, icByteArray)
trebalo bi da stoji:
bData() = OmeTvojeforme.Inet1.OpenURL(strURL, icByteArray)

ili da stavis proceduru u modul forme i onda nista netrebas mijenjati.

Jps jedan problem je:
On Error GoTo Error
sto znaci da ako naidje na gresku da skoci na:
Error:
End
End Function

i iza toga slijedi end znaci izlaz i ti nista neznas sta se desilo.
On error re stavlja na karju kada se presretnu sve greske.
Znaci dok radis javljaju se greske i ti pises upute:
Error:
if err. number=neki broj then
Msgbox "Neka napomena sta treba da se uradi itd..
endif

To sto si ostavio cio dan nije nista ja sam nekad zano i vis ostaviti zbog banalne stvari kada sam ucio.
End Function

Avko 24.03.2015 12:30
Predmet:Re: downloader u vb6

Van teme:
ma meni je jako zanimljivo doci do rijesenja, pogotovo kada imam nekoga ko ce me uputiti tada dobijem snage za jos. najgore mi je kada nemam koga pitati onda jednostavno odustanem i nista neradim. Malo cu prouciti iz knjige hvatanje gresaka vidio sam da ima naslov. sada idem sve to napisati ponovo i pokusavati. stavio sam namjerno onaj popis.txt bin od tel.imenika ali sam zaboravio napomenuti da sam stavio umjesto data.txt popis.txt to je moja greska. evo dobio sam krila letjet cu kao leptir

tutti frutti balkan bend - krila leptira

Van teme:
evo radi, upravo onako kako si rekao. funkciju u istu formu i to je to. imao si dobre knjige Laughing

zxz 24.03.2015 13:06
Predmet:Re: downloader u vb6

Ne nisam imao uopste knjige a nisam imao niti koga pitati pa se namucio 5 puta vise nego ti i onda jednostavno to moras zapamtiti.
Sto brze naucis brze zaboravis ali svakako treba pitati i ne muciti se. Kada sam ja pocinjao nije bilo ni knjiga ni neta a rijetko je bilo koga naci da nesto zna.