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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 119 أمس, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 108 20-02-17, 02:13 AM
آخر رد: khodor1985
  [VB.NET] سؤال بخصوص Next button Setup Factory dubai.eig 1 48 14-02-17, 07:23 PM
آخر رد: dubai.eig
  [VB.NET] اسفسار بخصوص Setup Factory 9 dubai.eig 5 96 07-02-17, 12:49 PM
آخر رد: Amir_alzubidy
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 176 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  [SQL] بخصوص SQL And VB.Net thevirus 1 121 03-02-17, 10:26 PM
آخر رد: thevirus
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 1 90 03-02-17, 07:09 PM
آخر رد: مساعدة
  [VB.NET] سؤال بخصوص setup factory dubai.eig 0 74 02-02-17, 10:46 PM
آخر رد: dubai.eig
  مساعدة فى xml Mohamed20 2 83 02-02-17, 05:40 PM
آخر رد: Mohamed20
  [VB.NET] بخصوص مشكلة بتنفيذ كود sdk البصمة ssayed111 3 113 02-02-17, 01:08 PM
آخر رد: مساعدة

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


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