473,322 Members | 1,259 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,322 software developers and data experts.

help in Inet controls

i have an Runtime error for occuring at the time of downloading from the site
the error will cause " Unable to complete your request" when i was running the application.here mainly downloading files more then 500MB from the site..
This my coding


function start here--------------*-----------------
Dim Size As Long, Remaining As Long, FFile As Integer, Chunk() As Byte
Dim loginString As String
' Dim Max As Long
Dim Max As Double
m_lngDocSize = 0

Inet1.Execute "http://www.eximalert.com/Test/" & File, "GET"


Do While Inet1.StillExecuting
DoEvents
Loop
Size = CLng(Inet1.GetHeader("Content-Length"))
Remaining = Size
FFile = FreeFile
Open App.Path & "\" & File For Binary Access Write As #FFile
Do Until Remaining = 0
Form1.Height = 2955
ProgressBar1.Visible = True
If Remaining > 1024 Then
Chunk = Inet1.GetChunk(1024, icByteArray)
Remaining = Remaining - 1024
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = ProgressBar1.Value + 1
End If
Else
Chunk = Inet1.GetChunk(Remaining, icByteArray)
Remaining = 0
End If

Put #FFile, , Chunk

Loop

Close #FFile
ProgressBar1.Value = ProgressBar1.Max

If unzipAlert(File) = True Then
Updated = True
End If

End Function
Aug 16 '07 #1
0 988

Sign in to post your reply or Sign up for a free account.

Similar topics

2
by: Laphan | last post by:
Hi All Just wanted to know if anybody knows the answer to the following quick queries: 1) The reason I'm using VB's INET control is to download copies of Ms Access DBs on a range of web sites...
0
by: dartszeeland.tk | last post by:
Hi, i want to upload a file from my computer to a ftp..... this is the code: Inet.RemoteHost = "localhost" '(not ftp:// in front of it) Inet.RemotePort = "21" Inet.UserName = "user"...
4
by: Steen Gellett | last post by:
Hallo.....I have programmed with winsock for a while, but now I have set my eyes on Inet, but I'm totally blank........a few questions ?? Inet1.Protocol = icFTP......................I can see...
4
by: S.W. Rasmussen | last post by:
I have tried several times to get inet.execute to download a file with the icHTTP protocol without much success so far. I execute: Inet.Execute "http://www.domain/myfolder/myfile.file", "GET"...
0
by: Pius | last post by:
Set Inet = Server.CreateObject("InetCtls.Inet.1") Inet.URL = "http://www.yahoo.com/" Inet.AccessType = icDirect Inet.Protocol = icHTTP Inet.RemotePort = 80 Inet.RequestTimeout = 60...
2
by: Dan | last post by:
I developed a website that posts data to another url via the Inet object. I should mention that the posting code is wrapped in a VB 6 dll, and that dll is called from ASP. Here's the ASP code:...
2
by: jm | last post by:
I am trying to do something VERY simple. I want to use this: http://www.codeproject.com/csharp/dotnetbandobjects.asp?msg=727553#xx714692xx to point to a web page. I cannot use process.start...
1
by: HenryV1955 | last post by:
Hi people Can I use Inet controls to download multiple files at once using a wildcard char, similar to 'MGET' in FTP? thanks
0
by: leoce7 | last post by:
I'm trying to write a macro in excel 2003 to use the "Microsoft Internet Control' reference library to access data from a web page. The problem is that it won't let me dimensionalize Inet controls...
2
by: fredszky | last post by:
Hello I am very new to perl, however i managed to make this server/client work with udp, now i would like to do the same thing but with TCP/IP, what must i do? Server: #!perl -w # Server...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.