اريد اداة لعمل الاتصال الالي بخط هاتف

اضف MScomm الى المشروع

استخدم كود مثل هذا........حسب ما اذكر

MSComm1.CommPort = 1

MSComm1.PortOpen = True

MSComm1.Output = "ATD 12345678"

عموما يجب ان تعرف اوامر AT . لاضافه mscomm اذهب الى project components

الأخ الفاضل ...

راجع الموضوع: AT Commands

شكراً

و ممكن بالكود تستعمل الـ Phone Dialer بتاع الـ Windows

اقتباس

و ممكن بالكود تستعمل الـ Phone Dialer بتاع الـ Windows

الاخوة الاعزاء لكم خالص الشكر والتقدير

pc.2058 كتب:

اضف MScomm الى المشروع

استخدم كود مثل هذا........حسب ما اذكر

MSComm1.CommPort = 1

MSComm1.PortOpen = True

MSComm1.Output = "ATD 12345678"

عموما يجب ان تعرف اوامر AT . لاضافه mscomm اذهب الى project components

اخي العزيز

انا عندي فيجول بيسك دوت نت 2003

لو سمحت ممكن توضح لي اكثر

كيفية استخدام MScomm

اقتباس

و ممكن بالكود تستعمل الـ Phone Dialer بتاع الـ Windows

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal DestAddr$, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long

Public Sub CallPhone(Number As String, Name As String)
	Dim lRes As Long
	Dim result As Long
	' هذا الأجراء يقوم بالأتصال عن طريق الهاتف
	lRes = tapiRequestMakeCall(Trim(Number), App.Title, Trim(Name), "")
	Debug.Print Now; " CallPhone -> tapiRequestMakeCall Result code = "; lRes
End Sub

Private Sub Command1_Click()
	CallPhone "0096396993175", "AL-MOZAMGER"
End Sub

nour_phone.rar

جزاك الله خير

xxxllsss كتب:

اخي العزيز

انا عندي فيجول بيسك دوت نت 2003

لو سمحت ممكن توضح لي اكثر

كيفية استخدام MScomm

السلام عليكم

لاسف اخي لا توجد عندي اي فكرة عن الدوت نت. يمكنك السؤال في قسم الدوت نت سوف يفيدونك اكثر

وشكرا

xxxllsss كتب:

اخي العزيز

انا عندي فيجول بيسك دوت نت 2003

لو سمحت ممكن توضح لي اكثر

كيفية استخدام MScomm

السلام عليكم

لاسف اخي لا توجد عندي اي فكرة عن الدوت نت. يمكنك السؤال في قسم الدوت نت سوف يفيدونك اكثر

وشكرا

xxxllsss كتب:

اخي العزيز

انا عندي فيجول بيسك دوت نت 2003

لو سمحت ممكن توضح لي اكثر

كيفية استخدام MScomm

السلام عليكم

لاسف اخي لا توجد عندي اي فكرة عن الدوت نت. يمكنك السؤال في قسم الدوت نت سوف يفيدونك اكثر

وشكرا

المزمجر كتب:

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal DestAddr$, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long

Public Sub CallPhone(Number As String, Name As String)
	Dim lRes As Long
	Dim result As Long
	' هذا الأجراء يقوم بالأتصال عن طريق الهاتف
	lRes = tapiRequestMakeCall(Trim(Number), App.Title, Trim(Name), "")
	Debug.Print Now; " CallPhone -> tapiRequestMakeCall Result code = "; lRes
End Sub

Private Sub Command1_Click()
	CallPhone "0096396993175", "AL-MOZAMGER"
End Sub

اخي 'المزمجر'

اولا جزاك الله خير

جربت الكود

الكود يقوم بعمل الاتصال ولكن هناك مشكلة

1-عندما اقوم بالاتصال برقم معين ثم بعد ذلك اقوم بتغيير الرقم والاتصال برقم اخر يعطيني مشغول اي ان الخط يبقى مشغول الى ان اقوم باعادة تشغيل الجهاز

2- كيف اعرف ان الرقم الذي قمت بالاتصال به قد رفع السماعة هل هذه الدالة ترجع قيمة عند رفع السماعة للرقم المتصل به

وشكر

الاداه دى ممكن تنقل بيها ملفات على خط التليفون؟

ولو ايوه ممكن تنقل اكتر من ملف فى نفس الوقت

السلام عليكم

بحبشت في الجهاز و لقيت هالمثال

ـمنى أن ينفعك

المشكلة أنو وقتي ديق :D

بالتوفيق

Phone1.rar

المزمجر كتب:

السلام عليكم

بحبشت في الجهاز و لقيت هالمثال

ـمنى أن ينفعك

المشكلة أنو وقتي ديق :D

بالتوفيق

جزاك الله خير اخي العزيز

لمن اذا عندك الملف MSComm.dll

ممكن ترسله لي

لانه ليس لديه هذا الملف

xxxllsss كتب:

جزاك الله خير اخي العزيز

لمن اذا عندك الملف MSComm.dll

ممكن ترسله لي

لانه ليس لديه هذا الملف

اخي العزيز

هل هذا البرنامج يعمل على فيجول بيسك دوت نت 2003

اقتباس

بحبشت في الجهاز و لقيت هالمثال

مشكور أخي المزمجر ، ومادام الموضوع على الإتصال الهاتفي سأضيف أمثلة وجدتها

اقتباس

المشكلة أنو وقتي دي

بالتوفيق والنجاح أخي المزمجر

/index.ph...c=65067&hl=

/index.ph...c=37470&hl=

مثال كيفية الإتصال بالهاتف:

Tel.rar

وهذا برنامج قديم عندي للإتصال بالهاتف

phone.zip

اقتباس

اذا عندك الملف MSComm.dll

الأداة :MSCOMM32.rar