ÓÃ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µÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÎÊÌ⣺ ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB TableAÖÐÓмǼÈçÏÂ: ×Ö¶Î1(Name) ×Ö¶Î2(Num) A 3 A 4 B 6 ... ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219) ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿. ¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡ ·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð? ÓÑÇéÖ§³Ö »Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ °ï¶¥ ......