سؤال في كود تحميل صورة من الانترنت

؟؟؟؟

ربما يقومون بتغيير الصورة لكن رابط القديمة مازال يعمل على الصورة القديمة

او ان الدالة تقوقم بتخزين الصورة فى ال TempFiles لذلك عندما تقوم بطلب التحميل مرة اخرى يتم اخزها من جهازك ويتم مسحها عند اغلاق البرنامج

1 - لأن الصورة بتفضل فى الـ Cache و بالتالى يجب مسحها من الـ Cache بـ DeleteUrlCacheEntry بعد تحميلها.

2 - لغاية أمتى هنستعمل الدالة دى فى كل حاجة , فى طرق غيرها أحسن :) .

من الـ API Guide

Option Explicit

'Code by Shige
Private Type TGUID
	Data1 As Long
	Data2 As Integer
	Data3 As Integer
	Data4(0 To 7) As Byte
End Type
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID  As TGUID
	With IID
		.Data1 = &H7BF80980
		.Data2 = &HBF32
		.Data3 = &H101A
		.Data4(0) = &H8B
		.Data4(1) = &HBB
		.Data4(2) = &H0
		.Data4(3) = &HAA
		.Data4(4) = &H0
		.Data4(5) = &H30
		.Data4(6) = &HC
		.Data4(7) = &HAB
	End With
On Error GoTo ERR_LINE
	OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
	Exit Function
ERR_LINE:
	Set LoadPicture = VB.LoadPicture(strFileName)
End Function
Private Sub Form_Load()
	Set Me.Picture = LoadPicture("http://www.alsaek.com/pic2/ads/1.GIF")
End Sub

شكرا لردودكم