QQ农场源码.docVIP

农场源码（delphi版） interface uses Windows, SysUtils, Classes, StdCtrls, IdBaseComponent, IdComponent, StrUtils, ExtCtrls, IdTCPConnection, IdTCPClient, IdHTTP, jpeg, IdAuthentication, IdHash, IdHashMessageDigest, PublicFunctions, IniFiles, Forms, ComCtrls, SHDocVw, Dialogs, Variants, DateUtils; const //QQ校友农场 Const_QQxyHost = ; //QQ空间农场 Const_QQqzone = ; //登录用的字符串 Const_PostLoginInfo = u=%sp=%sverifycode=%s; Const_PostLoginStr = aid1=http%3A%2F%2F%2Findex.php%3Fmod%3D+ loginfp=h=1ptredirect=1ptlang=0from_ui=1dumy=1; //操作农场时,IdHTTP Referer 的值 通过GetFlaseVersion得到 IdHTTP Referer的全部字串 Const_Flase_Version = /happyfarm/module/#39;; //FarmKey的形式 Const_farmKey = farmTime=%dfarmKey=%s; //读取好友列表 Const_FriendsRefresh = refresh=truefarmTime=%dfarmKey=%s; //自己ID,名字,时间,对方名称,farmKey Const_Action = farmKey=%sfName=%sownerId=%dfarmTime=%dtName=%splace=%d; //Cookie的组成 Const_Cookie = Cookie: appTips=1; pt2gguin=%s; uin=%s; skey=%s; ptcz=%s; pvid=%s; name=%s; schooltype=0; province=11; pst=%d; flv=10.0;; //升一级加多少经验 CONST_OneLevelNum = 200; //取FarmKey时,时间延后多少秒 Const_DelayFarmTime = 10; type //背包类型 0仓库 1商店 2包裹 TBagsType = (farm_Warehouse, farm_Goods, farm_Bag); //动作类型 0偷取 1杀虫 2浇水 3除草 4收获 // 5松土 6种植 7全部卖出 8购买种子 // 9查看消息 10所有动作(在PostAction中没有实现义意,不作操作) TActionType =(Action_scrounge, Action_spraying, Action_water, Action_clearWeed, Action_harvest, Action_scarify, Action_planting, Action_Sale, Action_SaleAll, Action_Buy, Action_getAllInfo, Action_ALL_OPP); var QQ_Cookie, VerifySession, farmKey, ConnHost, Cookie_pt2gguin, Cookie_uin, Cookie_skey, Cookie_ptcz, Cookie_pvid, Cookie_name, FlaseVersion: string; farmTime, Cookie_pst: int64; //服务器时间 本地时间 本地时间与服务器的时间差 QQ_ServerTime, Loc_ServerTime, DelayedDpikeInt : integer; //将本地时间转成QQ服务器时间 function DateTimeToServerTime