یک سوال در مورد vb

سلام

می خواستم بدونم چه طوری تو vb میشه کاری کرد که یه فایل با استفاده از برنامه دانلود بشه . بهتر بگم مثلا روی یک لینک در برنامه کلیک کنی اونوقت خود برنامه ( نه ویندوز یا برنامه های دیگر) شروع به دانلود کنه . ممنون میشم اگه کسی جواب بده

سلام
منظورتان مفهوم نیست برنامه را از اینترنت دانلود کند

سلام
تکنیک جان منطورم این است که مثلا آدرس یه فایل رو برا دانلود بهش بدی اونوقت خود برنامه دانلودش کنه چه طوری میشه این
کارو کرد؟

سلام آقا
شم خودتان جاهایش را تغیر بدهید بجای نام http:\\ نام پوشه را بگزارید.

کد:

---

Option Explicit

'Copyright (C) 2002 - Vahid_Nasiri@Yahoo.com

Dim objXMLHTTP As New XMLHTTP
Dim k As Long

Sub start_saving()


'Kill App.Path + "\" + "messages_" & txtFrom.Text & "_to_" & txtTo.Text + ".htm"
'If Err.Number = 53 Then Resume Next

Dim i As Long

k = 0

write_header App.Path + "\" + "messages_" & txtFrom.Text & "_to_" & txtTo.Text + ".htm"


For i = Val(txtFrom.Text) To Val(txtTo.Text)
 
 frm1.Caption = "Processing Message No: " + Str(i)
 
 'save_mess "http://localhost/gethtmlsource.asp", "", "", _
  App.Path + "\" + "messages_" & txtFrom.Text & "_to_" & txtTo.Text + ".htm"
 
 save_mess "http://groups.yahoo.com/group/" & txtName.Text & "/message/" & i, _
            txtID.Text, txtPass.Text, _
            App.Path + "\" + "messages_" & txtFrom.Text & "_to_" & txtTo.Text + ".htm"
           
 UpdateStatus picProgress, (k / (Abs(Val(txtFrom.Text) - Val(txtTo.Text) + 1)))
 k = k + 1

Next

write_footer App.Path + "\" + "messages_" & txtFrom.Text & "_to_" & txtTo.Text + ".htm"

picProgress.Cls


End Sub

Sub save_mess(Url, user_name, pass_word, file_name)
 
  On Error Resume Next
  Dim t1, tf, res
 
  t1 = Time
  objXMLHTTP.Open "GET", Url, False, user_name, pass_word
 
  objXMLHTTP.send ""
 
  writeToFile objXMLHTTP.responseText, file_name

---

تکنیک جان خیلی ممنون . اینو که نوشتین یه چیزه دیگه به ذهنم رسید تونستم مشکلمو حل کنم

ممنون

ببخشید که نتوانستم را جلو پایتان بگزارم عوضش خوشحالم که توانستم ذهنتان را متحول کنم با مطلبم