代码如下:
Dim url1 = "http://clogin.ke.com/authentication/authenticate"
Dim data = {"mainAuthMethodName":"username-password","credential":{"username":"13232213874","password":"F0QusMkDkh8Lbh9i26LkVMMTgTtHQOkiuEM+FwjlXQ73SoAMGiq+QrS+AnzKBZeViISSCxZFlniR7Xr0gCF9L2q6YqwtM+VLoSg/mBt+DFA1wPRhyrLw0ILSZaZB5fTmdKnn8AKiglmN/QOAXGhLLFylYrcelHY36zmajS+3leY=","encodeVersion":"1"},"srcId":"eyJ0Ijoie1wiZGF0YVwiOlwiZWY1NDhiODBiY2ZjMmZlMDFiMGJiMjQ3Mzc0MWU0NDA0ODRhYjRmMDJhZjZjOWNlZTE3ZjRmMGQwZDBiMjQ2YTVlZjc1YjRlMzI0Mjc1OTQxZWU3MDZlZDk1MTYwYzkwNmVhMTAxODcyOGRkMGYyYzAyNDY1NzdhYzUwYWFmMmE3MWZkN2VhMmM4YTRlMzhmMjc2MjdhMzk4YzNiNTdkODAxZjc0ZDM5ZjM5MjQ3MGRlNzFjNzlhZjAzZDE1MmRmZTkwY2RlZjY0ZGU1MTEyYWRiNmQwMGVmOTEwMTFmZDc1MzhiMTcxMDgxNjdmMjcyYmQ5MWUwODEwZGRhNWE2MDZmZDUwNGYwNzk2NjQ2NzdiMmFjYjczN2M4NzkwOWE4YzczMTdjNjMyZGZiNjdmZmJkODEyNTM2YzZmYTM5ZWRcIixcImtleV9pZFwiOlwiMVwiLFwic2lnblwiOlwiMDliYjUxN2FcIn0iLCJyIjoiaHR0cDovL2Nsb2dpbi5rZS5jb20vbG9naW4/c2VydmljZT1odHRwJTNBJTJGJTJGbS5rZS5jb20lMkZteSUyRmNoZWNrbG9naW4lM0ZyZWRpcmVjdCUzRGh0dHBzJTI1M0ElMjUyRiUyNTJGbS5rZS5jb20lMjUyRm15JTI1MkZpbmRleCUyNTJGJnR5cGU9MiIsIm9zIjoid2ViIiwidiI6IjAuMSJ9","context":{"deviceId":"default","sign":"default"},"version":"2.0","accountSystem":"customer","service":"http://m.ke.com/my/checklogin?redirect=https%3A%2F%2Fm.ke.com%2Fmy%2Findex%2F","loginTicketId":"GWI6UEQrsbSy5VVMAptfdyfPAezRFjgI"}
data = CStr(data)
Dim 头信息值1 = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.80 Safari/537.36 Core/1.47.277.400 QQBrowser/9.4.7658.400"
Dim 头信息值2 = "application/json"
Dim date1 = {"url":url1,"data":data,"header":{"User-Agent":头信息值1, "Content-Type":头信息值2}}
Dim login = zm.HttpPost(date1)
TracePrint login