AJJL_Automatic posting

1.0

/*
Call Plugin.Web.Bind("WQM.exe")
Call Plugin.Web.Go("http://www.xiazaizhijia.com/soft/63400.html")
price = Plugin.Web.HtmlGet("text", "tag:H1")
price = Replace(price, " ", "_")
Call Plugin.Web.Tips(price)
Call Plugin.Web.LeftClick(250,189)
Call Plugin.Web.SendString(price)
Delay 500
Call Plugin.Web.HtmlClick("tag:P&txt:进入下载列表&index:6")
//url = Plugin.Web.GetUrl()
//Delay 2000
//Call Plugin.Web.TabClose()
//MessageBox url
*/

/*
Event Form1.Button1.Click
    //设定一个结束参考变量
    path1 = "C:\Users\Administrator\Desktop\223.txt"
    fileHandle = Plugin.File.OpenFile(path)
    fileline1 = Plugin.File.ReadLine(fileHandle)

    path = "C:\Users\Administrator\Desktop\123.txt"
    fileHandle = Plugin.File.OpenFile(path)
    fileline = Plugin.File.ReadLine(fileHandle)
    MessageBox "读取" & path & "文件一行长度内容是：" & fileline
    fileline = Plugin.File.ReadLine(fileHandle)
    Call Plugin.File.CloseFile(fileHandle)
    MessageBox "读取" & path & "文件一行长度内容是：" & fileline

    temp = "#"

    If strComp(fileline, temp) Then
           Msgbox "条件判断符合被通过!!"
    End If  

    Call Plugin.Web.Bind("WQM.exe")
    Call Plugin.Web.Go(fileline)

End Event
*/

//获取输入内容
Dim temp
temp = 1 //默认发一贴
//用来限制发帖数
Event Form1.InputBox1.LostFocus
    temp = Form1.InputBox1.Text
    temp = CInt(temp)
End Event  

//定义每隔多少秒发一次
Dim second

Event Form1.OptionBox2.Click
    second = 5000
End Event

Event Form1.OptionBox3.Click
    second = 10000
End Event

Event Form1.OptionBox4.Click
    second = 15000
End Event

Event Form1.OptionBox5.Click
    second = 20000
End Event

Dim reply
reply = 3 //默认每三篇回复一贴
Dim temp_reply
temp_relay = 0//用来记录回复

Dim number_reply
number_reply = 1//用来记录要回复多少次贴

//多少贴回复一次
Event Form1.InputBox2.LostFocus
    reply = Form1.InputBox2.Text
    reply = CInt(reply)
End Event

//一次回复多少贴
Event Form1.InputBox3.LostFocus
    number_reply = Form1.InputBox3.Text
    number_reply = CInt(number_reply)
End Event

/**/
Event Form1.Button1.Click
    //准备工作, 打开论坛发帖页, 并做好结束文件准备
    Dim tempp
    tempp = 0
    Call Plugin.Web.Bind("WQM.exe")
    Call Plugin.Web.Go("http://anquan.baidu.com/bbs/forum.php?mod=post&action=newthread&fid=51")
    /*
    path = "C:\Users\Administrator\Desktop\223.txt"
    fileHandle1 = Plugin.File.OpenFile(path)
    fileline1 = Plugin.File.ReadLine(fileHandle1)
    Call Plugin.File.CloseFile(fileHandle1)
    */

    //回复内容模块
    content1 = "谢谢分享! 非常有用!"
    content2 = "支持一下, 不错的分享!"
    content3 = "找了好久的啊, 终于找到了, 谢谢哈~"

    If Form1.CheckBox3.Value = 1 Then
    content1 = Form1.InputBox4.Text
    content2 = Form1.InputBox5.Text
    content3 = Form1.InputBox6.Text
    End If

    //开始任务
    path = "E:\百度安全\分享达人\a资源分享自动发帖程序\帖子链接.txt"
    fileHandle = Plugin.File.OpenFile(path)

    path2 = "E:\百度安全\分享达人\a资源分享自动发帖程序\回复链接.txt"
    fileHandle2 = Plugin.File.OpenFile(path2)

    Dim sendP
    sendP = 1//用来记录要发哪条回复
    sendP = CInt(sendP)

    Do While true
        //主要内容   

        fileline = Plugin.File.ReadLine(fileHandle)

        Call Plugin.Web.TabNew()
        Call Plugin.Web.TabGoto(2)
        Delay 500
        Call Plugin.Web.Go(fileline)

        //复制粘贴标题
        price = Plugin.Web.HtmlGet("text", "tag:H1")
        price = Replace(price, " ", "_")
        Call Plugin.Web.TabGoto(1)

        //点击分类
        Delay 100
        Call Plugin.Web.HtmlClick("id:typeid_ctrl")
        Delay 100
        Call Plugin.Web.HtmlClick("tag:LI&value:0&index:3")

        //输入标题
        Call Plugin.Web.MoveTo(318, 179)
        Delay 10
        Call Plugin.Web.LeftClick(318, 179)
        Call Plugin.Web.SendString(price)

        /**/
        //获取图片链接
        Call Plugin.Web.TabGoto(2)
        Delay 500
        iehwnd=Plugin.Web.GetHwnd()
        Call Plugin.Bkgnd.RightClick(iehwnd, 252, 571)
        Call Plugin.Web.KeyPress(67)

        //粘贴图片
        Call Plugin.Web.TabGoto(1)
        Delay 200
        Call Plugin.Web.LeftClick(414, 366)
        iehwnd = Plugin.Web.GetHwnd()
        Call Plugin.Bkgnd.RightClick(iehwnd, 414, 366)
        Call Plugin.Web.KeyPress(80)

        //获取简介内容
        Call Plugin.Web.TabGoto(2)
        Delay 200
        Call Plugin.Web.HtmlClick("id:moreIntroBtn2")
        price = Plugin.Web.HtmlGet("text", "id:softIntroWrap")
        Delay 50
        price = Replace(price, "　", "★")

        //粘贴内容
        Call Plugin.Web.TabGoto(1)
        Delay 200
        Call Plugin.Web.LeftClick(926, 553)
        Delay 200
        KeyPress 13,3 //回车
        Call Plugin.Web.SendString(price)

        //获取下载链接
        Call Plugin.Web.TabGoto(2)
        Delay 1000
        Call Plugin.Web.ScrollTo(0, 100)
        Call Plugin.Web.LeftClick(452, 570)
        Delay 500
        //iehwnd=Plugin.Web.GetHwnd()
        //Call Plugin.Bkgnd.LeftClick(iehwnd, 244, 132)
        MoveTo 244, 289
        RightClick 1
        KeyPress "R", 1
        MoveTo 109, 228
        LeftClick 3
        RightClick 1
        KeyPress "C", 1
        MoveTo 175, 511
        Delay 100
        LeftClick 1
        Delay 200
        Call Plugin.Web.TabClose()
        //Call Plugin.Web.KeyPress(82)

        /*粘贴链接*/
        Call Plugin.Web.TabGoto(1)
        Delay 200
        KeyPress 13, 2//回车

        //添加免责声明
        If Form1.CheckBox2.Value = 1 Then
            Call Plugin.Web.SendString("————————————————————————————————————————")
            KeyPress 13, 1
            Call Plugin.Web.SendString("免责声明：")
            KeyPress 13, 1
            Call Plugin.Web.SendString("1、本资源源自互联网，请勿在未经本资源版权所有者书面授权的情况下用于商业用途。")
            KeyPress 13, 1
            Call Plugin.Web.SendString("2、本人对此资源只是想与论坛用户分享，无其他目的，如要转载请说明出处。")
            KeyPress 13, 1
            Call Plugin.Web.SendString("3、如果您是本资源的创作者，且不愿被网友分享发布，请联系论坛管理人员以便及时处理！")
            KeyPress 13, 1
            Call Plugin.Web.SendString("————————————————————————————————————————")
        End If

        KeyPress 13, 1//回车
        Call Plugin.Web.SendString("下载地址: ")
        KeyPress 13, 1
        Call Plugin.Web.HtmlClick("id:e_hide")
        Delay 200
        Call Plugin.Web.HtmlClick("id:e_hide_param_1")
        Delay 200
        KeyDown "ctrl", 1
        KeyPress "V", 1
        KeyUp "ctrl", 1
        Delay 100
        Call Plugin.Web.HtmlClick("id:e_hide_submit")
        Delay 100

        //放大字体
        KeyDown "ctrl", 1
        KeyPress "A", 1
        KeyUp "ctrl", 1
        Call Plugin.Web.HtmlClick("id:e_fontsize")
        Call Plugin.Web.HtmlClick("tag:A&txt:3")

        //发表帖子
        Call Plugin.Web.HtmlClick("id:postsubmit")

        /*
        iehwnd = Plugin.Web.GetHwnd()
        Call Plugin.Web.LeftClick(814, 329)
        Call Plugin.Bkgnd.RightClick(iehwnd, 814, 329)
        Delay 200
        Call Plugin.Web.KeyPress(80)
        Delay 500
        //Call Plugin.Web.LeftClick(789, 512)
        Call Plugin.Web.HtmlClick("id:moreIntroBtn2")
        */
        tempp = tempp + 1
        //
        If tempp = temp Then
               Call Plugin.File.CloseFile(fileHandle)
               Exit Do
        End If

        Delay second
        Call Plugin.Web.Go("http://anquan.baidu.com/bbs/thread-166806-1-1.html")
        Delay 2000
        Call Plugin.Web.LeftClick(230, 287)
        Delay 1000

        temp_reply = temp_reply + 1

        If temp_reply = reply Then
            //控制回复次数
            For i = 1 To number_reply
                Delay 19000
                fileline2 = Plugin.File.ReadLine(fileHandle2)
                Call Plugin.Web.TabNew()
                Delay 500
                Call Plugin.Web.TabGoto(2)
                Call Plugin.Web.Go(fileline2)
                Delay 200
                //回复内容
                If sendP = 1 Then
                    Call Plugin.Web.HtmlInput(content1, "id:fastpostmessage")
                    sendP = 2
                    Else If sendP = 2 Then
                        Call Plugin.Web.HtmlInput(content2, "id:fastpostmessage")
                        sendP = 3
                        Else If sendP = 3 Then
                            Call Plugin.Web.HtmlInput(content3, "id:fastpostmessage")
                            sendP = 1
                        End If
                    End If
                End If

                //确认提交
                Call Plugin.Web.HtmlClick("id:fastpostsubmit")
                Delay 2000
                Call Plugin.Web.TabClose()
            Next
            temp_reply = 0
        End If

        Call Plugin.Web.ClearTemp() //清理临时文件

    Loop

    Call Plugin.File.CloseFile(fileHandle2) //关闭文件

    Delay 10000
    //是否自动关机设置
    If Form1.CheckBox1.Value = 1 Then
        Call Plugin.Web.TabClose()
        Delay 30000 // 30秒后关机
        Call Plugin.Sys.ExitOS(1)
    End If

End Event

/*
Event Form1.PictureBox1.Click
    Form1.PictureBox1.Picture = "Attachment:\hlwyfeng.bmp"
End Event
*/

1.1

/*
Call Plugin.Web.Bind("WQM.exe")
Call Plugin.Web.Go("http://www.xiazaizhijia.com/soft/63400.html")
price = Plugin.Web.HtmlGet("text", "tag:H1")
price = Replace(price, " ", "_")
Call Plugin.Web.Tips(price)
Call Plugin.Web.LeftClick(250,189)
Call Plugin.Web.SendString(price)
Delay 500
Call Plugin.Web.HtmlClick("tag:P&txt:进入下载列表&index:6")
//url = Plugin.Web.GetUrl()
//Delay 2000
//Call Plugin.Web.TabClose()
//MessageBox url
*/

/*
Event Form1.Button1.Click
    //设定一个结束参考变量
    path1 = "C:\Users\Administrator\Desktop\223.txt"
    fileHandle = Plugin.File.OpenFile(path)
    fileline1 = Plugin.File.ReadLine(fileHandle)

    path = "C:\Users\Administrator\Desktop\123.txt"
    fileHandle = Plugin.File.OpenFile(path)
    fileline = Plugin.File.ReadLine(fileHandle)
    MessageBox "读取" & path & "文件一行长度内容是：" & fileline
    fileline = Plugin.File.ReadLine(fileHandle)
    Call Plugin.File.CloseFile(fileHandle)
    MessageBox "读取" & path & "文件一行长度内容是：" & fileline

    temp = "#"

    If strComp(fileline, temp) Then
           Msgbox "条件判断符合被通过!!"
    End If  

    Call Plugin.Web.Bind("WQM.exe")
    Call Plugin.Web.Go(fileline)

End Event
*/

/**/
Event Form1.Button1.Click
    //准备工作, 打开论坛发帖页, 并做好结束文件准备
    Call Plugin.Web.Bind("WQM.exe")
    Call Plugin.Web.Go("http://anquan.baidu.com/bbs/forum.php?mod=post&action=newthread&fid=51")
    path = "C:\Users\Administrator\Desktop\223.txt"
    fileHandle1 = Plugin.File.OpenFile(path)
    fileline1 = Plugin.File.ReadLine(fileHandle1)
    Call Plugin.File.CloseFile(fileHandle1)

    //开始任务
    path = "C:\Users\Administrator\Desktop\123.txt"
    fileHandle = Plugin.File.OpenFile(path)
    Do While true
        //主要内容   

        fileline = Plugin.File.ReadLine(fileHandle)

        Call Plugin.Web.TabNew()
        Delay 500
        Call Plugin.Web.Go(fileline)

        //复制粘贴标题
        price = Plugin.Web.HtmlGet("text", "tag:H1")
        price = Replace(price, " ", "_")
        Call Plugin.Web.TabGoto(1)

        //点击分类
        Call Plugin.Web.HtmlClick("id:typeid_ctrl")
        Call Plugin.Web.HtmlClick("tag:LI&value:0&index:3")

        //输入标题
        Call Plugin.Web.MoveTo(318,179)
        Call Plugin.Web.LeftClick(318, 179)
        Call Plugin.Web.SendString(price)

        /**/
        //获取图片链接
        Call Plugin.Web.TabGoto(2)
        Delay 500
        iehwnd=Plugin.Web.GetHwnd()
        Call Plugin.Bkgnd.RightClick(iehwnd, 252, 571)
        Call Plugin.Web.KeyPress(67)

        //粘贴图片
        Call Plugin.Web.TabGoto(1)
        Delay 200
        Call Plugin.Web.LeftClick(414, 366)
        iehwnd = Plugin.Web.GetHwnd()
        Call Plugin.Bkgnd.RightClick(iehwnd, 414, 366)
        Call Plugin.Web.KeyPress(80)

        //获取简介内容
        Call Plugin.Web.TabGoto(2)
        Delay 200
        Call Plugin.Web.HtmlClick("id:moreIntroBtn2")
        price = Plugin.Web.HtmlGet("text", "id:softIntroWrap")
        price = Replace(price, "　", "★")

        //粘贴内容
        Call Plugin.Web.TabGoto(1)
        Delay 200
        Call Plugin.Web.LeftClick(926, 553)
        KeyPress 13,3 //回车
        Call Plugin.Web.SendString(price)

        //获取下载链接
        Call Plugin.Web.TabGoto(2)
        Delay 200
        Call Plugin.Web.ScrollTo(0, 100)
        Call Plugin.Web.LeftClick(452, 570)
        Delay 500
        //iehwnd=Plugin.Web.GetHwnd()
        //Call Plugin.Bkgnd.LeftClick(iehwnd, 244, 132)
        MoveTo 244, 289
        RightClick 1
        KeyPress "R", 1
        MoveTo 109, 228
        LeftClick 3
        RightClick 1
        KeyPress "C", 1
        MoveTo 175, 511
        Delay 100
        LeftClick 1
        //Call Plugin.Web.KeyPress(82)

        /*粘贴链接*/
        Call Plugin.Web.TabGoto(1)
        Delay 200
        KeyPress 13, 2//回车
        Call Plugin.Web.HtmlClick("id:e_hide")
        Delay 200
        Call Plugin.Web.HtmlClick("id:e_hide_param_1")
        Delay 200
        KeyDown "ctrl", 1
        KeyPress "V", 1
        KeyUp "ctrl", 1
        Delay 100
        Call Plugin.Web.HtmlClick("id:e_hide_submit")

        //放大字体
        KeyDown "ctrl", 1
        KeyPress "A", 1
        KeyUp "ctrl", 1
        Call Plugin.Web.HtmlClick("id:e_fontsize")
        Call Plugin.Web.HtmlClick("tag:A&txt:3")

        //发表帖子
        Call Plugin.Web.HtmlClick("id:postsubmit")

        /*
        iehwnd = Plugin.Web.GetHwnd()
        Call Plugin.Web.LeftClick(814, 329)
        Call Plugin.Bkgnd.RightClick(iehwnd, 814, 329)
        Delay 200
        Call Plugin.Web.KeyPress(80)
        Delay 500
        //Call Plugin.Web.LeftClick(789, 512)
        Call Plugin.Web.HtmlClick("id:moreIntroBtn2")
        */

        //
        If strComp(fileline, fileline1) = 0 Then
               Call Plugin.File.CloseFile(fileHandle)
               Msgbox "完成任务!"
               Exit Do
        End If

        Delay 2000
        Call Plugin.Web.LeftClick(227, 288)
        Call Plugin.Web.TabGoto(2)
        Delay 500
        Call Plugin.Web.TabClose()  

    Loop

End Event

Event Form1.Button2.Click
    EndScript
End Event

Event Form1.Button3.Click
    ExitScript
End Event

Event Form1.Hotkey1.Hotkey
    EndScript
End Event

小实验:

Dim temp
Event Form1.InputBox1.LostFocus
    temp = Form1.InputBox1.Text
    temp = CInt(temp)
    MessageBox temp
End Event  

Event Form1.Button1.Click
    Call Plugin.Web.Bind("WQM.exe")
    Call Plugin.Web.Go("http://anquan.baidu.com/bbs/forum.php?mod=post&action=newthread&fid=51")

    path = "C:\Users\Administrator\Desktop\223.txt"
    fileHandle1 = Plugin.File.OpenFile(path)
    fileline1 = Plugin.File.ReadLine(fileHandle1)
    Call Plugin.File.CloseFile(fileHandle1)

    path = "C:\Users\Administrator\Desktop\123.txt"
    fileHandle = Plugin.File.OpenFile(path)  

    Dim tempp
    tempp = 0
    Do While true
           fileline = Plugin.File.ReadLine(fileHandle)
           tempp = tempp + 1
           Call Plugin.Web.TabNew()
        Call Plugin.Web.Go(fileline)
        Delay 5000
        If tempp = temp Then
             Call Plugin.File.CloseFile(fileHandle)
            MessageBox "完成!"
            Exit Do
        Else
            MessageBox "!"
        End If

    Loop  

End Event

Event Form1.Button2.Click
    Dim temppp
    temppp = 3
    If temppp = temp Then
        MessageBox "OK"
    End If 

End Event

时间： 2025-01-18 06:44:57

AJJL_Automatic posting的相关文章

Not posting notification with icon==0问题解决

问题:E/NotificationService: Not posting notification with icon==0: Notification(pri=0 contentView=null vibrate=null sound=null defaults=0x0 flags=0x0 color=0x00000000 vis=PRIVATE) 解决:为Notification添加 .setSmallIcon(R.drawable.icon)

[译]HTTP POSTing

HTTP POSTing We get many questions regarding how to issue HTTP POSTs with libcurl the proper way. This chapter will thus include examples using both different versions of HTTP POST that libcurl supports. The first version is the simple POST, the most

Posting array of JSON objects to MVC3 action method via jQuery ajax

Does the model binder not suport arrays of JSON objects? The code below works when sending a single JSON domain object as part of the ajax post. However, when sending an array of JSON domain objects, the action parameter is null. var domains = [{ Dom

jQuery AJAX Call for posting data to ASP.Net page ( not Get but POST)

the following jQuery AJAX call to an ASP.Net page. $.ajax({ async: true, type: "POST", url: "DocSummaryDataAsync.aspx", //"DocSummary.aspx/GetSummaryByProgramCount", contentType: "application/json; charset=utf-8", d

Web安全相关（四）：过多发布(Over Posting)

简介 过多发布的内容相对比较简单,因此,我只打算把原文中的一些关键信息翻译一下.原文链接如下: http://www.asp.net/mvc/overview/getting-started/getting-started-with-ef-using-mvc/implementing-basic-crud-functionality-with-the-entity-framework-in-asp-net-mvc-application#overpost 示例代码下载: https://code

Posting JSON to Spring MVC Controller

Spring MVC can be setup to automatically bind incoming JSON string into a Java object. Firstly, ensure you have jackson-mapper-asl included on the classpath: <dependency> <groupId>org.codehaus.jackson</groupId> <artifactId>jackson-

Posting with HttpClient

HttpClient是Java中经常使用的Http Client,总结下HttpClient4中经常使用的post请求用法. 1 Basic Post 使用2个参数进行post请求: @Test public void whenPostRequestUsingHttpClient_thenCorrect() throws ClientProtocolException, IOException { CloseableHttpClient client = HttpClients.createDe

post Cache

http://www.w3.org/Protocols/rfc2616/rfc2616-sec9.html#sec9.5 POST The POST method is used to request that the origin server accept the entity enclosed in the request as a new subordinate of the resource identified by the Request-URI in the Request-Li

《机器学习实战》笔记——朴素贝叶斯

运用贝叶斯公式(朴素贝叶斯假设每个特征每个特征都是独立的)可以解决的问题有,已知某些特征,用来判断某情况发生的可能性大小,设置可能性最大的情况作为预测值. 是一种监督算法. 广泛应用于垃圾邮件检测等等. 1 # _*_coding:utf-8_*_ 2 from numpy import * 3 4 # 4-1 词表到向量的转换函数(实验样本) 5 def loadDataSet(): 6 postingList = [['my', 'dog', 'has', 'flea', 'problems