苹果iCloud登陆例子

用返回的cookie就可以操作iCloud所有功能了

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码

登陆 (“”, “”)
返回 (0)  ' 返回值被忽略。

.子程序 登陆
.参数 UserName, 文本型
.参数 PassWord, 文本型
.参数 错误信息, 文本型, 参考 可空
.局部变量 url, 文本型
.局部变量 提交协议头, 文本型
.局部变量 返回协议头, 文本型
.局部变量 返回cookie, 文本型
.局部变量 str, 文本型
.局部变量 数据, 文本型
.局部变量 Token, 文本型
.局部变量 json, 类_json

url ＝ “https://idmsa.apple.com/appleauth/auth/signin?isRememberMeEnabled=true”
提交协议头 ＝ “X-Apple-Widget-Key: d39ba9916b7251055b22c7f910e2ea796ee65e98b2ddecea8f5dde8d9d1a815d” ＋ #换行符 ＋ “Accept: application/json, text/javascript, */*; q=0.01” ＋ #换行符 ＋ “Content-Type: application/json” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36”
数据 ＝ “{” ＋ #引号 ＋ “accountName” ＋ #引号 ＋ “:” ＋ #引号 ＋ UserName ＋ #引号 ＋ “,” ＋ #引号 ＋ “rememberMe” ＋ #引号 ＋ “:false,” ＋ #引号 ＋ “password” ＋ #引号 ＋ “:” ＋ #引号 ＋ PassWord ＋ #引号 ＋ “,” ＋ #引号 ＋ “trustTokens” ＋ #引号 ＋ “:[]}”
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 1, 数据, , , 提交协议头, 返回协议头, , , , , , , , , , , ))
json.解析 (str)
.如果真 (json.取通用属性 (“authType”) ≠ “sa”)
    错误信息 ＝ json.取通用属性 (“serviceErrors[0].message”)
    .如果真 (错误信息 ＝ “”)
        错误信息 ＝ “未知错误”
    .如果真结束

.如果真结束

Token ＝ 网页_协议头_取信息 (返回协议头, “X-Apple-Repair-Session-Token”)
调试输出 (Token)
url ＝ “https://setup.icloud.com/setup/ws/1/accountLogin?clientBuildNumber=2211Hotfix18&clientMasteringNumber=2211Hotfix18”
提交协议头 ＝ “Origin: https://www.icloud.com” ＋ #换行符 ＋ “Content-Type: text/plain” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36”
数据 ＝ “{” ＋ #引号 ＋ “dsWebAuthToken” ＋ #引号 ＋ “:” ＋ #引号 ＋ Token ＋ #引号 ＋ “,” ＋ #引号 ＋ “accountCountryCode” ＋ #引号 ＋ “:” ＋ #引号 ＋ “CHN” ＋ #引号 ＋ “,” ＋ #引号 ＋ “extended_login” ＋ #引号 ＋ “:false}”
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 1, 数据, , 返回cookie, 提交协议头, , , , , , , , , , , , , ))
调试输出 (返回cookie)  ' 用返回cookie就可以操作iCloud里的所有功能了

@A调试输出