Question

vb 将text1.text赋值给网页中的文本框

现有一窗体 里面有一个按钮 一个text1 一个webbrowser1
程序启动时webbrowser1控件自动打开本地的一个html网页文件
文件内容为：
</ol> <div class="searchbox"> <form action="http://www.baidu.com/s" name="f"> <input type="text" name="wd" size="35" maxlength="100"><input type="hidden" name="cl" value="3"><input type="hidden" name="tn" value="baiduerr"><input type="submit" value="百度一下"> </form> </div>

其实这个网页中就只有一个文本框和一个按钮 起百度搜索的作用
上面的已实现 要问的是下面的
按下按钮后 将text1的内容赋值给网页中的文本框并自动按下网页中的按钮按钮
打开搜索的网页
或者有谁能解析一下这个网站 将变量直接加在网址中打开也可以

我要的是百度百科的网址..
比如 我在text1中输入曹操 那么得到百度百科搜索曹操的结果页面 或者用webbrowser1
打开页面

谢谢 求具体源码

Answer 1

你找一个做超链接的源码,将要找的内容赋值到网络地址上,再用超链接的方法打开这个地址。 搜索引擎的地址是固定的,如我要搜“123”，百度的地址是“http://www.baidu.com/baidu?word=123”打开这个地址即可。 由于手机登的,就不写详细的代码了,你参考下

追问

谢谢你我回答 你的这个方法我用过 我研究了很久百度的搜索地址 对于搜索网页 视频等可以实现 但对于音乐 百科等却不行 不管把关键字加到哪都不行 不是找不到网页就是关键字变成乱码
所以这个方法不行 而我又对html不懂...

追答

呃,那抱歉,我也不太清楚,我个人觉得还是从网站下手,
我试了下:在百科中http://baike.baidu.com/w?ct=17&lm=0&tn=baiduWikiSearch&pn=0&rn=10&word=123&submit=search可以搜123,但赋值上中文就不行了,估计被转了码,但具体的我也太清楚……

Answer 2

我就是从网站入手，代码已试验
Private Sub Command1_Click()

WebBrowser1.Navigate "http://baike.baidu.com/searchword/" & URLEncode(Text1.Text)

End Sub

Public Function URLEncode(ByRef strURL As String) As String
Dim I As Long
Dim tempStr As String
For I = 1 To Len(strURL)
If Asc(Mid(strURL, I, 1)) < 0 Then
tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)
tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr
URLEncode = URLEncode & tempStr
ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Then
URLEncode = URLEncode & Mid(strURL, I, 1)
Else
URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1)))
End If
Next
End Function

Answer 3

Private Sub Command1_Click()
WebBrowser1.Document.All("wd").Value = Text1.Text
WebBrowser1.Document.All("su").Click
End Sub

追问

你的第一句可以 但第二句好像有问题

追答

请更新最新百度搜索html文件