Public Sub Baidu_Search()
Keywords=Text1.Text
send Keywords to Baidu_Computer
wait for Result_Page
scan Result_Page AND visit All_Links
get all words in All_Links
send (All_Words) AND (All_Links) to Result_Page_X
if “李彦宏” is concluded in Result_Page_X then
send a email to liyanhong@baidu.com AND subject=”老板他们是这么骂你的” AND body=”Result_Page“
endif
if any word in Result_Page_X is concluded in Badwords_Tank then
cut the link and show “抱歉，没有找到与“”Keywords“” 相关的网页。”
else
show Result_Page
endif
if any word in linked webpages is concluded in Badwords_Tank then
cut the link AND show error AND send the website to Badsite_Tank
delete all data on Badsite_Tank in Baidu_Computer to make no one can find these sites via Baidu
endif
End Sub
Badwords_Tank=(李彦宏是傻2B，流氓百度，etc)
Badsite_Tank=(https://aska1.blogbus.com/，https://songruihua.blogbus.com/ ,etc)