FileForums - View Single Post - On the problem of modifying the black box script

rinaldo · #2 13-03-2018, 07:28

Code:

procedure LogoLabelOnClick(Sender: TObject);
var
 ErrorCode: Integer;
begin
  MsgBox(('                                     »¶Ó*Ê¹ÓÃGBTÐ¡×éÏµÁÐ×÷Æ·')+ #13#10#13#10 +(
  'GBTÐ¡×é³ÉÁ¢ÓÚ2004Äê2ÔÂ£¬´ó¼Ò¶¼ÊÇ±¾×ÅÈÈ°®ÓÎÏ·Ëù³ÉÁ¢µÄÖÆ×÷ÓÎÏ·Ð¡×é¡£Ð¡×é')+ #13 +(
  'µÄÓ²ÅÌ°æÆäÓÅµãÑ¹Ëõ±ÈÂÊ¸ß¡¢ÎÞÑË¸î½µÖÊ°æ¡¢ÎÞ¹ã¸æ²å¼þ¡¢ÕûºÏÁË×îÐÂµÄÉý¼¶²¹¶¡')+ #13 +(
  '¼°DLCÄÚÈÝ¡¢×Ô´øÓÎÏ·²¹¶¡ÐÞ¸Ä¹¥ÂÔµÈ£¬²âÊÔÑÏ½÷¡¢ÎÞ³¥·ÖÏí£¬Ò»Ö±ÎªÐí¶àÍæ¼ÒËù')+ #13 +(
  'ÈÈ°®×·Åõ¡£')+ #13#13 +(
  'GBTÐ¡×é·¢²¼µÄ×ÊÔ´ÖÚ¶à£¬¸÷´óÓÎÏ·ÍøÕ¾ºÍÂÛÌ³£¬¶¼ÓÐ´óÁ¿×ªÔØ¡£±»Íæ¼Ò³ÆÎª£º¡°')+ #13 +(
  '¹úÄÚ×î¾ßÊÕ²Ø¼ÛÖµ¡±µÄÓÎÏ·ÖÆ×÷Ð¡×é.')+ #13#13 +(
  'GBTÐ¡×éÇ°ºó³ÉÔ±¹²¼ÆÈýÊ®ÓàÈË£¬Ö÷ÒªÒÔÖÐÎÄÓÎÏ··â×°ÎªÖ÷£¬Ð¡×éµÄÖ÷Òª³ÉÔ±')+ #13 +(
  'renxufeng£¨ÏãË®£©£¬´ÓBTÖ®¼Ò¿ªÊ¼×ö°æÖ÷¡¢×Ü°æ¡¢³ÇÖ÷¡¢ÏÖÈÎÎªÓ°¿ÕµÄ³¬°æ£¬')+ #13 +(
  'Ëû´øÁì²¢ÍÆ¹ãÐ¡×éÆð×Å¹¦²»¿ÉÃ»µÄ×÷ÓÃ.')+ #13#13 +(
  'ÖÆ×÷µÄÓÎÏ·´ó´óÐ¡Ð¡ÓÚÇ§¿îÖ÷Á÷×÷Æ·£¨Ö÷Òª´ú±í×÷£ºÐùÔ¯½£ÏµÁÐ¡¢ÏÉ½£ÏµÁÐ¡¢¼«Æ·')+ #13 +(
  'ÏµÁÐ¡¢¹íÆüÏµÁÐ¡¢¹ÅÄ¹ÀöÓ°ÏµÁÐ¡¢Éú»¯Î£»úÏµÁÐ¡¢Ê¹ÃüÕÙ»½ÏµÁÐµÈ£©¡£')+ #13#13 +(
  'Ð¡×é³ÉÁ¢ÒÔÇ°ÊÇBTÖ®¼Ò£¬Ä¿Ç°¾*¹ý¸Ä¶à´Î°æÃûÎªÓ°¿Õ£¬ÏÖÔÙ´Î»Ö¸´ÎªBTÖ®¼ÒÓò')+ #13#10 +(
  'Ãû¡£ÁíÍâÍæ¼ÒÒ²¿ÉÒÔÍ¨¹ýGBTÐ¡×éµÄÓÎÏ·¿Õ¼äÀ´¶¨ÆÚ²é¿´×îÐÂµÄÓÎÏ·×ÊÔ´ÏÂÔØ¡£')+ #13#13 +(
  'Ð¡×éÖ÷Òª³ÉÔ±£ºÏãË®¡¢Jojo531¡¢ 1ove¡¢ µØÓü¿þÀÜÊ¦¡¢ÐÞÁËÍõÒ»Æ½¡¢¶ñ¹í¡¢²»ÏÂ')+ #13 +(
  'Ñ©µÄ¶¬Ìì¡¢Ð¡ÐÂ¡¢ hebaoxiong¡¢ÉñÕß¡¢ s010154¡¢Billyo¡¢ÀÏÂóÄ£ÐÍ¡¢ÂÌ¹âÉ*')+ #13 +(
  'ÁÖ¡¢²×º£¡¢Ð¡Àî×Ó¡¢²»ËÀ±ð¼§¡¢Æ¤Æ¤¡¢ÑªÖñ¡¢Ð¡Óî¡¢Ð¡ÅÖ¡¢Ä«Óã¡¢Ð¡Ð¡¡¢ºï×Ó¡¢»Æ')+ #13 +(
  'ºÓÀïµÄÕ¨¸â¡¢Ð¡Íõ¡¢ºÚÒø¡¢ÄûÃÊÃÛ²è¡¢TMSLiuµÈ¡£')+ #13#13#13 +(
  'GBTÐ¡×é´ó±¾Óª£º')+ #13#13 +(
  'Ô*´´·¢²¼Çø£ºhttps//www.gscq.me/forum-3.htm')+ #13 +(
  'Ð¡×éÓÎÏ·¿Õ¼ä£ºhttp://renxufeng.ys168.com/'), mbConfirmation, MB_OK);
  ShellExec('open', '{#AppURL}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

change $50 to MB_OK