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):
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 ![]() |
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 ![]() |
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. |