[silverlight]

PHP كود :

Dim result As String = String.Empty
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.Text) Then
result += CType(iData.GetData(DataFormats.Text), String)

End If 


'طبعا قبل تنفيذ الكود أعلاه يجب أن تنسخ اللينك الي Clipboard

PHP كود :

Dim link As String = "Your Link"
Clipboard.SetDataObject(link) 


أيضا لتضع في اعتبارك أن جميع البرامج تستخدم Clipboard
لذلك عليك ن تتأكد أن ما ستعود به من Clipboard هو Valid link
ممكن مثلا تستخدم
If result.StartsWith("https://www.youtube