code:

---

 BREAK ON 
 CLS
 ;InetCtls.Inet.1
 ;Msinet.ocx

 ; - http://cwashington.netreach.net/depo/view.asp?Index=419&ScriptType=vbscript
 ; - http://www.bridgeport.edu/~mahmood/cs555_utils.doc
 ;;dim $objArgs

 $ftpo = CreateObject("InetCtls.Inet.1")
 IF @error <> '0'
       ?@error + " encountered - leaving now, could not find InetCtls.Inet.1"
       SLEEP 3
       EXIT 2
 ENDIF
 ?"Looks good"
 SLEEP 1
 $url = "ftp://www.yoururl.com"
 $rdir = "remotedir"
 $user = "user"
 $pass = "yourpass"
 $slfile = "C:\cr.dbf"
 $ftpo.url = $url
 $ftpo.username = $user
 $ftpo.password = $pass
 ?"Connecting..."
 $dirchg =  "CD " + $rdir
 $ftpo.execute chr(44) $dirchg
 ;$ftpo.execute , $dirchg ; -- KiXtart does not like this

 $tst =  $ftpo.execute chr(44) "dir"
 ?$tst
get $
 $sSendfl = "SEND " + $slfile
 $ftpo.Execute chr(44) $sSendfl
 ?"Closing"
 $ftpo.execute  chr(44) "Close"
 ?"Done!"
 $fso = nothing
 $ftpo = nothing
 SLEEP 2
  

---

code:

---

$ftpo.execute( chr(44)+$dirchg)

---

quote:

---

Sub Execute ([ByVal URL], [ByVal Operation], [ByVal InputData], [ByVal InputHdrs])

---

code:

---

break on
$db = "N:\usersdatabase\users.mdb"
; -- Step one - Determine where MS-Access installed for the executable
$Access = READVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE","")
; -- Step two - Compact the database each time before transfer as there will be alot of inserts done on it
; -- Developer's Note: MS-Access is notorious for "bloat" when inserts are done and/records removed
RUN $Access + " " + $db + "//compact"
SLEEP 1
; -- Step three - Start the FTP Process
$Win32Admin = createobject("Win32Admin")
; Method FTP($RemoteServer, $Account, $Password, $Mode, $LocalDir, $RemoteDir, $Action, $Filename)
; $Mode   -> [ascii|binary]
; $Action -> [get|put|size]
;
;   Performs the specified FTP operation.
;   Be sure to double the "@" in the password or email address if used for anonymous logons.

$RemoteServer = 'someserver.com'
$Account = 'userid'
$Password = 'password'
$Mode = 'binary'
$LocalDir = 'n:\usersdatabase'
$RemoteDir = 'database'
$Action = 'put'
$Filename = 'users.mdb'

IF $Win32Admin.FTP( $RemoteServer, $Account, $Password, $Mode, $LocalDir, $RemoteDir, $Action, $Filename)
	? ? "FTP successful"
	?
else
	? ? "FTP Failed! @serror"
	?
endif  

---

code:

---

 break on
 ; --- http://groups.google.com/groups?q=xmlhttp+ftp&hl=en&lr=&ie=UTF-8&selm=%23ZHFbJr3BHA.2488%40tkmsftngp04&rnum=2
 $sxmldata = GetXML("ftp://ftp.microsoft.com/bussys/readme.txt","","")
 ?$sxmldata

 FUNCTION GetXML($surl,$susr,$spasswd)
       ; Create an xmlhttp object:
       DIM $oxml
       $oxml = CreateObject("Microsoft.XMLHTTP")
       ;Opens the connection to the remote server.
       ;rtn  = xml.Open((B))
       $oxml.open "GET" chr(44) $surl chr(44) $false chr(44) $susr chr(44) $spasswd
       ; Actually Sends the request and returns the data:
       $oxml.send
       DO 
             WHILE $oxml.readystate<>4
             SLEEP 10
             LOOP
       UNTIL
       $getxml = $oxml.responsetext
 ENDFUNCTION
  

---

code:

---

$net=createobject("microsoft.xmlhttp")
$net.open("GET",$address,not 1)
$net.send
$THEFILE=$net.responsebody

---

code:

---

FTPget("ftp://ftp.cpan.org/pub/CPAN/src/perl-5.8.0.tar.gz",@scriptdir+"\perl-5.8.0.tar.gz")
if @error "Error: " @error else "success" endif
get $

Function FTPget($sURL, $sTargetFile)
  Dim $oFTP, $oStream
  $oFTP = CreateObject("MSXML2.ServerXMLHTTP")
  if @error exit cerror endif
  $oStream = CreateObject("ADODB.Stream")
  if @error exit cerror endif

  $oFTP.Open("GET", $sURL, not 1)
  if @error exit cerror endif
  $oFTP.Send

  $oStream.Type = 1
  $oStream.Mode = 3
  $oStream.open
  $oStream.Write($oFTP.responseBody)
  if @error exit cerror endif
  $oStream.SaveToFile($sTargetFile, 2)
  if @error exit cerror endif
  $oStream.Close
EndFunction

function Cerror(optional $)
 $Cerror = @error
 $=0+$
 $Cerror=dectohex($Cerror)
 $Cerror=right($Cerror,4)
 $_nul=execute("$$Cerror=&$Cerror")
 if $ _translate($Cerror)
  $_nul=execute("$$Cerror='@serror'")
 endif
endfunction
function _translate($)
 exit $
endfunction

---

code:

---

Function FTPget($sURL, $sTargetFile)
  Dim $oFTP, $oStream
  $oFTP = CreateObject("Microsoft.XMLHTTP")
  if @error ?"ftp init:" cerror endif
  $oStream = CreateObject("ADODB.Stream")
  if @error ?"ado init:" cerror endif

  $oFTP.Open("GET", $sURL, not 1)
  if @error ?"ftp open:" cerror endif
  $oFTP.Send

  $oStream.Type = 1
  $oStream.Mode = 3
  $oStream.open
  $oStream.Write($oFTP.responseBody)
  if @error ?"ado write:" cerror endif
  $oStream.SaveToFile($sTargetFile, 2)
  if @error ?"ado save:" cerror endif
  $oStream.Close
EndFunction

---

code:

---

 BREAK ON
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q298108
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q296713
 $user = "kdyer"
 $password = "password"
 $address = "ftp://ftpsite"
 $rdir = "/kdyer"
 $file = "C:\untitled1.jpg"
 $ftpobj = CreateObject("microsoft.xmlhttp")
 IF @error <> 0
       ?@error
       SLEEP 2
       EXIT 1
 ENDIF

 $ftpobj.open("PUT", $address, FALSE, $user,$password)

 IF $file <> ""
       ; -- check to insure that you have the right encoding
       ;application/x-www-form-urlencoded
       ;image/gif
       ;image/x-xbitmap
       ;image/jpeg
       ;image/pjpeg;
       ;application/vnd.ms-powerpoint;
       ;application/vnd.ms-excel
       ;application/msword
       ;*/*
       $ftpobj.setrequestheader = "Content-Type", "*/*"
       $ftpobj.send $file
 ENDIF
 $ftpobj = 0

---

code:

---

 BREAK ON
 ;;Dim $binaryContent
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q298108
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q296713
 ; -- http://support.microsoft.com/support/kb/articles/Q237/9/06.ASP
 ; -- http://www.bibit.com/asp_example_source_documentation.html
 $user = "uid"
 $password = "pass"
 $address = "ftp://site.com/kdyer"
 $rdir = "/kdyer"
 $file = "C:\untitled1.jpg"
 $ftpobj = CreateObject("microsoft.xmlhttp")
 IF @error <> 0
       ?@error
       SLEEP 2
       EXIT 1
 ENDIF

     ;;$ftpobj.open("POST", $address, FALSE, $user, $password)
 
    ; -- http://www.planet-source-code.com/xq/ASP/txtCodeId.5746/lngWId.1/qx/vb/scripts/ShowCode.htm
    $ftpobj.open("GET",$address,not 1)
    $ftpobj.send
    $strCookie = $ftpobj.getResponseHeader("set-cookie")
    $strCookie = Left($strCookie, InStr($strCookie, ";") - 1)
    ;better check the feedback
    $testresl = $ftpobj.responseText
    ?$testresl
    ;do the actual send
    $ftpobj.open("POST", $address+$rdir, not 1, $user, $password)
    $ftpobj.setRequestHeader("Cookie", $strCookie)
    ;we need to do it a second time due to K
    ;     B article Q234486.
    $ftpobj.setRequestHeader("Cookie", $strCookie)
    $ftpobj.setrequestheader("MIME-Version", "1.0")
    $ftpobj.setRequestHeader("Depth", "0")
    ; -- Think we need to do something like
    ; -- http://support.microsoft.com/default.aspx?scid=kb;en-us;Q298108
    ; -- Re. Lvarbin
    ;$ftpobj.send($file) ; -- If we comment out this line we can see the site
    $ftpobj.send $file
    $testres = $ftpobj.responseText ; -- this actually draws the FTP Site :)
    ?$testres
    
    ?"Press a key"
    get $
  

---

quote:

---

-2147352567 Binary err

---

code:

---

BREAK ON
 Dim $oStream
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q298108
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q296713
 ; -- http://support.microsoft.com/support/kb/articles/Q237/9/06.ASP
 ; -- http://www.bibit.com/asp_example_source_documentation.html
 $address = "site.com"
 $rdir = "/kdyer/kdyer"
 $user = "kdyer"
 $password = "pass"
 $file = "C:\cr.dbf"
 $ftpobj = CreateObject("microsoft.xmlhttp")
 $oStream = CreateObject("ADODB.Stream")
 ; -- Convert to binary
 $oStream.Type = 1  ; adTypeBinary
 ;;$oStream.Type = 2 ; adTypeText
 ;$bFileData = $oStream.LoadFromFile($file)
 $oStream.LoadFromFile($file)
 $oStream.open
 IF @error <> 0
       ?@error " Binary err"
       get $
       EXIT 1
 ENDIF

     ;;$ftpobj.open("POST", $address, FALSE, $user, $password)
 
    ; -- http://www.planet-source-code.com/xq/ASP/txtCodeId.5746/lngWId.1/qx/vb/scripts/ShowCode.htm
    $ftpobj.open("GET",$address,not 1)
    $ftpobj.send
    $strCookie = $ftpobj.getResponseHeader("set-cookie")
    $strCookie = Left($strCookie, InStr($strCookie, ";") - 1)
    ;better check the feedback
    $testresl = $ftpobj.responseText
    ?$testresl
    ;do the actual send
    $ftpobj.open("POST", $address+$rdir, not 1, $user, $password)
    $ftpobj.setRequestHeader("Cookie", $strCookie)
    ;we need to do it a second time due to K
    ;     B article Q234486.
    $ftpobj.setRequestHeader("Cookie", $strCookie)
    $ftpobj.setrequestheader("MIME-Version", "1.0")
    $ftpobj.setRequestHeader("Depth", "0")
    ; -- Think we need to do something like
    ; -- http://support.microsoft.com/default.aspx?scid=kb;en-us;Q298108
    ; -- Re. Lvarbin
    ;$ftpobj.send($file) ; -- If we comment out this line we can see the site
    $ftpobj.send($bFileData)
    $testres = $ftpobj.responseText ; -- this actually draws the FTP Site :)
    ?$testres
    
    ?"Press a key"
    get $

---

code:

---

;ref - http://cwashington.netreach.net/depo/view.asp?Index=622&ScriptType=vbscript
Function decimalToBinary($intDecimal)
    $strBinary = ""
    $intDecimal = cInt($intDecimal)
    While ($intDecimal > 1)
        $lngNumber1 = $intDecimal / 2
        $lngNumber2 = Fix($lngNumber1)
        If ($lngNumber1 > $lngNumber2)
            $strDigit = "1"
        Else
            $strDigit = "0"
        EndIf
        $strBinary = $strDigit + $strBinary
        $intDecimal = Fix($intDecimal / 2)
    Loop
    $strBinary = "1" & $strBinary
    While Len($strBinary) < 8
         $strBinary = "0" + $strBinary
    Loop
    $binString = $strBinary
EndFunction

---

code:

---

if WinHTTPPostRequest("ftp://ftpsite/kdyer/kdyer", "c:\cr.dbf","kdyer","pw")
			?"error occured:" @error
			sleep 2
else
			?"upload complete."
			sleep 2
endif

Function WinHTTPPostRequest($sURL, $sFile, $uid, $pw)
; http://www.pstruh.cz/tips/detpg_post-binary-data-url.htm
  Dim $http ;As New MSXML2.XMLHTTP
  
  ;Create XMLHTTP/ServerXMLHTTP/WinHttprequest object
  ;You can use any of these three objects.
  ;$http = CreateObject("WinHttp.WinHttprequest.5")
  $http = CreateObject("MSXML2.XMLHTTP")
  ;$http = CreateObject("MSXML2.ServerXMLHTTP")
  if @error $WinHTTPPostRequest=1 exit 1 endif
  
  ;Open URL As POST request
  $http.Open("POST", $sURL, not 1, $uid, $pw)
  if @error $WinHTTPPostRequest=2 exit 2 endif
  
  ;Set Content-Type header
  $http.setRequestHeader("Content-Type", "multipart/form-data")
  ;$http.setRequestHeader("Content-Type", "multipart/form-data; boundary=
  ; >> Broken to two lines
  ;---------------------------15124220632234")
  if @error $WinHTTPPostRequest=2 exit 2 endif
  
  ;Send the form data To URL As POST binary request
  $http.send($sFile)
  if @error $WinHTTPPostRequest=3 exit 3 endif
  
  ;Get a result of the script which has received upload
  $WinHTTPPostRequest = $http.responseText
EndFunction

---

code:

---

if FTPPut("ftp://ftpserver/kdyer/kdyer", "c:\cr.dbf","uid","pw")
			?"error occured:" @error
			sleep 2
else
			?"upload complete."
			sleep 2
endif

Function FTPPut($sFile, $sURL, $uid, $pw)
  Dim $oFTP, $oStream
  $oFTP = CreateObject("Microsoft.XMLHTTP")
  if @error $ftpput=1 exit 1 endif
  $oStream = CreateObject("ADODB.Stream")
  if @error $ftpput=2 exit 2 endif
  $oStream.Type = 1
  if @error $ftpput=3 exit 3 endif
  $oStream.Open
  if @error $ftpput=4 exit 4 endif
  $oStream.LoadFromFile($sFile)
  if @error $ftpput=5 exit 5 endif
  $oFTP.Open("put", $sURL, not 1, $uid, $pw)
  if @error $ftpput=6 exit 6 endif
  ;$oFTP.Send
  ;$oStream.setRequestHeader("Content-type", "image/jpeg")
  ;if @error $ftpput=5 exit 5 endif
  $oFTP.Send($oStream.Read)
  ;$oStream.Mode = 3
  ;$oStream.open
  ;$oStream.Write($oFTP.responseBody)
  ;$oStream.SaveToFile($sFile, 2)
  if @error $ftpput=5 exit 5 endif
  $oStream.Close
EndFunction

---

code:

---

break on
;ref - http://cwashington.netreach.net/depo/view.asp?Index=622&ScriptType=vbscript

$filename = "c:\cr.dbf"

$oFS = CreateObject("Scripting.FileSystemObject")
$File = $oFS.OpenTextFile($filename, 1, not 1, 0)

$Buffer = $File.Read(4)

$String = cbyte(asc($Buffer))

decimalToBinary($String)

Function decimalToBinary($intDecimal)
    $strBinary = ""
    $intDecimal = cInt($intDecimal)
    While ($intDecimal > 1)
        $lngNumber1 = $intDecimal / 2
        $lngNumber2 = Fix($lngNumber1)
        If ($lngNumber1 > $lngNumber2)
            $strDigit = "1"
        Else
            $strDigit = "0"
        EndIf
        $strBinary = $strDigit + $strBinary
        $intDecimal = Fix($intDecimal / 2)
    Loop
    $strBinary = "1" & $strBinary
    While Len($strBinary) < 8
         $strBinary = "0" + $strBinary
    Loop
    $binString = $strBinary
EndFunction

---

code:

---

 BREAK ON
 CLS
 ; Ref - http://www.geocities.co.jp/SiliconValley/4805/vbtips/vbtips103.htm
FtpPut("ftp://ftpserver","kdyer","pw","ftp://ftpserver/kdyer/kdyer/test.jpg","c:\untitled1.jpg")
 FUNCTION FtpPut($strftpsvr, $struserid, $strpassword, $strremotefile, $strlocalfile)
       DIM $hinternet
       DIM $hftp
       DIM $lngret
       DIM $strerrtext

       $ftpput = True

       IF @Error <> 0
       GOTO ErrHandler
       ENDIF

       ;INTERNET_OPEN_TYPE_PRECONFIG = 0&
       $hinternet = InternetOpen("",0&,"","",0&)
       IF $hinternet = 0
             $strerrtext = "InternetOpen:GetLastError=" + $err.lastdllerror()
             MESSAGEBOX ($strerrtext, $app.title + "<FtpPut>", 0)
             $ftpput = NOT 1
             RETURN
       ENDIF

       ;INTERNET_DEFAULT_FTP_PORT = 21&
       ;INTERNET_SERVICE_FTP = 1&
       $hftp = InternetConnect($hinternet, _
       $strftpsvr, _
       21&, _
       $struserid, _
       $strpassword, _
       1&, _
       0&, _
       0&)
       IF $hftp = 0
             $strerrtext = "InternetConnect:GetLastError=" + $err.lastdllerror()
             MESSAGEBOX($strerrtext, $app.title + "<FtpPut>", 0)
             $ftpput = NOT 1
             RETURN
       ENDIF

       ;FTP_TRANSFER_TYPE_BINARY = &H2&
       $lngret = FtpPutFile($hftp, _
       $strlocalfile, _
       $strremotefile, _
       &H2&, _
       0&)
       $lngret = InternetCloseHandle($hftp)
       $lngret = InternetCloseHandle($hinternet)
       RETURN
       :ErrHandler
       $ftpput = NOT 1
       MESSAGEBOX( "<" + $err + ">" + Error($err), $app.title + "<FtpPut>", 0 )
 ENDFUNCTION

 ;-------------------------------------------------------
 ; Module
 ;-------------------------------------------------------
 ;constants
 ;INTERNET_OPEN_TYPE_PRECONFIG = 0&
 ;INTERNET_OPEN_TYPE_DIRECT = 1&
 ;INTERNET_OPEN_TYPE_PROXY = 3&
 ;INTERNET_DEFAULT_FTP_PORT = 21&
 ;INTERNET_DEFAULT_HTTP_PORT = 80&
 ;INTERNET_DEFAULT_HTTPS_PORT = 443&
 ;INTERNET_SERVICE_FTP As = 1&
 ;INTERNET_SERVICE_HTTP = 3&
 ;INTERNET_FLAG_PASSIVE = &H8000000
 ;INTERNET_FLAG_RELOAD = &H80000000
 ;FTP_TRANSFER_TYPE_ASCII = &H1&
 ;FTP_TRANSFER_TYPE_BINARY = &H2&

 ;API??

 FUNCTION InternetOpen(Add($lpszAgent,"WinInet.DLL"),Add($dwAccessType,"WinInet.DLL"),
Add($lpszProxyName,"WinInet.DLL"),Add($lpszProxyBypass,"WinInet.DLL"0,Add($dwFlags,"WinInet.DLL")
;       ;$inetopcstr = "wininet.dll"
;       ;$inetopcstr = $inetopcstr + "InternetOpenA" + chr(40)
;       $inetopcstr = $inetopcstr + Add($lpszAgent,"WinInet.DLL") + chr(44)
;       $inetopcstr = $inetopcstr + Add($dwAccessType,"WinInet.DLL") + chr(44)
;       $inetopcstr = $inetopcstr + Add($lpszProxyName,"WinInet.DLL") + chr(44)
;       $inetopcstr = $inetopcstr + Add($lpszProxyBypass,"WinInet.DLL") + chr(44)
;       $inetopcstr = $inetopcstr + Add($dwFlags,"WinInet.DLL")
 ENDFUNCTION

 FUNCTION InternetConnect($inetcstr)
       $inetcstr = "WinInet.DLL"
       $inetcstr = $inetcstr + "InternetConnectA" + chr(40)
       $inetcstr = $inetcstr + Add($hInternetSession,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($lpszServerName,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($nServerPort,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($lpszUserName,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($lpszPassword,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($dwService,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($dwFlags,"WinInet.DLL") + chr(44)
       $inetcstr = $inetcstr + Add($dwContext,"WinInet.DLL") + chr(41)
 ENDFUNCTION

 FUNCTION FtpPutFile($inetftpput)
       $inetftpput = "wininet.dll"
       $inetftpput = $inetftpput + "FtpPutFileA" + chr(40)
       $inetftpput = $inetftpput + Add($hFtpSession,"WinInet.DLL") + chr(44)
       $inetftpput = $inetftpput + Add($lpszLocalFile,"WinInet.DLL") + chr(44)
       $inetftpput = $inetftpput + Add($lpszNewRemoteFile,"WinInet.DLL") + chr(44)
       $inetftpput = $inetftpput + Add($dwFlags,"WinInet.DLL") + chr(44)
       $inetftpput = $inetftpput + Add($dwContext,"WinInet.DLL") + chr(41)
 ENDFUNCTION

 FUNCTION InternetCloseHandle($inetclose)
       $inetclose = "wininet.dll"
       $inetclose = $inetclose + Add($hInternetSession,"WinInet.DLL") + chr(41)
 ENDFUNCTION

 ; - Function Add is from Shawn Tassie since byval is not supported by KiX
 ; - ref - http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=13;t=000017
 FUNCTION Add($var1,$var2byref)
       ;
       ; Add Var1 to Var2 (byref) and put result back into Var2 (byref)
       ;
       $ = Execute("$Var2ByRef = $Var1 + $Var2ByRef") ; do it
 ENDFUNCTION
  

---

code:

---

break on

$file = "C:\AspEmail.dll"

ToBin($file)

Function StrConvert($vBin)
    $oConv = CreateObject("ADODB.Stream")
    $oConv.Charset = "utf-8"
    $oConv.Type = 1 ;binary
    $oConv.Open
    $oConv.Write($vBin)
    $oConv.Position = 0
    $oConv.Type = 2 ;Text
    $oConv.Charset = "Windows-1252" ;optionally
    $StrConvert = $oConv.ReadText()
EndFunction
  

---

code:

---

Function ToBin($sString)
    $oConv = CreateObject("ADODB.Stream")
    $oConv.Charset = "Windows-1252"
    $oConv.Type = 2 ; text
    $oConv.Open
    $oConv.WriteText($sString)
    $oConv.Position = 0
    $oConv.Type = 1 ;binary
    ;$oConv.Charset = "utf-8" ;optionally
    $ToBin = $oConv.Read()
EndFunction
  

---

Working, please help yourself.

Kent

quote:

---

Important The FTP protocol uses a single string that includes the =
operation name and any other parameters needed by the operation. In =
other words, the data and requestHeaders arguments are not used; all of =
the operations and their parameters are passed as a single string in the =
operation argument. Parameters are separated by a space. In the =
descriptions below, do not confuse the terms "file1" and "file2" with =
the data and requestHeaders arguments.

The syntax for FTP operations is:

operationName file1 file2.

For example, to get a file, the following code invokes the Execute =
method, which includes the operation name ("GET"), and the two file =
names required by the operation:

Inet1.Execute "FTP://ftp.microsoft.com", _
"GET Disclaimer.txt C:\Temp\Disclaimer.txt"
Note File names that include embedded spaces are not supported.

---

• LoadFromFile
• Public Function
• Alias
• Byval