VB一个简单的应用!求助

显示全部楼层 · 2011-9-15 12:19:35

就是利用VB中自带的菜单编辑器实现对webbrowser的控制.以下是详情:我在VB中添加了一个webbrowser控件并让他打开一个指定的网页如:www.baidu.com/images/login.asp但是我想通过菜单编辑器弹出一个新窗口,在这个新窗口中输入一段英文如admin然后webbrowser控件中的地址www.baidu.com/images/login.asp中的images自动就变成admin了其它不变而且不是每次打开工程文件都输入就是输入一次即可,类似于带一个简单的储存功能.请各位高手给我点代码,不要网上抄习的必须100%能用!

千问 · 2011-9-15 12:19:35

利用vb读写文本功能就可以了，很简单的代码。追问能给代码吗?

千问 · 2011-9-15 12:19:35

把你要保存的字符串写进Text1里（假设写进这）：Openapp.Pathdefds123\"\\net.txt\"OutputAs#1Input#1,text1.text把文本读到text1里：（因为我不知道你要把它放到哪）张志晨VB实例教程之读取文本内容到文本框PrivateSubCommand1_Click()Openapp.Pathdefds123\"\\net.txt\"ForInputAs#1DoWhileNotEOF(1)OnErrorResumeNextLineInput#1,NextLineLoopClose#1Text1.Text=NextLineExitSub.............这样做，你的程序就有了存取功能。张志晨

千问 · 2011-9-15 12:19:35

缺少AS对像啊?

千问 · 2011-9-15 12:19:35

\'写PrivateSubCommand1_Click()OpenApp.Pathdefds123\"\\net.txt\"ForOutputAs#1Print#1,,Text1.TextClose#1EndSub\'读PrivateSubCommand2_Click()OpenApp.Pathdefds123\"\\net.txt\"ForInputAs#1DoWhileNotEOF(1)OnErrorResumeNextLineInput#1,NextLineLoopClose#1Text1.Text=Trim(NextLine)EndSub对不起，刚才太匆忙，写得不正确。现在的代码我已经进行了测试，绝对可用！！！张志晨

千问 · 2011-9-15 12:19:35

哥,现在可写了,我是一个菜鸟,就是读的时候可不可以打开软件自动就读取txt中的内容.然后附给一个变量,然后调用这个变量....我只会ASP.类似于ASP中的a=\"123456\"\'A是变量调用变量%=a%类似于这样大哥求助!

千问 · 2011-9-15 12:19:35

可以dimnetPathasString\'全局变量PrivateSubForm_Load()OpenApp.Pathdefds123\"\\net.txt\"ForInputAs#1DoWhileNotEOF(1)OnErrorResumeNextLineInput#1,netPathLoopClose#1EndSub别的地方就可以用netPath这个变量了。

千问 · 2011-9-15 12:19:35

简单的话自己搞