VB³ÌÐò±ÀÀ£µ«Ã»ÓÐÈκδíÎóÌáʾ£¿ - VB / »ù´¡Àà
¸ßÊÖÃǰïæ·ÖÎöһϰÉ
ÎÒµÄÒ»¸öVB³ÌÐò¾³£ÔËÐÐÒ»¶Îʱ¼äºó¾ÍĪÃûÆäÃîµÄ±ÀÀ£ÁË£¬µ«Ã»ÓÐÈκδíÎóÌáʾ£¬¾ÍÊÇÖ±½ÓÏûʧ
Éú³ÉEXEºÍÔÚIDEµ÷ÊÔ¶¼ÊÇÕâÑù
³ÌÐòÀïÊÇÔÚÒ»¸ö¿Ø¼þÀï·â×°ÁË1¸öwinsock¿Ø¼þ£¬2¸ötimerºÍ1¸ömsscript
timer¿Ø¼þ¶¨Ê±´¥·¢winsock¿Ø¼þµÄconnect·½·¨£¬Á¬½ÓǰÏȼì²éÁËwinsockµÄ״̬£¬Èç¹û´¦ÓÚÁ¬½ÓÖУ¬¾ÍÏÈclose
ͬʱÉèÖÃtimerµÄEnabledΪfalse
ÔÚwinsockµÄcloseʼþÀïÔÙÉèÖÃΪtrue¼¤»îtimerµÈ´ýÏ´ÎÁ¬½Ó
´úÂë»ù±¾ÉϾÍÊǽØÈ¡winsockÊÕµ½µÄÊý¾Ý£¬È»ºóÔÙ¼¤»îtimerµÈÏ´ÎÁ¬½Ó¡£
²¢ÇÒÔںܶà¹ý³ÌÖÐÓõ½adodb.Connection¶ÔÏó²Ù×÷Êý¾Ý¿â£¬Á¬½ÓÊý¾Ý¿â£¬¶Áд£¬¹Ø±Õ
³ÌÐòÀïÓõ½µÄapiÖ»ÓÐMultiByteToWideCharºÍGetPrivateProfileString
È»ºóÔÚformÀï°ÑÕâ¸ö¿Ø¼þ×÷Ϊ¿Ø¼þÊý×éÀ´Óã¬
Á½°Ù¶à¸öµÄʱºò£¬Ã»Ê²Ã´ÎÊÌâ¡£3-500¸öµÄʱºò£¬¾Í¹ý¶Îʱ¼ä±ÀÀ£Ò»»Ø¡£
ÿ´Î±ÀÀ£¶¼ÊdzÌÐòÖ±½ÓÏûʧ£¬Ã»ÈκδíÎóÌáʾ¡£Ò»°ã³ÌÐò±ÀÀ£µÄʱºòÓ¦¸Ã³öÀ´¸öÌáʾ˵µØÖ·XXXʲô ʲô µÄ
ÎÒ×Ðϸ¼ì²éÁËN¶à±é´úÂ룬ҲûÕÒ³öÀ´ÄĸöµØ·½ÓÐÎÊÌâ
Çó¸ßÊÖÃǰïÎÒ·ÖÎö·ÖÎöÊÇʲôÔÒò£¬Ê²Ã´ÑùµÄ²Ù×÷»á³öÕâÑùµÄÎÊÌâ
¿ì¼±ËÀÎÒÁË
»á²»»áÊÇÈ˵ijÌÐò²»¶ÏµØ½¨Á¢winsockʵÀý, ȴûÓм°Ê±ÊͷŲ»ÓõÄ, ½á¹ûÄÚ´æµ½Ò»¶¨Ê±¼äÂúÁ˾ÍÍ˳öÁË
²»ÒªÓÃVB IDE×Ô´øµÄµ÷ÊÔÆ÷£¬ÓÃÆäËûdebugerµ÷ÊÔexeÎļþ£¬±ÈÈçwindbg,ollydbgµÈ¡£
ÏȸãÇå³þΪʲôÍ˳ö¡£
ÔÚÄãµÄ´úÂëÖоõµÃ±ØÒªµÄµØ·½¼ÓдÈÕÖ¾£¬È»ºóͨ¹ýÈÕÖ¾ÄÚÈÝÅжÏÒâÍâÍ˳ö³öÏÖÔÚÄÄÒ»¾ä¡£
VB code:
Private Sub logtofile(s As String)
Dim f As Integer
On Error R
Ïà¹ØÎÊ´ð£º
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......