Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: FTP Boxes functions
;***********************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