Introduction - If you have any usage issues, please Google them yourself
QQ space and alumni of the farm-related code, Delphi versions. Is not a complete program can be compiled. Only as a reference! Consider carefully and then download, do not casually curse!// Web-form log on QQ function LoginQQ (aIdHTTP: TIdHTTP aUserNameStr, aPasswordStr, aVerifyStr: string var aWebStr: string): Boolean // login QQ alumni community function LoginQQxiaoyou (aIdHTTP: TIdHTTP): Boolean // get its own farm data function GetMyFarmLandDB (aIdHTTP: TIdHTTP var aWebStr: string): Boolean // get friends list data function GetFriendsListDB (aIdHTTP: TIdHTTP var aWebStr: string): Boolean // get friends farm data function GetFriendFarmLandDB (aIdHTTP : TIdHTTP aUserID: integer var aWebStr: string): Boolean // return rating calculated level function ResultLevel (aSumExp: integer var aNowExp, aOutLevelMaxExp: integer): integer // analysis of the data warehouse store backpack aType 0 Warehouse 1 store 2 backpack function PostBagsBD (aIdHTTP: TIdHTTP var aWebStr: s