第二講　如何用VB的webbrowser提交一個含有用戶名和密碼的網頁

　　上次我們知道了怎樣打開一個網頁，今天我們就來看看怎樣邁開賺錢的第一步。

　　下面我們就開始邁步了：

　　一、先打開VB新建一個工程

　　二、在工具條上點右鍵選部件（我用的是中文版VB）或者選工程菜單，點部件

　　三、找到Microsoft Internet Controls，在前面打挑，然后確認就可以看到在工具條上多出來一個地球樣的圖標，我們以后的實現就都圍繞著他來進行了。

　　四、添加一個WebBrowser1到Form1中，再添加一個command1到Form1中

　　五、在Form1中添加如下代碼：（以上都是我們上一講里說過的，應該很熟悉了吧）

'－－－－－－－－－－開始－－－－－－－－－－－

Private Sub Command1_Click()

Dim vDoc, vTag

Dim i As Integer

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.length - 1 '檢測所有標簽

If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input標簽

Set vTag = vDoc.All(i)

If vTag.Type = "text" Or vTag.Type = "password" Then '看看是不是我們需要的

Select Case vTag.Name '按標簽的名字,對號操做

Case "EMAILADD"

vTag.Value = "myemail@home.com" '這里寫入你的e-mail

Case "PASSWD"

vTag.Value = "password" '這里寫入你的密碼

End Select

ElseIf vTag.Type = "submit" And vTag.Name = "SUB" And vTag.Value = "訂閱" Then

'找到提交按鈕

vTag.Select '也可以沒有這個

vTag.Click '點擊提交了，一切都OK了

End If

End If

Next i

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate "http://dhunter.51.net"

End Sub

'－－－－－－－－－－結束－－－－－－－－－－－

　　六、當然就是測試了，點運行按鈕，我們可以看到，我們的webbrowser打開了http://dhunter.51.net，等網頁基本下載結束再點command1按鈕，我們可愛的webbrowser就把我們剛剛輸入的e-mail和密碼都提交到網頁上了，看到訂閱成功了嗎？那個就是勝利的標志。

好了，先寫這么多，下次我們看一下怎么用webbrowser找到一個網頁中的超連接，對應的就是賺錢連接啊。

附錄（相關資料）：

大家也可以看出來，這次我們是拿http://dhunter.51.net上的那個訂閱郵件列表開刀，下面就是這段網頁的源代碼：

<form method="post" action="http://ml.xilu.com/cgi-bin/ml/client">

<p align="center"><font size="2">

<input type="hidden" name="USERID" value="dhunter">

E-mail:

<input type="text" name="EMAILADD" value="你的E-mail">

<br>

密　碼 :

<input type="password" name="PASSWD" value="******">

<br>

</font><font size="2">

<input type="submit" value="訂閱" name="SUB">

<input type="submit" value="退訂" name="UNSUB">

</font></p>

</form>　　

里面帶input的那些標簽都是接受輸入的，我們這講的主要任務就是找到他們，并且對他們進行操做。