تبلیغات :
آکوستیک ، فوم شانه تخم مرغی، صداگیر ماینر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 2 از 6 اولاول 123456 آخرآخر
نمايش نتايج 11 به 20 از 51

نام تاپيک: مباحث پیشرفته و کاربردی در Vb

  1. #11
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض تشخیص فشرده شدن کليدهای کيبرد

    سلام

    تشخیص فشرده شدن کليدهای کيبرد

    من دو روش زیر را برای اینکار پيشنهاد می کنم :

    ۱ - استفاده از یک تابع کتابخانه ای به اسم GetAsyncKeyState موجود در کتابخانه user32.dll . این تابع ، فشرده شدن یا رها شدن یک کلید را تشخیص می دهد . نحوه declare کردن این تابع بصورت زیر است :

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

    حال در برنامه تان یک timer قرار داده و در event آن کد زیر را قرار دهید :

    For i = 1 To 255
    results = 0
    results = GetAsyncKeyState(i)
    If results <> 0 Then
    Msgbox(Chr(i))
    End If
    Next

    برای مشاهده یک برنامه نمونه به این آدرس مراجعه کنید .
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    ۲ - استفاده از قلاب یا Hook : قلاب ، یک ابزار در مکانیزم مدیریت پیغام سیستم ویندوز است که توسط آن برنامه ها می توانند یک روتین را برای مدیریت و پردازش پیغامهای خاصی قبل از اینکه آن پیغامها به برنامه مقصد برسند نصب نمایند . قلابها باعث کندی سیستم می شوند زیرا حجم پردازشی سیستم روی هر پیغام را افزایش می دهند بنابراین بایستی زمانیکه واقعاً به قلاب نیاز دارید آنرا نصب نموده و هر چه زودتر آنرا حذف نمایید . سیستم ویندوز از انواع زیادی از قلابها پشتیبانی می کند که هر کدام امکان دستیابی به پیغامهای خاصی را مهیا می نمایند برای مثال یک برنامه کاربردی می تواند با استفاده از قلاب کیبرد برای مدیریت و پردازش پیغامهای مربوط به آن ( مثل فشرده شدن یک کلید خاص یا رها شدن آن ) استفاده کند .
    برای نصب یک قلاب در برنامه از یک تابع کتابخانه ای به اسم SetWindowsHookEx استفاده می شود . این تابع یک قلاب را به زنجیره قلابهای سیستم اضافه می کند . نحوه declare کردن این تابع بصورت زیر است :

    Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

    همچنین برای آزاد کردن یک قلاب و حذف آن از زنجیره قلابها از تابع کتابخانه ای UnhookWindowsHookEx استفاده می گردد . نحوه declare کردن این تابع بصورت زیر است :

    Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

    برای ایجاد قلاب کیبرد همچنین نیاز به تعریف یک ثابت است که شماره قلاب کیبرد در آن قرار دارد :

    Public Const WH_KEYBOARD = 2

    حال بایستی یک تابع پس زمینه یا Callback Function نوشت که به ازای فشرده شدن کیبرد اجرا شود و آدرس آنرا ( با استفاده از کلمه کلیدی Address Of ) بهمراه ثابت فوق به تابع SetWindowsHookEx فرستاد .

    برای اطلاعات بیشتر و مشاهده یک نمونه برنامه به این آدرس مراجعه کنید .
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    Last edited by A_M_IT2005; 20-01-2007 at 21:41.

  2. این کاربر از A_M_IT2005 بخاطر این مطلب مفید تشکر کرده است


  3. #12
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض استخراج مشخصات سخت افزاری یک سیستم در Vb

    سلام

    استخراج مشخصات سخت افزاری یک سیستم در VB

    در این بخش یک کنترل Ocx معرفی می شود که بوسیله آن می توانید مشخصات سخت افزاری سیستم خود را استحراج کنید .
    این کنترل را که Hardware Info نام دارد می توانید از آدرس زیر دانلود نمایید .
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    پس از باز نمودن فایل zip دانلود شده مشاهده خواهید کرد که دو فایل dll و یک فایل ocx در آن وجود دارد . همچنین یگ فایل راهنما نیز بهمراه آنها وجود دارد که طریقه استفاده از کنترل را نشان می دهد . برای استفاده از کنترل فوق وارد محیط ویژال بیسیک شده و سپس وارد منوی Components شوید . در آنجا روی دکمه Browse کلیک کنید . وارد پوشه ای که فایل zip را در آنجا باز کرده اید شده و فایل HWInfo.ocx را انتخاب کنید تا این کنترل به لیست کنترلهای نوار ابزار شما اضافه شود . حال می توانید از کنترل را روی فرم خود قرار دهید و از امکانات آن استفاده کنید .
    این کنترل دارای خصوصیات زیر است :
    BaseBoardManufacturer : مشخصات سازنده مادربورد
    BaseBoardProduct : نوع چیپ ست مادربورد
    BiosVendor : سازنده بایوس
    BiosReleaseDate : تاریخ انتشار بایوس
    BiosVersion : ورژن بایوس
    BiosROMSize : سایز حافظه رام بایوس
    SocketDesignation : نوع سوکت پردازنده
    ProcessorType : نوع پردازنده
    ProcessorManufactor : سازنده پردازنده
    ProcessorID : شماره ID پردازنده
    ProcessorSerialNumber : شماره سریال پردازنده
    با استفاده از این کنترل همچنین می توان اطلاعات هر چهار هارد دیسک IDE سیستم را استخراج نمود برای مثال اگر بخواهید اطلاعات Primary Hard ( شماره یک ) را بدست آورید از خصوصیات زیر استفاده کنید :
    HardDisk1ModelNumber : شماره مدل هارددیسک
    HardDisk1SerialNumber : شماره سریال هارد دیسک ( شماره سریال کارخانه )
    خصوصیات دیگری نیز در این کنترل وجود دارد که برای اطلاعات بیشتر به راهنمای آن مراجعه کنید .

    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    Last edited by A_M_IT2005; 20-01-2007 at 21:43.

  4. این کاربر از A_M_IT2005 بخاطر این مطلب مفید تشکر کرده است


  5. #13
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض اضافه کردن آیکون به منو

    سلام

    اضافه کردن آیکون به منو

    براي اضافه آيکون به منوهاي موجود در يک برنامه visual basic بايستي از توابع زير که موجود در کتابخانه User32 هستند استفاده کنيد :
    ۱ - GetMenu
    ۲ - GetSubMenu
    ۳ - GetMenuItemID
    ۴ - SetMenuIcon
    ابتدا يک ماژول ايجاد کنيد و توابع فوق را در آن declare کنيد :


    Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

    Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

    Public Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

    Public Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long


    براي قرار دادن يک آيکون در کنار يکي از آيتمهاي منو نياز به handle فرم ، شماره منو ، شماره آيتم مورد نظر و نيز يک picture داريم :


    Public Function SetMenuIcon(FrmHwnd As Long, MainMenuNumber As Long, MenuItemNumber As Long, Flags As Long, BitmapUncheckedHandle As Long, BitmapCheckedHandle As Long)x
    Dim lngMenu As Long
    Dim lngSubMenu As Long
    Dim lngMenuItemID As Long
    lngMenu = GetMenu(FrmHwnd)x
    lngSubMenu = GetSubMenu(lngMenu, MainMenuNumber)x
    lngMenuItemID = GetMenuItemID(lngSubMenu, MenuItemNumber)x
    ,SetMenuIcon = SetMenuItemBitmaps(lngMenu, lngMenuItemID, Flags
    BitmapUncheckedHandle, BitmapCheckedHandle)x
    End Function


    image هاي مورد نظر خود را با ابعادي حدود 16*16 پيکسل و بصورت PictureBox در فرم خود قرار دهيد و خاصيت Visible مربوط به PictureBox ها را False کنيد .
    سپس منوهاي خود را توسط Menu Editor طراحي کنيد .



    File و Edit منوهاي اصلي هستند . پارامتر MainMenuNumber در تابع فوق شماره منوي اصلي است که براي File برابر صفر و براي Edit برابر يک مي باشد . پارامتر MenuItemNumber شماره هر آيتم در يک منو است که اين پارامتر نيز از صفر شروع مي شود .
    اکنون براي اضافه کردن سه آيکون به سه آيتم منوي File کدهاي زير را در Form_Load بنويسيد :


    Private Sub Form_Load()x
    SetMenuIcon Me.hwnd, 0, 0, 0, pic1.Picture, pic1.Picture
    SetMenuIcon Me.hwnd, 0, 1, 0, pic2.Picture, pic2.Picture
    SetMenuIcon Me.hwnd, 0, 2, 0, pic3.Picture, pic3.Picture

    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    Last edited by A_M_IT2005; 20-01-2007 at 21:51.

  6. #14
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض Tapi در ويژوال بيسيک

    سلام

    TAPI در ويژوال بيسيک

    مقدمه:

    TAPI چيست ؟

    TAPI يا Telephony API يک کتابخانه استاندارد برای کار با مودم و نوشتن برنامه های تلفنی می باشد . برای نمونه می توان از برنامه های Phone Dialer ( شماره گير تلفن ) ، برنامه شبکه سازی تلفنی ( Dialup Networking ) ، برنامه تشخيص پالس مودم برای ضبط اطلاعات وارد شده از طرف کاربران و کاربردهای ديگر در اين زمينه نام برد . اين کتابخانه به شما کمک کمک می کند تا بدون درگير شدن با برنامه نويسی سخت افزار مودم و درايور آن بطور مستقيم بتوانيد برنامه های کاربردیي در اين زمينه بنويسيد .
    مروری بر Microsoft Telephony :

    Telephony امکان مجتمع سازی کامپيوترها با دستگاههای ارتباطی و شبکه ها را فراهم نموده است . معمولاً دستگاه ارتباطی يک مودم و خط ارتباطی نيز شبکه PSTN ( شبکه عمومی تلفن سوئيچينگ ) می باشد . برخی از کاربردهای Telephony عبارتند از :

    ۱ - کنفرانسهای مالتی مديا بصورت Multicast
    ۲ - VoIP
    ۳ - مرکز پاسخ گويي اتوماتيک
    ۴ - تماس تلفنی از طريق کامپيوتر روی شبکه PSTN

    دياگرام زير معماری Microsoft Telephony را نشان می دهد :
    برنامه های TAPI :

    برای نوشتن برنامه های کاربردی با استفاده از TAPI بايستی ابتدا در مورد سطح سرويسی که می خواهيم ارائه دهيم تصميم گيری کنيم . برای مثال برای نوشتن يک برنامه شماره گير تلفن نياز به استفاده کامل از TAPI نيست و می توان از قابليتهای خود ويندوز در اين زمينه استفاده کرد ( Assisted Telephony ) . در بخشهای بعدی در مورد سطوح مختلف سرويس در TAPI بيشتر صحبت خواهم کرد .
    دومين مطلبی که بايد مورد توجه قرار داد اينست که می خواهيم از TAPI 2.x استفاده کنيم يا از TAPI 3.x . تفاوت ايندو آنست که TAPI ورژن ۲ يک API برمبنای C است در حاليکه ورژن ۳ آن بر مبنای تکنولوژی COM می باشد . در بخشهای بعدی مطالب بيشتری در مورد تفاوتهای اين دو نسخه بيان خواهم کرد .
    بخشهای اصلی يک برنامه کامل TAPI عبارتند از :

    ۱ - TAPI Initialization : شامل load کردن TAPI dll ، اتصال به TAPI Server ، مذاکره در مورد ورژن TAPI و برپاسازی سيستم اطلاع رسانی event می باشد .

    ۲ - Session Control : مقداردهی اوليه ، دريافت و کنترل تماسها

    ۳ - Device Control : دريافت و تنظيم اطلاعات دستگاه

    ۴ - Media Control : تشخيص و يا توليد تونها و ارقام ، کنترل stream

    ۵ - TAPI Shutdown : آزاد سازی منابع
    مقداردهی اوليه TAPI :

    عملکرد درست اجزای TAPI نياز به برپاسازی محيط ارتباطی روی کامپيوتر مورد نظر دارد . مراحل اين امر عبارتند از :

    ۱ - نصب TAPI : زمانيکه سخت افزار و يا نرم افزار برای اولين بار به کامپيوتر اضافه می شود انجام می گيرد . جزئيات کار به سيستم عامل و نرم افزار بستگی دارد .

    ۲ - مقداردهی ابتدائی : ساخت اشيا و مسيرهای ارتباطی

    ۳ - مذاکره در مورد ورژن TAPI : برای اطمينان از اينکه اجزای TAPI قادر به تبادل داده ها باشند .

    ۴ - استخراج اطلاعات منابع : بدست آوردن اطلاعاتی در مورد دستگاهی که می توان از آن در برنامه TAPI مورد نظرمان استفاده نمود .

    ۵ - Event notification : برپاسازی سيستم اطلاع رسانی event
    Last edited by A_M_IT2005; 24-08-2006 at 06:28.

  7. این کاربر از A_M_IT2005 بخاطر این مطلب مفید تشکر کرده است


  8. #15
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض Tapi در ويژوال بيسيک

    سلام

    TAPI در ويژوال بيسيک

    جلسه اول :

    مقداردهی اوليه TAPI در ويژوال بيسيک :

    از منوی Project گزينه References را انتخاب کرده و از ليست مربوطه مورد Microsoft TAPI 3.0 Type Library را انتخاب کنيد .
    حال وارد بخش کد نويسی فرمتان شويد و متغير objTAPI را بصورت زير تعريف کنيد :

    Dim objTapi As TAPI

    سپس در بخش مربوط به Form Load شی objTAPI را بصورت زير ايجاد می کنيم :

    Set objTapi = New TAPI

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

    Call objTapi.Initialize

  9. این کاربر از A_M_IT2005 بخاطر این مطلب مفید تشکر کرده است


  10. #16
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض Tapi در ويژوال بيسيک

    سلام

    TAPI در ويژوال بيسيک

    جلسه دوم :

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

    نکته : در کد زير عمل error checking انجام نگرفته است و برای استفاده از کد زير در برنامه های واقعی بايستی بخش بررسی خطا را به آن اضافه کنيد .
    ۱ - تعريف يک شی آدرس و يک شی مجموعه آدرس :

    Dim gobjAddress As ITAddress
    Dim objCollAddresses As ITCollection

    ۲ - تنظيم شی objCollAddress بعنوان يک مجموعه آدرس از شی objTapi :

    Set objCollAddresses = objTapi.Addresses

    ۳ - پيدا کردن آدرسی که بتواند از واسط مورد نظر ما پشتيبانی کند :

    bFound = False
    For indexAddr = 1 To objCollAddresses.Count
    Set objCrtAddress = objCollAddresses.Item(indexAddr)x
    Set objMediaSupport = objCrtAddress
    Set objAddressCapabilities = objCrtAddress

    If objMediaSupport.QueryMediaType( nSelectedType ) x
    bFound = True
    End If

    Set objAddressCapabilities = Nothing
    Set objMediaSupport = Nothing
    Set objCrtAddress = Nothing

    If bFound = True Then Exit For
    Next indexAddr


    در صورتيکه آدرس مورد نظزر پيدا شود برنامه از حلقه خارج شده و gobjAddress يک آدرس قابل استفاده خواهد بود :

    Set gobjAddress = objcollAddresses.Item(indexAddr)x

  11. این کاربر از A_M_IT2005 بخاطر این مطلب مفید تشکر کرده است


  12. #17
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض Tapi در ويژوال بيسيک

    سلام

    TAPI در ويژوال بيسيک

    جلسه سوم :

    انجام Event Handling در TAPI :

    کد زير شامل يک event handler ساده برای TAPI ، رجيستر کردن واسط event ، تنظيم ----- event و رجيستر کردن تمام فراخوانيهای دادن اخطار است . هدف اصلی از اين کد اينست که مطمئن شويم بخشی از TAPI که event ها را دريافت می کند پردازشی را قبل از انتقال به بخشهای ديگر انجام دهد .

    تعاريفها :

    Dim WithEvents gobjTapiWithEvents As TAPI
    Attribute gobjTapiWithEvents.VB_VarHelpID = -1
    Dim glRegistrationToken As Long


    Const TAPI3_CALL_EVENTS =TE_CALLMEDIA Or
    TE_CALLNOTIFICATION Or TE_CALLSTATE


    تنظيم eventfilter بصورتيکه تمام event های تعريف شده برای TAPI را بپذيرد :

    objTapi.EventFilter = TAPI3_CALL_EVENTS

    رجيستر کردن event ها :

    Set gobjTapiWithEvents = objTapi
    Dim fOwner As Boolean, fMonitor As Boolean
    Dim lMediaTypes As Long, lCallbackInstance As Long

    fOwner = True
    fOwner = True
    fMonitor = False
    lMediaTypes = TAPIMEDIATYPE_AUDIO
    lCallbackInstance = 1

    glRegistrationToken = gobjTapi.RegisterCallNotifications(gobjAddress,fMo nitor,
    fOwner,lMediaTypes,lCallbackInstance)x

  13. این کاربر از A_M_IT2005 بخاطر این مطلب مفید تشکر کرده است


  14. #18
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض Tapi در ويژوال بيسيک

    سلام

    TAPI در ويژوال بيسيک

    جلسه چهارم :

    انتخاب يک ترمينال :

    + قبل از اينکه يک ترمينال را برای برقراری ارتباط انتخاب کنيد بايستی TAPI Initialization و عمل انتخاب آدرس را انجام داده باشيد .

    ابتدا يک متغير از نوع ITBasicCallControl ( واسط کنترل تماس ) تعريف می کنيم :

    Dim objCallControl As ITBasicCallControl
    Set objCallControl = gobjReceivedCallInfo

    سپس يک متغير از نوع ITTerminalSupport ( کوئری از شی آدرس ) تعريف می کنيم :

    Dim objTerminalSupport As ITTerminalSupport
    Set objTerminalSupport = gobjAddress

    سپس متغير ترمينال را تعريف کرده و توسط شی objTerminalSupport يک ترمينال را برای آن استخراج می کنيم :

    Dim objTerminal As ITTerminal
    Set objTerminal = objTerminalSupport.GetDefaultStaticTerminal(lMedia Type, dir)x

    در اينجا ديگر نيازی به شی objTerminalSupport نيست بنابراين آنرا آزاد می کنيم :

    Set objTerminalSupport = Nothing

    سپس نياز به تعريف شی objStreamControl برای کنترل ترمينال است :

    Dim objStreamControl As ITStreamControl
    Set objStreamControl = objCallControl

    در صورتيکه اين شی ايجاد شود ، به ازای استريم های موجود در ITCollection امکان ايجاد ترمينال در يک حلقه for بررسی می شود و ترمينال مناسب انتخاب می گردد :

    If Not (objStreamControl Is Nothing) Then
    Dim objITCollStreams As ITCollection

    Set objITCollStreams = objStreamControl.Streams

    Dim nIndex As Long, objCrtStream As ITStream

    For nIndex = 1 To objITCollStreams.Count
    Set objCrtStream = objITCollStreams.Item(nIndex)x
    If objCrtStream.MediaType = lMediaType Then
    If objCrtStream.Direction = dir Then
    Call objCrtStream.SelectTerminal(objTerminal)x
    End If
    End If
    Set objCrtStream = Nothing
    Next nIndex

    Set objITCollStreams = Nothing
    Set objStreamControl = Nothing
    End If

  15. این کاربر از A_M_IT2005 بخاطر این مطلب مفید تشکر کرده است


  16. #19
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض Tapi در ويژوال بيسيک

    سلام

    TAPI در ويژوال بيسيک

    جلسه پنجم:

    ايجاد يک تماس ( Make a Call ) :
    + قبل از اين بخش بايستی مراحل TAPI Initialization و عمل انتخاب آدرس انجام شده باشد .
    اين بخش برای ايجاد يک شی تماس ، بررسی و مشخص کردن استريمی که با اين تماس در ارتباط است ، انتخاب و ايجاد ترمينالهای مناسب و کامل کردن ارتباط استفاده می شود .
    قبل TAPI Initialization و عمل انتخاب آدرس و انتخاب ترمينال انجام شده باشد .
    در ابتدا با استفاده از متد CreateCall يک شی تماس ساخته می شود :

    Set gobjCall = gobjOrigAddress.CreateCall(strDestAddress, nSelectedType,lMediaTypes)x

    سپس در اينجا بايستی کدی که در بخش اول اين درس برای انتخاب ترمينال نوشته شد آورده شود :

    }
    Select Terminal Code
    {

    سپس بايستی دستور Connect اجرا شود :

    gobjCall.Connect (False)x

    False بدين معناست که ارتباط بصورت آسنکرون برقرار می شود .

  17. این کاربر از A_M_IT2005 بخاطر این مطلب مفید تشکر کرده است


  18. #20
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض Tapi در ويژوال بيسيک

    سلام

    TAPI در ويژوال بيسيک

    جلسه آخر :

    دريافت يک تماس :

    کد زير برای يافتن و يا ايجاد يک ترمينال مناسب برای دريافت يک تماس بکار می رود . بايستی توجه داشته باشيد که قبل از اجرای کد زير بايستی مراحل مقداردهی اوليه ، انتخاب يک آدرس و رجيسر کردن event ها را انجام دهيد . همچنين در کد زير بايستی مرحله انتخاب ترمينال را نيز انجام دهيد . توجه داشته باشيد که در کد زير متغير pEvent يک اشاره گر برای واسط ITCallNotificationEvent است که توسط TAPI به event Handler داده می شود :

    If TapiEvent = TE_CALLNOTIFICATION Then
    Dim objCallNotificationEvent As ITCallNotificationEvent
    Set objCallNotificationEvent = pEvent
    Dim gobjReceivedCallInfo As ITCallInfo
    Set gobjReceivedCallInfo = objCallNotificationEvent.Call
    Dim objCallControl As ITBasicCallControl
    Set objCallControl = gobjReceivedCallInfo
    objCallControl.Answer
    End If



    + بخاطر طولانی شدن اين سری مطالب و نيز تخصصی بودن آن که باعث می شود مخاطبين کمتری داشته باشد بحث TAPI را به همين جا خاتمه می دهم . اما برای دوستان علاقمند که بخواهند مطالب بيشتری در اين زمينه آموخته و نيز مثالهای عملی از نوشتن برنامه های TAPI را در اختيار داشته باشند لينکهای زير را معرفی می کنم :

    آموزش TAPI در سايت MSDN:
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

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

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

    يک کنترل ActiveX برای استفاده از TAPI:
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    نمونه ای از يک برنامه کامل TAPI در ويژوال بيسيک:
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    TAPI در ويژوال بيسيک:
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    کتابی در مورد برنامه نويسی TAPI در ويژوال بيسيک:
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

    ممکنه بعضی لینکها به دلیل قدیمی بودن خراب باشه !!!

  19. این کاربر از A_M_IT2005 بخاطر این مطلب مفید تشکر کرده است


Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •