將b標註為布爾值
私有子命令1_Click()
b =假
WebBrowser1。導航("/cgi-bin/Whois.cgi？domain = xiaoa8 & ampcn =是& ampreferer= ")
末端接頭
私有子命令2_Click()
將s作為字符串變暗
暗淡我壹樣長
而b =假
多項活動
行
RichTextBox1。Text =網頁瀏覽器1。所有文檔(0)。outerHTML
末端接頭
私有子web browser 1 _ document complete(ByVal pDisp作為對象，URL作為變量)
頁面被下載。
如果WebBrowser1。那麽Busy = False
b =真
如果…就會結束
末端接頭
然後用FOR循環或者INSTR函數~