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²»ÄÜʵÏÖÂð£¿
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵĻ°¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ÏÖÔÚÐèÒªÔÚÒ»¸öǶÈëʽϵͳÖÐʵÏÖʱ¼äº¯Êý£¬±àÒëÆ÷δÌṩtime¿âº¯Êý£¬ÇëÎÊ´ó¼ÒÈçºÎÓÃcÓïÑÔʵÏÖʱ¼äº¯Êý°¡£¿
ÄêÔÂÈÕʱ·ÖÃë µ½ ÕûÊýÃ루´Ó1970Ä꿪ʼ£© Ö®¼äµÄÏà¹Øת»»°¡
ÀàËÆmktime ºÍlocaltimeµÄ¹¦ÄÜ£¬Ð»Ð»
mktime ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
òËÆû·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
ÎÒÏë°Ñ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
......