vb ÔõôʵÏÖ·ÃÎʱðµÄ»úÆ÷µÄ¹²ÏíÎļþ¼Ð - VB / »ù´¡Àà
vb ÔõôʵÏÖ·ÃÎʱðµÄ»úÆ÷µÄ¹²ÏíÎļþ¼Ð£¬½øÐжÁд
лл
Ö±½ÓÊäÈëÍøÂç·¾¶²»¶Ô£¿
ÒªÏȾßÓжÁдµÄȨÏÞ°É
¹Ø×¢£¡Ç󾡿ÉÄÜÏêϸµÄ˼··½·¨»ò´úÂ룬¶¥¡£¡£¡£¡£¡£¡£
ÆÚ´ý ½â¾ö
²»Òª°ÑËüÓ³Éä³ÉÅÌ·û
ÓÃÅÌ·û²»ÊÇ¿ÉÒÔÂð
UP....
shell("net use z: \\192.168.1.123\e$ password /PERSISTENT:NO")'Ó³ÉäÍøÂçÇý¶¯Æ÷
'·ÃÎÊz:ÉϵÄÎļþ
shell("net use z: /DELETE")'¶Ï¿ªÍøÂçÇý¶¯Æ÷
²»Ó³ÉäÍøÂçÇý¶¯Æ÷
fso ¿ÉÒÔÖ±½Ó¶Ô¹²ÏíÎļþ¼Ð ²Ù×÷
¸ã¶¨
Ïà¹ØÎÊ´ð£º
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......