C# Delphi´¦Àí·ÖÎöQQÐÒé
C# Delphi´¦Àí·ÖÎöQQÐÒé
¡¡´ó¼Ò˵µ½QQÐÒ鶼¾õµÃºÜÉñÃØ£¬ÊÇÒòΪQQ²»ÏñMSN»òÕßICQÐÒ鶼ÒѾ¹Ù·½¹«²¼ÁË£¬¶øQQµÄûÓй«²¼¡£Ñо¿ËüµÄÈËÒ²²»ÊÇÌرðµÄ¶à£¬ËäÈ»ÒѾÓÐÁË»ùÓÚ QQÐÒéËùд³ÉµÄµÚÈý·½Èí¼þ foicq, qq plugins for gaim, LumaQQ£¬µ«ÊÇÓÉÓÚËûÃÇÊÇ»ùÓÚ¶þ½øÖÆStreamµÄÐÒé¹ýÓÚ¸´ÔÓ£¬´ó¼ÒÔĶÁ´úÂëÒ²ÓÐÒ»¶¨µÄÄѶȣ¬ÔÙ¼ÓÉÏÍøÂçÉϽâÎöQQÐÒéµÄÎÄÕÂÒ²²»ÊÇÊ®·Ö¶à£¬ËùÒÔ»ùÓÚQQÍøÂçÐÒéµÄÓ¦ÓóÌÐòÒ²ÊÇÁÈÁÈÎÞ¼¸µÄ¡£ÏÖÔÚÎҾͰѻùÓÚHTTPµÄQQÐÒé½øÐÐÒ»¸ö´ÖdzµÄÆÊÎö£¬Ï£Íû¶Ô´ó¼ÒÓÐËù°ïÖú¡£Ô´Â벿·Ö¾ÍÓÃÎÒϲ»¶µÄDELPHI ºÍÏÖÔڱȽÏÁ÷ÐеÄC#ÓïÑÔ¶ÔQQÐÒéµÄʵÏÖ½øÐоßÌå·ÖÎö¡£
¡¡¡¡1¡¢ÕÒÑ°Ö§³ÖQQ HTTPÐÒéµÄ·þÎñÆ÷¡£
¡¡¡¡´ó¼ÒÒ²Ðí»á±»Ò»Ð©¼ÙÏñËùÃÔ»ó£¬Ò²Ðí»áÈÏΪQQµÄHTTP·þÎñÆ÷ÊÇ»ùÓÚ80¿Ú½øÐÐͨÐŵÄ(È磺218.17.209.23:80)£¬Æäʵ²»È»£¬ÕýÕæ»ùÓÚHTTPµÄ·þÎñÆ÷Ó¦¸ÃÊÇ£ºhttp://tqq.tencent.com:8000£¬ËüÊÇÒ»¸öͨ¹ý8000¿Ú½øÐÐͨѶµÄ·þÎñÆ÷¡£
¡¡¡¡ÓÉÓÚQQµÄHTTP·þÎñÆ÷²¢²»Ö§³ÖHTTPÐÒéÖÐGET·½·¨£¬ËüÖ§³ÖPOST·½·¨¡£ËùÒÔÎÒÃÇÒª¸øQQµÄHTTPÐÒé´«²ÎÊý£¬ÄÇô¾Í±ØÐèÒªÓÃPOST·½Ê½²ÅÐС£
¡¡¡¡2¡¢C#ºÍDELPHIÊÇʵÏÖHTTPµÄPOST·½·¨µÄͨÐÅ¡£
¡¡¡¡C#£º
¡¡¡¡C#ÀïSystem.Web¿Õ¼äÏÂÌṩÁËÒ»¸ö½Ð×öWebClientµÄ¶ÔÏó£¬Ê¹Óô˶ÔÏó¾Í¿ÉÒÔʹC#Ö±½Ó¶Ô·þÎñÆ÷·¢ËÍWEB¿Í»§¶ËµÄÇëÇó¡£ÄÇôÎÒÃÇÒª¶Ô·þÎñÆ÷Ìá½»POST·½·¨ÄÇô¾Í±ØÐëʹÓÃÆäUploadData()·½·¨²ÅÐС£Ê×ÏÈ°ÑÒªÇëÇóµÄÐÅÏ¢ÏÈת»»Îª×Ö½Ú(ÒòΪPOSTÌá½»µÄÊÇ×Ö·ûµÄÁ÷Êý¾Ý)£¬È»ºóÔÙ×öΪUploadData()µÄ²ÎÊý¡£Ê¹ÓÃUploadData()½øÐÐÊý¾ÝÌá½»£¬×îºó·µ»Ø£¬POSTµÄ»ØÀ¡ÐÅÏ¢¡£ÈçÏ£º
¡¡WebClient _client = new WebClient();
¡¡¡¡string postValues = "VER=1.0&CMD=Query_Stat&SEQ=12321&UIN=29501213&TN=50&UN=0";
¡¡¡¡Byte[] byteArray = System.Text.Encoding.ASCII.GetBytes(postValues);
¡¡¡¡Byte[] pageData = _client.UploadData(Host,"POST",byteArray);
¡¡¡¡ÕâÑù£¬ÎÒÃǾÍÀûÓÃC#½øÐÐÁËÒ»´ÎHTTPµÄPOST·½·¨Ìá½»ÁË¡£
¡¡¡¡DELPHI£º
¡¡¡¡DelphiÀïÎÒÃÇÀûÓÃÒ»¸ö±È½ÏÁ÷ÐеĵÚÈý·½VCL£¬INDY HTTP(Õâ¸ö×é¼þD6£¬D7ÀïÃæ×Ô´ø)½øÐÐHTTPͨÐÅ¡£Ê¹ÓÃÆäµÄPOST·½·¨±ã¿ÉÒÔ½øÐÐHTTPµÄPOSTͨÐÅ£¬ÒòΪ×é¼þ±È½ÏºÃÓã¬ÎҾͲ»ÔÚÆäÃèÊö¾ßÌåµÄ¹ý³ÌÁË¡£´ó¼Ò¿ÉÒԲο¼ÒÔÏ´úÂ룺
¡¡
¡¡function PostWebPage(url,para:String;TimeOut:Integer):String;
Ïà¹ØÎĵµ£º
ÏÂÃæÊÇдcookie
1 HttpCookie cookie = new HttpCookie("Info");//¶¨Òåcookie¶ÔÏóÒÔ¼°ÃûΪInfoµÄÏî
2 DateTime dt = DateTime.Now;//¶¨Òåʱ¼ä¶ÔÏó
3 TimeSpan ts=new TimeSpan(1,0,0,0);//cookieÓÐЧ×÷ÓÃʱ¼ä£¬¾ßÌå²émsdn
4 cookie.Expires = dt.Add(ts);//Ìí¼Ó×÷ÓÃʱ¼ä
5 cookie.Values.Add("user","cxbkkk");//Ôö¼ ......
ÔÚDelphi×Ô´øµÄIndy¿Ø¼þÖÐÆäʵÊÇÌṩÁËMD2,MD4,MD5¶ÔÏóµÄ£¬ÎÒÃÇ¿ÉÒÔÖ±½ÓʹÓÃËüÃÇÀ´Íê³ÉMD5µÄÇ©ÃûËã·¨¡£¶ø²»ÐèÒªÔÙÈ¥ÕÒÆäËüµÄ
DLL»òÊÇPasÁË¡£
ÔÚUsesµ¥ÔªÖÐÒýÓà IdHashMessageDigest,IdGlobal, IdHash µ¥Ôª£¬ÔÙдÈçÏ´úÂë¼´¿ÉÒÔ´ïµ½MD5µÄʵÏÖ¡£
ʾÀý´úÂë
procedure TForm1.Button1Click(Sen ......
Delphi ÖÐ FindWindow ºÍ FindWindowEx µÄÓï·¨ºÍÓ÷¨
FindWindow(
lpClassName, {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND; {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWin ......
public string NoExcuteHtml(string Htmlstring)
{
string x = string.Empty;
x = Htmlstring.Replace(@"&", "&");//½«&ÉèÖÃΪ±£Áô×Ö
x ......
1¡¢DateTime Êý×ÖÐÍ
System.DateTime currentTime=new System.DateTime();
1.1 È¡µ±Ç°ÄêÔÂÈÕʱ·ÖÃë
currentTime=System.DateTime.Now;
1.2 È¡µ±Ç°Äê
&nb ......