问两个vb网络编程方面问题

[scolib]

第1：
用WebBrowser控件作为浏览器，浏览一些网页，他们地址形式多种多样，例如：http://www.abc.com/temp/bbs/index.asp 或者 http://adfadf.com 或者 http://www.xx.net/a/default.htm
我能通过vb根据当前浏览的网页获得这个网页地址的前缀吗？
例如我访问：http://www.abc.com/temp/bbs/index.asp 则希望获得：http://www.abc.com/temp/bbs/
例如我访问：http://adfadf.com 则希望获得：http://adfadf.com
例如我访问：http://www.xx.net/a/default.htm 则希望获得：http://www.xx.net/a/
请教代码如何写？

第2：
如果网页中有些这样的JavaScript或者VbScript变量，例如：
aa= 34242
bb = "3424sdfasf"
cc =True

我只会使用笨方法通过字符串查找定位后再截取出值，但是我觉得这样做太低效率了，有否高效的方式截取出：34242、"3424sdfasf"、True
需要注意哦，网页脚本里这些变量的“=”号之间的空格是不定量的。有时候“=”号都会有空格，有时候“=”号两边都没，有时候“=”号只有一边有空格。
请教代码如何写？

[scolib]

[Quote=引用 1 楼 longzhifeiyu 的回复:]
第一问：

Dim strWebsitePrefix As String
Const strWebsite = "http://adfadf.com"

strWebsitePrefix = IIf(InStr(8, strWebsite, "/"), _
Left(strWebsite, InStrRev(strWebsite, "/")), strWebsite)
[/Quote]
首先谢谢，也许朋友没看仔细我的帖子，我那个是举例，而并非事前知道指定的网址，用WebBrowser控件是可以任意浏览网页的，也就说前缀是任意的，那么如何提取呢？

[scolib]

我现时只能想到一个笨方法，就是从网址右边开始搜索“/”，然后截取“/”左边部分。很希望有本身控件提供的方法或者属性来获得，那么就比较高效点。

[scolib]

Sorry，我的笨办法不可行，因为有些网址后面的明参是可以带有网址的，例如：

http://www.abc.com/c.asp?a=54&pwline=http://ccc.net

[东方之珠]

第一，获得网站名没问题，2个//后第一个/之间。你说的"前缀"概念不清。
第二，用笨办法也行。不知道有没有API可以直接获取JavaScript或者VbScript变量?

[scolib]

[Quote=引用 6 楼 chenjl1031 的回复:]
第一，获得网站名没问题，2个//后第一个/之间。你说的"前缀"概念不清。
第二，用笨办法也行。不知道有没有API可以直接获取JavaScript或者VbScript变量?
[/Quote]
第一个问题我发了另一个帖子自己找朋友帮忙用正则方式解决了。

Private Sub Command1_Click()
    MsgBox getURL(WebBrowser1.LocationURL)
End Sub

Function getURL(sURL)
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = "^((http|https|ftp):\/\/[^\/?]+(.(?=(($)|(\/))))(\/([^?]+\/)*)?)"
    Set oMatches = re.Execute(sURL)
    If oMatches.Count > 0 Then getURL = oMatches(0)
End Function

现在剩下第二个问题：
“有API可以直接获取JavaScript或者VbScript变量”，如果有这样的api不错啊，这样就可以高效提取网页脚本语言的变量值了。
第二个问题不晓得正则能搞定不？

[longzhifeiyu]

第一问：

Dim strWebsitePrefix As String
Const strWebsite = "http://adfadf.com"

strWebsitePrefix = IIf(InStr(8, strWebsite, "/"), _
Left(strWebsite, InStrRev(strWebsite, "/")), strWebsite)

[longzhifeiyu]

第二问：
搜索有很多方法，不过效率高的算法我目前没有，顶着看高人指点了，取值的算法试试下面的

Dim strValue As String
Const strVariable = "aa= 34242"

strValue = LTrim(Mid(strVariable, InStr(strVariable, "=") + 1, Len(strVariable)))

[scolib]

up

[scolib]

UP

[scolib]

第二个问题自己找朋友问到比较折中的解决办法了，共享下，之后结贴：
Private Sub Command1_Click()
Dim jsstr
jsstr = "<SCRIPT language=JavaScript>" & vbCrLf & _
"var j,u,p,r,w,s" & vbCrLf & _
"j='""=dhf""thfgh564""ghdf==""'" & vbCrLf & _
"u= true" & vbCrLf & _
"p = 1.8766-e23;" & vbCrLf & _
"r =""$^$%^$%55===^$%""" & vbCrLf & _
"w= null" & vbCrLf & _
"s =543" & vbCrLf & _
"</script>"
GetValue (jsstr)
End Sub

Function GetValue(mStr) As Boolean
Dim re
Dim oMatches
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.MultiLine = True
re.Pattern = "\s[juprws]\s*=\s*([""']?)(.+?)(\1)(?=(\s|;))"
Set oMatches = re.Execute(mStr)
If oMatches.Count > 0 Then
GetValue = True
For Each matche In oMatches
MsgBox matche.SubMatches(1)
Next
Else
GetValue = False
End If
End Function

[scolib]

Private Sub Command1_Click()
Dim jsstr
jsstr = "<SCRIPT language=JavaScript>" & vbCrLf & _
        "var j,u,p,r,w,s" & vbCrLf & _
        "j='""=dhf""thfgh564""ghdf==""'" & vbCrLf & _
        "u= true" & vbCrLf & _
        "p = 1.8766-e23;" & vbCrLf & _
        "r =""$^$%^$%55===^$%""" & vbCrLf & _
        "w=   null" & vbCrLf & _
        "s =543" & vbCrLf & _
        "</script>"
        RichTextBox1.Text = jsstr
    GetValue (RichTextBox1.Text)
End Sub

Function GetValue(mStr) As Boolean
    Dim re
    Dim oMatches
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.MultiLine = True
    re.Pattern = "\s[juprws]\s*=\s*([""']?)(.+?)(\1)(?=(\s|;))"
    Set oMatches = re.Execute(mStr)
    If oMatches.Count > 0 Then
        GetValue = True
        For Each matche In oMatches
            MsgBox matche.SubMatches(1)
        Next
    Else
        GetValue = False
    End If
End Function

[东方之珠]

不错,解决问题能力强.