VB制作刷易班软件Word文档下载推荐.docx
- 文档编号:19761675
- 上传时间:2023-01-09
- 格式:DOCX
- 页数:15
- 大小:133.34KB
VB制作刷易班软件Word文档下载推荐.docx
《VB制作刷易班软件Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB制作刷易班软件Word文档下载推荐.docx(15页珍藏版)》请在冰豆网上搜索。
尠登陆成功,0
ExitSub
ext:
慃汬?
杳潂?
网络链接异常,或有其他错误?
瘠?
捸慬慭楴湯?
警告)
尠登陆错误,0
EndSub
Subdelay()'
1秒钟延时函数
Timer1.Enabled=True
DoWhileTimer1.Enabled=True
DoEvents
Loop
PrivateSubCommand2_Click()'
后退
WebBrowser1.GoBack
PrivateSubCommand3_Click()'
前进
WebBrowser1.GoForward
PrivateSubCommand4_Click()'
刷新
WebBrowser1.Refresh
PrivateSubCommand5_Click()'
发布
WebBrowser1.Navigateurlx1
Calldelay
DimiAsInteger
DimaAsInteger
慄整?
尠发布任务开始,0
runflag=True'
任务运行标志打开
Fori=1ToText2.Text
Calloutput
尠成功发布?
…?
…次,0
Calldelayx
Nexti
尠发布任务结束,0
runflag=False'
任务运行标志关闭
你可能尚未登录,或有其他错误?
runflag=False
Suboutput()
DimdataAsString
Callchoose(data)
WebBrowser1.Document.getelementbyid(msgTxt).Value=data
WebBrowser1.Document.getElementsByTagName(INPUT)(num2).Click
WebBrowser1.Document.getElementsByTagName(INPUT)(num2).Click'
确保发布成功
尠发布内容:
&
data,0
Subchoose(ByRefdataAsString)
i=Int(Rnd*2)+1
SelectCasei
Case1
data=strx1
Case2
data=strx2
Case3
data=strx3
EndSelect
PrivateSubCommand6_Click()
Form2.Show
PrivateSubCommand7_Click()'
自动回帖
IfText2.Text>
25Then
次数过多,会被认为是恶意刷帖子?
EndIf
IfText1.Text<
30Then
时间间隔太短,会被认为是恶意刷帖?
Callautolendtip
Subautolendtip()
WebBrowser1.Navigateurlx2
尠自动回帖任务开始,0
Calllendtip
尠第?
…次发帖,0
尠自动回帖任务完成,0
Sublendtip()'
登录发帖网址
OnErrorGoToext
'
敗?
潲獷牥?
慎楶慧整尠扢屳瀯扵楬桳愿敲?
?
尰
潄畣敭瑮朮瑥汥浥湥扴楹?
停瑟瑩敬?
嘮污敵?
尠自动发布测试(标题)
停瑟硥屴?
自动发布测试(正文)
Callchoose2(data)
WebBrowser1.Document.getelementbyid(P_text).Value=data
WebBrowser1.Document.getElementsByTagName(INPUT)(num3).Click
错误代码:
lendtip,请于作者联系?
尠回帖错误,0
Subchoose2(ByRefdataAsString)
data=stry1
data=stry2
data=stry3
PrivateSubCommand8_Click()
WebBrowser1.Document.getElementsByTagName(a)(11).Click
PrivateSubForm_Load()
慌敢?
灡楴湯?
尠用户名
尠密码
尠说点什么吧
Callformchange1
Call
Timer1.Enabled=False
Timer2.Enabled=False
timerx=0
Text1.Text=5
Text2.Text=100
runflag=False'
任务运行标志默认关闭
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
PrivateSubForm_Resize()'
改变窗口大小
IfWindowState<
>
1Then
PrivateSubForm_Unload(CancelAsInteger)'
退出前程序
Ifrunflag=TrueThen
獭?
任务正在运行中,确认关闭?
敲灳湯敳?
獭?
瘠兢敵瑳潩?
扶教乳?
尠退出)
SelectCaseresponse
CasevbYes
End
CasevbNo
Cancel=-1
PrivateSubText1_Click()
任务正在运行中,请勿更改配置?
WebBrowser1.SetFocus
Else
Text1.Text=\
PrivateSubText2_Click()
Text2.Text=\
PrivateSubText3_Click()
Text3.Text=\
PrivateSubTimer1_Timer()'
用于1秒钟延时函数
Subdelayx()'
长延时函数
timery=10
Timer2.Enabled=True
DoWhileTimer2=True
PrivateSubTimer2_Timer()'
用于长延时函数
timerx=timerx+1
Iftimerx=Text1.TextThen
EndIf
PrivateSubWebBrowser1_CommandStateChange(ByValCommandAsLong,ByValEnableAs
Boolean)'
判断可否后退,前进
If(Command=CSC_NAVIGATEBACK)Then
Command2.Enabled=Enable
If(Command=CSC_NAVIGATEFORWARD)Then
Command3.Enabled=Enable
Sub()
Dimname,passwordAsString
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&
strx3
Close#1
配置文件读取失败,检查配置文件?
尠配置文件读取失败,0
PrivateSubWebBrowser1_DownloadBegin()
WebBrowser1.Silent=True'
避免弹出对话框
PrivateSubWebBrowser1_DownloadComplete()
下面是窗口2的源码:
PrivateSubCommand1_Click()
------------保存设置----------------------------------------
\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
--------------设置更新------------------------------------------
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&
Form1.strx2&
Form1.strx3
Form1.urlx2=Text6.Text
Form1.stry1=Text7.Text
Form1.stry2=Text8.Text
Form1.stry3=Text9.Text
潆浲?
楌瑳?
尠修改配置,0
UnloadForm2
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.修复有时不能正常发布状态
使用说明:
第一次使用请先配置,并保存
使用时,先点击登录,
然后根据需要修改时间间隔和次数
最后点击发布
软件就会不断的发布你的内容到易班的状态上
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 制作 刷易班 软件