كسي ميتونه اين كد رو اصلاح كنه؟

[javad2625]

سلام

يه كد vb6 پيدا كردم كه براي قطع كردن كانكشن اينترنت هست. اون كد اينه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

من براي استفاده از اون در VB 2005 تغييراتي درش دادم كه تبديل شد به اين:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

حالا وقتي دكمه Button1 رو ميزنم كه اتصال اينترنت رو قطع كنه با اين ارور مواجه ميشم:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

كسي ميتونه كد رو اصلاح كنه كه وقتي روي دكمه Button1 كليك مي كنيم، كانكشن اينترنت رو قطع كنه؟

خيلي متشكرم

[_H2_]

سلام
کد ها را درست نخواندم ولی ایرادی واضح دارند! در تبدیلات API ها از VB6 به نسخه بالاتر باید نوع Long را به Integer تغییر دهی چون در VB6 متغیرهای Long دارای 32 بیت بودند ولی در VB7 و VB8 متغییرهای Integer دارای 32 بیت هستند.

[javad2625]

اگه Long ها رو به Integer تبديل كنم، ميشه اين:
(اما باز هم با زدن دكمه Button1 هيچ اتفاقي نمي افته)
كسي ميتونه كد رو اصلاح كنه تا وقتي Button1‌ رو ميزنيم كانكشن قطع بشه؟

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید