vb·µ»Ø µÈ´ý Åú´¦Àí´¦Àí½á¹û - VB / API
Çë½Ì£º
Shell m_AppPath & "bat.bat >" & m_AppPath & "bat.log" ÎÒÖ´ÐÐÕâ¸ö Ôõô»ñÈ¡ Õâ¸öÅú´¦ÀíµÄ ¾ä±ú£¿
ѧÆÚÊÇÕâÑùµÄ ÎÒÏÈÖ´ÐÐ bat.bat µÄÕâ¸öÅú´¦ÀíµÄÎļþ °ÑÖ´ÐеĽá¹û Êä³öµ½ bat.log È»ºó·ÖÎö bat.log £¬ËùÒÔ±ØÐëµÈ´ý bat.bat Õâ¸öÅú´¦Àí Ö´ÐÐÍê±Ï £¬²Å ·ÖÎö bat.log¡£
ÎÒËÑË÷ÁË ºÜ¶à×ÊÁÏ ¶¼ÊÇ m_AppPath & "bat.bat" ÕâÑùµÄ Ö±½Ó»ñÈ¡ ¾ä±ú£¬ÎÒµÄÖ´ÐÐ ½á¹û±È½Ï¶à ±ØÐëÊäÈëµ½Îļþ¡£
Äܲ»ÄÜ ¸øÎÒÒ»µã½¨Òé
µÚÒ»´ÎÔÚÉÏÃæ·¢Ìû £¬·ÖÒ²²»¶à £¬ÍûÄܵõ½´ó¼ÒµÄ°ïÖú лл£¡
bat.batµÄ×îºóÒ»¾äÊä³öbat.log
VBÒ»Ö±¼ì²âbat.logÓÐûÓдæÔÚ£¬
Èô´æÔÚ£¬ËµÃ÷ÒѾִÐÐÍê³É¡£
·ñÔò£¬ÔòûÓÐ
ÓиöÎÊÌâ ÎÒÒ»Ö±ÔÚ Ñ»·µÄ Ö´ÐÐ Õâ¸ö³ÌÐò
ÎÒ Ö´ÐÐÅú´¦ÀíµÄ ʱºò ¾Í»á н¨ bat.log Îļþ µ«ÊÇ ÎÒµÄ bat.bat »¹Ã»ÓÐÖ´ÐÐÍê±Ï¡£
ÒѾ°´ÕÕÄãµÄ·½·¨ ½â¾ö ½áÌù ·ÝÊýÒѾ¸øÄã лл£¡
Õâ¶Îʱ¼ä ³ö²î ûÓÐʱ¼äÉÏÍø½áÌù ÇëÁ½⣡
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇʲôÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊÇ°Ñh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØַʱºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......