&&&&&&&&&&&&
我们网站有200万的威客为您服务
有才能的在这做威客，赚得真金白银
任务分类威客可以挑选自己感兴趣的任务来参与
本期我们专访的雇主是发布任务的余先生，余先生在公司主要是负责宣传方面……
雇主发布任务心得　　
成功案例推荐
任务金额：12000.00元
任务关注：54928
参加：665 提交：368
您没有开启javascript，请开启
本期我们采访的威客是netslave——黄之平，他是一名外贸公司的设计师……
威客可以在任务中国　　
威客承接任务经验
威客服务　
■VI标志/包装设计/价格咨
商业logo设计，包出3-5稿，
LOGO/商标/标志设计◆◆字
"狼烟设计& 是一家位
此页面上的内容需要较新版本的 Adobe Flash Player。
活动合作联系（电话：010-0
QQ：）网站威客网精彩专题活动展示
京公网安备号&是的注册商标按键精灵里的网页插件只能在wqm浏览器上用，我想让这些效果作用到其他浏览器上比如谷歌浏览器！！！_百度知道
按键精灵里的网页插件只能在wqm浏览器上用，我想让这些效果作用到其他浏览器上比如谷歌浏览器！！！
\\请各位专家帮帮忙
实现以下几个命令在谷歌浏览器上的使用！
Plugin.Web.Bind(&chrome.exe&)
\\ 绑定进程
Call Plugin.Web.Go(&www.google.cn&)\\
Call Plugin.Web.HtmlInput(&输入值i&,&特征串&)\\ 向网页文本框输入内容
Call Plugin.Web....
我有更好的答案
RunApp&&&用这个看看
可能性不大。
虽然很难，但一定是有可能的！
对你而言不可能，因为可能需要全新设计。追加：不过有另外专门针对谷歌浏览器的插件，和针对普通浏览器的插件。你去搜索一下就知道了。
为您推荐：
其他类似问题
您可能关注的内容
按键精灵的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。下次自动登录
现在的位置:
& 综合 & 正文
按键精灵—之工作表数据提取示例
工作表数据提取示例(按键精灵版) 条件是这样的：在d:/盘下有工作表"1.xls"，里面记录了一些用户的资料：姓名和密码。现在我，我们需要在软件或者网页上提交登陆。用途：可以把你所有的QQ号码登陆一遍，或者邮箱等等。如果在加上对应的验证码识别脚本，就可以成为网页注册机，暴力破解帐户的工具。
//建立对象
Set xlApp=CreateObject("Excel.Application")
//这里是前台运行，不可见用False
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("d:/1.xls")
Set xlSheet = xlBook.ActiveSheet
xlApp.WindowState = -4140
Delay 2000
VBS dim i,j,a,b
VBS i=1:j=1
Rem [循环提交]
//*下面开始读一行,2个单元格(第一次就是1A,1B)
If Len(xlSheet.cells(j,i).value)=0
//判断有无数据,没就退出
Goto [没数据了]
VBS a=xlSheet.cells(j,i).value
VBS b=xlSheet.cells(j,i+1).value
//如果你要C格的数据,就是xlSheet.cells(j,i+2).value 再多同理
//*一行的两个数据读完,a是姓名,b是密码。下面你可以直接用输入变量：a b
//------这里接你需要到网页提交的身份证和姓名，如果想示范结果就是下面这句
MessageBox "a"&j&":"&a&"
b"&j&":"&b
//交完后,下面的语句就又开始下一个数据读取再输出
Goto [循环提交]
Rem [没数据了]
VBS xlApp.quit
//关闭工作表
VBS Set xlApp=Nothing
//释放对象
网上参照VBS的代码基本有以下这些，如遗漏请跟帖指正！谢谢
Set oExcel= CreateObject("excel.application") oExcel.Visible = True
//Excel是否可视，若赋值为True则可视，但速度会慢得多 oExcel.Workbooks.Add Set oSheet = oExcel.Workbooks(1).Worksheets("sheet1") oSheet.Activate
oSheet.Cells(1, 1) = 1
oSheet.Cells(1, 2) = 2
oSheet.Cells(1, 3) = "=SUM(A1:B1)"
oSheet.Cells(1, 4) = "=AVERAGE(A1:B1)" Set oExcel = Nothing
VBS控制Excel的一些常见方法： (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: oExcel = CreateObject( "Excel.Application" ) 1) 显示当前窗口： oExcel.Visible = True 2) 更改 Excel 标题栏： oExcel.Caption = "应用程序调用 Microsoft Excel" 3) 添加新工作簿： oExcel.WorkBooks.Add 4) 打开已存在的工作簿： oExcel.WorkBooks.Open( "C:/Excel/Demo.xls" ) 5) 设置第2个工作表为活动工作表： oExcel.WorkSheets(2).Activate 或 oExcel.WorksSheets( "Sheet2" ).Activate 6) 给单元格赋值： oExcel.Cells(1,4).Value = "第一行第四列" 7) 设置指定列的宽度（单位：字符个数），以第一列为例： oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 ' 1厘米 9) 在第8行之前插入分页符： oExcel.WorkSheets(1).Rows(8).PageBreak = 1 10) 在第8列之前删除分页符： oExcel.ActiveSheet.Columns(4).PageBreak = 0 11) 指定边框线宽度： oExcel.ActiveSheet.Range( "B3:D4" ).Borders(2).Weight = 3 1-左 2-右 3-顶 4-底 5-斜( / ) 6-斜( / ) 12) 清除第一行第四列单元格公式： oExcel.ActiveSheet.Cells(1,4).ClearContents 13) 设置第一行字体属性： oExcel.ActiveSheet.Rows(1).Font.Name = "隶书" oExcel.ActiveSheet.Rows(1).Font.Color = clBlue oExcel.ActiveSheet.Rows(1).Font.Bold = True oExcel.ActiveSheet.Rows(1).Font.UnderLine = True 14) 进行页面设置： a.页眉： oExcel.ActiveSheet.PageSetup.CenterHeader = "报表演示" b.页脚： oExcel.ActiveSheet.PageSetup.CenterFooter = "第&P页" c.页眉到顶端边距2cm： oExcel.ActiveSheet.PageSetup.HeaderMargin = 2/0.035 d.页脚到底端边距3cm： oExcel.ActiveSheet.PageSetup.HeaderMargin = 3/0.035 e.顶边距2cm： oExcel.ActiveSheet.PageSetup.TopMargin = 2/0.035 f.底边距2cm： oExcel.ActiveSheet.PageSetup.BottomMargin = 2/0.035 g.左边距2cm： oExcel.ActiveSheet.PageSetup.LeftMargin = 2/0.035 h.右边距2cm： oExcel.ActiveSheet.PageSetup.RightMargin = 2/0.035 i.页面水平居中： oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2/0.035 j.页面垂直居中： oExcel.ActiveSheet.PageSetup.CenterVertically = 2/0.035 k.打印单元格网线： oExcel.ActiveSheet.PageSetup.PrintGridLines = True 15) 拷贝操作： a.拷贝整个工作表： oExcel.ActiveSheet.Used.Range.Copy b.拷贝指定区域： oExcel.ActiveSheet.Range( "A1:E2" ).Copy c.从A1位置开始粘贴： oExcel.ActiveSheet.Range.( "A1" ).PasteSpecial d.从文件尾部开始粘贴： oExcel.ActiveSheet.Range.PasteSpecial e.复制 oExcel.cells(1,2).copy f.粘贴 oExcel.cells(1,4).PasteSpecial 16) 插入一行或一列： a. oExcel.ActiveSheet.Rows(2).Insert b. oExcel.ActiveSheet.Columns(1).Insert 17) 删除一行或一列： a. oExcel.ActiveSheet.Rows(2).Delete b. oExcel.ActiveSheet.Columns(1).Delete 18) 打印预览工作表： oExcel.ActiveSheet.PrintPreview 19) 打印输出工作表： oExcel.ActiveSheet.PrintOut 20) 工作表保存： if not oExcel.ActiveWorkBook.Saved then oExcel.ActiveSheet.PrintPreview 21) 工作表另存为： oExcel.SaveAs( "C:/Excel/Demo1.xls" ) 22) 放弃存盘： oExcel.ActiveWorkBook.Saved = True 23) 关闭工作簿： oExcel.WorkBooks.Close 24) 退出 Excel： oExcel.Quit (二) 使用VBS 控制Excle二维图 1）选择当第一个工作薄第一个工作表 set oSheet=oExcel.Workbooks(1).Worksheets(1) 2）增加一个二维图 achart=oSheet.chartobjects.add(100,100,200,200) 3）选择二维图的形态 achart.chart.charttype=4 4）给二维图赋值 set series=achart.chart.seriescollection range="sheet1!r2c3:r3c9" series.add range,true 5）加上二维图的标题 achart.Chart.HasTitle=True achart.Chart.ChartTitle.Characters.Text=" Excle二维图" 6）改变二维图的标题字体大小 achart.Chart.ChartTitle.Font.size=18 7）给二维图加下标说明 achart.Chart.Axes(xlCategory, xlPrimary).HasTitle = True achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "下标说明" 8）给二维图加左标说明 achart.Chart.Axes(xlValue, xlPrimary).HasTitle = True achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "左标说明" 9）给二维图加右标说明 achart.Chart.Axes(xlValue, xlSecondary).HasTitle = True achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "右标说明" 10）改变二维图的显示区大小 achart.Chart.PlotArea.Left = 5 achart.Chart.PlotArea.Width = 223 achart.Chart.PlotArea.Height = 108
网页按键精灵怎么获取网页上的文本
小弟初学按键精灵 想获取百度mp3中那一列的歌曲名 图片已标注（地址是： ） 不知道怎么写代码能获取 请好心大侠帮助小弟写一下 小弟不胜感激
//得到WQM进程句柄PluginPID=Web.Bind("wqm.exe")//打开一个网页地址连接PluginWeb.Go()
Plugin gs=Web.HtmlExists("tag:A&txt:MP3首页")
If gs=0Goto zpd
ElseEndIf//获得一个网页元素信息内容
Plugin t1=Web.HtmlGet("html","tag:A&txt:闪闪惹人爱")//获得一个网页元素信息内容
Plugin t2=Web.HtmlGet("html","tag:A&txt:白白的")//获得一个网页元素信息内容
Plugin t3=Web.HtmlGet("html","tag:A&txt:敢不敢爱")//获得一个网页元素信息内容
Plugin t4=Web.HtmlGet("html","tag:A&txt:看得最远的地方")//获得一个网页元素信息内容
Plugin t5=Web.HtmlGet("html","tag:A&txt:风声")//获得一个网页元素信息内容Plugin t6=Web.HtmlGet("html","tag:A&txt:木兰星")//获得一个网页元素信息内容
Plugin t7=Web.HtmlGet("html","tag:A&txt:只需要一首歌")//获得一个网页元素信息内容
Plugin t8=Web.HtmlGet("html","tag:A&txt:心的距离")//获得一个网页元素信息内容
Plugin t9=Web.HtmlGet("html","tag:A&txt:满满")//获得一个网页元素信息内容Plugin t10=Web.HtmlGet("html","tag:A&txt:我在桥上看风景")
msgbox"第一首歌为→"&T1&Vbcrlf&"第二首歌为→"&T2&Vbcrlf&"第三首歌为→"&T3&Vbcrlf&"第四首歌为→"&T4&Vbcrlf&"第五首歌为→"&T5&Vbcrlf&"第六首歌为→"&T6&Vbcrlf&"第七首歌为→"&T7&Vbcrlf&"第八首歌为→"&T8&Vbcrlf&"第九首歌为→"&T9&Vbcrlf&"第十首歌为→"&T10//我可以告诉你
只要例表更新也许就不可以用了
按键精灵发送信息 为何TEXT接收不到消息
//--------------------Script Start--------------------Delay 1500Plugin a=Window.MousePoint()//-- 运行前先指定要接收文本的窗口,//-- 因为打开"联系方式"的时候 鼠标指向激活窗体会改变.Plugin Web.Bind("wqm.exe")Plugin Web.Tips("Script Start.")Plugin Web.Go("page.china.alibaba.com/cp/cp1.html")//* Delay 3000//-- Web.Go 是阻塞超过.网页打开完成才会继续执行.//-- 所以不需要延时.Plugin Web.HtmlInput("五金","id:search-input")Delay 1000Plugin Web.HtmlClick("id:s-gs")Delay 6000Plugin Href=Web.HtmlGet("href","tag:A&txt:联系方式")Plugin Web.Go(Href)//-- 这里获取链接.用Web.Go 因为HtmlClick 的需要延时.Plugin Text=Web.HtmlGet("text","id:contact_column")Delay 1000//-- HtmlInput HtmlGet 在数据量小的时候延时1秒足够了.Text=Replace(Text,"?","") : Text=Replace(Text,"联系方式","") : Text=Replace(Text,"查看更多资料","")Text=Replace(Text,"手机在线","") : Textx=Replace(Text,"在线洽谈","") : Text=Replace(Text,"旺旺留言 ","")Text=Trim(Text)//-- 如上.还可以用VBS的字符串函数格式化输出.Plugin Window.SendString(a,Text&Chr(13))//-- Chr(13)表示换行符.可以和文本连接发送.不需要Window.SendKeyPress.Plugin Web.Tips(" End Script.")Plugin Window.Active(a)//-------------------- End Script -----------紫枫-----//-- WinXP SP3 按键精灵7.12.5013(免费版)
【上篇】【下篇】求助按键精灵插件plugin.web.htmlselect的用法 选择下拉框里某一个选项_百度知道
求助按键精灵插件plugin.web.htmlselect的用法 选择下拉框里某一个选项
我有更好的答案
pre t="code" l="vb">Call&湖北&&nbsp://Plugin.Web.HtmlSelect(&Call&nbsp.exe&)&//制作:法科按键//时间.aspx&,&WQM.com/cn/wqm/demo/pages/Demo-ComplexForm.aspx&)&" target="_blank">http://www.&<a href="&nbsp.vrbrothers.com/cn/wqm/demo/pages/Demo-ComplexF&Plugin.Web.Go(&quot:ctl00_mainContent_ddlProvince&)&Call&&Plugin.Web.Bind(&quot
采纳率：70%
来自团队：
问题没说完吧
是width属性采纳我的吧。。
用点击Call Plugin.Web.HtmlClick(&tag:LI&index:10&)//代码为点击这个网页里面的房屋类型下拉选项的
可以把下拉框点出来在f9获取
tag:LI&index:10
这个是特征码示例
这两个特征完全可以找到
其他1条回答
为您推荐：
其他类似问题
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。你的位置：
关于WebOperation
10:04:22 |
来源: 按键精灵资源站
对一个已经打开的IE窗口，再用
Hwnd= Plugin.Window.Find(0,&Microsoft Internet Explorer&)//已成功获取
得到的句柄，无法进行操作吗？
初始化 = Plugin.WebOperation.Initialize (Hwnd)
If 初始化 = false then
& & MsgBox &初始化失败！&
& & endscript