DOWNLOADS VB 6.0
Gostaria de colocar no vb 6.0 um servidor para baixar musicas,imagens,videos e etc...
Mais ñ sei como fazer isso.
Qualquer duvida mande um email flavinhad14@yahoo.com.br
Mais ñ sei como fazer isso.
Qualquer duvida mande um email flavinhad14@yahoo.com.br
Citação:...colocar no vb 6.0 um servidor...
Descreva com detalhes o que deseja fazer.
Voce deve está querendo baixar arquivos através do vb. Abaixo tem um simples exemplo.
(general)
Private Declare Function DoFileDownload Lib [Ô]shdocvw.dll[Ô] (ByVal lpszFile As String) As Long
Private Declare Function URLDownloadToFile Lib [Ô]urlmon[Ô] Alias [Ô]URLDownloadToFileA[Ô] (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub cmdMethod1_Click()
Dim thePath As String
thePath = InputBox([Ô]Qual o endereço do arquivo para download?[Ô], [Ô] ArquivoUrl[Ô], [Ô]http://[Ô])
[ô]o caminho é convertido para Unicode
thePath = StrConv(thePath, vbUnicode)
DoFileDownload thePath
End Sub
(general)
Private Declare Function DoFileDownload Lib [Ô]shdocvw.dll[Ô] (ByVal lpszFile As String) As Long
Private Declare Function URLDownloadToFile Lib [Ô]urlmon[Ô] Alias [Ô]URLDownloadToFileA[Ô] (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub cmdMethod1_Click()
Dim thePath As String
thePath = InputBox([Ô]Qual o endereço do arquivo para download?[Ô], [Ô] ArquivoUrl[Ô], [Ô]http://[Ô])
[ô]o caminho é convertido para Unicode
thePath = StrConv(thePath, vbUnicode)
DoFileDownload thePath
End Sub
Tópico encerrado , respostas não são mais permitidas