سورسی جهت دانلود فایل OCX از اینترنت بدونه استفاده از Component

[tootro20]

سلام
میشه لطفا سورسی واسه دانلود OCX قرار بدید؟
ممنون میشم
با تشکّر فراوان از ادمین های گل

[سید حمید حق پرست]

سلام علیکم
یک کم توضیح بدید
از کجا؟ از یک لینک ثابت؟

یا علی (ع)

[tootro20]

سلام.
بله اگه میشه از یک لینک ثابت باشه ممنونم.
برنامم ویروس نیستا اما یکی داشتم نمی دونم چرا جدیدا گیر میده بهش.
تشکّر فراوان.
اگه میشه از ابزار های خود ویژال بسیک جهت دانلود استفاده نکنه ممنون میشم. اقا حمید واقعا ممنون رفیق

[سید حمید حق پرست]

سلام علیکم
نمونه کد برای دانلود فایل :
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

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Private Sub Command1_Click()
On Error Resume Next
DownloadFile "http://www.website.ir/control.ocx", "d:\control.ocx"
End Sub
موفق باشید.

یا علی (ع)