呵呵,使得,网页没下载完的话,会是空对象。
代码写成这样:
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl
web.Navigate("http://www.meimingteng.com/BaiduApp/CeMingZi.aspx?Params=zDBYcgFGl2Cmw0wXHZRxdmgC%2bJJji7ljJbe%2f5SRUcXOZuKB1%2bNXXFRXsnkmLdUhFJAyrFqmQPRJd3NDiWrvJwABPDV%2bITseYzB%2b8Zl85r2jZtcnoG5ZRbe4SOizagNdsRP5j3ssEq9e8xBw5H%2fKF31JDuPKothR0ZjmJHjnULgUeH%2fXvf%2fjNfqPc7yN4vdRtifjttUbUynJBfqBAGLxnErvIRWMwyt5LqymtLHqffrHP%2bknmdMnmz6VMLoOKtQVsPiGFlFM832Yv8SnJJfzIkZCeWkT0OYk%2b8ZPu3bemAqEeUjIrM0y2AxzC8MvwpWZh0LKZGgnEYc94NjneP18MtnWageZ8iFWHuRIC4pztr0xIK2P5u5CEwjeNqll29I2sJliu4RvlO14jN9AjiQilWXc5E%2fwCBsA9cWA89Zlf4%2fGpdBofMSPrsPGT7t23pgKh263sKQ4zAOsyLLL4kySFVTeNqll29I2s2alpkQqyk8ZV6e37Uob5kMLL%2bTpbvZikduKsTrAtYwH8LbGv7TEbr8i0OImSwpjZqaRJRgof%2fzEnuMPU9Ve0RLLG5oqJdwWXa6i%2f6fsLfLzA3Yk0qQe5ZDsjhqxemZr%2b%2fCUL7zfDy5ijvSSWG5JyNptvBBTnLc3JeaexyPH5KTw3japZdvSNrLpWHh7BUFzZQKRGLHdTKcsTT1MT6C5A6ur8ZrAUGL8Ot%2fJUC8cMuJHN3hklCBo%2b98Hg7KefjB0B&Name=%e8%b4%ba%e9%a3%9e&StrokeCombination=12-9+(0)&AllowedWuXing=%e7%81%ab&NamingMothod=4&WuXingScore=0&ZodiacScore=0.5&Shown=true&ZN=%e9%be%99&BDF=1&canvas_pos=platform")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
AddHandler web.Document.Window.Error, AddressOf Window_Error
[此贴子已经被作者于2012-10-30 20:55:48编辑过]