VB制作刷易班软件.docxVIP

用VB制作刷易班软件 作者：俞佳星 这次开源的V2.1版 V3.5完成之后，V3.0版很快也会开源 首先是界面设计： 窗口1： 窗口2： 下面是窗口1的源码： Dim timerx As Integer 长延时函数中使用 Public strx1, strx2, strx3 As String 发布内容（状态） Public stry1, stry2, stry3 As String 发布的内容（自动回帖） Public num1, num2, num3 As Integer 用于锁定登陆按钮\发布按钮\自动回帖按钮 Public urlx1, urlx2 As String 发状态的网址\自动回帖的网址 Dim runflag As Boolean 任务运行标志 Private Sub Command1_Click() 登陆 On Error GoTo ext Dim vDoc, vTag Set vDoc = WebBrowser1.Document WebBrowser1.Document.getelementbyid(username).Value = Label2.Caption WebBrowser1.Document.getelementbyid(password).Value = Label3.Caption Call delay 延时1秒 WebBrowser1.Document.getElementsByTagName(a)(num1).Click List1.AddItem Time 登陆成功, 0 Exit Sub ext: Call MsgBox(网络链接异常，或有其他错误, vbExclamation, 警告) List1.AddItem Time 登陆错误, 0 End Sub Sub delay() 1秒钟延时函数 Timer1.Enabled = True Do While Timer1.Enabled = True DoEvents Loop End Sub Private Sub Command2_Click() 后退 WebBrowser1.GoBack End Sub Private Sub Command3_Click() 前进 WebBrowser1.GoForward End Sub Private Sub Command4_Click() 刷新 WebBrowser1.Refresh End Sub Private Sub Command5_Click() 发布 On Error GoTo ext WebBrowser1.Navigate urlx1 Call delay Call delay Dim i As Integer Dim a As Integer List1.AddItem Date 发布任务开始, 0 runflag = True 任务运行标志打开 For i = 1 To Text2.Text Call output List1.AddItem Date 成功发布 i 次, 0 Call delayx Next i List1.AddItem Date 发布任务结束, 0 runflag = False 任务运行标志关闭 Exit Sub ext: Call MsgBox(你可能尚未登录，或有其他错误, vbExclamation, 警告) runflag = False End Sub Sub output() Dim data As String Call choose(data) WebBrowser1.Document.getelementbyid(msgTxt).Value = data WebBrowser1.Document.getElementsByTagName(INPUT)(num2).Click Call delay