تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة بخصوص كشف اسم المتصل
#1
السلام عليكم شباب دي اول مشاركة ليا ارجو منكم ان تساعدوني انا بعمل مشروع عن كشف رقم المتصل بس انا بضيف عليه شوية حاجات زي صورة المتصل والمدة المحددة للمكالمة يعني تطلع رسالة فى الرقم والاسم والتاريخ والصورة ويتحط علطول على الداتا والداتا جريد ياريت حد منكم يساعدني وده الكود اللي بستخدمه هو نفس اللي عندكم بس عايز ابين اسم المتصل من الداتا بيس ويطلع على الداتا جريد من فضلكم ساعدوني
Imports System.IO
Imports System
Imports System.Net
Imports System.Data
Imports System.Windows.Forms
Imports System.ComponentModel
Imports TAPI3Lib
Imports TAPI3Lib.TAPI_EVENT
Imports System.IO.Ports
Imports System.Management
Imports System.Data.SqlClient
Imports System.Data.Sql
Partial Public Class Main
Dim ResultData As String = ""
Dim table As New DataTable
Dim ds As New DataSet
Dim dp As New SqlDataAdapter
Public Function ModemsConnected(Optional ByRef ListOfModems() As String = Nothing) As String
Dim modems As String = ""
Dim _ListOfModems As New List(Of String)
Try
Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_POTSModem")
For Each queryObj As ManagementObject In searcher.Get()
If queryObj("Status") = "OK" Then
modems = queryObj("AttachedTo") & " - " & queryObj("Description")
_ListOfModems.Add(modems)
End If
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
Return ""
End Try
ListOfModems = _ListOfModems.ToArray
Return modems
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ListOfModems() As String = {}
SerialPort1.PortName = Strings.Left(ModemsConnected(ListOfModems), 4)
SerialPort1.DtrEnable = True
SerialPort1.Open()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Registration.Show()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Contactinformation.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.Close()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
On Error Resume Next
Dim RE As String = SerialPort1.ReadExisting
ResultData += RE & vbNewLine
Dim mycon As New SqlConnection
Dim query As String
mycon.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=D:\Documents and Settings\DELL\My Documents\project caller id111\project caller id\Database1.mdf;Integrated Security=True;User Instance=True"
mycon.Open()
query = "insert into data values(Phone_number,Time,Date)"
dp.InsertCommand = New SqlCommand(query, mycon)
dp.InsertCommand.ExecuteNonQuery()
MsgBox(ResultData & DateAndTime.Now)
DataGridView1.DataSource = ResultData
DataGridView1.Refresh()
mycon.Close()
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub


End Class


الملفات المرفقة
.rar   project caller id111.rar (الحجم : 454.81 ك ب / التحميلات : 68)
الرد }}}}
تم الشكر بواسطة:
#2
من فضلكم ياجماعة ساعدوني
الرد }}}}
تم الشكر بواسطة:
#3
يعني مش معقول اي حد ماعندوش فكرة يساعدني
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 93 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 54 01-12-16, 03:09 AM
آخر رد: khalaroy
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 152 30-11-16, 11:21 PM
آخر رد: awidan76
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 64 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 300 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 75 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 81 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 88 16-11-16, 11:58 AM
آخر رد: أبووسم
  [سؤال] CrystalReports بخصوص GroubBy thevirus 1 59 15-11-16, 10:51 PM
آخر رد: السرور

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم