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

ÓÃvbдµÄ³ÌÐòÔÚwindowsÏÂÌØ¶¨Óû§µÄʹÓÃȨÏÞ

×Ô¼ºÓÃvb6дÁ˸öexeµÄ³ÌÐò¡£
ÒªÔõô²ÅÄÜʵÏÖÔÚwindowsÏÂÖ»ÓÐÌØ¶¨Óû§²ÅÄÜʹÓÃÕâ¸ö³ÌÐòÄØ£¿
±ÈÈç˵ֻÄÜÔÚadminister£¨¹ÜÀíÔ±£©ºÍaaa£¨ÆÕͨÓû§£©ÏÂʹÓÃÕâ¸ö³ÌÐò
лл´ó¼ÒÏÈ£¡£¡£¡£¡£¡£¡£¡

¸Ð¾õÕâ²»Ó¦¸ÃÊdzÌÐò½â¾öµÄÎÊÌ⣬Ӧ¸ÃÊÇWINDOWS×é²ßÂÔµÄÎÊÌâ

ʹÓÃGetUserNameÅжÏϵͳµ±Ç°µÇ¼Óû§£¬Èç¹û²»ÊÇadministrator»òaaaÔòÍ˳öÔËÐС£




ÒýÓÃ
VB code

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub main()
Dim strBuffer As String
¡­¡­


ÒýÓÃ
ÒýÓà 2 Â¥ lyserver µÄ»Ø¸´:
ʹÓÃGetUserNameÅжÏϵͳµ±Ç°µÇ¼Óû§£¬Èç¹û²»ÊÇadministrator»òaaaÔòÍ˳öÔËÐС£

¸ø¸ö¸ü¼òµ¥µÄ,
msgbox Environ("USERNAME")

ͬÒâÕâ2ÖÖ·½·¨£¬¶¼ºÜ¼òµ¥£¡



¸ÕÉÏÀ´¾Í¿´µ½Õâô¶àµÄ»Ø¸´
´ó¼Ò¶¼ÕâôÈÈÐÄ
ллÁË£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡


ÒýÓÃ

ÒýÓà 2 Â¥ lyserver µÄ»Ø¸´:
ʹÓÃGetUserNameÅжÏϵͳµ±Ç°µÇ¼Óû§£¬Èç¹û²»ÊÇadministrator»òaaaÔòÍ˳öÔËÐС£

¸ø¸ö¸ü¼òµ¥µÄ,
msgbox Environ("USERNAME")


ÄܾßÌå˵˵Ó÷¨Âð£¿

ллÁË

Environ("USERNAME")

Õâ¸öºÜºÃÓá£


Ïà¹ØÎÊ´ð£º

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ