如何用VB编写一个网站程序模块

Question

新建一个工程，选择VB应用程序向导，其中有一步（应该叫对话框的），勾选Web浏览器。代码自动生成。不要一行代码。

Answer 1

控制键就是方法啊。 
浏览器控件.navigate 打开一个网址
.stop就是停止。具体你网上搜资料看看吧，直接给你作业写好没人愿意的。
http://blog.163.com/flyskytiger2006@126/blog/static/134209940200911812621144/

Answer 2

如果可以的话请大哥你做好了发给我一下 我的邮箱是744056399@qq。com我会给您加分的

Answer 3

Private Sub NewWindow_Click()
    
    Dim a As New Form1
    a.ShowEnd SubPrivate Sub Open_Click()    WebBrowser1.SetFocus
    SendKeys "^o"End Sub
Private Sub SaveAs_Click()WebBrowser1.SetFocus: WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
    
End Sub
Private Sub Exit_Click()    End
    
End Sub
Private Sub Copy_Click()
    
    WebBrowser1.SetFocus
    SendKeys "^c"End Sub
Private Sub Paste_Click()    WebBrowser1.SetFocus
    SendKeys "^v"End SubPrivate Sub Cut_Click()    WebBrowser1.SetFocus
    SendKeys "^x"End SubPrivate Sub SelectAll_Click()    WebBrowser1.SetFocus
    SendKeys "^a"End SubPrivate Sub Find_Click()    WebBrowser1.SetFocus
    SendKeys "^f"End SubPrivate Sub Command2_Click()    WebBrowser1.Navigate Combo1.Text
    
End Sub
Private Sub Command4_Click()    WebBrowser1.GoForward
    
End SubPrivate Sub Command1_Click()   WebBrowser1.GoBack
   
End SubPrivate Sub Command3_Click()    WebBrowser1.Stop
    
End SubPrivate Sub Form_Load()
    
   WebBrowser1.Navigate "www.baidu.com"
    On Error Resume Next
    Open "d:/ ie.txt" For Input As #1
    Dim str1 As String
    Do
    Line Input #1, str1
    Combo1.AddItem str1
    Loop While Not EOF(1)
    Close #1End SubPrivate Sub Form_Unload(Cancel As Integer)    Open "D:/ ie.txt" For Output As #1
    Dim i As Integer
    For i = 0 To Combo1.ListCount - 1
    Print #1, Combo1.List(i)
    Next i
    Close #1End Sub
Private Sub Timer1_Timer()
        
       Select Case WebBrowser1.Busy
       Case True
       Label2.Caption = "正在载入"
       Case False
       Label2.Caption = "  就绪  "
       End Select
    
End Sub
哪位大哥帮我看下 我这段代码错在哪了 为什么运行不了