码迷，mamicode.com
首页 > 其他好文 > 详细

AJJL_Automatic posting

时间：2014-11-18 23:05:51      阅读：391      评论：0      收藏：0      [点我收藏+]

标签：des   style   blog   http   io   color   ar   os   sp   

1.0

bubuko.com,布布扣 
/*
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
*/
View Code

1.1

bubuko.com,布布扣 
/*
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
View Code


 

小实验:

bubuko.com,布布扣 
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
View Code

 

AJJL_Automatic posting

标签：des   style   blog   http   io   color   ar   os   sp   

原文地址：http://www.cnblogs.com/hlwyfeng/p/4106528.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！