PDA

View Full Version : سوال: دانلود اخبار و مقاالات



shocraneh
سه شنبه 07 آبان 1387, 18:27 عصر
من می خواهم با vb برنامه ای بنویسم که بتواند به دانلود لیستی ازلینک های مربوط به اخبار و مقاالات مورد نظر من بپردازد و مسیر آن را در sql ذخیره کنند . با تشکر .

r0ot$harp
سه شنبه 07 آبان 1387, 21:35 عصر
من می خواهم با vb برنامه ای بنویسم که بتواند به دانلود لیستی ازلینک های مربوط به اخبار و مقاالات مورد نظر من بپردازد و مسیر آن را در sql ذخیره کنند . با تشکر .

دوست عزیز این طرز سوال شما مثل این می مونه که من بگم می خوام ماشینی بسازم که زرد باشه !!!


همین فقط ؟


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


و سوال های دیگر . لطفا کامل توضیح بدین ...





باتشکر احسان

shocraneh
شنبه 11 آبان 1387, 20:31 عصر
میخواهم اخبار امروز مثلا روزنامه خراسان را برایم دانلود کند ودر مسیر مشخصی از درایوهایم ذخیره کند.در وهله ی اول کد مربوط به دانلود برایم مهم است.
باتشکر

r0ot$harp
شنبه 11 آبان 1387, 22:59 عصر
میخواهم اخبار امروز مثلا روزنامه خراسان را برایم دانلود کند ودر مسیر مشخصی از درایوهایم ذخیره کند.در وهله ی اول کد مربوط به دانلود برایم مهم است.
باتشکر
دوست عزیز گفتن کاری بسیار راحت هست . ولی عمل سخت .

شما همین جوری که نمی تونی این کار ها رو انجام بدین که . یه خورده تحقیق کنید ببینید باید از چه طریقی فایل رو دانلود کرد . برای دانلود محدودیت وجود نداره ؟

و هزاران کار دیگه .

سایت مورد نطر رو لطفا اعلام کنید تا من خودم ببینیم .





باتشکر احسان

sinashahab
شنبه 11 آبان 1387, 23:07 عصر
سلام
تشکر یادت نره .

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 Form_Load()

DownloadFile "http://barnamenevis.org/forum/images/buttons/quote.gif", "d:\quot1e.gif"
End Sub
تشکر یادت نره