PB webbrowser control usage

1. Insert a webbrowser Control name
Ole_webbrowser
2. Write a button to open the webpage.
Ole_webbrowser.object.navigate ("www.baidu.cn ")
3. Insert a ListBox control
4. Write a button to get the link
Int I, count
String ls_link []
Count = ole_webbrowser.object.document.getelementsbytagname ("A"). Length
// MessageBox ('', string (I ))
For I = 0 to count-1
Ls_link [I + 1] = ole_webbrowser.object.document.getelementsbytagname ("A"). Item (I, 1). getattribute ("href ")

Next
For I = 1 to count
Lb_1.additem (ls_link [I])
Next

 

 

For example, Open google search

// Open google

Ole_webbrowser.object.navigate ("www.google.com ")

// Enter the search content

Ole_webbrowser.object.document.getelementsbyname ("Q"). Item (0). setattribute ("value", "xys_777 ")

// Execution button

Ole_webbrowser.object.document.getelementsbyname ("btng"). Item (0). Click