Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOn Error Resume Next For Each proc As Process In Process.GetProcesses() ' check process' main window title If proc.MainWindowTitle.StartsWith("Appel entrant de") Then Dim p As Process = Process.GetProcessById(proc.Id) Dim phrase As String = p.MainWindowTitle.ToString phrase = Microsoft.VisualBasic.Mid(phrase, 17) My.Computer.Clipboard.SetText(phrase) Exit For Next
27 août 2014 à 17:15