سرتیتر صفحه جدید
آشنايي با RAS API و WinInet API – کامل
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
مقدمه آشنايي با WinInet API : WinInet API مجموعه ای از توابع است که
امکان ايجاد و توسعه برنامه های اينترنتی را بصورتی ساده ، سريع و کارآمد برای
برنامه نويسان مهيا می کند . با استفاده از اين مجموعه توابع شما می توانيد برنامه
هايي بنويسيد که از منابع اينترنتی با استفاده از پروتکلهايي چون HTTP و FTP
استفاده کنند . همچنين WinInet به شما اجازه می دهد تا بتوانيد ارتباطی dial-up با
يک ISP ايجاد نموده و آنرا کنترل کنيد . امکانات Dial-Up موجود در WinInet : تا قبل از ارائه اينترنت اکسپلورر ورژن 4 ، WinInet تنها دارای دو تابع dial-up بود : تابع InternetAttemptConnect : برای بررسی اينکه آيا يک ارتباط به اينترنت وجود دارد يا نه استفاده می شد . اگر هيچ اتصالی به اينترنت وجود نداشت اين برنامه کادر تبادلی dial-up networking را نمايش می داد و کاربر اجازه داشت تا يک اتصال را برای وصل شدن به اينترنت انتخاب کند . تابع InternetCheckConnection : تابع با استفاده از انجام يک دستور ping به url ای که به تابع داده شده ، بررسی می کرد که آيا ارتباطی به اينترنت وجود دارد يا نه . اين دو تابع دارای محدوديتهای فراوانی بودند . برای مثال تابع اول نمی تواند بطور اتوماتيک اتصال به اينترنت را برقرار کند و تابع دوم نيز نمی تواند هيچ اطلاعاتی در مورد نوع ارتباط به ما بدهد . IE نسخه 4 ، تعدادی تابع جديد برای WinInet معرفی کرد که برخی از آنها عبارتند از : تابع InternetGetConnectedState : اطلاعاتی در مورد نوع ارتباط استفاده شده را بيان می کند . برای مثال اين تابع اطلاع می دهد که نوع ارتباط به اينترنت از طريق مودم است يا شبکه LAN و يا از طريق پروکسی . تابع InternetAutodial : اين امکان را فراهم می سازد تا يک ارتباط اينترنتی اتوماتيک از طريق مودم را با استفاده از مدخل اتصال پيش فرض که کاربر آنرا در dial-up networking مشخص کرده ايجاد کنيد . تابع InternetDial : اين تابع کارآمدتر از تابع InternetAutodial است و کادری را نمايش می دهد که کاربر می تواند نوع مدخل مورد نظر خود برای ارتباط تلفنی با اينترنت را انتخاب کند . تابع InternetAutodialHangup : برای قطع کردن اتصالی مودمی که از طريق تابع InternetAutodial برقرار شده استفاده می شود . تابع InternetHangUp : برای قطع کردن اتصالی مودمی که از طريق تابع InternetDialبرقرار شده استفاده می شود . تابع InternetSetDialState : برای تنظيم کردن وضعيت جاری ارتباط اينترنتی استفاده می شود . در قسمت بعدی اين سلسه مباحث جزئيات اين توابع را بررسی کرده و نهايتاً برنامه ای کاربردی برای کار با اين توابع در ويژوال بيسيک ارائه خواهم داد . اطلاعات بيشتری در مورد WinInet : در اين بخش ما تنها توابع dial-up موجود در WinInet API را بررسی کرديم اما همانطور که در ابتدا گفته شد WinInet دارای امکانات فراوانی در زمينه کار با اينترنت است . برای آشنايي بيشتر با اين امکانات در زير جداولی ارائه شده که به اختصار امکانات مختلف اين مجموعه تابع را نشان می دهد : توابع Dial-Up :
توابع عمومی اينترنت :
توابع URL :
توابع FTP :
توابع HTTP :
بررسی جزئيات توابع Dial-Up موجود در WinInet : 1 – تابع InternetAutodial : بطور اتوماتيک باعث شماره
گيری اتصال پيش فرض اينترنت توسط مودم می شود . اگر اتصال با موفقيت انجام شود تابع
مقدار true و در غير اينصورت false بر می گرداند . چگونگی declare کردن تابع : Public Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long 2 – تابع InternetAutodialHangup : باعث قطع کردن يک اتصال dial-up اتوماتيک می شود . اگر قطع اتصال با موفقيت انجام شود تابع مقدار true و در غير اينصورت false برمی گرداند . تابع دارای يک پارامتر ورودی به اسم dwReserved است که رزرو شده بود و بايستی صفر باشد . چگونگی declare کردن تابع : Public Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long 3 – تابع InternetDial : يک اتصال به اينترنت را با
استفاده از يک ارتباط مودم مقداردهی اوليه می کند . پارامترهای ورودی آن عبارتند از
: چگونگی declare کردن تابع : Public Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long 4 – تابع InternetGetConnectedState : اين تابع وضعيت
اتصال جاری به اينترنت را بر می گرداند . اگر اتصال برقرار باشد تابع مقدار true و
در غير اينصورت false برمی گرداند . چگونگی declare کردن تابع : Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long 5 – تابع InternetGoOnline : پيغامی به کاربر برای دادن
مجوز برای مقداردهی اوليه اتصال به يک URL را می دهد . اگر اينکار موفقيت آميز باشد
مقدار true و در غير اينصورت false برمی گرداند . پارامترهای ورودی تابع عبارتند از
: چگونگی declare کردن تابع : Public Declare Function InternetGoOnline Lib "wininet.dll" (ByVal lpszURL As String, ByVal hwndParent As Long, ByVal dwReserved As Long) As Long 6 – تابع InyernetHangUp : به مودم می گويد که اتصال به
اينترنت را قطع کند . پارامترهای اين تابع عبارتند از : چگونگی declare کردن تابع : Public Declare Function InternetHangUp Lib "wininet.dll" (ByVal dwConnection As Long, ByVal dwReserved As Long) As Long 7 – تابع InternetSetDialState : تنظيم نمودن وضعيت شماره گيری مودم . اگر تنظيم با موفقيت انجام شود تابع true و در غيراينصورت false برمی گرداند . پارامترهای ورودی تابع عبارتند از :
dwReserved : پارامتری رزرو شده است و بايستی صفر باشد . چگونگی declare کردن تابع : Public Declare Function InternetSetDialState Lib "wininet.dll" (ByVal lpszConnectoid As String, ByVal dwState As Long, ByVal dwReserved As Long) As Long بررسی فلگهای مورد استفاده در توابع dial-up : 1 – فلگهای تابع InternetDial : Public Const INTERNET_DIAL_UNATTENDED = &H8000&
'0x8000 2 – فلگهای تابع InternetAutoDial : Public Const INTERNET_AUTODIAL_FORCE_ONLINE =
1
Public Const INTERNET_CONNECTION_MODEM = 1 4 - فلگهای مربوط به dial handler اختصاصی : Public Const INTERNET_CUSTOMDIAL_CONNECT = 0 5 – فلگهای عملياتی پشتيبانی شده برای dial handler
اختصاصی : 6 - وضعيتهای مربوط به InternetSetDialState : Public Const INTERNET_DIALSTATE_DISCONNECTED = 1 در اين بخش که آخرين بخش از مباحث WinInet API است برنامه ای نمونه برای کار با توابع مودمی اين کتابخانه ارائه خواهيم داد : برای نوشتن برنامه ای که بتوان از طريق آن
با استفاده از مودم به اينترنت متصل شد بصورت زير عمل می کنيم : Private Declare Function InternetDial Lib "wininet.dll" Alias "InternetDialA" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long سپس وضعيت شماره گيری را در متغيری به اسم
lOption قرار می دهيم . اين متغير می تواند مقادير زير را داشته باشد
: حال تابع InternetDial را بصورت زير صدا می کنيم : RetVal = InternetDial(Me.hwnd, ConnectionName, lOption, ConnectionID, 0) اگر RetVal مخالف صفر باشد عمل Dial بدرستی انجام شده است . برای قطع اتصال فوق بايستی از تابع InternetHangUp استفاده کنيم . برای اينکار ابتدا تابع فوق را Declare می کنيم : Private Declare Function InternetHangUp Lib "wininet.dll" (ByVal dwConnection As Long, ByVal dwReserved As Long) As Long سپس اين تابع را بصورت زير فراخوانی می کنيم : RetVal = InternetHangUp(ConnectionID, 0) برای اينکه مودم را مجبور کنيم تا بطور
اتوماتيک از اتصال پيش فرض سيستم برای شماره گيری استفاده کند از تابع
InternetAutodial استفاده می کنيم . Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal hwndParent As Long) As Long سپس تابع را بصورت زير فراخوانی می کنيم : RetVal = InternetAutodial(ADF_FORCE_UNATTENDED, Me.hwnd) اگر RetVal مخالف صفر باشد عمل AutoDial بدرستی انجام شده است . برای قطع اتصالی که توسط AutoDial ايجاد شده از تابع InternetAutodialHangup استفاده می کنيم . ابتدا اين تابع را Declare می کنيم : Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long فراخوانی اين تابع بصورت زير است : Call InternetAutodialHangup(0) برای اينکه بفهيم آيا اتصال به اينترنت وجود دارد يا نه از تابع InternetGetConnectedStateEx استفاده می کنيم . برای اينکار ابتدا تابع را Declare می کنيم : Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" (lpdwFlags As Long, lpszConnectionName As Long, dwNameLen As Long, ByVal dwReserved As Long) As Long سپس تابع را بصورت زير فراخوانی می کنيم : strConnectionName = Space(256) که strConnectionName از نوع String و بقيه متغيرها از نوع Long هستند . اگر RetVal مخالف صفر باشد اتصال برقرار است . ثابتهايی که در کدهای فوق استفاده شده عبارتند از : Private Const
INTERNET_AUTODIAL_FORCE_ONLINE = 1& Private Const INTERNET_DIAL_FORCE_PROMPT =
&H2000 |