求高手给个代码，不用任何组件实现vb的web浏览器

Question

求高手给个代码，不用任何组件实现vb的web浏览器

Answer 1

API函数ShellExecute
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
                                                                               ByVal lpOperation As String, _
                                                                               ByVal lpFile As String, _
                                                                               ByVal lpParameters As String, _
                                                                               ByVal lpDirectory As String, _
                                                                               ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
    ShellExecute Me.hwnd, "", "www.163.com", "", "", 0
End Sub

Answer 2

Private Declare Function AtlAxWinInit& Lib "atl" ()
恩，先在程序运行时调用这个API，然后使用CreateWindowEx创建类名为“AtlAxWin”的窗口，把标题栏设置为URL地址就行了，创建完成后会自动打开这个地址。

Answer 3

我对vb不是很懂，楼上2位给出了核心代码，我还是不会运行，麻烦给出全部代码或者发到我邮箱([email protected])可以吗？谢谢！

Answer 4

楼上都是调用IE，我的题目不是这样的，是自己实现一个类似IE的功能，不允许调用webbroser控件

Answer 5

楼主为啥想到出这样的题呢，那去网上把firefox的源代码下载了吧，不过肯定没有vb版的啦

Answer 6

LZ，那你要自己写一个 html render。虽然写一个像IE那样的比较困难，但是写一个不含css、js，并且支持html 1.0标准的应该是计算机科学专业本科生（中国的大学除外）应该具备的能力。LZ应该好好努力去解决，不是几句话能说清楚的。不过用于商用，这么做已经没有什么意义了。浏览器成为一个比编译器更复杂的怪物。