**获取常用的Windows API使用说明,生成的详细说明如下:
具体做法如下:
1.页面控件设置——>> ListBox1、TextBox1、Button1、WebBrowser1;
2.将Windows API常用函数名置于ListBox1的Items内,代码如下(常用函数名见文末):
#Region "Page Loading Functions"
Private Property pageready As Boolean = False
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow '屏蔽弹窗
e.Cancel = True
WebBrowser1.Navigate(CType(sender, WebBrowser).StatusText)
End Sub
Private Sub WaitForPageLoad()
AddHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
While Not pageready
Application.DoEvents()
End While
pageready = False
End Sub
Private Sub PageWaiter(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
pageready = True
RemoveHandler WebBrowser1.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf PageWaiter)
End If
End Sub
#End Region
Private Sub Button1_Click(sender As Object