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ÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд .....
¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......