张凯   个人原创 2016-09-29

    感谢您能访问张凯博客,前世的五百次回眸,换来今生你我的不期而遇。
    无论我们是否结识,又或者在这短暂的人生里产生过或深或浅的交集,只希望在我的博客里,能带给你片刻远离俗世尘嚣的安宁。
    愿你我知行合一,一即一切,一切即一,一生如一。

    人总是在做出错误的决定,我这些年做出的错误的决定特别多,现在心情特别低沉,心态消极,所以想把能回忆到的错误的决定写下来,或许看到我自己能写出自己怎么多错误的决定,心里会好受些。

    或许写这篇文章占用自己的时间是错误的决定,但至少此刻看来,自己的博客,以及摄影博客,包括我这几年来一会坚持整理的照片,是争取...
77次浏览 0条评论 心情日记

本网页按键精灵B2B网站发布100招商网的脚本使用点击网页元素和鼠标坐标的操作发布信息,由张凯博客原创首发,可输出发布记录和成功网址,但并不完美,仅供参考。


ProcessID = Plugin.Web.Bind("WQM.exe")
Delay 1000
If ProcessID=0 then
    MessageBox "网页按键精灵没有运行"
    EndScri...

本网页按键精灵发布百业招商网供应信息由张凯博客原创,并附有相关视频教程,并富有解释了调用文件、源码解释教程,如需要可在博文下方留言索取。

本代码可循环运行,但目前有还无法实现自动处理弹窗的功能。

ProcessID = Plugin.Web.Bind("WQM.exe")
Delay 1000
If ProcessID=0 then
    MessageBox "网页...

使用网页按键精灵过滤关键词由张凯博客原创,使用指定关键词文本过滤文件夹内的随机文件,自己看代码,就不修改了。


Randomize
//----------调用文件取文件名函数----------
Function FindAllFiles(FolderPath)
    Dim AllFiles,fso,Folder,f,files
    AllFiles = ""
   ...

Call Plugin.Web.Bind("WQM.exe")
Call Plugin.Web.Go("www.baidu.com") linkNum=Plugin.Web.HtmlExists("tag:a")
CallPlugin.Web.Tips("判断网页元素是否存在百度首页共有"?& linkNum & "个链接")

获取页面元素位置

//---------------------绑定WQM(必须的)
PID=Plugin.Web.Bind("wqm.exe")
//------------------------打开百度网站
Call Plugin.Web.Go("http://www.baidu.com")
//------------------------获取元素位置
XY=P...

Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
    i=0
    For UBound(MyArray)
        //下面这句是得到文本内...

//假设"账号密码.txt" 存有一行“zhh123,mm456” (不含引号,逗号前面为账号,后面为密码)
Text = Plugin.File.ReadFileEx("D:\帐号密码.txt")   //读取帐号密码,存到text.
arr=split(text,",")  //以逗号为界,分割成两个字符串,放到数组中。
MoveTo zhx, zhy  //鼠标移动到帐号...

m = Array("430422120004", "430422120007", "430422120008", "430422120009", "430422120214")
t = Array("430422123004", "430422123007", "430422123008", "430422123009", "430422123214")...
Ɣ回顶部
00:00 / 00:00
顺序播放