vbÔõô´ò¿ª×ÀÃæÉϵĿì½Ý·½Ê½
±ÈÈç´ò¿ªÎҵĵçÄÔ£¬¿í´øÁ¬½Ó£¬ Ãû³ÆÎª¡°Ñ¸À×5¡±µÄ×ÀÃæ¿ì½Ý·½Ê½£¬Ãû³ÆÎª¡°d.exe"µÄ¿ì½Ý·½Ê½£¬»¹ÓÐÒ»¸öÃû×ÖΪ¡°µ½¡±µÄÎļþ¼Ð ¡£ ÕâЩ¶¼ÊÇÔÚ×ÀÃæÉϵģ¬ ´ò¿ªµÄ´úÂëÊÇ shell+ c:\```×ÀÃæ\ÎļþÃûÂð ºÃÏñÓеIJ»ÐÐ
´ò¿ª¿ì½Ý·½Ê½Â𣿠Shell "Rundll32.exe url.dll, FileProtocolHandler c:\```×ÀÃæ\ÎļþÃû" ÄãдµÄ´úÂë²»ÄÜÓ𡣬µãÏÂÈ¥ºóû³ö´í£¬Ò²Ã»´ò¿ªÈκζ«Î÷ ÉÏÃæµÄ·½·¨¿ÉÒÔÁË£¬¿í´øÁ¬½ÓÔõô´ò¿ªÄØ ¿í´øÁ¬½Ó£¿¡¡ ÎҵĴúÂëÊÇ´ò¿ª*.LnkÎļþµÄ ½¨ÒéÄã¼Óµã·ÖÔÙ·¢¸öÌûÎÊÎÊ£¬0·ÖµÄºÜÉÙÓÐÈ˻شð ÕâÀïµÄÈ˶¼ºÜÊÆÁ¦µÄ-3- ²ÅÔÚÒÉ»ó ÔõôûÈË »Ø´ðÄØ····ÒýÓà ´ò¿ª¿ì½Ý·½Ê½Â𣿠Shell "Rundll32.exe url.dll, FileProtocolHandler c:\```×ÀÃæ\ÎļþÃû" ÊÇѽ£¬Óò»ÁËÑÇ£¬µãÁËû·´Ó¦ û·Ö ²»¸æËßÄãŶ ¡£¡£¡£
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡ ²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£ Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click MouseWait() Dim ClearTempTabelSQL As String 'If Not ......