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 Subext: Call MsgBox(网络链接异常，或有其他错误, vbExclamation, 警告) List1.AddItem Time 登陆错误, 0End SubSub delay() 1秒钟延时函数 Timer1.Enabled = True Do While Timer1.Enabled = True DoEvents LoopEnd SubPrivate Sub Command2_Click() 后退 WebBrowser1.GoBackEnd SubPrivate Sub Command3_Click() 前进 WebBrowser1.GoForwardEnd SubPrivate Sub Command4_Click() 刷新 WebBrowser1.RefreshEnd SubPrivate 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 Subext: Call MsgBox(你可能尚未登录，或有其他错误, vbExclamation, 警告) runflag = FalseEnd SubSub output() Dim data As String Call choose(data) WebBrowser1.Document.getelementbyid(msgTxt).Value = data WebBrowser1.Document.getElementsByTagName(INPUT)(num2).Click Call delay 延时1秒 WebBrowser1.Document.getElementsByTagName(INPUT)(num2).Click 确保发布成功 List1.AddItem Date 发布内容: data, 0End SubSub choose(ByRef data As String) Dim i As Integer i = Int(Rnd * 2) + 1