VB使用WinInet实现客户端ftp操作遇到问题，急救
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘加载WinInet的dll
‘InternetOpen
Public Declare Function InternetOpen Lib "WININET.DLL" Alias "InternetOpenA" _
(ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, _
ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
‘InternetConnect
Public Declare Function InternetConnect Lib "WININET.DLL" Alias "InternetConnectA" _
(ByVal HINTERNET As Long, ByVal lpszServerName As String, ByVal nServerPort As Integer, _
ByVal lpszUsername As String, ByVal lpszPassword As String, ByVal dwService As Long, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Long
‘FtpGetCurrentDirectory
Public Declare Function FtpGetCurrentDirectory Lib "WININET.DLL" Alias "FtpGetCurrentDirectoryA" _
(ByVal hConnect As Long, ByVal lpszCurrentDirectory As String, _
ByRef lpdwCurrentDirectory As Long) As Boolean
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘开始写ftp操作
第一步连接到网络
hOpen = InternetOpen(vbNullString, 1, vbNullString, vbNullString, 0)
第二步连接到ftp
hConnection = InternetConnect(hOpen, "192.168.1.123", 21,"UserName", "Password", 1, 0, 0)
第三�
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
