Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎµ÷ÓÃIllustrator£¨´ËÇ°IllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

ÊìϤ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ºÅ