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

  这几天一直在网页按键精灵发B2B产品信息的程序,现在遇到了瓶颈。

主要有三:
     1.地名/产品类目不能随机,导致发送出去的地名都统一;

    2.不能上传本地图片;

    3.网页弹窗不能自动关闭。
QQ截图20180408173134.png
    用随意...
172次浏览 2条评论 心情日记

    贵阳之行已经结束,从4月5日晚上9点到贵阳,连夜谈事情到11点40,到第二天一早看工地,中午吃饭谈施工,晚上9点30签合同,整个合同从谈到签订不过24小时,合同价款95万。

    本次合同实现了两个突破,一是我有史以来自行签的单笔金额最大一单合同,二是我单笔面谈到签订最快的一单合同,非常振奋人心。

&nb...
100次浏览 0条评论 心情日记
Ɣ回顶部
00:00 / 00:00
顺序播放