当前在线人数11585
首页 - 分类讨论区 - 本站系统 - 站长的工作室版 - 同主题阅读文章

此篇文章共收到打赏
0

  • 10
  • 20
  • 50
  • 100
您目前伪币余额:0
未名交友
[更多]
[更多]
自动封人机开发成功,贴图机的噩梦 (转载)
[版面:站长的工作室][首篇作者:didadida] , 2021年06月11日15:15:29 ,110次阅读,3次回复
来APP回复,赚取更多伪币 关注本站公众号:
[分页:1 ]
didadida
进入未名形象秀
我的博客
[回复] [回信给作者] [本篇全文] [本讨论区] [修改] [删除] [转寄] [转贴] [收藏] [举报] [ 1 ]

发信人: didadida (滴滴嗒嗒), 信区: sysop
标  题: 自动封人机开发成功,贴图机的噩梦 (转载)
发信站: BBS 未名空间站 (Fri Jun 11 15:15:29 2021, 美东)

【 以下文字转载自 Military 讨论区 】
发信人: didadida (滴滴嗒嗒), 信区: Military
标  题: 自动封人机开发成功,贴图机的噩梦
发信站: BBS 未名空间站 (Fri Jun 11 15:13:08 2021, 美东)

悉尼客黑名单上的76个ID都被封禁

如果你不是贴图机,请re此文以解封



--
※ 来源:·WWW 未名空间站 网址:mitbbs.com 移动:在应用商店搜索未名空间·[FROM: 71.]

 
didadida
进入未名形象秀
我的博客
[回复] [回信给作者] [本篇全文] [本讨论区] [修改] [删除] [转寄] [转贴] [收藏] [举报] [ 2 ]

发信人: didadida (滴滴嗒嗒), 信区: sysop
标  题: Re: 自动封人机开发成功,贴图机的噩梦 (转载)
发信站: BBS 未名空间站 (Fri Jun 11 16:57:03 2021, 美东)

Visual Studio 里新建一个VB的Windows Form Application

在form里加一个Web Browser 控件,和一个button
这两个控件都使用了缺省名字

在D盘保存封禁ID的名单,每个ID一行
假设文件取名IDs.txt

运行程序,登录完成后,点击那个唯一的button

代码
(需要把WebBrowser1.Navigate("http://www.mitbbs.com/mitbbs_add_deny_user.php?board=Detective&op_flag=0") 这一行里的Detective改成Military)

Imports VB = Microsoft.VisualBasic
Public Class Form1
    Dim list_id As ArrayList = New ArrayList()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.
Load

        WebBrowser1.ScriptErrorsSuppressed = True
        WebBrowser1.Navigate("www.mitbbs.com")

        Dim FILE_NAME As String = "d:IDs.txt"

        If System.IO.File.Exists(FILE_NAME) = True Then

            Dim objReader As New System.IO.StreamReader(FILE_NAME)

            Do While objReader.Peek() <> -1
                list_id.Add(Trim(objReader.ReadLine()))


            Loop

        Else

            MessageBox.Show("File Does Not Exist")

        End If



    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click

        Dim id As String
        Dim iHTMLCol As HtmlElementCollection
        Dim iHTMLEle As HtmlElement

        For Each id In list_id
            WebBrowser1.Navigate("http://www.mitbbs.com/mitbbs_add_deny_user.php?board=Detective&op_flag=0")


            Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
            Loop


            iHTMLCol = WebBrowser1.Document.GetElementsByTagName("input")
            For Each iHTMLEle In iHTMLCol
                Debug.WriteLine(iHTMLEle.Name)
                Select Case iHTMLEle.Name
                    Case "userid"
                        iHTMLEle.SetAttribute("value", id)
                    Case "dt"
                        iHTMLEle.SetAttribute("value", "14")
                    Case "exp"
                        iHTMLEle.SetAttribute("value", "贴图机并/或威胁版主")
              

                End Select

            Next

            For Each curElement As HtmlElement In iHTMLCol
                If curElement.GetAttribute("type").Equals("submit") Then
                    curElement.InvokeMember("click")
                End If
            Next

            Dim start As Single
            start = VB.Timer()
            Do While VB.Timer() < start + 0.5

                System.Windows.Forms.Application.DoEvents()
            Loop

            Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
            Loop


        Next

        MsgBox("All Done")

    End Sub

End Class
--
※ 来源:·WWW 未名空间站 网址:mitbbs.com 移动:在应用商店搜索未名空间·[FROM: 71.]

[分页:1 ]
[快速返回] [ 进入站长的工作室讨论区] [返回顶部]
回复文章
标题:
内 容:

未名交友
将您的链接放在这儿

友情链接


 

Site Map - Contact Us - Terms and Conditions - Privacy Policy

版权所有,未名空间(mitbbs.com),since 1996