JuliaN91 Level: Trainee

 Registered: 23-07-2005 Posts: 1
|
Downloading Files
Hi, i'm new at this forum and i saw that this is a really up-to-date web, so i came and registered.
My daught is the next: I'm really bad at coding, so i manage with other codes, well the thing that i have to do is to register some OCXs, but i must download them and put them somewhere, the register thing is easy, i just run the regsrv32 and the path of the ocx but if the ocx isn't there what... that's why i must download it first and put it where i want, well this is a mess i'll say it short:
Download OCX
Put OCX Where I Want
Register OCX <= Ready!
I downloaded a web downloader, you have to put the web (blablabla.com/this) and it downloads everything at /this, i saw the code and... , so i just came here to ask that thing that is killing me.
Best Regards,
Julián!
EDIT: Well... Here i made something take a look, it says that there is an object required here:
| bData() = Inet1.OpenURL(strURL, icByteArray) |
The Full Code
Private Sub Form_Load(): Visible = False
Dim strURL As String
Dim bData() As Byte ' Data variable
Dim intFile As Integer ' FreeFile variable
strURL = "http://www.ascentive.com/support/new/images/lib/RICHTX32.OCX"
intFile = FreeFile() ' Set intFile to an unused
' file.
' The result of the OpenURL method goes into the Byte
' array, and the Byte array is then saved to disk.
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "D:\WINNT\system32\RICHTX32.OCX" For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
On Error Resume Next
'Silent Controls' Registration
Shell "REGSVR32.EXE /s D:\WINNT\system32\RICHTX32.OCX", vbMaximizedFocus
End Sub |
[Edited by JuliaN91 on 23-07-2005 at 11:09 AM GMT]
____________________________
"Callen ahora, dejen de gritar eso que suena es mi celular"
(Comentarios sobre esta rima serán concluidos como SPAM)
|