C# KOD ÖRNEKLERİ: KOPYALANAN LİNKİ OTOMATİKMAN PROGRAMINIZA ALMAK VE BÖLÜMLENDİRMEK

Browserden veya başka bir alandan Ctrl+C veya diğer yöntemlerle bir linki PANOYA aldığınız anda açık olan programınızın belirteceğiniz bir text veya combo kutusuna otomatik olarak kopyalamak, gerekirse saklamak, o linkin "Site adını", "Orjinal veya linkin tamamını" bölümlendirmek ile ilgili bir örnek...

KOD İNDİR

Imports System.Runtime.InteropServices 'PANO
Public Class Form1

#Region "PANO DEĞİŞKENLERİ..."
    Private Const WM_DRAWCLIPBOARD As Integer = &H308
    Private Const WM_CHANGECBCHAIN As Integer = &H30D
    Private mNextClipBoardViewerHWnd As IntPtr
    Private Event OnClipboardChanged()

#End Region

#Region "PANO DLL FONKSİYONLARI..."

<DllImport("user32")> _
    Private Shared Function SetClipboardViewer(ByVal hWnd As IntPtr) As IntPtr
    End Function

<DllImport("user32")> _
    Private Shared Function ChangeClipboardChain(ByVal hWnd As IntPtr, ByVal hWndNext As IntPtr) As _
    <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function

<DllImport("user32")> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, _
    ByVal lParam As IntPtr) As IntPtr
    End Function
    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_DRAWCLIPBOARD
                RaiseEvent OnClipboardChanged()
                SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)

Case WM_CHANGECBCHAIN
                If m.WParam.Equals(mNextClipBoardViewerHWnd) Then
                    mNextClipBoardViewerHWnd = m.LParam
                Else
                    SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)
                End If
        End Select
        MyBase.WndProc(m)
    End Sub
#End Region

#Region "PANOYA ALINANI TETKİKLEME VE KULLANMA.."
    'sizin gereken değişiklik
    Private Sub ClipBoardChanged()
        If My.Computer.Clipboard.ContainsText Then
            If Uri.IsWellFormedUriString(My.Computer.Clipboard.GetText, UriKind.Absolute) Then
                TextURL.Text = (My.Computer.Clipboard.GetText)
                 'BURAYA >>  ListBox1.Items.Add(My.Computer.Clipboard.GetText) kodu ile listeye de ekleyebilirsiniz
                Button1.PerformClick()
            End If
        End If
    End Sub

#End Region

#Region "'------------------------------"

#End Region
#Region "FORM OLAYLARI..."

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        mNextClipBoardViewerHWnd = SetClipboardViewer(Me.Handle)
        AddHandler Me.OnClipboardChanged, AddressOf ClipBoardChanged
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
        ChangeClipboardChain(Me.Handle, mNextClipBoardViewerHWnd)
    End Sub

#End Region

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim uri As New Uri(TextURL.Text)
        SiteAdıUriLbl.Text = uri.Host             'Linkin içinden alınan Site Adı
        AdSonrasıUriLbl.Text = uri.AbsolutePath   'Site adından link sonuna kadar olan kısım
        TamlinkUriLbl.Text = uri.AbsoluteUri      'Kopyalanan linkin tamamı
        OrjLinkLblXX.Text = uri.OriginalString.Replace(uri.AbsolutePath, "") 'orjinal Linkin Tamamı
        LinkLabel1.Text = uri.OriginalString.Replace(uri.AbsolutePath, "")
    End Sub

Private Sub OrjLinkLbl_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles Linklabel1.LinkClicked
        System.Diagnostics.Process.Start(Linklabel1.Text)
    End Sub
End Class

20 Haziran 2013 Perşembe

KOPYALANAN LİNKİ OTOMATİKMAN PROGRAMINIZA ALMAK VE BÖLÜMLENDİRMEK