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;
Ïà¹ØÎĵµ£º
¾àÀëÉÏһƪϵÁеÄÎÄÕÂÓÐÒ»¶Îʱ¼äÁË£¬¼ÙÖÕÓÚÊÇ·ÅÍêÁË£¡ÏÖÔÚÔÛ¼ÌÐøÔÚTEditÉÏ×öÎÄÕ£¬Í¬Ê±À´ÊìϤijЩWindowsµÄϵͳÏûÏ¢¡£ÏÖÔÚÎÒ½²µÄÊÇÈçºÎʵÏÖÒ»¸öÀàËÆQQ±à¼¿òµÄÑùʽ¡£
ÔÙ½²½â֮ǰ£¬ÏÈ»ØÀ¡Ç°¼¸ÆªÎÄÕÂÓÐЩÈËÌá³öµÄÎÊÌ⡣ͨ¹ýÇ°¼¸ÆªÎÄÕ£¬ÓкܶàÈ˹Ø×¢£¬Í¬Ê±Ò²ÓÐÈ˸øÁËһЩ½¨Òé¡£ËùÒÔÎÒÕâÀï˵Ã÷һϣ¬ÎÒÕâ¸ö×é¼ ......
delphi TWebBrowser×é¼þʹÓÃÏê½â
¸Ã×é¼þÊÇÒ»¸öä¯ÀÀÆ÷×é¼þ£¬¿ÉÒÔÏÔʾһ¸öÖ¸¶¨µØÖ·µÄÍøÒ³¡¢ÉèÖÃÍøÒ³´ò¿ªÊ±µÄÖ÷Ò³ÒÔ¼°¶ÔÍøÒ³½øÐÐÏà¹ØµÄ²Ù×÷£¬Í¬Ê±Ò²¿ÉÒÔ¶ÔHTMLÎļþ½øÐмôÇС¢¸´ÖÆ¡¢Õ³Ìù¡¢É¾³ýµÈ²Ù×÷¡£¸Ã
×é¼þÔÚInternet×é¼þÒ³ÖС£
  ......
ÔÚ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 ......