Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¡¾¼±Çó¡¿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²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

vb²éѯÊý¾Ý¿âÎÊÌâ

ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

Éæ¼°µ½Ëã·¨£¬goog ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ