[Resolved By: Ethan37 ,RobDog888]how do i download file from http?

[Incures]

i need the simplest way to download file while im openning a program
i need the program to download information file every time that peopele
will start it, i case of update...

*to summeise it all, i need function for downloading file from Http port 80 only

thank you m8ts,

[RobDog888]

Use the Inet control.

[Incures]

Use the Inet control.

which means?
im practicly new...i dont know much about VB6 =\
explain me abit more about it, thanks

[Hack]

Using The INET Control

[RobDog888]

Sorry, add the control to your toolbox first "Microsoft Internet Transfer Control"

[Mark Gambo]

which means?
im practicly new...i dont know much about VB6 =\
explain me abit more about it, thanks

The Inet control

[RobDog888]

Ive done this before to download my avatar from vbf into an image control on a form.
Note: this was for the old format as since the upgrade it may be different now.

Edit: Why is everyone so quick to direct members away from VBF?

    Inet1.UserName = msMemberName
    Inet1.Password = msPassWord

    'LINK IMAGE CONTROL TO AVATAR
    b() = Inet1.OpenURL("http://www.vbforums.com/avatar.php?userid=" & msMemberID & "&dateline=1037488934", icByteArray)
    If Dir("D:\Profile.gif") <> "" Then
        Kill "D:\Profile.gif"
    End If
    Open "D:\Profile.gif" For Binary As #1
        Put #1, , b()
    Close #1
    imgAvatar.Picture = LoadPicture("D:\Profile.gif")

[Incures]

Ive done this before to download my avatar from vbf into an image control on a form.
Note: this was for the old format as since the upgrade it may be different now.

Edit: Why is everyone so quick to direct members away from VBF?

    Inet1.UserName = msMemberName
    Inet1.Password = msPassWord

    'LINK IMAGE CONTROL TO AVATAR
    b() = Inet1.OpenURL("http://www.vbforums.com/avatar.php?userid=" & msMemberID & "&dateline=1037488934", icByteArray)
    If Dir("D:\Profile.gif") <> "" Then
        Kill "D:\Profile.gif"
    End If
    Open "D:\Profile.gif" For Binary As #1
        Put #1, , b()
    Close #1
    imgAvatar.Picture = LoadPicture("D:\Profile.gif")

ok thx , but i case i wanna download the file :
name: version.dll
remote path: mu-eternal.no-ip.org/updates/
local path : D:\

what do i need to change..
and what defines / referrences do i need to add?
please be more specific

[RobDog888]

No references, just adding the Inet control like I posted earlier.

To download a different file change the link url to your desired source file location and then the "D:\Profile.gif" will be the destination location for you to change as you need.

[Incures]

No references, just adding the Inet control like I posted earlier.

To download a different file change the link url to your desired source file location and then the "D:\Profile.gif" will be the destination location for you to change as you need.

ok i added the Inet control.
i did changed the Url and the Direction settings, still not respose.
My code: ....whats wrong =\.." runtime error 13 , type miss match"

Dim b() As String

Private Sub Command1_Click()
   Inet1.UserName = msMemberName
    Inet1.Password = msPassWord

    'LINK IMAGE CONTROL TO AVATAR
    b() = Inet1.OpenURL("http://mu-eternal.no-ip.org/updates/XXX.exe", icByteArray)
    If Dir("D:\XXX.exe") <> "" Then
        Kill "D:\XXX.exe"
    End If
    Open "D:\XXX.exe" For Binary As #1
        Put #1, , b()
    Close #1
    'imgAvatar.Picture = LoadPicture("D:\XXX.exe")
    MsgBox ("file saved")
End Sub

[Ethan37]

i need the simplest way to download file while im openning a program
i need the program to download information file every time that peopele
will start it, i case of update...

maybe you will like this :

Option Explicit
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Command1_Click()
'this prompts for downloading though
   DoFileDownload StrConv("http://www.google.com/intl/en_ALL/images/logo.gif", vbUnicode)
End Sub

[Incures]

i need it on the back , like they suggest me..
but please try to answer my problem
tow posts above

[Ethan37]

ok!

Dim b() As String

should be:

Dim b() as Byte

[Incures]

thank you very much!