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

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

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

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

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

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......

ÖÐɽµÄVB³ÌÐòÔ±½øÀ´¿´Ò»Ï - VB / ·Ç¼¼ÊõÀà

¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡­¡­

·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?

ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ 

°ï¶¥ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ