vb 如何利用COOKIE登录QQ空间

有账号A、B、C 三个账号，XMLHTTP登录后分别保存下COOKIE，用A发一条说说后，接操作B或C，如何使用B、C的COOKIE来使操作这个账号时让它在线，而不是再去执行一次登录呢？

也不清楚COOKIE中哪些数据是必需的，所以在这问问大家，谢谢

下面是登录一个账号后获取到的
pgv_pvid=7649893468; o_cookie=329366115; ac=1,030,015; pt2gguin=o2783738388; RK=FDejz7zRNw; ptcz=120992e2f400b8727dc9e496d5adcd2b692868778fd7801604640a3eb57ee933; confirmuin=0; ModNum=2; MaxW=4; Beast=1; 4D36E6A=1.373; 50DCB09D=1.374; 7D5A492F=1.375; safedog-flow-item=AE4D9D57D235717C3CD2BDB909541BB0; superuin=o0349356529; superkey=yKdjYwgDzHhG8xGReM11i3Z39netvd4X4*3PHE0rgWs_; supertoken=3167910922; ptuserinfo=efb98fe284b3722e79616e6720e2ad90; tphp_arr_nick=349356529%7CMzQ5MzU2NTI5; luin=o1802716552; lskey=0001000077f2c40f27518c50d9f3c1ba807541beac4ef1a86be7ce80f942f10b20405c73d1e7f68e0dd6b3a4; uin_cookie=2783738388; euin_cookie=ACC5EC20B753D85BF482A42357CAC92464DA86F1875DB14B; verifysession=h01cf1fa5965d39915c68e2d67f8f995658901e3bf60e3931d9f4f206539200539844299928bfab83c1; JSESSIONID=902DF98E77A1089100867C434B6098A8; pt_qlogincode=5; uin=o2783738388; skey=@DjPa51BF9; ptisp=cm; ptui_qstatus=2; ETK; superuin=o2783738388; supertoken=2764252411; ptuserinfo=32373833373338333838

Sub Main()
    Dim QQ As String
    Dim SS As String
    Dim skey As String
    Dim g_tk As String
    SS = "" '说说内容
    QQ = "" 'QQ号
    skey = "" 'cookie里有
    g_tk = GetBkn(skey)
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "POST", "http-//user.qzone.qq-com/q/taotao/cgi-bin/emotion_cgi_publish_v6?g_tk=" & g_tk, False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .setRequestHeader "Cookie", "uin=o" & QQ & "; skey=" & skey
        .Send "syn_tweet_verson=1&paramstr=1&who=1&con=" & SS & "&feedversion=1&ver=1&ugc_right=1&to_tweet=0&to_sign=0&hostuin=" & QQ & "&code_version=1&format=fs&qzreferrer=http%3A%2F%2Fuser.qzone.qq.com%2F" & QQ
    End With
End Sub
 
Function GetBkn(strSkey)
    With CreateObject("MSScriptControl.ScriptControl")
        .Language = "javascript"
        GetBkn = .Eval("var bkn=function(a){for(var c=5381,b=0,d=a.length;b<d;++b)c+=(c<<5)+a.charAt(b).charCodeAt();return c&2147483647};bkn('" & strSkey & "')")
    End With
End Function