shirin71
08-06-2011, 08:29 PM
این کار توست تابعی که در api ویژوال بیسیک است صورت می گیرد این تابع را در قسمتgeneral فرم خود کپی نمایید
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
بهد یک تیکست باکس را به فرم اضافه ویک کامند باتوم را هم اضافه نمایید
روی کامند دو بار کلیک نمایید و این کد را برای آن بنویسید
Private Sub Command1_Click()
tapiRequestMakeCall Text1.Text, "", "", ""
End Sub
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
بهد یک تیکست باکس را به فرم اضافه ویک کامند باتوم را هم اضافه نمایید
روی کامند دو بار کلیک نمایید و این کد را برای آن بنویسید
Private Sub Command1_Click()
tapiRequestMakeCall Text1.Text, "", "", ""
End Sub