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 !
Tags:
.Net