VB制作刷易班软件.docx
《VB制作刷易班软件.docx》由会员分享，可在线阅读，更多相关《VB制作刷易班软件.docx（15页珍藏版）》请在冰豆网上搜索。
VB制作刷易班软件
VB制作刷易班软件用作者：
俞佳星这次开源的V2.1版
V3.5完成之后，V3.0版很快也会开源
首先是界面设计：
窗口1：
2：
窗口
下面是窗口1的源码：
DimtimerxAsInteger'长延时函数中使用
Publicstrx1,strx2,strx3AsString'发布内容（状态）
Publicstry1,stry2,stry3AsString'发布的内容（自动回帖）
Publicnum1,num2,num3AsInteger'用于锁定登陆按钮\发布按钮\自动回帖按钮
Publicurlx1,urlx2AsString'发状态的网址\自动回帖的网址
DimrunflagAsBoolean'任务运行标志
PrivateSubCommand1_Click（）'登陆
OnErrorGoToext
DimvDoc,vTag
SetvDoc=WebBrowser1.Document
WebBrowser1.Document.getelementbyid（%username）.Value=Label2.Caption
WebBrowser1.Document.getelementbyid（password）.Value=Label3.Caption
Calldelay'延时1秒
WebBrowser1.Document.getElementsByTagName（a）（num1）.Click
楌瑳?
摁?
整?
楔敭?
尠尠?
尠登陆成功,0
ExitSub
ext:
慃汬?
杳潂?
网络链接异常，或有其他错误?
瘠?
捸慬慭楴湯?
警告）
楌瑳?
摁?
整?
楔敭?
尠尠?
尠登陆错误,0
EndSub
Subdelay（）'1秒钟延时函数
Timer1.Enabled=True
DoWhileTimer1.Enabled=True
DoEvents
Loop
EndSub
PrivateSubCommand2_Click（）'后退
WebBrowser1.GoBack
EndSub
PrivateSubCommand3_Click（）'前进
WebBrowser1.GoForward
EndSub
PrivateSubCommand4_Click（）'刷新
WebBrowser1.Refresh
EndSub
PrivateSubCommand5_Click（）'发布
OnErrorGoToext
WebBrowser1.Navigateurlx1
Calldelay
Calldelay
DimiAsInteger
DimaAsInteger
楌瑳?
摁?
整?
慄整?
尠尠?
尠发布任务开始,0
runflag=True'任务运行标志打开
Fori=1ToText2.Text
Calloutput
楌瑳?
摁?
整?
慄整?
尠尠?
尠成功发布?
…?
…次,0
Calldelayx
Nexti
楌瑳?
摁?
整?
慄整?
尠尠?
尠发布任务结束,0
runflag=False'任务运行标志关闭
ExitSub
ext:
慃汬?
杳潂?
你可能尚未登录，或有其他错误?
瘠?
捸慬慭楴湯?
警告）
runflag=False
EndSub
Suboutput（）
DimdataAsString
Callchoose（data）
WebBrowser1.Document.getelementbyid（msgTxt）.Value=data
WebBrowser1.Document.getElementsByTagName（INPUT）（num2）.Click
Calldelay'延时1秒
WebBrowser1.Document.getElementsByTagName（INPUT）（num2）.Click'确保发布成功
楌瑳?
摁?
整?
慄整?
尠尠?
尠发布内容:
&data,0
EndSub
Subchoose（ByRefdataAsString）
DimiAsInteger
i=Int（Rnd*2）+1
SelectCasei
Case1
data=strx1
Case2
data=strx2
Case3
data=strx3
EndSelect
EndSub
PrivateSubCommand6_Click（）
Form2.Show
EndSub
PrivateSubCommand7_Click（）'自动回帖
IfText2.Text>25Then
慃汬?
杳潂?
次数过多，会被认为是恶意刷帖子?
瘠?
捸慬慭楴湯?
警告）
ExitSub
EndIf
IfText1.Text<30Then
慃汬?
杳潂?
时间间隔太短，会被认为是恶意刷帖?
瘠?
捸慬慭楴湯?
警告）
ExitSub
EndIf
Callautolendtip
EndSub
Subautolendtip（）
WebBrowser1.Navigateurlx2
Calldelay
Calldelay
DimiAsInteger
楌瑳?
摁?
整?
慄整?
尠尠?
尠自动回帖任务开始,0
runflag=True'任务运行标志打开
Fori=1ToText2.Text
Calllendtip
楌瑳?
摁?
整?
慄整?
尠尠?
尠第?
…?
…次发帖,0
Calldelayx
Nexti
runflag=False
楌瑳?
摁?
整?
慄整?
尠尠?
尠自动回帖任务完成,0
EndSub
Sublendtip（）'登录发帖网址
OnErrorGoToext
'敗?
潲獷牥?
慎楶慧整尠扢屳瀯扵楬桳愿敲?
?
?
尰
'Calldelay
'Calldelay
'敗?
潲獷牥?
潄畣敭瑮朮瑥汥浥湥扴楹?
停瑟瑩敬?
嘮污敵?
尠自动发布测试（标题）
'敗?
潲獷牥?
潄畣敭瑮朮瑥汥浥湥扴楹?
停瑟硥屴?
?
自动发布测试（正文）
DimdataAsString
Callchoose2（data）
WebBrowser1.Document.getelementbyid（P_text）.Value=data
Calldelay
WebBrowser1.Document.getElementsByTagName（INPUT）（num3）.Click
ExitSub
ext:
慃汬?
杳潂?
错误代码：
lendtip，请于作者联系?
瘠?
捸慬慭楴湯?
警告）
楌瑳?
摁?
整?
楔敭?
尠尠?
尠回帖错误,0
EndSub
Subchoose2（ByRefdataAsString）
DimiAsInteger
i=Int（Rnd*2）+1
SelectCasei
Case1
data=stry1
Case2
data=stry2
Case3
data=stry3
EndSelect
EndSub
PrivateSubCommand8_Click（）
WebBrowser1.Document.getElementsByTagName（a）（11）.Click
EndSub
PrivateSubForm_Load（）
慌敢?
?
灡楴湯?
尠用户名
慌敢?
?
灡楴湯?
尠密码
慌敢?
?
灡楴湯?
尠说点什么吧
Callformchange1
Call
WebBrowser1.Navigateurlx1
Timer1.Enabled=False
Timer2.Enabled=False
timerx=0
Text1.Text=5
Text2.Text=100
runflag=False'任务运行标志默认关闭
EndSub
Subformchange1（）'窗口大小函数
WebBrowser1.Height=Me.Height-800
WebBrowser1.Width=Me.Width-4000
Command1.Left=Me.Width-Command1.Width-1000
Command2.Width=（Me.Width-WebBrowser1.Width）/3-300
Command3.Width=（Me.Width-WebBrowser1.Width）/3-300
Command4.Width=（Me.Width-WebBrowser1.Width）/3-300
Command2.Left=WebBrowser1.Left+WebBrowser1.Width+100
Command3.Left=Command2.Left+Command2.Width+100
Command4.Left=Command3.Left+Command3.Width+100
Label1.Left=Me.Width-Label1.Width-500
Label1.Top=Me.Height-1000
Label2.Left=Me.Width-Label2.Width-550
Label3.Left=Me.Width-Label3.Width-550
Label5.Left=Label2.Left-Label5.Width
Label6.Left=Label3.Left-Label6.Width
Command5.Left=Me.Width-Command5.Width-300
Command7.Left=Me.Width-Command7.Width-300
Label4.Left=Me.Width-Label4.Width-300
Command6.Left=Command1.Left-Command6.Width-100
Text1.Left=Command5.Left-Text1.Width-100
Text2.Left=Command5.Left-Text2.Width-100
Label7.Left=Text1.Left-Label7.Width
Label8.Left=Text2.Left-Label8.Width
List1.Left=Me.Width-List1.Width-300
List1.Height=Label1.Top-List1.Top
EndSub
PrivateSubForm_Resize（）'改变窗口大小
IfWindowState<>1Then
Callformchange1
EndIf
EndSub
PrivateSubForm_Unload（CancelAsInteger）'退出前程序
Ifrunflag=TrueThen
獭?
?
任务正在运行中，确认关闭？
敲灳湯敳?
?
杳潂?
獭?
瘠兢敵瑳潩?
?
扶教乳?
尠退出）
SelectCaseresponse
CasevbYes
End
CasevbNo
Cancel=-1
EndSelect
EndIf
EndSub
PrivateSubText1_Click（）
Ifrunflag=TrueThen
慃汬?
杳潂?
任务正在运行中，请勿更改配置?
瘠?
捸慬慭楴湯?
警告）
WebBrowser1.SetFocus
Else
Text1.Text=\
EndIf
EndSub
PrivateSubText2_Click（）
Ifrunflag=TrueThen
慃汬?
杳潂?
任务正在运行中，请勿更改配置?
瘠?
捸慬慭楴湯?
警告）
WebBrowser1.SetFocus
Else
Text2.Text=\
EndIf
EndSub
PrivateSubText3_Click（）
Text3.Text=\
EndSub
PrivateSubTimer1_Timer（）'用于1秒钟延时函数
Timer1.Enabled=False
EndSub
Subdelayx（）'长延时函数
timery=10
Timer2.Enabled=True
DoWhileTimer2=True
DoEvents
Loop
EndSub
PrivateSubTimer2_Timer（）'用于长延时函数
timerx=timerx+1
Iftimerx=Text1.TextThen
timerx=0
Timer2.Enabled=False
EndIf
EndSub
PrivateSubWebBrowser1_CommandStateChange（ByValCommandAsLong,ByValEnableAs
Boolean）'判断可否后退，前进
If（Command=CSC_NAVIGATEBACK）Then
Command2.Enabled=Enable
EndIf
If（Command=CSC_NAVIGATEFORWARD）Then
Command3.Enabled=Enable
EndIf
EndSub
Sub（）
OnErrorGoToext
Dimname,passwordAsString
DimiAsInteger
OpenApp.Path&\ybBX1210.iniForInputAs#1
Input#1,num1'读入登陆按钮的位置
Input#1,num2'读入发布按钮的位置
Input#1,num3'读入自动回帖按钮的位置
Input#1,name'读入用户名
Input#1,password'读入密码
Input#1,urlx1'读入发状态的网址
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入发状态网址,0
Label2.Caption=name
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入用户名:
&name,0
Label3.Caption=password
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入密码:
&password,0
'读入要发布的内容
Input#1,strx1
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入要发布的状态:
&strx1,0
Input#1,strx2
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入要发布的状态:
&strx2,0
Input#1,strx3
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入要发布的状态:
&strx3,0
Input#1,urlx2'读入自动回帖的网址
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入回帖网址,0
Input#1,stry1
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入要回帖的内容:
&stry1,0
Input#1,stry2
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入要回帖的内容:
&stry2,0
Input#1,stry3
楌瑳?
摁?
整?
慄整?
尠尠?
尠读入要回帖的内容:
&stry3,0
Label4.Caption=strx1&Chr（13）&strx2&Chr（13）&strx3
Close#1
ExitSub
ext:
慃汬?
杳潂?
配置文件读取失败，检查配置文件?
瘠?
捸慬慭楴湯?
警告）
楌瑳?
摁?
整?
慄整?
尠尠?
尠配置文件读取失败,0
EndSub
PrivateSubWebBrowser1_DownloadBegin（）
WebBrowser1.Silent=True'避免弹出对话框
EndSub
PrivateSubWebBrowser1_DownloadComplete（）
WebBrowser1.Silent=True'避免弹出对话框
EndSub
下面是窗口2的源码：
PrivateSubCommand1_Click（）
DimiAsInteger
'------------保存设置----------------------------------------
OpenApp.Path&\ybBX1210.iniForOutputAs#1
Write#1,Form1.num1'写入登陆按钮的位置
Write#1,Form1.num2'写入发布按钮的位置
Write#1,Form1.num3'写入自动回帖按钮的位置
Write#1,Text1.Text'写入用户名
Write#1,Text2.Text'写入密码
写入发状态网址'Write#1,Form1.urlx1
Write#1,Text3.Text'写入状态1
Write#1,Text4.Text'写入状态2
Write#1,Text5.Text'写入状态3
Write#1,Text6.Text'写入回帖网址
Write#1,Text7.Text'写入回帖内容1
Write#1,Text8.Text'写入回帖内容2
Write#1,Text9.Text'写入回帖内容3
Close#1
'--------------设置更新------------------------------------------
Form1.Label2.Caption=Text1.Text
Form1.Label3.Caption=Text2.Text
Form1.strx1=Text3.Text
Form1.strx2=Text4.Text
Form1.strx3=Text5.Text
Form1.Label4.Caption=Form1.strx1&Chr（13）&Form1.strx2&Chr（13）&Form1.strx3
Form1.urlx2=Text6.Text
Form1.stry1=Text7.Text
Form1.stry2=Text8.Text
Form1.stry3=Text9.Text
潆浲?
楌瑳?
摁?
整?
慄整?
尠尠?
尠修改配置,0
UnloadForm2
EndSub
PrivateSubForm_Load（）
Text1.Text=Form1.Label2.Caption
Text2.Text=Form1.Label3.Caption
Text3.Text=Form1.strx1
Text4.Text=Form1.strx2
Text5.Text=Form1.strx3
Text6.Text=Form1.urlx2
Text7.Text=Form1.stry1
Text8.Text=Form1.stry2
Text9.Text=Form1.stry3
EndSub
使用说明及各版本更新内容：
v2.1更新内容：
增加发布次数和时间间隔限制
以后版本会解除限制
v2.0更新内容：
1.增加自动回帖功能
2.修复没登陆时，直接点击发布按钮出错
3，修复配置文件错误时的出错
4.回帖的时间间隔自动设为10秒（网站规定至少10秒）
v1.51更新内容：
1.修复窗口最小化时出错
2.修复任务运行时修改时间间隔和发布次数出错
v1.5更新内容：
1.增加随机发状态功能
2.修复任务运行中途关闭程序时出错
3.修复有时不能正常发布状态
使用说明：
第一次使用请先配置，并保存
使用时，先点击登录，
然后根据需要修改时间间隔和次数
最后点击发布
软件就会不断的发布你的内容到易班的状态上
升级会员 