تقييم الموضوع :
  • 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 ك ب / التحميلات : 69)
الرد }}}}
تم الشكر بواسطة:
#2
من فضلكم ياجماعة ساعدوني
الرد }}}}
تم الشكر بواسطة:
#3
يعني مش معقول اي حد ماعندوش فكرة يساعدني
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 116 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 84 19-05-17, 06:46 PM
آخر رد: dubai.eig
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 74 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  مساعدة بخصوص تشفير ملف exe OakenShield 1 53 18-05-17, 11:27 AM
آخر رد: OakenShield
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 54 17-05-17, 05:14 PM
آخر رد: 0theghost0
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 507 16-05-17, 01:12 AM
آخر رد: salah mansour
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 61 16-05-17, 12:29 AM
آخر رد: alma2
  [نقاش] استفسار بخصوص النت فراموورك Net Framework Ratchinko 4 120 15-05-17, 01:48 AM
آخر رد: Ratchinko
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 79 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 81 10-05-17, 11:17 AM
آخر رد: khaled12345

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


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