你好在吗,请问你是如何做到的&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) & """)"
等待您来回答
编程领域专家
&SOGOU - 京ICP证050897号请问各位做外挂用VB好还是易语言好？|::::广海游戏:::: - ★广海社区★ -
授人以鱼不如授人以渔 - Powered by phpwind
查看完整版本: [--
请问各位做外挂用VB好还是易语言好？
如题 我是个菜鸟 现在想学一门语言 只想学VB或E语言&哪位大哥指点一下小弟 先谢谢了
如果你一定要在这两个语言中选择的话 我个人意见是VB
E就是中文的VB 例如E的代码里（如果=VB里的XXXX）E用的就是VB的模式
我觉得E语言提供的语言环境和控件都非常好，扩展的库和模块也非常多，比起VB来更好，但是我推荐VB，易语言非常强大，我为什么却推荐你用VB那？& & 因为易语言公司编译的可执行文件经常会被认为是病毒，很多杀毒软件有时候会这样误报（有时候不误报），而且易语言公司也没有根治这个问题，根据易语言论坛上那些高层人物的态度上估计完全使误报病毒是不可能的了。当然你如果制作的外挂是给自己使用的，那你还是使用E吧，E真的很方便。
C++到底强在哪里???
引用第4楼Dazzle.J于 16:57发表的:&C++最好&&LS，你看看LZ的标题好不好？&请问各位做外挂用VB好还是易语言好？&&纯粹讨论什么语言好有什么意思！这种都是仁者见仁，智者见智的问题。
什么好用&什么习惯&就用哪个&结果都一样
VB,易语言只能开发简单外挂
如果有第三种选择的话，个人推荐DELPHI。&VB、E语言限制太多，有的功能实现起来很麻烦，VC学起来比较麻烦，DELPHI好学又好用。
题目我已经说了 我是一个菜鸟 在原来根本没有接触过编程&现在想学VB或E是因为我觉得这两门语言相对来讲比别的语言简单一些&而且教程比较多 这样我学起来的话 快一些 也能快些对编程有一些粗浅的认识&那要是有比这两种语言还适合菜鸟的话（初学者 没有任何编程基础）&请说明一下好处 & 多谢
VB吧，易语言受模块的限制，用起来没那么好，一没有那个模块你就难搞了，而VB很多东西都可以实现，就是你会不会而已！！！
我什么都不会 [s:27]& [s:27] &我只会用外挂 [s:26]& [s:26]
vb 功能太弱，不能CALL游戏函数，不支持DX9编程，不能编DLL注入，综合上述理由，要做个功能高级的WG，还是VC最强.
直接用汇编写外挂，效率应该更高，也不存在调用ＣＡＬＬ的问题吧
引用第14楼godeagle于 10:56发表的& :&直接用汇编写外挂，效率应该更高，也不存在调用ＣＡＬＬ的问题吧&不知道有没有究极高手直接用机器码来做外挂的,那个的效率估计没别的语言能比得上吧?&呵呵,开个玩笑而已,不过偶感觉,不管是汇编还是vc、delphi、vb、易语言什么的,对于新手来说,只要是结构严谨易于上手能做出自己预想的功能就可以了,就算是要求再高也没法一口吃成个胖子,学什么东西都是得一步一步循序渐进,挑一个自己比较喜欢的,容易学习的语言入门,然后再考虑是不是根据自己的需要学习其他功能更高级的语言,这样才能真正在学习中提高自己,如果是打算随便学学,编几个简单的外挂自己用,那么找容易点的像vb/易语言都可以用来入门,再提高就可以考虑delphi/vc什么的了,至于汇编,偶觉得那个属于更高级一点的层次了,想学个皮毛不太难,想真正领会掌握就很不容易了,怎么说也是循序渐进,到自己有需要的时候再学习,应该能收到事半功倍的效果吧.
VB是高级语言，一直用它的话接触不到底层的东西。&可以先学VB，入门后转C++，C++学到一定程度后你就不会为“到底该选什么语言”犯愁了。
引用第15楼骨灰于 11:16发表的& :&至于汇编,偶觉得那个属于更高级一点的层次了&15楼的哥们可能把语言的级别搞反了，机器语言是最低级的计算机语言，ASM应该属于比机器语言高一个层次的语言了，而C又比ASM高一个层次，C里面还有ASM的影子，属于中层级语言。C++属于高级语言层次了，它支持面向对象的编程模式。&我最开始学编程的时候，还不知道什么才是编程，朋友给了张VB入门的光盘，就跟着学了，那时候以为编程就这样，这么容易。。。不就是在系统生成的函数里写自己的处理代码吗。后来接触了Delphi，感觉确实比VB强大多了，VCL用起来非常的SHUANG。可那时候又有了迷惑，指针、Windows的消息机制等等还比较模糊。直到后来开始学习C++，发现用C++写Win32程序才是真正的Windows编程，知道了系统是如何创建窗口的，Windows消息是如何被处理的，程序的入口。。。那时候还了解了EXE文件的结构，呵呵。&建议楼主学习的时候别象我一样从半路出家后来又从起点开始学，开始就学C++吧，虽然比较难懂了些，但你可以从真正的“起点”开始，少走很多弯路。学好C++后你就会明白其实用什么工具、什么语言已经不重要了`~~~
先用E语言，不行用VB，不行用Delphi，不行用C++，还是不行？？？？&用win32汇编
引用第5楼fuhuo-04-06 17:04发表的& :&C++到底强在哪里???&&&多的不说`单说call函数一点````你VB能写DLL注入游戏call函数吗？不要说什么有牛人解决了VB生成DLL的问题````自己用过才知道效果到底如何```
学的好都一样&E文不好就学E吧
dou& bu hao
没有最好 只有更好。。&&精通一门总比遍历全部好。。。。 [s:22]& [s:22]
引用第13楼noob于 13:57发表的& :&vb 功能太弱，不能CALL游戏函数，不支持DX9编程，不能编DLL注入，综合上述理由，要做个功能高级的WG，还是VC最强.&&&。。。。无语
用什么语言是对人而言，水平不行用什么都垃圾
用AutoIt吧，简单易学
查看完整版本: [--
Powered by
Time 0.071819 second(s),query:3 Gzip enabledvb经典小游戏_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
vb经典小游戏
上传于||文档简介
&&贪​吃​蛇​等​多​种​经​典​小​游​戏​!​!​
​
​不​容​错​过​!
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩43页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢VB可以做什么？编的程序可以做哪方面使用？有哪些常用软件是用VB写的？那些游戏是用什么做的？-中国学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
VB可以做什么？编的程序可以做哪方面使用？有哪些常用软件是用VB写的？那些游戏是用什么做的？
来源：互联网 发表时间： 13:40:05 责任编辑：王亮字体：
为了帮助网友解决“VB可以做什么？编的程序可以做哪方面使用？有哪些常用软件是用VB写的？那些游戏是用什么做的？”相关的问题，中国学网通过互联网对“VB可以做什么？编的程序可以做哪方面使用？有哪些常用软件是用VB写的？那些游戏是用什么做的？”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:VB可以做什么？编的程序可以做哪方面使用？有哪些常用软件是用VB写的？那些游戏是用什么做的？，具体解决方案如下：解决方案1：
因为VB需要外部控件，什么管理系统。游戏大部分是用C++写滴、信息系统都可以做、没有类概念，界面直观操作和编写都很简单，很多地方不如C++也有很多地方不如抓哇。巴特，VB已经慢慢退出历史舞台了，也不好移植底层也做的不好，so 它一般只用于计算机语言学习的入门，很少商用了VB可以编可视化界面的程序
解决方案2：
只要你想得到，解决问题最终是程序逻辑。总之，它就做得到，要学得精，学什么语言无所谓的、金碟都是用VB写的。。用友。，做网页用的VB脚本语言等等，Office的脚本语言每个编程语言都是这样说的
解决方案3：
编程啊。一般现在的小软件很多是用VB编写的，但是现在VB逐渐被淘汰，取而代之的是VB.NET了，不过要学.NET还是得先了解VB的，因为现在牵扯到的编程都是有关网页的
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 中国学网 版权所有
京ICP备号-1 京公网安备02号您所在的位置：&&&&&&游戏标签&&&经典语录
该标签暂无游戏
扫一扫二维码进入好特网手机版本！