VB制作刷易班软件.docx

学习文档 仅供参考
用VB制作刷易班软件
俞佳星

，
首先是界面设计：
窗口1：
窗口2：
学习文档 仅供参考
下面是窗口1的源码：
Dim
Dim data As String
Call choose(data)

("msgTxt").Value = data
("INPUT")(num2).Click
Call delay '延时1秒
("INPUT")(num2).Click '确保发布成功

Date & " " & "发布内容:" & data, 0
End Sub
Sub choose(ByRef data As String)
Dim i As Integer
i = Int(Rnd * 2) + 1
Select Case i
Case 1
学习文档 仅供参考
data = strx1
Case 2
data = strx2
Case 3
data = strx3
End Select
End Sub
Private Sub Command6_Click()

End Sub
Private Sub Command7_Click() '自动回帖
If > 25 Then
Call MsgBox("次数过多，会被认为是恶意刷帖子", vbExclamation, "警告")
Exit Sub
End If
If < 30 Then
Call MsgBox("时间间隔太短，会被认为是恶意刷帖", vbExclamation, "警告")
Exit Sub
End If

Call autolendtip
End Sub
Sub autolendtip()
urlx2
Call delay
Call delay

Dim i As Integer
Date & " " & "自动回帖任务开始", 0
runflag = True '任务运行标志打开
For i = 1 To
Call lendtip
Date & " " & "第" & i & "次发帖", 0
Call delayx
Next i
runflag = False
Date & " " & "自动回帖任务完成", 0
End Sub
Sub lendtip() '登录发帖网址
On Error GoTo ext
学习文档 仅供参考
' " :// /bbs/publish?area=34900"
' Call delay
' Call delay
' ("P_title").Value = "自动发布测试〔标题〕"
' ("P_text") = "自动发布测试〔正文〕"

Dim data As String
Call choose2(data)
("P_text").Value = data
Call delay