WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Boxes Functions
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

FTP Sample Script from User

Keywords:   FTP Boxes functions

Here's a FTP Sample Script, using the Boxes functions, from one of our users:
;***********************Generic Initialization ****************

IntControl(12,5,0,0,0)
;;;;;;;; Assorted Colors ;;;;;;;;;
DKBLUE="0,0,128"
BLUE="0,0,255"
LTGRAY="192,192,192"
GRAY="128,128,128"
DKGRAY="64,64,64"
GREEN="0,255,0"
RED="255,0,0"
BLACK="0,0,0"
WHITE="255,255,255"
YELLOW="255,255,0"

;Draw the box first which will display all the neccessary fields
;In the top frame indicate the title "FILE TRANSFER TEST"
;This title should always be in the centre of the main window
;Next create various text fields as follows
; Destination IP:               Date:       
; Log File Name :               Time:
; Iteration # of #
;Draw another frame underneath this to show the status of file
;Xfer as below:.
; filename      Operation       Status  TimeStamp
; As the test progresses keep adding lines to this status frame
; When the last line is reached in the frame, see if we can display
; a scroll bar on the right side so that user can see previous results.
; If user selects to stop the test on failure, script should be able to 
; do so and if user presses Exit button, than entire test is aborted.
i  = 0
BoxesUp("100,100,900,900",@normal)
BoxColor(1, "0,0,128", 4)
BoxCaption(1,"FTP Test")
BoxDrawRect(1, "0,0,1000,1000",2)
BoxTextFont(1,"Times",50,80,0|0)
BoxTextColor(1,"255,255,0")
BoxDrawText(1,"100,20,900,40","FILE TRANSFER TEST",@false,1)
BoxPen(1,WHITE,7)
BoxDrawLine(1,"0,80,1000,80")
IP = "199.107.109.99"
BoxTextFont(1,"Times",30,40,0|0)
BoxDrawText(1,"10,100,300,120","Destination IP: %IP%",@false,0)
date = TimeDate()
BoxDrawText(1,"600,100,1000,120", "Time Started: %date%", @false,0)
BoxDrawText(1,"10,200,400,220", "Logfile Name: LogFile", @false, 0)
time_now = TimeDate()
BoxDrawText(1,"600,200,1000,220", "Current Time: %time_now%", @false,0) 
BoxPen(1,WHITE, 5)
BoxDrawLine(1,"0,250,1000,250")
BoxDrawText(1,"10,270,500,300", "Iteration N of Count", @false, 0)
BoxDrawLine(1,"0,330,1000,330")
BoxNew(2,"100,380,900,980",0)
BoxColor(2,LTGRAY,4)
BoxDrawRect(2,"0,0,1000,1000",0) ;;;;;;;;;;;;;;;;;;;;;;;ADD THIS LINE
BoxDrawText(2, "0,30,1000,40", "FileName", @false, 0)  
BoxDrawText(2, "400,30,1000,40","Operation", @false, 0)
BoxDrawtext(2, "900,30,1000,40", "Status", @false, 0)
BoxPen(2,BLACK,4)
BoxDrawLine(2,"0,80,1000,80")
BoxDataTag(2,"tag1")
for i = 90 to 940 by 40
	j = i + 20
	BoxDrawText(2,"0,%i%,1000,%j%", "c:\winbatch\ftping.wbt %i%", @false, 0)
	BoxDrawText(2,"400,%i%,1000 %j%", "Writing", @false, 0)
	BoxDrawText(2, "900, %i%, 1000, %j%", "Passed", @false, 0)
	TimeDelay(0.25)
next
BoxDataClear(2, "tag1")
BoxUpdates(2,3)
TimeDelay(1)
BoxDrawText(2,"0,120,200,140", "cleared everything",@false,0)
exit


				

Article ID:   W12763
Filename:   FTP Example Script from User.txt
File Created: 1999:04:15:16:49:28
Last Updated: 1999:04:15:16:49:28