千丝海阁

通过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", "Post", strFormData, "Content-Type: application/x-www-form-urlencoded "

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

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

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