把机器由多写少 再由少写多。。。

龙

.

夜

目前正在往少的地方写……

zeea

啊？

成果

呵呵

取消足球打乒乓

少的好些。

mok12

呵呵

凡夫

什么

凡夫

拾风

嗯  还停留在初期

丶恰似东流

机器少，功能多

丶恰似东流

飞龙，你的那个post安卓登陆到底咋个写法？

魔

加油

龙

丶恰似东流 发表于 2014-5-4 03:34
飞龙，你的那个post安卓登陆到底咋个写法？

1.     Public Shared Function ClientLogin(ByVal wc As WizardHTTP, ByVal id As String, _
   
2.                                        ByVal pw As String, ByVal vcode As String, _
   
3.                                        ByVal vmd5 As String) As LoginResult
   
4.         Dim cid As String = GetStampMobile(True)
   
5.         Dim poststr As String = "_client_id=" + cid + "&_client_type=2&_client_version=1.0.1&_phone_imei=000000000000000" + _
   
6.                   "&from=baidu_appstore&isphone=0&net_type=1&passwd=" + ToBase64(pw) + "&un=" + id + _
   
7.                   "&vcode=" + vcode + "&vcode_md5=" + vmd5
   
8.         Dim sign As String = MD5Encrypt(poststr.Replace("&", "") + "tiebaclient!!!", Encoding.UTF8)
   
9.         poststr = "_client_id=" + cid + "&_client_type=2&_client_version=1.0.1&_phone_imei=000000000000000" + _
   
10.                   "&from=baidu_appstore&isphone=0&net_type=1&passwd=" + ToBase64(pw) + "&un=" + _
    
11.                   URLEncoding(id, Encoding.UTF8) + "&vcode=" + vcode + "&vcode_md5=" + vmd5 + "&sign=" + sign
    
12.         wc.SetDefaultHeader(True)
    
13.         Dim retstr As String = wc.UploadString("http://c.tieba.baidu.com/c/s/login", poststr)
    
14.         Dim json As JsonData = JsonMapper.ToObject(retstr)
    
15. 
    
16.         vmd5 = ""
    
17.         Dim ndvcode As Integer
    
18.         Try
    
19.             ndvcode = json.Item("anti").Item("need_vcode")
    
20.         Catch ex As Exception
    
21.             ndvcode = 0
    
22.         End Try
    
23.         If ndvcode = 1 Then  '需要验证码
    
24.             vmd5 = json.Item("anti").Item("vcode_md5")
    
25.         End If
    
26. 
    
27.         Dim errno As String = json.Item("error_code")
    
28.         If errno <> "0" Then
    
29.             Dim errmsg As String = json.Item("error_msg")
    
30.             Return New LoginResult(Convert.ToInt32(errno), errmsg, vmd5, "")
    
31.         Else
    
32.             Dim cookie As String = "BDUSS=" + CType(json.Item("user").Item("BDUSS"), String)
    
33.             Return New LoginResult(0, "", "", cookie)
    
34.         End If
    
35.     End Function

复制代码

其中有很多我自定义的函数啥的。。凑和着看吧

药诗妮

- -大神

灬不煽情丶

54青年节快乐

丶恰似东流

龙 发表于 2014-5-4 21:37
其中有很多我自定义的函数啥的。。凑和着看吧

嗯嗯，好东西，我看看转换成易语言的函数能转成不，无奈英语不咋好

丶恰似东流

龙 发表于 2014-5-4 21:37
其中有很多我自定义的函数啥的。。凑和着看吧

嗯嗯，好东西，我看看转换成易语言的函数能转成不，无奈英语不咋好