本网页按键精灵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
顺序播放