自動鏈源碼

❶ 易語言如何弄打開軟體後自動鏈接網頁求源碼：網址：http://jq.qq.com/_wv=1027&k=QciOyP

.版本 2
.支持庫 eAPI

.子程序 __啟動窗口_創建完畢

打開指定網址 (「http://jq.qq.com/?_wv=1027&k=QciOyP」)

❷ 如何提取網頁源代碼中的鏈接代碼

Private Sub Command1_Click()

Dim s As String

s = Text1.Text
s = Replace(Text1.Text, vbCrLf, "") '移除所有回車換行符

'Dim oRegEx As RegExp
'Set oRegEx = New RegExp
'Dim oMatches As MatchCollection
'Dim oMatch As Match

Dim oRegEx As Object
Set oRegEx = CreateObject("VBScript.RegExp")
Dim oMatches As Object
Dim oMatch As Object

With oRegEx
.Global = True '全局匹配
.IgnoreCase = True '忽略大小寫
.Pattern = "<a[^>]*?href=[""' ]?(.*?)(?:""|'| ).[^> ]*?>([\s\S]*?)</a>"
'提取所有A標簽的正則式,小括弧中是子匹配引用組第一個是 (.*?) 第二個是([\s\S]*?)
Set oMatches = .Execute(s)

If oMatches.Count >= 1 Then
Text2.Text = ""

Dim sHref As String, sInnerText As String

Dim i As Integer

Dim sLink As String

'Dim colLinks As Scripting.Dictionary
'Set colLinks = New Scripting.Dictionary

Dim colLinks As Object
Set colLinks = CreateObject("Scripting.Dictionary")

For Each oMatch In oMatches

sHref = oMatch.SubMatches(0) '(.*?)
sInnerText = oMatch.SubMatches(1) '([\s\S]*?)
sInnerText = RemoveTags(sInnerText) '移除A標簽(內容)中的多餘標簽
sInnerText = Replace(sInnerText, " ", "") '移除A標簽(內容)中的所有空格
sLink = "<A href=""" & sHref & """>" & sInnerText & "</A>"

If Not colLinks.Exists(sLink) Then
colLinks.Add sLink, sLink
Text2.Text = Text2.Text & sLink & vbNewLine
End If

Next

End If

End With

Set oMatches = Nothing
Set oMatch = Nothing
Set oRegEx = Nothing
Set colLinks = Nothing
End Sub

'這個函數可以去除HTML代碼中的標簽
Function RemoveTags(ByVal html As String)

'Dim oRegEx As RegExp
'Set oRegEx = New RegExp
Dim oRegEx As Object

Set oRegEx = CreateObject("VBScript.RegExp")

With oRegEx
.Global = True
.IgnoreCase = True
.Pattern = "<[^>]*>"
RemoveTags = .Replace(html, "")
End With

Set oRegEx = Nothing
End Function

❸ 如何把網站自動生成的鏈接代碼復制到自己網頁的源碼中，請教了，本人腦盲，有知道的加QQ379149863，多謝

當櫻兆你選擇選擇網頁中的文字的時候 如果其中包含鏈接，你復制的時候已經把他復制到系統的剪切板裡面了，但是你把他粘虧頌鄭貼到記事銷頌本 那時不能粘貼鏈接地址的， 必須粘貼到word或者是網頁這幾軟體裡面！

❹ 如何把網站文章在論壇發帖時，做成鏈接的形式，讓別人一點擊就能自動鏈接到網站。

您好，您要求肢賀頁面顯示「點擊這里打開」的有效鏈接，即帖子發出後網友可以通過點擊轉到另一網頁，請用以下代碼： <~a href=相關鏈接地址 target=「_blank「>寫上鏈接地址的名稱<~/a>

編緝完後，請埋碼去掉< 與 a 之間的波浪，記得前後波浪都得去掉彎飢哪（後面/請不要去掉）完了再點提交。