查看: 7966|回复: 1
如何将做好的EXCEL数据用按键精灵复制到网站对应的文字框
阅读权限20
在线时间 小时
Description=Duan
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
EnableWindow=
[Relative]
SetupOCXFile=
//Chris Grant
UserVar Num
Plugin Web.Bind(&WQM.exe&)
Plugin Web.Go(&/cgi-bin/loginpage&)
//建立对象
Set xlApp=CreateObject(&Excel.Application&)
//这里是前台运行，不可见用False
xlApp.Visible = False
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,1).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
Plugin Web.HtmlInput(Num,&tag:input&name:uin&)
Delay 1000
Plugin Web.HtmlInput(Num,&tag:input&Type:password&)
Delay 1000
Plugin Web.HtmlClick(&tag:input&value:登 录&)
Delay 2000
//返回结果
Plugin receive=Web.HtmlGet(&text&,&tag:TD&index:33&)
Delay 1000
VBS xlSheet.cells(i,2).value=receive
VBS xlSheet.cells(j,2).value=receive
VBS i=i+1:j=j+1
//交完后,下面的语句就又开始下一个数据读取再输出
Goto [循环提交]
Rem [没数据了]
VBS xlApp.quit
//关闭工作表
VBS Set xlApp=Nothing
//释放对象
哪里有错误啊？？
阅读权限100
在线时间 小时
用按键精灵本身就是不安全的方案。因为网页所在位置……大小、屏幕分辨率都会有差异，最终导致按键精灵会点击不到要点击的地方。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师菜鸟求助啊~~ 按键精灵9 怎么调用EXCEL里单元格内容进行复制粘贴_按键精灵吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
菜鸟求助啊~~ 按键精灵9 怎么调用EXCEL里单元格内容进行复制粘贴收藏
按键精灵9 怎么调用EXCEL里单元格内容进行复制粘贴？？？大神帮我啊..
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或}