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

VBµ÷ÓÃinetÏòlinuxÉÏ´«ÎĵµµÄÎÊÌâ¡£Çë´ó¼Ò°ï棡

URL.TextÊÇftp://xzdx:123456@192.168.0.20,ÓÃxzdzÓû§µÇ½linuxµÄĬÈÏ·¾¶ÊÇ/home/xzdz£¬Èç¹û²»¸ü¸ÄlinuxĬÈÏ·¾¶£¬ÔÚVBÖÐʵÏÖ·¾¶µÄ¸ü¸Ä£¬ÀýÈçתµ½/home/abc/bin¸ÃÈçºÎʵÏÖ£¬ÒÔÏÂÊÇĬÈÏ·¾¶ÉÏ´«µÄ´úÂ룬Çë´óÏÀÃÇ¿´¿´Ó¦¸ÃÈçºÎ¸ü¸Ä·¾¶£¬Ð»Ð»£¡
Private Sub cmdSend_Click()
    Dim myfilepath As String
    myfilepath = File1.Path & "\" & File1.FileName
    StateStyle = 1
    Inet1.Execute URL.Text, "SEND" & myfilepath & " " & File1.FileName
    MsgBox "ÉÏ´«Òѳɹ¦£¡", , "ϵͳÌáʾ"
    StateStyle = 0
    Inet1.AccessType = icUseDefault 
    Inet1.Protocol = icFTP
    Inet1.RemotePort = 21
    Inet1.Execute URL.Text£¬¡°DIR¡±
End Sub
´óÏÀ¶¼¹ýÄêÈ¥ÁË°¡ £¬ÔõôÕâô¶àÌ춼ûÈ˻ظ´

inet òËƲ»³É¡£»»¸öftpµÄ£¬ËÑË÷ChilkatFTP£¬Óиö°æ±¾ÊÇÃâ·ÑµÄ¡£

лл¥ÉÏ£¬×Ô¼º¶¥Ò»Ï£¬inet²»ÄÜʵÏÖÂð£¿


Ïà¹ØÎÊ´ð£º

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵĻ°¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

cÓïÑÔʵÏÖlinux timeÏà¹Øº¯Êý - C/C++ / CÓïÑÔ

ÏÖÔÚÐèÒªÔÚÒ»¸öǶÈëʽϵͳÖÐʵÏÖʱ¼äº¯Êý£¬±àÒëÆ÷δÌṩtime¿âº¯Êý£¬ÇëÎÊ´ó¼ÒÈçºÎÓÃcÓïÑÔʵÏÖʱ¼äº¯Êý°¡£¿
ÄêÔÂÈÕʱ·ÖÃë µ½ ÕûÊýÃ루´Ó1970Ä꿪ʼ£© Ö®¼äµÄÏà¹Øת»»°¡
ÀàËÆmktime ºÍlocaltimeµÄ¹¦ÄÜ£¬Ð»Ð»
mktime ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
òËÆû·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ