Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: winzip 7.0
program="z:\WinZip70\WINZIP32.EXE" sysdir = Environment("SYSTEMROOT") pace=0 if !DirExist("C:\instlogs") then DirMake("C:\instlogs") loghandle=fileopen("C:\instlogs\winzip.txt","write") FileWrite(loghandle,"[%program%]") FileWrite(loghandle,Timedate()) run(program,"") title="WinZip" child="&Ordering Information" timeout=2 gosub waitturn If c==@false then title="WinZip Tip of the Day" child="" timeout=2 gosub waitturn IF t then MouseClickBtn(title,"","Close") Goto einde Endif title="WinZip Setup" child="Thank you for installing WinZip!" timeout=-1 gosub waitturn MouseClickBtn(title,"","Next >") title="License Agreement and Warranty Disclaimer" child="" timeout=3 gosub waitturn If t then MouseClickBtn(title,"","Yes") title="WinZip Setup" child='Select "Wizard" or "Classic"' timeout=-1 gosub waitturn SendKeysTo(title,"!c"); Start with WinZip Classic MouseClickBtn(title,"","Next >") child='Click "Next" to proceed.' timeout=-1 gosub waitturn SendKeysTo(title,"!e"); Express Setup MouseClickBtn(title,"","Next >") child="Finish" timeout=-1 gosub waitturn MouseClickBtn(title,"","Finish") title="WinZip" child="No" timeout=3 gosub waitturn Display(2,"Child",c) if c then MouseClickBtn(title,"","No") title="WinZip Tip of the Day" child="" timeout=3 gosub waitturn IF t then MouseClickBtn(title,"","Close") Endif :Einde title="WinZip" While Winexist(title) WinClose(title) TimeDelay(2) Endwhile shortcut=strcat(sysdir,"\profiles\all users\start menu\utilities\WinZip.lnk") if !FileExist(shortcut) then ShortcutMake(shortcut,program,"","",0) FileWrite(loghandle,Timedate()) FileClose(loghandle) Return :waitturn t=WinWaitExist(title, timeout) IF child<>"" then c=WinWaitChild(title,child,timeout) TimeDelay(pace) filewrite(loghandle,title) filewrite(loghandle,child) return
Article ID: W14464
Filename: Install Winzip7 Sample Code.txt
File Created: 2000:03:02:17:47:24
Last Updated: 2000:03:02:17:47:24