Como utilizar wininet en vs.net 2008 ??

[ezlourido]

Soy Edinson de colombia, tengo un problema al utilizar wininet.dll en visual basic 2008 para subir un archivo a un servidor ftp autenticandose por proxy, dicha libreria en su funcion ftpputfile, no me hace absolutamnte nada, este e smi ejemplo para ver si me pueden ayudar, llevo dias en esto y no he podido solucionarlo, ya que es indispensable subirlo por medio de proxy, este es el codigo




Public Function FtpPutFile(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
End Function

Private Const FTP_TRANSFER_TYPE_ASCII = &H1

Public Function ConectarFtpProxy(ByVal p_IpFTP As String) As Integer

Try
ConnInternetProxy = InternetOpen("Proxy", 1, g_UserProxy, g_PassProxy, 0)
ConexionProxy = InternetConnect(ConnInternetProxy, p_IpFTP.Trim(), 21, g_User, g_Password, 1, 0, 0)
FtpPutFile(ConexionProxy, "c:\dirmap.zip", "dirmap.zip", FTP_TRANSFER_TYPE_ASCII, 0)

ConectarFtpProxy = 1

Catch ex As Exception

ConectarFtpProxy = 0

End Try

End Function