vb ÔõôʵÏÖ·ÃÎʱðµÄ»úÆ÷µÄ¹²ÏíÎļþ¼Ð - VB / »ù´¡Àà
vb ÔõôʵÏÖ·ÃÎʱðµÄ»úÆ÷µÄ¹²ÏíÎļþ¼Ð£¬½øÐжÁд
лл
Ö±½ÓÊäÈëÍøÂç·¾¶²»¶Ô£¿
ÒªÏȾßÓжÁдµÄȨÏÞ°É
¹Ø×¢£¡Ç󾡿ÉÄÜÏêϸµÄ˼··½·¨»ò´úÂ룬¶¥¡£¡£¡£¡£¡£¡£
ÆÚ´ý ½â¾ö
²»Òª°ÑËüÓ³Éä³ÉÅÌ·û
ÓÃÅÌ·û²»ÊÇ¿ÉÒÔÂð
UP....
shell("net use z: \\192.168.1.123\e$ password /PERSISTENT:NO")'Ó³ÉäÍøÂçÇý¶¯Æ÷
'·ÃÎÊz:ÉϵÄÎļþ
shell("net use z: /DELETE")'¶Ï¿ªÍøÂçÇý¶¯Æ÷
²»Ó³ÉäÍøÂçÇý¶¯Æ÷
fso ¿ÉÒÔÖ±½Ó¶Ô¹²ÏíÎļþ¼Ð ²Ù×÷
¸ã¶¨
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÎÒÏë°Ñ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
......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÎÒÓÃVBдÁËÒ»¸öactivex£¬ÏÖÔÚÏëÔÚjsÀïÃæÏòactivex´«Öµ£¬Ð´ÁËÒ»¸öpublic·½·¨²»ÐУ¬Ð´ÁËÒ»¸öÊôÐÔÒ²²»ÐУ¬Çë¸ßÊÖÖ¸µã£¬ÔÚÏߵȺò,´úÂëÈçÏÂ
±äÁ¿ÉùÃ÷
Dim dirName As String = ""
·½·¨
Public Sub UrlName( ......