活跃度是记录该律师7天内的咨询回复情况好评率：100%近期帮助过：43030人从业年限：10 年律师所在地：北京-西城区擅长领域：交通事故房产纠纷刑事辩护婚姻家庭继承（电话咨询请说明来自华律网）你好在吗,请问你是如何做到的&br/&VB6.0 通过 Webbrowser 获取网页里的一些js变量的值？
你好在吗,请问你是如何做到的VB6.0 通过 Webbrowser 获取网页里的一些js变量的值？
你好，我是々霭圪巫师◎。
唉，不能直接获取Webbrowser里的js变量的值，真可惜呀，用间接的方法可以实现目的，但也挺麻烦的。
我刚写了个获取Webbrowser页面的js变量值的函数。
待会我发上demo程序的代码给你，先说明下，我将要获取这个页面的m变量的值。
首先添加 一个按钮Command1 和 Webbrowser1
然后粘贴如下代码：
Private Sub Command1_Click()&&& MsgBox GetWebVar(WebBrowser1, "m")End Sub
Function GetWebVar(Web As WebBrowser, variable As String) As String '获取变量的值&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";document.title=document.title+" & variable & ".toString()" & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& s = WebBrowser1.Document.Title&&& s = Split(s, "|")(1)&&& GetWebVar = sEnd Function
Private Sub Form_Load()WebBrowser1.Navigate & End Sub
Private Sub Form_Resize()&&& WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeightEnd Sub
Private Sub WebBrowser1_DownloadBegin()&&& WebBrowser1.Silent = TrueEnd Sub
感谢我的话，去我空间留个言，嘻嘻&
忘了加上个判断了，
Private Sub Command1_Click()&&& MsgBox GetWebVar(WebBrowser1, "m")End Sub
Function GetWebVar(Web As WebBrowser, variable As String) As String '获取变量的值&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";document.title=document.title+" & variable & ".toString()" & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& s = WebBrowser1.Document.Title&&& s = Split(s, "|")(1)&&& GetWebVar = sEnd Function
Private Sub Form_Load()WebBrowser1.Navigate & End Sub
Private Sub Form_Resize()&&& If Me.WindowState && 1 Then&&&&&&& WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight&&& End IfEnd Sub
Private Sub WebBrowser1_DownloadBegin()&&& WebBrowser1.Silent = TrueEnd Sub
再写上句广告あいしてるLY.(*^__^*) 嘻嘻……
再写另一个示例：Private Sub Command1_Click()&&& MsgBox GetWebVar(WebBrowser1, "sp_config.enterTime")End Sub
Function GetWebVar(Web As WebBrowser, variable As String) As String '获取变量的值
'あいしてるLY.-Laser&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";document.title=document.title+" & variable & ".toString()" & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& s = WebBrowser1.Document.Title&&& s = Split(s, "|")(1)&&& GetWebVar = sEnd Function
Private Sub Form_Load()WebBrowser1.Navigate & End Sub
Private Sub Form_Resize()&&& If Me.WindowState && 1 Then&&&&&&& WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight&&& End IfEnd Sub
Private Sub WebBrowser1_DownloadBegin()&&& WebBrowser1.Silent = TrueEnd Sub
'增加了恢复标题的代码。Private Sub Command1_Click()&&& MsgBox GetWebVar(WebBrowser1, "sp_config.enterTime")End SubFunction GetWebVar(Web As WebBrowser, variable As String) As String '获取变量的值'あいしてるLY.-Laser& & Dim oleTitle As String&&& Dim lT As Double&&& Dim s As String&&& lT = Timer& & oleTitle = WebBrowser1.Document.Title&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";document.title=document.title+" & variable & ".toString()" & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& s = WebBrowser1.Document.Title& & WebBrowser1.Document.Title = oleTitle&&& s = Split(s, "|")(1)&&& GetWebVar = sEnd FunctionPrivate Sub Form_Load()WebBrowser1.Navigate & End SubPrivate Sub Form_Resize()&&& If Me.WindowState && 1 Then&&&&&&& WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight&&& End IfEnd SubPrivate Sub WebBrowser1_DownloadBegin()&&& WebBrowser1.Silent = TrueEnd Sub&
我多写一个函数吧，这个是执行js代码的函数。
Function WebRunJS(ByVal Web As WebBrowser, ByVal ScriptCode As String)&&& 'あいしてるLY.-Laser&&& Dim oleTitle As String&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& oleTitle = WebBrowser1.Document.Title&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";" & ScriptCode & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& WebBrowser1.Document.Title = oleTitleEnd Function
使用实例：
WebRunJS WebBrowser1,"alert("你好，弹出信息")"
刚才写错了，把
WebRunJS WebBrowser1,"alert("你好，弹出信息")"
WebRunJS WebBrowser1,"alert(""你好，弹出信息"")"
然后我再多写一个玩玩：
Function WebRunJS(ByVal Web As WebBrowser, ByVal ScriptCode As String)&&& 'あいしてるLY.-Laser&&& Dim oleTitle As String&&& Dim lT As Double&&& Dim s As String&&& lT = Timer&&& oleTitle = WebBrowser1.Document.Title&&& WebBrowser1.Navigate "javascript:document.title=""" & CStr(lT) & "|"";" & ScriptCode & ";location.load()"&&& Do&&&&&&& DoEvents&&&&&&& s = WebBrowser1.Document.Title&&& Loop Until Val(Split(s, "|")(0)) = lT&&& WebBrowser1.Document.Title = oleTitleEnd Function
使用实例：
WebRunJS WebBrowser1,"window.alert(""你的QQ是""" & Chr(50) & Chr(56) & Chr(49) & Chr(56) & Chr(57) & Chr(49) & Chr(54) & Chr(50) & Chr(48) && ")"
WebRunJS WebBrowser1, "window.alert(""你的QQ是" & Chr(50) & Chr(56) & Chr(49) & Chr(56) & Chr(57) & Chr(49) & Chr(54) & Chr(50) & Chr(48) & """)"
相关知识等待您来回答
编程领域专家免费咨询10分钟内回复
病情描述：
我小孩今天晚上在嘉兴妇保院看了‘’医生说吃药‘’可是回来一直高烧不退39、5怎么办
患者资料：
医生回答专区
因不能面诊，医生的建议仅供参考
主管护师 -
山西省晋中市寿阳县人民医院 -
擅长：糖尿病
糖尿病眼病
消化性溃疡等内科常见病...
医生回复：
你孩子的情况应该去医院化验血常规，看看是炎症还是病毒感染引起的，对症治疗。
(大夫郑重提醒：因不能面诊患者，无法全面了解病情，以上建议仅供参考，具体诊疗请到医院在医生指导下进行！)
在线医生咨询Consultation
福建省人民医院
太原市人民医院
专家观点Popular articles
快速提问Quick question
输入您的健康问题，万名医生在线
饮食禁忌Healthy life
热门文章Popular articles
|收藏本站|||
Copyright (C) 西红柿健康网（）- 站务QQ：
互联网药品信息服务资格证书：（沪）-经营性-
本站所有内容，仅供参考，不作医疗诊断依据。您的收藏夹是空的，赶紧收藏吧！
& & & &问题
你好请问有看房班车吗，在什么地方？
问题来自：北京
| 提问时间： 16:49
(来自汇元四季橙的问题)
邮箱地址：
请输入密码
您也可以用合作网站账号登录：
看房相关问题
您可能感兴趣的房源
2室2厅&70平米
3室2厅&89平米
伟梦清水湾
3室2厅&127平米
2室1厅&71平米
已有回复：共&3&条
你好，新房、海景房有看房班车，因为房子都不在北京，具体的要咨询一手楼盘的销售
你好山东海景房班车地点是三元桥第三置业大厦时间每周六早7:00
找代理了本楼盘的中介公司，这样会比较方便，省事。一手房中介公司是不收取任何中介费用的。
每个问题最多只能赞同5次，请不要频繁赞同
房产专家和备选专家才能提交回答
您目前不是问答专家
请输入密码
相关区域二手房
2个回答7个回答15个回答4个回答3个回答
"的问题，中国最大，最专业，最全面的房产问答知识平台，数万房产专家和热心网友随时为您解答
客服热线/ 虚假信息举报：400-620-9008&&&&
Copyright &
All Rights Reserved你好在吗？_育儿问答_宝宝树
你好在吗？
你好在吗？我末次月经是20131月11号开始，直接到2月11号才**，请问我现在怀孕多久了，要是按照末次月经来计算我现在都三个月了，但是我去医院B超医生说胎儿不是三个月的羊很小还是，现在我都糊涂了，不知道预产期好久
当时年龄：
来自：网页;
预产期就是你的开始，用月份+9，日期+7，即：，我刚开始B超宝宝也是小两周的，到36周左右宝宝才B超和孕周对得上
最佳回答者：
市场价:?99
那你就是1月20到25号这样。
做B超可以看得出多大啊 上不是有些出来吗
是根据来计算的呢，但是b超显示的是宝宝实际的大小。
从开始算再加14天就是预产期。}