¡¾¼±Çó¡¿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
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿ VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿ 1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿ 2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ? °´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ ²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ. ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬ http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html Éæ¼°µ½Ëã·¨£¬goog ......
Private Sub Check1_Click() If Check1.Value = 1 Then DTP1.Enabled = True Else DTP1.Enabled = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then DTP2.Enabled = True Else
......