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

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

    或许写这篇文章占用自己的时间是错误的决定，但至少此刻看来，自己的博客，以及摄影博客，包括我这几年来一会坚持整理的照片，是争取...

本网页按键精灵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")...