電腦購物天堂

這是使用 VB6 的 WebBrowser(Microsoft Internet Controls) 來做的：

Option Explicit

Dim loadinfo As Boolean

Private Sub Command1_Click()
    Dim i As Integer
   
    loadinfo = False
    Call WebBrowser1.Navigate("http://tw.rd.yahoo.com/referurl/wretch/album/head/in/*http://www.wretch.cc/IDintegration/?ref=%2525252Falbum%2525252F")
    Do
        DoEvents
    Loop Until loadinfo = True
    WebBrowser1.Document.getElementById("username").Value = "您的帳號"
    WebBrowser1.Document.getElementById("passwd").Value = "您的密碼"
    Call WebBrowser1.Document.getElementById("login_form").Submit
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    loadinfo = True
    Text1 = URL
End Sub