۲۵-تير-۱۳۸۹, ۱۸:۳۹:۴۶
۲۵-تير-۱۳۸۹, ۲۳:۰۶:۲۷
۲۶-تير-۱۳۸۹, ۰۲:۰۸:۰۷
(۲۵-تير-۱۳۸۹, ۲۳:۰۶:۲۷)armintirtapar نوشته است: [ -> ]دوست عزیز ببین این برنامه بدردت میخوره:دوست عزيز وقتی تو انجمن ويژوال بيسيک تايپک ايجاد شده يعنی از راه برنامه نويسی ميخوان اين کار رو انجام بدن.
http://www.p30download.com/archives/inte...ader_31203
نقل قول: کسی بلده با یک برنامه تو یک صفحه اینترنت عکس خاصی رو بگیرهيکی راه ها استفاده از تابع URLDownloadToFile API هست که ميتونيد هر فايلی رو دانلود کنيد
اگه قصد نشون دادن تصوير تو برنامه داری راه های ديگه هم هست استفاده از کامپوننت هايی مثل webbrowse و DHTML Edit Control هست
مثال:
کد:
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 Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
Private Sub Command1_Click()
DownloadFile "http://irupload.ir/images/m8ige2u6hb7uyfm97ce9.jpg", "c:\mypic.jpg"
End Sub