.Net

[VB.Net] Full code active adf.ly for Form .Net

MY PROJECT GET ADF.LY Public Class active_adf Dim id As String = "3246570" /Change ID for adf.ly Dim newForm As Boolean = True Private Sub active_adf_Load(ByVal sender As System.Object, ByV…

Hung.Pro.VN

Developer Windows

---

• 21/05/2016
• Views

• #.Net

MY PROJECT GET ADF.LY

Public Class active_adf
Dim id As String = "3246570" /Change ID for adf.ly
Dim newForm As Boolean = True


Private Sub active_adf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim link As String = "http://adf.ly/" & id & "/dl.dropboxusercontent.com/u/114501587/active-code.html" 
WebBrowser1.Location = New Point(0, 0)
WebBrowser1.Dock = DockStyle.Fill
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate(link)
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If WebBrowser1.DocumentText = "true" Then
If newForm = True Then
Form1.Show()
Me.Close()
Else
WebBrowser1.Visible = False
End If

End If
End Sub
End Class

Xin lỗi các bạn hiện tại ứng dụng chưa được phát hành vì một số lí do kỉ thuật !

Previous post

[VB.Net] Full code active adf.ly for Form .Net

Next post

[VB.Net] Full code active adf.ly for Form .Net

Related post

---

Hung.Pro.VN

Nhà thiết kế Web

View Articles

Tôi là admin trang Hung.Pro.VN là một người có đam mê với Blogspot, kinh nghiệm 5 năm thiết kế ra hàng trăm mẫu Template blogpsot như" Bán hàng, bất động sản, landing page, tin tức...

Share this article