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

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,

Use the Inet control.

Quote:

---

Originally Posted by RobDog888

Use the Inet control.

---

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

Using The INET Control

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

Quote:

---

Originally Posted by Incures

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

---

The Inet control

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? :D

Code:

---

    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")

---

Quote:

---

Originally Posted by 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? :D

Code:

---

    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

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.

Quote:

---

Originally Posted by 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.

---

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"

Code:

---

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

---

Quote:

---

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 ;) :

Code:

---

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

---

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

ok!

Quote:

---

Dim b() As String

---

should be:

Code:

---

Dim b() as Byte

---

thank you very much!