VBµ÷ÓÃcmd£¬³ö´íʱÈçºÎ²»ÏÔʾºÚÆÁ¡£
ÎÒÏÖÔÚÏëÓÃnet useÀ´Á¬½ÓÒ»¸ö¼ÆËã»ú¡£vb´úÂëÈçÏÂ
Shell "net use \\IP\Path Password /user:user", vbNormalFocus
ÔÚûÓñðµÄÓû§Á¬½Óʱ£¬¸ÃÓï¾äÕý³£¡£
ÈôÏÈÓñðµÄÓû§Á¬½ÓÁË£¬Ôò»áµ¯³öºÚÆÁ£¬ÏÔʾ
¡°·¢Éúϵͳ´íÎó 1219¡£
²»ÔÊÐíÒ»¸öÓû§Ê¹ÓÃÒ»¸öÒÔÉÏÓû§ÃûÓëÒ»¸ö·þÎñÆ÷»ò¹²Ïí×ÊÔ´µÄ¶àÖØÁ¬½Ó¡£ÖжÏÓë´Ë·þÎñÆ÷
»ò¹²Ïí×ÊÔ´µÄËùÓÐÁ¬½Ó£¬È»ºóÔÙÊÔÒ»´Î...¡±
²»ÖªµÀ¸ÃÈçºÎ´¦Àí²ÅÄܲ»µ¯³öºÚÆÁ£¿»òÕßÈÃºÚÆÁ×îС»¯Ò²ÐС£
лл
ÓôÃÆÁË¡£²éÁ˰ëÌ죬ÔÀ´¿ÉÒÔÕâô½â¾ö¡£ÔçµãÎʺÃÁË¡£
лÁË£¬½áÌù¡£
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ÈçÌ⣬»¹ÓÐÈçºÎÌí¼ÓÒ»ÁÐÄØ£¿ÈçÌí¼ÓÐòºÅÁУ¨1¡¢2¡¢3......)
лл¡£
Ö±½ÓÓÃconnection¶ÔÏóÀ´Ö´ÐвåÈë ,ɾ³ý
ÒòΪ¸ÕѧVBËùÒÔ²»ÊǺÜÊìϤ£¬»¹ÍûÂ¥ÉÏÃ÷ʾ°¡£¬¸Ð¼¤²»¾¡¡£
ÎÒÏë×öÒ»¸ödatagridµÄÒ³Ãæ£¬ÉÏÓÐÓÐ ÐÂÔö ÐÞ ......