ُسورس سايت

[msn_vb]

سلام
من ميخاستم سورس يك سايت رو بدست بيارم
يك برنامه توي سايت بود كه از طريق كنترل Internet Trasfer عمل ميكرد
اينم لينكش http://www.iranvig.com/283.html
ولي متاسفانه دانلود نميشه
حالا اگه ممكنه سورس اين برنامه رو اينجا بزارين و اگه راه بهتري مثلا بدون استفاده از كامپوننت بتونيم اين كارو انجام بديم لطفا راهنمايي كنين
با تشكر

[arashrj]

سلام
عزیزم این کار خیلی پیچیده نیست (اما سورس سایت رو به دست نمیاری در حقیقت کد HTML هست که به دست میاری)
ابتدا کامپوننت Microsoft Internet Transfer Control 6.0 رو به برنامه اضافه کن (Ctrl+T)
و با این دستور ساده می تونی سورس رو به داخل Text1 منتقل کنی

کد:

Text1.Text = Inet1.OpenURL("http://www.google.com")

اگه مشکلی هست حتما به من اطلاع بده

موفق باشی
خدانگهدار

[mehdvirus]

سورس سایت رو که عمرا بدست بیاری
ولی کد اچ تی ام ال راحته هم با ای نت میشه هم با وین ساک هم با تابعی که هست برا اینکار اسمش یادم رفته متاسفانه

[msn_vb]

ممنون
آقا مهدي اگه ميشه اون روش بدون كامپوننت رو پيدا كنين خيلي خوب ميشه آخه از استفاده يك كامپوننت تو برنامه كم شدن خيلي مزايا داره
راستي من با كد شما يك سايت فارسي رو توي Text ريختم
اما قسمت هاي فارسي عجق وجق شد ، چي كار كنم درست شه ؟