能回答我问题者,送本程序一个,回答后我能解决者,送源代码一份.

Question

如果网址中没有“PASS=”的话，程序会出错；只要加上对“sStr”的有效判断即可。

Answer 1

如果网址中有PASS=xxx的话。它就出来
实时错误'-2147467259(80004005)':
对象'innerHTML'的方法'dispIHTMLFramesetElement'失败如果对象中无PASS=.它能返回结果.而且不能指定条件只为"&PASS=xx"中的xx返回来.返回一大堆数据.气都气得我半死....请给予新写出一份代码.谢谢

Answer 2

Private Function strch(sStr As String, s1 As String, s2 As String) As String
'sStr 原字符串  "http:\\...."
's1  起始字符串  "pass="
's2 终止字符串  "&" 
  
  iPos1 = InStr(1, sStr, s1, vbTextCompare)
  If iPos1 > 0 Then
    sPass = Right(sStr, Len(sStr) - iPos1 - Len(s1) + 1)
    iPos2 = InStr(1, sPass, s2, vbTextCompare)
    If iPos2 > 0 Then
      sPass = Left(sPass, iPos2 - 1)
      strch = sPass
      Exit Function
    End If
   End If
   strch = ""
End Functionfp.Text = strch("http...",""&PASS=","&")

Answer 3

哪位解决了马上公开源代码.
不修改原程序立即公开源代码
用来在碧海聊天室聊天的VB6代码...
快啊.还有很多功能等着大家去发挥.
特别是初学者,里面有很多语句都是我从刚学VB的时候从别人那讨回来的..所以~~~~~~~~~~~