vb ÔõôʵÏÖ·ÃÎʱðµÄ»úÆ÷µÄ¹²ÏíÎļþ¼Ð - VB / »ù´¡Àà
vb ÔõôʵÏÖ·ÃÎʱðµÄ»úÆ÷µÄ¹²ÏíÎļþ¼Ð£¬½øÐжÁд
лл
Ö±½ÓÊäÈëÍøÂç·¾¶²»¶Ô£¿
ÒªÏȾßÓжÁдµÄȨÏÞ°É
¹Ø×¢£¡Ç󾡿ÉÄÜÏêϸµÄ˼··½·¨»ò´úÂ룬¶¥¡£¡£¡£¡£¡£¡£
ÆÚ´ý ½â¾ö
²»Òª°ÑËüÓ³Éä³ÉÅÌ·û
ÓÃÅÌ·û²»ÊÇ¿ÉÒÔÂð
UP....
shell("net use z: \\192.168.1.123\e$ password /PERSISTENT:NO")'Ó³ÉäÍøÂçÇý¶¯Æ÷
'·ÃÎÊz:ÉϵÄÎļþ
shell("net use z: /DELETE")'¶Ï¿ªÍøÂçÇý¶¯Æ÷
²»Ó³ÉäÍøÂçÇý¶¯Æ÷
fso ¿ÉÒÔÖ±½Ó¶Ô¹²ÏíÎļþ¼Ð ²Ù×÷
¸ã¶¨
Ïà¹ØÎÊ´ð£º
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......