Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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

* ¿ª»úÆô¶¯²¡¶¾
~~~~~~~~~~~~~~
ÔÚ²¡¶¾¸ÐȾÖ÷»úµÄͬʱ£¬½«×ÔÉí¼ÓÈë×¢²á±íµÄ¿ª»úÔËÐÐÖУ¬ÕâÓëÏòÖ÷»ú¿½È벡¶¾ÊÇͬʱ½øÐеģ¬Ö÷»ú¸ÐȾºó²»ÔÙÐÞ¸Ä×¢²á±í¡£¿ÉÍ


Ïà¹ØÎÊ´ð£º

VBÈçºÎÁªÏµÁ½¸ö´°Ì壿

¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

vb²åÈëÊý¾Ý¿âÖظ´ÖµÎÊÌâ

ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......

ÊìϤVBµÄ½øÀ´£¬ÓÐÏîÄ¿


ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?

ÐǪ̈ÁªÏµ·½Ê½ÄØ

ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨

¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ

±±¾©µÄÐв»£¿

ÎÒÔÚËÕÖÝ£¬ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ