Code: Select all
Let>HTTP_CHARSET=UTF-8
Let>PostData=test=Nhạc Sàn Cực Mạnh 2016 - Chất Gây Mê Dành Cho Đám Cưới Phê Tới Sáng
HTTPRequest>http://www.domain.com/vinsert.php,,POST,PostData,doneadd,,,,
Moderators: Dorian (MJT support), JRL
Code: Select all
Let>HTTP_CHARSET=UTF-8
Let>PostData=test=Nhạc Sàn Cực Mạnh 2016 - Chất Gây Mê Dành Cho Đám Cưới Phê Tới Sáng
HTTPRequest>http://www.domain.com/vinsert.php,,POST,PostData,doneadd,,,,
Code: Select all
VBSTART
Dim JSEngine
Set JSEngine = CreateObject("MSScriptControl.ScriptControl")
JSEngine.Language = "JScript"
Function UrlEncode(s)
UrlEncode = JSEngine.CodeObject.encodeURIComponent(s)
UrlEncode = Replace(UrlEncode, "'", "%27")
UrlEncode = Replace(UrlEncode, """", "%22")
End Function
Function UrlDecode(s)
UrlDecode = Replace(s, "+", " ")
UrlDecode = JSEngine.CodeObject.decodeURIComponent(UrlDecode)
End Function
VBEND
Let>PostData=test=Nhạc Sàn Cực Mạnh 2016 - Chất Gây Mê Dành Cho Đám Cưới Phê Tới Sáng
VBEval>URLEncode("%PostData%"),encPostData
HTTPRequest>http://www.domain.com/vinsert.php,,POST,encPostData,doneadd,,,,