VB登录CRM系统(二)

大佬教程收集整理的这篇文章主要介绍了VB登录CRM系统(二)，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

通过sniffer得到CRM的认证文件为verifyuser.asp,并且成功后自动转向window.asp,事实上window.asp是个frame的文件,

包涵了三个页面,我们只需要它的main_frame,也就是desktop.asp

strFormData = "Loginname=" + Text1.Text + "&password=" + Text2.Text
Inet1.Execute "http://XXX/crm/verifyuser.asp","Post",strFormData,"Content-Type: application/x-www-form-urlencoded "
Do Until Inet1.StillExecuTing = false
DoEvents
Loop
WebBrowser1.Navigate "http://XXX/crm/desktop.asp"

这样简单的登录做好了,接下来要做的是自动回帖.用户的CRM是一个考勤BBS,主帖子以一周日期为名,要求自动能在当前日期的帖子中点击回复按钮即可,回复内容为空也行.

这里通过documentcomplete来判断是否下载完毕,并把内容存在Richtextbox1中

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,URL As Variant)

RichTextBox1 = WebBrowser1.Document.body.innerHTML

以下为如何获取准确的帖子id

t = Format(Now,"mm.dd")

i = instr(1,RichTextBox1.Text,t)

If RichTextBox1.Text = "" Then
SkinLabel3.Caption = "Get Null.(cause Manual)"
Exit Sub
End If
RichTextBox1 = Mid(RichTextBox1.Text,i - 91)
If Left(RichTextBox1.Text,4) <> "view" Then
SkinLabel3.Caption = "Format error.(cause code updatE)!"

Exit Sub
End If

'get board_id&reply_id

RichTextBox1 = Mid(RichTextBox1.Text,7)
zong_id = Left(RichTextBox1.Text,15)
RichTextBox1 = Mid(RichTextBox1.Text,19)
tiezi_id = Left(RichTextBox1.Text,10)
'MsgBox tiezi_id

WebBrowser1.Navigate "http://XXX/crm/Bbs/Reply.asp?UID=&ColumnTypeID=" & zong_id & "&ParentTypEID=" & tiezi_id & "&ReplyTypEID=" & tiezi_id & "&Quote="

最后用sniffer获得回帖submit的数据,用inet.excute给服务器.

strFormData = "Subject=RE%3A" & t & "%" & d & "&serialnumber=OA-00150-2008-12-17.5051538&szCoBBSCusObjectTypEID=OA-00150-2008"
strFormData = strFormData + "-12-17.6814801&Redirect=0&IsPopOutOnError=No&Style=" & zong_id & "&ParentTypEID=" & tiezi_id & "&dataType=2&HideDataType=2&font=%BF%C9%D1%A1%D4%F1"
strFormData = strFormData + "&size=%BF%C9%D1%A1%D4%F1&color=%BF%C9%D1%A1%D4%F1&TextBox_SymbolsMenu=%BF%C9%D1%A1%D4%F1&description=&Emotion=2&WordCount=0&CusReportCount=0"
Inet1.Execute "http://XXX/crm/Bbs/AddExe.asp","Content-Type: application/x-www-form-urlencoded "

至此,通讯部分已完成,剩下的就是按时间自动回帖,任务栏隐藏到托盘,以及用skinactive.ocx美化VB界面

******************************************************************************

PS:由于直接paste造成了中文乱码,大多注释部分没帖,

大佬总结

以上是大佬教程为你收集整理的VB登录CRM系统(二)全部内容，希望文章能够帮你解决VB登录CRM系统(二)所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。