¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Boolean Dim command As String On Error GoTo SCPError command = "scp2 " & sshId & ":" & sshDir & filename & " " & filepath MsgBox "start!", vbOKOnly Set wsh = Wscript.CreateObject("wscript.shell") wsh.run ("C:\Windows") MsgBox "end!", vbOKOnly Exit Function SCPError: ' Error-handling routine. MsgBox filename & ": " & Err.Description, vbCritical, "GDWISMS SSH Batch" Close #1 End Function ´íÎóÈçÏ£º ¡°ÐèÒª¶ÔÏó¡± ÎÒ²»ÖªµÀÊDz»ÊÇwshÒªÓÃDIMÀ´ÉùÃ÷Ï»¹ÊÇʲôÎÊÌ⣿
sf ²éÁËһϣ¬wscript³£ÓÃÀ´Ð´²¡¶¾°¡£¬ÉÁ ÔΣ¬¸ú²¡¶¾Ã»Ê²Ã´¹Øϵ¡£ÎÒÏëÔÚvbÖе÷ÓÃscp2ÃüÁî×öÎļþ´«ÊäµÄ¡£ÉÏÃæ´úÂëÖ»ÊǼòµ¥²âÊÔ´ò¿ªÒ»¸öĿ¼£¬ÌáʾÓдíÎó£¬ÕÒ²»µ½ÔÒò²ÅÀ´·¢ÌûÎÊÎʸßÊֵġ£ ÒªÒýÓá¡Wscript¡¡°É£¡´ó¸Å ÓÃä¯ÀÀÆ÷¡°´ò¿ªÒ»¸öĿ¼¡±£¿ °ï¶¥ ѧϰÁËÒýÓà ²éÁËһϣ¬wscript³£ÓÃÀ´Ð´²¡¶¾°¡£¬ÉÁ ²»¶®¾ÍÂҽл½ÒýÓà ¹¤³Ì——ÒýÓ×—Microsoft Script Run Tim
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ? ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£ ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£ È»ºóÔÊÐíºó·ÅÐС£ ±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£ ¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£ ÉèÖ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£ û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£ XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£ Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£ Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬ http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html Éæ¼°µ½Ëã·¨£¬goog ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡ ²åÈë֮ǰselectһϰ¢¡£ »òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç IF not Exist( & ......