The Arcive of Official vBulletin Modifications Site.It is not a VB3 engine, just a parsed copy! |
|
#1
|
|||
|
|||
![]()
Well im on the run.. but im stuck on the posting thread part
Code:
<!--#include file="encryption/md5.asp"--> <% 'Response.Buffer = True Dim objXMLHTTP, xml, strUsername, strPassword strHost = "http://host/" strUsername = "blahblah" strPassword = "blahblah" Set xml = Server.CreateObject("Microsoft.XMLHTTP") ' login procedure strPost = "?vb_login_username=" & strUsername strPost = strPost & "&cookieuser=0" strPost = strPost & "&s=" strPost = strPost & "&do=login" strPost = strPost & "&forceredirect=1" strPost = strPost & "&vb_login_md5password=" & MD5(strPassword) ' login to the board xml.Open "POST", strHost & "/login.php" & strPost, False xml.Send response.Write "<h3>Login screen " & xml.Status & "</h3>" Response.Write xml.responseText ' post procedure strSubject = "dsdsdsdasdasdasd" strBody = "dsadsadassdaaaaaaaaaaaaaaaaeweefefeff" strPost = "?do=postthread" strPost = strPost & "&f=15" strPost = strPost & "&subject=1" strPost = strPost & "&message=1" strPost = strPost & "&poststarttime=" & UDate(now()) strPost = strPost & "&signature=1" strPost = strPost & "&parseurl=1" strPost = strPost & "&disablesmilies=1" strPost = strPost & "&sbutton=Submit New Thread" ' post message xml.Open "POST", strHost & "/newthread.php" & strPost, False xml.setRequestHeader "Referer:",strHost & "/newthread.php?do=newthread&f=15" xml.Send response.Write "<h3>After submit screen " & xml.Status & "</h3>" Response.Write Replace(xml.responseText,"Refresh","") Set xml = Nothing function UDate(oldDate) UDate = DateDiff("s", "01/01/1970 00:00:00", oldDate) end function %> ![]() |
|
|
X vBulletin 3.8.12 by vBS Debug Information | |
---|---|
|
|
![]() |
|
Template Usage:
Phrase Groups Available:
|
Included Files:
Hooks Called:
|