#Begin Program Name if @WINEXISTS(#Program Name) WINDOW ACTIVATE,@WINEXISTS(#Program Name) exit end OPTION DECIMALSEP,"." OPTION ERRORTRAP,Error name OPTION SCALE,96 %W = @WINDIR(W) %S = @WINDIR(S) Title Program Name DIALOG CREATE, Program Name,-1,0,440,440,SAVEPOS,Color White,CLASS Program Name DIALOG ADD,MENU,&Menu options,Save list,MS Paint|F5,-,Child dialog,ASCII decoder,-,&Exit|ALT+X DIALOG ADD,PROGRESS,PROGRESS1,380,20,180,20,20,, DIALOG ADD,STYLE,STYLE1,Tahoma,8,U,,black DIALOG ADD,GRADIENT,GRADIENT1,0,0,350,30,white,$00C16100,,righttoleft DIALOG ADD,BITMAP,BITMAP1,85,20,48,48,%W\Blue Lace 16.bmp,This is bitmap with click.,CLICK DIALOG ADD,BITMAP,BITMAP2,95,180,32,32,%S\url.dll,Popup event,CLICK,HAND DIALOG ADD,GROUP,GROUP1,150,20,180,40,GROUP name DIALOG ADD,PROGRESS,PROGRESS2,380,20,180,20,40,, DIALOG ADD,LINE,LINE1,70,20,400,1 DIALOG ADD,SHAPE,SHAPE1,85,99,49,49,RED,$00C16100,This is SHAPE element with click.@CR()You can use it with RECTANGLE"," SQUARE"," ROUNDRECT","@CR()ROUNDSQUARE and ELLIPSE.,ELLIPSE,CLICK DIALOG ADD,TEXT,TEXT1,43,20,,,Text line"," with click,Tooltip test and you can click on it.,CLICK,HAND,TRANSPARENT,STYLE1 DIALOG ADD,TEXT,T2,165,28,,,List drop text,,,,TRANSPARENT DIALOG ADD,TIME,TIME1,3,343,90,24,This is clock and you can click on it.,CLICK DIALOG ADD,BUTTON,BUTTON1,85,250,160,48,Close && Exit DIALOG ADD,PROGRESS,PROGRESS3,380,20,180,20,60,, DIALOG ADD,BUTTON,Run,3,195,58,24, DIALOG ADD,LIST,LIST1,200,20,180,90,,,CLICK DIALOG ADD,EDIT,EDIT1,5,6,180,19, DIALOG ADD,PROGRESS,PROGRESS4,380,20,180,20,80,, DIALOG ADD,COMBO,COMBO1,45,135,95,21,Combo Item1,Chose your shutdown option...,LIST,CLICK gosub fillcombo1 DIALOG ADD,SPIN,SPIN1,45,250,45,24,0|99,0,,CLICK DIALOG ADD,TAB,TAB1,150,210,220,140,Lisa|Bart|Homer DIALOG ADD,TABLE,TABLE1,293,210,220,124,Bart[80]|Lisa[80]|Homer[80],Table 1 Tooltip,COLUMNSORT DIALOG ADD,RADIO,RADIO1,300,20,80,72,Radio station,Radio HIT|Val 202|Zeleni val,Radio HIT,,CLICK DIALOG ADD,CHECK,CHECK1,310,110,80,19,95","6 MHz,,,CLICK DIALOG ADD,CHECK,CHECK2,330,110,80,19,96","90 MHz,,,CLICK DIALOG ADD,CHECK,CHECK3,350,110,80,19,97","0 MHz,,,CLICK DIALOG ADD,STATUS,STATUSname,VDS 5 sampler@TAB()@TAB()Free mem: @format(@fdiv(@SYSINFO(FREEMEM),1024),0.2) MB LIST loadtext,list1 "Putting the text in second line "Isolating Characters "Special Characters "Desktop resolution "System power-up "Wasabi? rem LIST loadtext,TABLE1 rem "Bart rem "Lisa rem "Homer DIALOG SHOW LIST ADD,LIST1,Save LIST1 to txt file list add,table1,hello@tab()hi@tab()hey list add,table1,hi@tab()hey@tab()hello list add,table1,hey@tab()hello@tab()hi Info Welcome to VDS 5 Sampler with practical use of commands.@CR()@CR()This include:@CR()@CR()TAB system@CR()Child dialog system@CR()Adding "&" on button@CR()Coma problem in text@CR()ASCII code creator@CR()Converting KB to MB and GB@CR()Saving information from LIST to text file@CR()and more... DIALOG ADD,PROGRESS,PROGRESS5,380,20,180,20,100,, if @not(%1) %1 = Lisa gosub %1OPEN end DIALOG HIDE,PROGRESS1 DIALOG HIDE,PROGRESS2 DIALOG HIDE,PROGRESS3 DIALOG HIDE,PROGRESS4 DIALOG HIDE,PROGRESS5 :loop wait event,0.1 parse "%E;%D",@event(D) goto %E :LisaCLICK :BartCLICK :HomerCLICK %2 = @substr(%E,1,-5) gosub %1CLOSE shift gosub %1OPEN goto loop :LisaOPEN DIALOG ADD,GROUP,GROUP2,180,220,160,100,Lisa exit :BartOPEN DIALOG ADD,GROUP,GROUP3,180,220,160,100,Bart exit :HomerOPEN DIALOG ADD,GROUP,GROUP4,180,220,160,100,Homer exit :LisaCLOSE Dialog remove,GROUP2 exit :BartCLOSE Dialog remove,GROUP3 exit :HomerCLOSE Dialog remove,GROUP4 exit :Timer goto loop :fillcombo1 %%Comboitem = @dlgtext(Combo1) list loadtext,combo1, "Combo Item 1 "Combo Item 2 "Combo Item 3 "Combo Item 4 "Combo Item 5 "Combo Item 6 LIST SEEK, COMBO1, 0 exit :Combo1CLICK %%Comboitem = @item(COMBO1) if @equal(%%Comboitem,Combo Item 1) info Combo Item = 1 end if @equal(%%Comboitem,Combo Item 2) info Combo Item = 2 end if @equal(%%Comboitem,Combo Item 3) info Combo Item = 3 end if @equal(%%Comboitem,Combo Item 4) info Combo Item = 4 end if @equal(%%Comboitem,Combo Item 5) info Combo Item = 5 end if @equal(%%Comboitem,Combo Item 6) warn Combo Item = 6 end goto loop :SPIN1CLICK %h = @dlgtext(spin1) info Spin value = %h goto loop :LIST1CLICK %I = @ITEM(LIST1) goto %I goto loop :Desktop resolution %X = @SYSINFO(SCREENWIDTH) x @SYSINFO(SCREENHEIGHT) at @SYSINFO(PIXPERIN) DPI parse T2,%X goto loop :System power-up %X = System power-up @SYSINFO(WINBOOT) parse T2,%X goto loop :Special Characters %X = Use from menu ASCII decoder parse T2,%X goto loop :Putting the text in second line %X = Do with this "@CR()" parse T2,%X goto loop :Isolating Characters %X = Shift + 2 add this like this @CHR(34)","@CHR(34) @CHR(34)"@"@CHR(34) parse T2,%X goto loop :Wasabi? %X = Wasabi is Japanese horseradish. parse T2,%X goto loop :Save LIST1 to txt file :Save LISTMENU %%UN = @regread(HCU,Software\Microsoft\Windows\CurrentVersion\Explorer,Logon User Name) %f = @filedlg("Text File (*.txt)|*.txt",Save as,%%UN,Save) if @null(%f) goto loop else goto Save1 end :Save1 %F = @path(%F)@name(%F).txt if @file(%f) goto save2 else LIST SAVEFILE,list1,%f wait end goto loop :Save2 %F = @path(%F)@name(%F).TXT if @file(%f) %R = @MSGBOX(@PATH(%f)@NAME(%f)"."txt already exists.@CR()Do you want to replace it?,Sava As,$031) if @equal(%R,1) LIST SAVEFILE,list1,%f wait 1 else goto loop end end goto loop :BUTTON1BUTTON goto close :BITMAP1CLICK goto text1click :BITMAP2CLICK DIALOG POPUP,Popup Event|-|Hide popup|-|Beep|-|CD eject|CD shut goto loop :RADIO1CLICK info This is Radio Hit event dialog set,Check1,1 goto evloop :RADIO2CLICK info This is Val 202 event dialog set,Check2,1 goto evloop :RADIO3CLICK info This is Zeleni val event dialog set,Check3,1 goto evloop :CHECK1CLICK info This is Check 1 event goto loop :CHECK2CLICK info This is Check 2 event goto loop :CHECK3CLICK info This is Check 3 event goto loop rem ----------------------Begin Child dialog program :Child DialogMENU title Secondary program DIALOG CREATE,Secondary program ,-1,0,300,240,NOMIN DIALOG ADD,BUTTON,BUTTONok,186,214,64,24,OK DIALOG ADD,SHAPE,SHAPE1,10,10,130,40,$00EFDFFF,silver,,,ROUNDRECT DIALOG ADD,TIME,TIME2,18,30,90,24,This is clock and you can click on it.,CLICK DIALOG ADD,TEXT,TEXT3,104,30,,,Life is Like a Box of Chocolates...,,,,TRANSPARENT DIALOG ADD,TRACKBAR,TB1,130,30,180,50,120,,,VERTICAL,CLICK DIALOG ADD,TRACKBAR,TB2,55,10,180,50,120,,,LEFT,CLICK DIALOG ADD,TRACKBAR,TB3,130,80,180,50,120,,,RIGHT,CLICK DIALOG ADD,TRACKBAR,TB4,180,10,180,50,120,,,BOTH,CLICK DIALOG ADD,TRACKBAR,TB5,17,145,150,50,100,,,,CLICK DIALOG ADD,PIECHART,PIECHART1,70,210,50,50,0,This is Piechart,CLICK,HAND DIALOG ADD,STATUS,SB2 Gosub hddfree dialog set,piechart1,%R DIALOG SHOW :evloop goto loop :BUTTONokBUTTON goto close :hddfree parse "%A;%B",@volinfo(C,FS) %R = @format(@fmul(@fdiv(%A,%B),100),2.0) exit :PIECHART1CLICK info Hard disk C have %R "%" of free space@CR()@CR()Other information about main hard disk:@CR()@CR()@format(@fdiv(@volinfo(c,s),1048576),0.1) GB full size / @format(@fdiv(@volinfo(c,f),1048576),0.2) GB free size@CR()It's @volinfo(C,T)@CR()It has @volinfo(C,Y) file system @CR()It has name @volinfo(C,N)@CR()It has serial number: @volinfo(C,Z)@CR()It's loaded with Windows @Sysinfo(Winver,b)@CR()It's updated with @Sysinfo(WININFO) goto evloop :TB1CLICK %%TB1 = @dlgtext(TB1) goto TB1 :TB1 info %%TB1 dialog set,sb2,Trackbar 1 value = %%TB1 goto evloop :TB2CLICK %%TB2 = @dlgtext(TB2) goto TB2 :TB2 info %%TB2 dialog set,sb2,Trackbar 2 value = %%TB2 goto evloop :TB3CLICK %%TB3 = @dlgtext(TB3) goto TB3 :TB3 info %%TB3 dialog set,sb2,Trackbar 3 value = %%TB3 goto evloop :TB4CLICK %%TB4 = @dlgtext(TB4) goto TB4 :TB4 info %%TB4 dialog set,sb2,Trackbar 4 value = %%TB4 goto evloop :TB5CLICK %%TB5 = @dlgtext(TB5) goto TB5 :TB5 rem info %%TB5 dialog set,sb2,Trackbar 5 value = %%TB5 goto evloop rem -----------------------End Begin Child dialog program :ASCII decoderMENU title ASCII decoder %A = @input(Create ASCII code to use with "@CHR" code@CR()@CR()@CR()Example: Enter letter @chr(64)) if @zero(%A) warn You did not enter a letter... goto loop elsif goto ASCII decoder end :ASCII decoder %A = @asc(%A) title ASCII decoder info You enter @chr(%A) = "@CHR("%A")" goto loop :CD EjectMENU %L = @mci(set cdaudio door open) goto loop :CD shutMENU %L = @mci(set cdaudio door closed) goto loop :Popup EventMENU info You used the Popup element goto loop :Hide popupMENU goto loop :BeepMENU beep beep beep beep beep beep play Dummy.wav info dummy.wav is simulating Windows default sound. If Windows system sounds are disabled the PC Speaker will be heard...@CR()beep command work's only with Windows9x or ME. goto loop :TEXT1CLICK title Program Name info This is info event... warn This is warn event... run Noname.exe shell open, http://www.vdsworld.com goto loop :MS PAINTmenu run %S\mspaint.exe goto loop :ExitMENU info Thanks for using VDS 5 sampler goto close :Close && ExitBUTTON goto close :Time1CLICK :Time2CLICK run control.exe timedate.cpl goto loop rem :Error name Title Exiting... %R = Window @MSGBOX(Unknown error !!!,,ERROR,$010) stop :SHAPE1CLICK info You Click the SHAPE MODEL...simulating ERROR !!! %R = Window @MSGBOX(Simulation error"," Exiting..,ERROR,$010) stop :RunBUTTON %U = @dlgtext(edit1) if @zero(%U) Title Title name or nothing not even a title line warn Please enter a file name"," exe or whatever...to be started from system using shell open command !!! else shell open,%U end goto loop :CLOSE if @greater(%d, 0) DIALOG CLOSE %e = @event() goto LOOP else end EXIT #End Program name