• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 6 رای - 1.67 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سورس کد دانلود فایل در Temp
حالت موضوعی
#1
کد:
'Download a file into 'Temporary Internet Files'
'Move to Folder
'Kill Temp

Private Declare Function URLDownloadToCacheFile Lib "urlmon" Alias "URLDownloadToCacheFileA" (ByVal lpUnkcaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwBufLength As Long, ByVal dwReserved As Long, ByVal IBindStatusCallback As Long) As Long

Function DownloadFile(URL As String) As String
Dim szFileName As String
szFileName = Space$(300)
If URLDownloadToCacheFile(0, URL, szFileName, Len(szFileName), 0, 0) = 0 Then DownloadFile = Trim(szFileName)
End Function

Private Sub Command1_Click()
On Error GoTo Err
Dim tmp As String, fName As String, Pos As Long, fPath As String
tmp = DownloadFile("http://eur.i1.yimg.com/eur.yimg.com/i/eu/hp/yuk1.gif")

'Copy to directory, grab the filename, remove the [x] added by Windows''\yuk1[1].gif ''
fName = Mid$(tmp, InStrRev((tmp), "\"))
Pos = InStr(1, fName, ".")
'Note: fName includes leading "\", eg: "\yuk1.gif"
fName = Mid$(fName, 1, Pos - 4) & Mid$(fName, Pos)

'Move file to Directory
fPath = App.Path & fName
FileCopy tmp, fPath

'Delete Temp
Kill tmp

MsgBox "Saved to " & fPath, vbInformation + vbOKOnly, "Success!"

Exit Sub
Err: MsgBox "Error", vbCritical + vbOKOnly, "Error!"
End Sub
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#2
امین جون خیلی کد جالبی بود!فقط فایر وال بهش گیر میده؟Huh
 
پاسخ
#3
فکر نکنم فایروال گیر بده اما بعضی از فایروال ها حتی یاهو مسنجر هم باز کنید از شما اجازه دسترسی میپرسه !
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  کپی فایل aghamali 1 2,646 10-17-2017، 11:37 AM
آخرین ارسال: aghamali
  کد فراخوانی فایل متنی aghamali 4 6,261 06-28-2017، 02:45 PM
آخرین ارسال: aghamali
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 18,466 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 7,061 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  دانلود نسخه اصلی Visual Basic 6 + Msdn Amin_Mansouri 4 19,895 11-18-2015، 11:19 PM
آخرین ارسال: Amin_Mansouri
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 14,632 08-13-2015، 10:08 PM
آخرین ارسال: Amin_Mansouri
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 8,572 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  دانلود قسمتی از یه سایت در برنامه aghamali 1 3,696 11-07-2014، 09:40 PM
آخرین ارسال: Amin_Mansouri
  ذخیره و فرخوانی فایل تکست aghamali 3 5,638 11-01-2014، 01:58 PM
آخرین ارسال: aghamali
  سورس کد ذخیره میخوام روشنا 5 10,423 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان