Question

关于VB剪贴板操作的问题

我想做一个复制一段代码，判断他是hash值的时候在前面加上磁力链接的标志代码，就是那个magnet什么什么的。再放到剪贴板里供直接黏贴用。但是做完之后那串代码重复了三遍在加上hash值，具体代码贴下面。求大神指点。
Dim url As String, key As String = "s/", pan As String = "pan.baidu.com/", pan1 As String = "pan.baidu.com/s/", magnet As String = "magnet:?xt=urn:btih:"
Dim k As String
url = Clipboard.GetText
If url.Contains(key) = True Then
Clipboard.Clear()
k = pan & url
Clipboard.SetText(k)
ElseIf url.Length <= 8 Then
Clipboard.Clear()
k = pan1 & url
Clipboard.SetText(k)
Else
Clipboard.Clear()
k = magnet & url
Clipboard.SetText(k)
endif

具体黏贴出来的效果是这样的：magnet:?xt=urn:btih:magnet:?xt=urn:btih:magnet:?xt=urn:btih:C11100CD19E57376A5BF90D7D1EAEBA3118D75B1STARLESS

Answer 1

Dim url As String, key As String = "s/", pan As String = "pan.baidu.com/", pan1 As String = "pan.baidu.com/s/", magnet As String = "magnet:?xt=urn:btih:"
                Dim k As String
                url = Clipboard.GetText
                If url.Contains(key) = True Then
                    Clipboard.Clear()
                    k = pan & url
                    Clipboard.SetText(k)
                ElseIf url.Length <= 8 Then
                    Clipboard.Clear()
                    k = pan1 & url
                    Clipboard.SetText(k)
                Else
                    Clipboard.Clear()
                    k =magnet &  magnet &  magnet & url
                    Clipboard.SetText(k)
                endif

追问

我不是要他重复三遍，是他自己不知道为什么重复了三遍，+ 和& 都试过了。而且上面的pan 和pan1也会重复三遍

追答

我是不会重复3次啊。

追问

我把它输出到textbox也不会，但是到剪贴板就会重复了

追答

把你工程打包 发百度云 我测试下

追问

我qq 931625646，加一下吧。