Question

webbrowser1控件输入的问题

直接选择“天津”，网页然后把“天津”转换成为code。然后post到服务器。
直接用setattribute("value","天津")赋值后，网页则不会执行转换，这样提交服务器就会出错。我想知道如何解决这个问题呢？（不考虑键盘模拟）
求大侠的思路。困扰已久的问题。

Answer 1

Function URLEncode(nstr As String) As String
   Dim i As Integer, nmid As String, nasc As Integer, nhex As String
   For i = 1 To Len(nstr)
      nmid = Mid(nstr, i, 1)
      nasc = Asc(nmid)
      If nasc < 0 Then
         nhex = Right("000" & Hex(nasc), 4)
         URLEncode = URLEncode & "%" & Left(nhex, 2) & "%" & Right(nhex, 2)
      ElseIf nmid = " " Then
         URLEncode = URLEncode & "+"
      ElseIf (nasc >= 48 And nasc <= 57) Or (nasc >= 65 And nasc <= 90) Or (nasc >= 97 And nasc <= 122) Then
         URLEncode = URLEncode & nmid
      Else
         URLEncode = URLEncode & "%" & Right("0" & Hex(nasc), 2)
      End If
   Next
End Function

以上函数的调用方法：

setattribute("value",URLEncode("天津"))

追问

网站是把“天津”对应的code是“tj"，然后post给服务器从而实现查询。您的代码似乎是转成了二进制是吗？
setattribute改变的只是“input"的内容，后台对应的代码并未联动改变。

追答

你不说谁知道你所谓的code是tj啊！那么你这个"天津"和"tj"的对应关系是在哪里建立的呢？比如在下拉框中：

北京
天津
......

如果是这样的，那么你把相应的代码贴出来看看，否则的话直接让我们猜就给你答案是不可能的，因为没有谁规定说“天津”就一定是“tj”，用“12”、“k6”不行吗？

追问

他有一个js文件，里面对应了具体的代码。
你进入12306的网站选择出发站的时候就是这样的。
代码转换应当是通过js程序转换，然后post给服务器的。现在的问题就是如果只是在输入框改变文字，并没有引起对应的代码转换。所以服务器就得不到正确的数据。

追答

经过分析发现，它那个表单根本就没有提交的，那几个文本框只是用来接受用户输入，然后用脚本直接修改URL就实现查询的，所以你完全可以绕开这个表单，直接用VB代码实现查询，比如下面的代码可以查询北京到天津当天的所有车次：

Private Sub Command1_Click()
Dim t1 As String, t2 As String, rq As String
t1 = "beijing"
t2 = "tianjin"
rq = Format(Now, "yyyy-mm-dd")
WebBrowser1.Navigate "http://www.qumaiya.com/train/zhanzhan/" & t1 & "-" & t2 & "/" & rq
End Sub

至于t1和t2的值怎么得来，下面是个对照表：

北京，上海，广州，深圳，杭州，苏州，南京，天津，成都，重庆，西安，郑州，长沙，武汉，南昌，青岛，济南，大连，沈阳，长春

beijing，shanghai，guangzhou，shenzhen，hangzhou，suzhou，nanjing，tianjin，chengdu，chongqing，xian，zhengzhou，changsha，wuhan，nanchang，qingdao，jinan，dalian，shenyang，changchu

你自己建个函数进行转换就行了。

Answer 2

那你研究一下网页原来是调用那些函数后把他Post服务器，
找到函数，执行函数后再post
WeBbrowser.Document.parentWindow.execScript "函数(‘天津’)"