Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

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 ......

vb²åÈëÊý¾Ý¿âÖØ¸´ÖµÎÊÌâ

ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ