第二講　如何用VB的webbrowser提交一個(gè)含有用戶名和密碼的網(wǎng)頁

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

　　下面我們就開始邁步了：

　　一、先打開VB新建一個(gè)工程

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

　　三、找到Microsoft Internet Controls，在前面打挑，然后確認(rèn)就可以看到在工具條上多出來一個(gè)地球樣的圖標(biāo)，我們以后的實(shí)現(xiàn)就都圍繞著他來進(jìn)行了。

　　四、添加一個(gè)WebBrowser1到Form1中，再添加一個(gè)command1到Form1中

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

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

Private Sub Command1_Click()

Dim vDoc, vTag

Dim i As Integer

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.length - 1 '檢測所有標(biāo)簽

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

Set vTag = vDoc.All(i)

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

Select Case vTag.Name '按標(biāo)簽的名字,對(duì)號(hào)操做

Case "EMAILADD"

vTag.Value = "[email protected]" '這里寫入你的e-mail

Case "PASSWD"

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

End Select

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

'找到提交按鈕

vTag.Select '也可以沒有這個(gè)

vTag.Click '點(diǎn)擊提交了，一切都OK了

End If

End If

Next i

End Sub

Private Sub Form_Load()

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

End Sub

'－－－－－－－－－－結(jié)束－－－－－－－－－－－

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

好了，先寫這么多，下次我們看一下怎么用webbrowser找到一個(gè)網(wǎng)頁中的超連接，對(duì)應(yīng)的就是賺錢連接啊。

附錄（相關(guān)資料）：

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

<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的那些標(biāo)簽都是接受輸入的，我們這講的主要任務(wù)就是找到他們，并且對(duì)他們進(jìn)行操做。