vb如果text1内容等于www.xxx.com/xx这页里的内容，点击按纽就弹form2代码

vb如果text1内容等于www.xxx.com/xx这页里的内容，点击按纽就弹form2代码！

单击菜单“工程”“部件”勾选“microsoft internet transfer control”,画一个Command1,Inet1，Text1, 设置Text1的Multiline属性为True.，建Form2.代码如下。 不过话说达到你的要求可不容易，得Text1里面内容 与网站内容完全一致。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
If Text1.Text = Inet1.OpenURL("www.xxx.com/xx") Then form2.Show
End Sub

对呀

if text1.text="www.xxx.com/xx" then form2.show

你好！ 单击菜单“工程”“部件”勾选“microsoft internet transfer control”,画一个Command1,Inet1，Text1, 设置Text1的Multiline属性为True.，建Form2.代码如下。 不过话说达到你的要求可不容易，得Text1里面内容 与网站内容完全一致。www.dszxs.com/ 打字不易，采纳哦！