graha_karya
New Member
i have problem i dont know where is user name and pasword i am using live header to record login and url
i want split user dan pasword using textbox but i dont know where is pasword and user
"__user=0&__a=1&__dyn=7xe6FomK36Q5E5ObGexe8BWo5O12wAxu13wqovzEdEc8uw9-3K4o1j8hwem0nCq1ewcG0KEswdC1nwlU-cw5MKdwnU1oU881FU2YxW&__csr=&__req=6&__beoa=0&__pc=PHASED:DEFAULT&dpr=1&__rev=1001652549&__s=7tjb0q:1e86zy:x0q7yk&__hsi=6787310697084200233-0&lsd=AVqgWJtS&jazoest=2727&__spin_r=1001652549&__spin_b=trunk&__spin_t=1580293918"
i want split user dan pasword using textbox but i dont know where is pasword and user
"__user=0&__a=1&__dyn=7xe6FomK36Q5E5ObGexe8BWo5O12wAxu13wqovzEdEc8uw9-3K4o1j8hwem0nCq1ewcG0KEswdC1nwlU-cw5MKdwnU1oU881FU2YxW&__csr=&__req=6&__beoa=0&__pc=PHASED:DEFAULT&dpr=1&__rev=1001652549&__s=7tjb0q:1e86zy:x0q7yk&__hsi=6787310697084200233-0&lsd=AVqgWJtS&jazoest=2727&__spin_r=1001652549&__spin_b=trunk&__spin_t=1580293918"
>>> use code - tags <<<
Code:
Public data As String
Function test(Murl As String, postdata As String)
Dim whttp As New WinHttpRequest
With whttp
.Open "POST", Murl
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.SetRequestHeader "content-length", Len(postdata)
.Send
'"__user=0&__a=1&__dyn=7xe6FomK36Q5E5ObGexe8BWo5O12wAxu13wqovzEdEc8uw9-3K4o1j8hwem0nCq1ewcG0KEswdC1nwlU-cw5MKdwnU1oU881FU2YxW&__csr=&__req=6&__beoa=0&__pc=PHASED:DEFAULT&dpr=1&__rev=1001652549&__s=7tjb0q:1e86zy:x0q7yk&__hsi=6787310697084200233-0&lsd=AVqgWJtS&jazoest=2727&__spin_r=1001652549&__spin_b=trunk&__spin_t=1580293918"
data = .ResponseText
MsgBox data
End With
End Function
Sub testlog()
test "https://www.facebook.com/?stype=lo&jlou=AfeouWtx7PmHTyMyg6TlVk1v4Aw6zW-IkYth1YXkX9BQklCojtBlhK3pFqokmP7Myg9QmKoIp1PYE_wxAKYnKN98r9ATEcuUOPOPTdrmLKEegw&smuh=24238&lh=Ac98O2GyA3j-iLmQ", _
"__user=0&__a=1&__dyn=7xe6FomK36Q5E5ObGexe8BWo5O12wAxu13wqovzEdEc8uw9-3K4o1j8hwem0nCq1ewcG0KEswdC1nwlU-cw5MKdwnU1oU881FU2YxW&__csr=&__req=6&__beoa=0&__pc=PHASED:DEFAULT&dpr=1&__rev=1001652549&__s=7tjb0q:1e86zy:x0q7yk&__hsi=6787310697084200233-0&lsd=AVqgWJtS&jazoest=2727&__spin_r=1001652549&__spin_b=trunk&__spin_t=1580293918"
End Sub
Last edited by a moderator: