1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Public Shared Sub Dire(ByVal Texte As String)
Dim str As String
str = Clipboard.GetData(DataFormats.Text).ToString
Clipboard.SetDataObject(Texte, True)
Clipboard.SetDataObject(Texte, True)
Clipboard.SetDataObject(Texte, True)
If Clipboard.GetData(DataFormats.Text) = Texte Then
PostMessage(Config.Handle_Windows, &H100, 13, IntPtr.Zero)
PostMessage(Config.Handle_Windows, &H101, 13, IntPtr.Zero)
Thread.Sleep(50)
PostMessage(Config.Handle_Windows, &H100, &HA2, IntPtr.Zero)
PostMessage(Config.Handle_Windows, &H100, &H56, IntPtr.Zero)
Thread.Sleep(10)
PostMessage(Config.Handle_Windows, &H101, &HA2, IntPtr.Zero)
Thread.Sleep(50)
PostMessage(Config.Handle_Windows, &H100, 8, IntPtr.Zero)
Thread.Sleep(50)
PostMessage(Config.Handle_Windows, &H100, 13, IntPtr.Zero)
PostMessage(Config.Handle_Windows, &H101, 13, IntPtr.Zero)
PostMessage(Config.Handle_Windows, &H101, &H56, IntPtr.Zero)
PostMessage(Config.Handle_Windows, &H101, 8, IntPtr.Zero)
Clipboard.SetDataObject(str, True)
End If
End Sub |
Partager