سورس کامل و فارسی و رایگان خبرخوان شیک بلاگ

[samaddj666]

71615

سلام دوستان عزیز من یک نرم افزار خبر خوان رایگان و فارسی رو نوشتم و اونو به صورت متن باز منتشر کردم و الان خواستم براتون معرفی کنم خیلی جالب و کامل است و میتواند الگوی خوبی برای برنامه نویسان باشد.:قلب:
امکانات :

- حجم کم نرم افزار برای دانلود
- زبان نر
م افزار برای راحتی شما کاملا فارسی هست
- نرم افزار دارای گرافیک خوبی است که بتونی باهاش راحت تر و سریع کار کنی
- نرم افزار از 18 سایت و 24 موضوع در زمینه فناوری اطلاعات پشتیبانی میکند
- می تونی فایل نصب و سورس آنرا به طور جداگانه دریافت کنی
- بعد از دریافت خبر میتونی اینترنت رو قطع کنی و به صورت آفلاین خبر رو بخونی
- اگر از خبری خوشت اومد میتونی با کلیک کردن برروی عنوان آن به لینک مطلب در سایتی که خبر رو منتشر کرده بری
- در هنگام اجرا, آیکن نرم افزار در کنار ساعت سیستم در نوار وظیفه دیده میشه و میتونی از اونجا هم یکی دوتا دستور رو اجرا کنی
برای دانلود به لینک زیر مراجعه کنید:

http://www.rsssoft.shikblog.com/dl/index.htm

[samaddj666]

اگه یه نظری , پیشنهادی , انتقادی بدی بد نیست هاااااااا دوست عزیز:متفکر:

[vbhamed]

سلام

دستت درد نكنه
برنامه خوبي نوشتي
فقط بهتر بود به جاي اينكه اينهمه متد GetRSS بنويسي، يك دونه بنويسي و آدرس سايتها رو به صورت پارامتر براش ارسال كني
در هر حال تشكر

[samaddj666]

دوست عزیز اگه میشه یکم بیشتر توضیح بدین :قلب:

[p30rex]

سلام:
اینطوری:
به جای اون همهgetrss فقط کد پایین رو مینویسی:

Private Function GetRSS(address as String )
lstHeadlines.Clear
webFeeds.Navigate "about:blank"
strHeadlines = ""
strURL = address
strFeed = ""
strPubDate = ""
DoEvents
StatusBar.Panels(2).Text = "...áØÝÇ ÕÈæÑ íÇÔíÏ"
DoEvents
Dim oItems As MSXML2.IXMLDOMNodeList
Dim i As Integer
Dim oNode As IXMLDOMNode
Set oRSS = New MSXML2.DOMDocument
oRSS.async = False
oRSS.Load (address)
Set oItems = oRSS.selectNodes("rss/channel/item")
i = -1
ReDim oItemList(oItems.length)
For Each oNode In oItems
i = i + 1
lstHeadlines.AddItem oNode.selectSingleNode("title").Text
Set oItemList(i) = oNode
Next oNode
StatusBar.Panels(2).Text = "ÏÑíÇÝÊ ÔÏ " & lstHeadlines.ListCount & " ÎÈÑ"
DoEvents
m_frmSysTray.ShowBalloonTip _
"ÏÑíÇÝÊ ÔÏ " & lstHeadlines.ListCount & " ÎÈÑ.", _
"ãÌáå ÇíäÊÑäÊí ÔíÜÜ Ü˜Ü ÈáǐÜ", _
NIIF_INFO
End Function


بعد موقع فراخونی تابع به این صورت عمل میکنی:

GetRSS("آدرس مورد نظر")

[samaddj666]

ممنون فهمیدم منظورتون چیه !
حتما در نسخه های بعدی رعایت میکنم:قلب:

[samaddj666]

دوستان عزیز اینقدر که بازدید می کنید لطفا نظرات,انتقادات و پیشنهاداتون رو بگید تا در نشخه های بعدی آنهارا رعایت کنم و یا خودتان آنهارا ویرایش کنید و بهبود دهید سپس برای من ارسال کنید که با نام خودتان در سایت منتشر کنم.:قلب:

[samaddj666]

دوستان عزیز تا حالا 106 بازدید از این پست شده اما تنها 6 نظر به ثبت رسیده!البته چندتاش رو هم خودم دادم
یکم فکر کنید ببینید انصاف هست؟
همه میان این سورس رو دانلود میکنند اما یک نظر کوچولو هم نمی دن:افسرده:
فردا هم میگن ایرونی ها خیلی خسیس هستن , برنامه هارو به صورت متن باز منتشر نمیکنن!!!!!!!!!:گریه:
آخه شما پیشنهادی , انتقادی بدید تا من هم بدون باید چی کار کنم!مگه نه؟

[vbhamed]

سلام

دوست عزيز
شما تازه تو اين سايت عضو شدين، اينجا معمولا بچه ها براي كمك به همديگه ميان نه دريافت نظر و تشكر و اينطور چيزها
اما اگر خودتون هم مشكلي داشته باشيد و مطرح كنيد مي‌بينيد كه هر كس بتونه بهتون جواب مي ده
به هر حال وقت هر كسي محدوده و نمي‌تونه براي هر مطلبي كه مي بينه نظر بزاره
اما يه مقدار كه با اين سايت كار كنيد متوجه مي شيد كه مكان بسيار ارزشمندي براي تبادل اطلاعات هست

[samaddj666]

دوست عزیز اولا من نمی خواهم ازم تشکر کنند
در ضمن اگه مشکلات برنامه رو ندونم که نمی تونم نسخه های بعدی رو منتشر کنم.:چشمک:

[vbhamed]

سلام

من هم عرض كردم، بچه ها تا بتونند كمك مي كنند، اما اينكه من انتظار داشته باشم دائم بهم نظر بدن تا برنامم رو تكميل كنم هم كمي زياده خواهيه
همه وقت افراد مال من نيست كه براي من كار تست نرم افزارهام رو انجام بدن
در هر حال اگر بيشتر با اين سايت كار كنيد بهتر متوجه قضيه مي شيد

[samaddj666]

چشم دوست عزیز.پس منتظر هستیم تا دوستان مشکلات رو بگن.:متفکر:

[elimiz]

لينك دانلود خرابه.