Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

VBµ÷ÓÃË®¾§±¨±íDesign ƽ·²ÌáʾMemoryFullÎÊÌâ

  ¸÷λ´óϺ£º
        ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......

VB Çë½Ì¸ßÊÖ¹ØÓÚÓû§¿Ø¼þÎÊÌâ

ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔØµ½´°ÌåÉÏ

    Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
    objExt.Visible = True

³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......

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


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

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

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

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

±±¾©µÄÐв»£¿

ÎÒÔÚËÕÖÝ£¬ ......

vb ÈçºÎ½«Ê®Áù½øÖÆUTF-8ת»»Îªºº×Ö

¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿

byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
  try {
System.out.println(new String(b,"UTF-16"));
  } catch (UnsupportedEnco ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ