Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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


Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

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




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

À´½Óµã·Ö

......

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

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

ÔõôÓÃVBдһ¸ö¿ÉÒԸıäÒ»¸öÎı¾µÄÄÚÈݵijÌÐò

±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд .....
¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ