VB 在label标签中显示远程文本广告

大家知道在QQ上左下角都会有滚动的广告,一定也想在自己软件中实现此功能。刚在网上搜了一通,居然只有一个,代码还不全,说需要可以联系出售,要500块钱、太黑了。研究了一下发现自己也能实现。如下图:

image

image

自动加载远程链接,进行更换。5秒一次。并且点击后可以打开网址。

现代码公布如下:

需添加控件timer,webbrowser,label

    Private Sub Form_Load()
    Webad.Navigate "https://www.wooaii.com/suo-you-wen-zhang-lie-biao"
    Label2.Visible = False
Timer1.Interval = 1000
i = 0
   li = -1
End Sub

Private Sub Timer1_Timer()
i = i + 1

              If i = 5 Then
              Label2.Visible = True

              li = li + 1

                If Webad.Document.links.Item(li) <> S Then
                   Label2.Caption = Webad.Document.links.Item(li).innertext
                End If
                 i = 0
               End If
If li = Webad.Document.links.length – 1 Then
li = 0
End If

End Sub

webad即webbrowser控件。label2用来显示广告。两个变量i和li开始运行即加载远程网页。label2设为不可见。i=0 li=-1(发现li设为-1时才可以显示最新一条)

然后每5秒换一条。

如果Webad.Document.links.Item(li) <> S 标签就显示某条文本。这个S是个空值。

Private Sub Label2_Click()
res = ShellExecute(0, vbNullString, Webad.Document.links.Item(li).href, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

 

点击label2即用默认浏览器打开链接。默认浏览器代码不再多说。

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注

相关