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 C