VB´ò°ü³ÌÐò´ò°ü³öÀ´µÄ¶«Î÷£¬É±¶¾Èí¼þ±¨¶¾£¿
ÎÞÓï
ÎÞÓï
ÄÇÄã¿ÉÒÔ¿´¿´Ò×ÓïÑÔдµÄ³ÌÐò¡¢É±ÈíÎó±¨Âʸü¸ß
Äã¿ÉÒÔ»³ÒÉËùÓеÄİÉúÈ˶¼ÊÇÆ×Ó£¬ÕâÖ»ÊÇ̬¶ÈÎÊÌ⣬ÓëÊÇ·ñÕæÊÇÆ×ÓûÓÐÃ÷È·¹ØÁª¡£
ºÜÓпÉÄÜÊÇÄãµÄµçÄÔÒѾÖж¾ÁË£¬»òÕßÄãµÄɱ¶¾Èí¼þÌ«Àá£
Äã¿ÉÒԵǼ http://www.virustotal.com ÌύϿÉÒÉÎļþ¡£Ëü»áʹÓø÷ÖÖɱ¶¾Èí¼þ¼ì²éÄãµÄÎļþ¡£
¸÷¸öɱ¶¾Èí¼þµÄÃô¸Ð¶È²»Ò»Ñù.
ÓÐЩɱ¶¾Èí¼þ¼à¿Øµ½³ÌʽÖÐÓпÉÒɵÄдÈë×¢²á±íÃô¸ÐÇøÓòµÄ´úÂë(Èç×¢²á±íÖÐ RUN),¶¼»á±¨²¡¶¾
(ESET NOD32 ¾ÍÊÇ)
ÊÇʲôɱ¶¾Èí¼þ£¿ÓÐЩÊǺÜÈõÖǵġ£
²»ÖªµÀΪʲô´ò°üµÄÎļþ¼ÐÀïÓÐusp10.dll Lpk.dllÈ˼Ò˵ÎÒ×öµÄ³ÌÐòÓв¡¶¾¡£ÎÒºÃÔ©Í÷°¡£¡£¡
Ôõô×öÂÌ»¯µÄ³ÌÐò°ü°¡£¬ÊDz»ÊǰÑËùÓÐÐèÒªµÄÎļþÂÞÁÐÒ»ÏÂд¸öbat×¢²áһϾͿÉÒÔÁË£¿
ÎҵijÌÐòÓõ½ÁËactive exe
°ï¶¥ »Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÎÒÏë°Ñ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
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......