forum.vdsworld.com

cnodnarb · Posted: Thu Sep 12, 2002 4:49 pm Post subject: HTML Send

EDIT: BAH!!! It won't fit. Any way to get all of the script onto here?

Greets to peeps.

I am a long time VDS programmer, but have been inactive in the community for quite some time. To kick off my re-emergence I have decided to make HTML Send open source, this originally was a vds 2 16 bit project, which updated to a vds 2 32 bit, then to vds 3.5 32 bit.

I don't know how to color the code yet, here's the source below. All 2640 lines of it. Uses lots of variables for wierd things, this is due to the script size limit in vds 2 16 bit, I had to use variables for common strings to keep the source size small enough to compile, and I didn't know how to use the command line compile in vds 2 until I was almost finished.

option errortrap,evloop
title NodNarb's HTML Send 2.1
list create,3
list create,4
%a = @regread(root,htmlfile\shell\edit\command)
if @not(@equal(%a,@chr(34)%0@chr(34) @chr(34)@chr(37)1@chr(34)))
goto askregistry
else
goto noregistry
end
:askregistry
%a = @ask(Would you like to make HTML Send your default editor?)
if @null(%a)
goto noregistry
else
registry write,root,htmlfile\shell\edit,,&Edit
registry write,root,htmlfile\shell\edit\command,,@chr(34)%0@chr(34) @chr(34)@chr(37)1@chr(34)
end
:noregistry
if @not(@null(%1))
run notepad %1
else
shell open,notepad
end
if @winexist(NHS)
STOP
else
end
list create,2
REM *** Changed by Script Converter ***
list create,1
REM *** Converted by Script Converter on Sunday, April 13, 1980 9:27 AM ***
:mainopen
%x = @key(left)
%y = NodNarb's HTML Send
%t = NHS
%l = 389-4534928
%w = registered
%6 = registration
%7 = show
if @not(@equal(@regread(CURUSER,keyboard layout\substitutes\00000409,,),00010409))
%s = @chr(34)
goto next40
else
%s = @chr(34)@chr(32)
goto next40
:next40
%9 = button
%8 = hide
%n = #notepad
inifile open,@path(%0)htmsend.ini
title %y 2.1
if @null(@iniread(who,whats))
inifile write,who,whats,50
goto nxt12
else
goto nxt12
:nxt12
:firstopen
:dialog 0
title %y 2.1
REM *** Changed by Script Converter ***
DIALOG CREATE,%t,-1,0,109,401,ONTOP,savepos
DIALOG ADD,Style,Style1,Comic Sans Ms
DIALOG ADD,list,list1,1000,1000
DIALOG ADD,%9,A,0,0,27,20,A,Style1
DIALOG ADD,%9,B,0,27,27,20,B,Style1
DIALOG ADD,%9,C,0,54,27,20,C,Style1
DIALOG ADD,%9,D,0,81,29,20,D,Style1
DIALOG ADD,%9,New,20,0,110,20,New Page,Style1
DIALOG ADD,%9,Indent,40,0,110,20,Indent,Style1
DIALOG ADD,%9,LBREAK,60,0,110,20,Break Line,Style1
DIALOG ADD,%9,Pbreak,80,0,110,20,Page Break,Style1
DIALOG ADD,%9,FONT,100,0,110,20,Change Font,style1
DIALOG ADD,%9,Image,120,0,110,20,Insert Image,Style1
DIALOG ADD,%9,Movie,140,0,110,20,Insert Movie,Style1
DIALOG ADD,%9,ANCHOR,160,0,110,20,Insert Anchor,style1
DIALOG ADD,%9,JUMP,180,0,110,20,Make Link,style1
DIALOG ADD,%9,ULIST,200,0,110,20,Unordered List,style1
DIALOG ADD,%9,OLIST,220,0,110,20,Ordered List,style1
DIALOG ADD,%9,Definition,240,0,110,20,Definition,style1
DIALOG ADD,%9,HR,260,0,110,20,Horizontal Rule,Style1
DIALOG ADD,%9,Comment,280,0,110,20,Comment,style1
DIALOG ADD,%9,Ascii,300,0,110,20,Char to HTML Ascii,Style1
dialog add,%9,working,320,0,110,20,Project Folder,style1
DIALOG ADD,%9,View,340,0,110,20,View Page,style1
DIALOG ADD,%9,Help,360,0,110,20,Help,style1
DIALOG ADD,%9,About,380,0,110,20,About,Style1
DIALOG ADD,%9,Unreg,400,0,110,20,UNREGISTERED
DIALOG ADD,%9,Bold,20,0,110,20,Bold,Style1
DIALOG ADD,%9,italic,40,0,110,20,Italic,Style1
DIALOG ADD,%9,Underline,60,0,110,20,Underline,Style1
DIALOG ADD,%9,Strike,80,0,110,20,Strike,style1
DIALOG ADD,%9,Blockquote,100,0,110,20,BlockQuote,style1
DIALOG ADD,%9,TeleType,120,0,110,20,TeleType,Style1
DIALOG ADD,%9,KeyBoardData,140,0,110,20,KeyBoardData,Style1
DIALOG ADD,%9,Preformat,160,0,110,20,Preformat,Style1
DIALOG ADD,%9,Center,180,0,110,20,Center,Style1
DIALOG ADD,%9,Marquee,200,0,110,20,Marquee,Style1
DIALOG ADD,%9,Strong,220,0,110,20,Strong,Style1
DIALOG ADD,%9,small,240,0,110,20,Small,Style1
DIALOG ADD,%9,Big,260,0,110,20,Big,Style1
DIALOG ADD,%9,SubScript,280,0,110,20,SubScript,style1
DIALOG ADD,%9,Superscript,300,0,110,20,SuperScript,Style1
DIALOG ADD,%9,Table,20,0,110,20,New Table,Style1
DIALOG ADD,%9,TR,40,0,110,20,Table Row,Style1
DIALOG ADD,%9,TH,60,0,110,20,Table Heading,Style1
DIALOG ADD,%9,TD,80,0,110,20,Table Data,Style1
DIALOG ADD,%9,Frameset,100,0,110,20,Frame Set,Style1
DIALOG ADD,%9,FrameSRC,120,0,110,20,Frame Source,Style1
DIALOG ADD,%9,Form,140,0,110,20,New Form,Style1
DIALOG ADD,%9,TextArea,160,0,110,20,Text Area,Style1
DIALOG ADD,%9,Combo,180,0,110,20,Combo Box,Style1
DIALOG ADD,%9,List,200,0,110,20,List Box,Style1
DIALOG ADD,%9,BoxData,220,0,110,20,Box Data,Style1
DIALOG ADD,%9,Text,240,0,110,20,Text Input,Style1
DIALOG ADD,%9,Password,260,0,110,20,Password Input,Style1
DIALOG ADD,%9,Radio,280,0,110,20,Radio Input,Style1
DIALOG ADD,%9,CheckBox,300,0,110,20,Check Box,Style1
DIALOG ADD,%9,Hidden,320,0,110,20,Hidden Input,Style1
DIALOG ADD,%9,Submit,340,0,110,20,Submit %9,Style1
DIALOG ADD,%9,Reset,360,0,110,20,Reset %9,Style1
DIALOG ADD,%9,Quote,380,0,110,20,Shifting Quotes,Style1
DIALOG ADD,%9,User1,20,0,110,20,Run Notepad,Style1
DIALOG ADD,%9,User2,40,0,110,20,Explore Project,Style1
DIALOG ADD,%9,User3,60,0,110,20,Create Folder,Style1
DIALOG ADD,%9,User4,80,0,110,20,Edit Pages,Style1
DIALOG ADD,%9,User5,100,0,110,20,View Pages,Style1
DIALOG ADD,%9,User6,120,0,110,20,Edit Graphics,Style1
DIALOG ADD,%9,User7,140,0,110,20,Import Files,Style1
DIALOG ADD,%9,User8,160,0,110,20,Text Files 2 Html,Style1
DIALOG ADD,%9,User9,180,0,110,20,Web Resources,Style1
DIALOG ADD,%9,User10,200,0,110,20,Spreadsheet 2 Html,Style1
DIALOG ADD,%9,User11,220,0,110,20,Tools,Style1
DIALOG ADD,%9,User12,240,0,110,20,E-Mail NodNarb,Style1
DIALOG ADD,%9,User13,260,0,110,20,,Style1
DIALOG ADD,%9,User14,280,0,110,20,,Style1
DIALOG ADD,%9,user15,300,0,110,20,,style1
DIALOG ADD,%9,user16,320,0,110,20,,style1
DIALOG ADD,%9,user17,340,0,110,20,,style1
DIALOG ADD,%9,user18,360,0,110,20,,style1
DIALOG ADD,%9,user19,380,0,110,20,,style1
DIALOG ADD,%9,user20,400,0,110,20,,style1
DIALOG ADD,%9,BEdit,420,0,110,20,,Style1
dialog set,bedit,
REM *** The following line will require re-coding
REM *** See upgrade notes for more information
REM DIALOG ADD,Popup,New Page|Indent|Break Line|Page Break|Change Font|Insert Image|Insert Movie|Insert Anchor|Make Jump|Unordered List|Ordered List|Definition|Horizontal Rule|Comment|Char to HTML Ascii|View Page|Help|About
:dialog 1
DIALOG CREATE,Font,-1,0,400,158,NOMIN,ONTOP,nosys
DIALOG ADD,EDIT,EDIT1,25,10,145
DIALOG ADD,LIST,LIST1,45,10,145,100,CLICK,sorted
DIALOG ADD,TEXT,TEXT1,10,10,,,Font
DIALOG ADD,TEXT,TEXT2,10,165,,,Font Style
DIALOG ADD,EDIT,EDIT2,25,165,90
DIALOG ADD,LIST,LIST2,45,165,90,100,CLICK
DIALOG ADD,TEXT,TEXT3,10,265,,,Size
DIALOG ADD,EDIT,EDIT3,25,265,40,,,EXIT
DIALOG ADD,LIST,LIST3,45,265,40,100,click
DIALOG ADD,BUTTON,BUTTON1,70,315,,25,OK,DEFAULT
DIALOG ADD,BUTTON,BUTTON2,100,315,,25,Cancel
DIALOG ADD,RADIO,RADIO1,10,308,,44,Color
DIALOG ADD,COMBO,COMBO1,26,312,72,32,,LIST,click
list clear,1
:dialog 2
DIALOG CREATE,Insert Image,-1,0,200,205,nosys,ontop
DIALOG ADD,GROUP,GROUP1b,5,5,190,40,Image Source File
DIALOG ADD,EDIT,EDIT1b,20,10,180,19
DIALOG ADD,GROUP,GROUP2b,50,5,190,40,Popup Message
DIALOG ADD,EDIT,EDIT2b,65,10,180,19
DIALOG ADD,CHECK,check1b,100,10,180,18,Use Default Height and Width,,click
DIALOG ADD,GROUP,GROUP3b,120,5,80,40,Height
DIALOG ADD,EDIT,EDIT3b,135,10,70,19
DIALOG ADD,GROUP,GROUP4b,120,110,80,40,Width
DIALOG ADD,EDIT,EDIT4b,135,115,70,19
DIALOG ADD,BUTTON,BUTTON1b,170,115,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2b,170,8,64,24,Cancel
list clear,2
:dialog 3
DIALOG CREATE,Insert Movie,-1,0,200,153,nosys,ontop
DIALOG ADD,GROUP,GROUP1c,5,5,190,40,Movie Source File
DIALOG ADD,EDIT,EDIT1c,20,10,180,19
DIALOG ADD,CHECK,check1c,50,10,180,18,Use Default Height and Width,,click
DIALOG ADD,GROUP,GROUP3c,70,5,80,40,Height
DIALOG ADD,EDIT,EDIT2c,85,10,70,19
DIALOG ADD,GROUP,GROUP4c,70,110,80,40,Width
DIALOG ADD,EDIT,EDIT3c,85,115,70,19
DIALOG ADD,BUTTON,BUTTON1c,120,115,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2c,120,8,64,24,Cancel
LIST REGVALS,1,LOCAL,Software\Microsoft\Windows\CurrentVersion\Fonts
REM DIALOG 4
:dialog 4
DIALOG CREATE,Frame Set,-1,0,205,154,nosys,ontop
DIALOG ADD,GROUP,GROUP1fs,6,4,195,66
DIALOG ADD,RADIO,RADIO1fs,12,50,102,54,Frame Set Options,Columns|Rows,Columns
DIALOG ADD,BUTTON,BUTTON1fs,125,135,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2fs,125,5,64,24,Cancel
DIALOG ADD,GROUP,GROUP2fs,80,5,195,40,Values
DIALOG ADD,EDIT,EDIT1fs,95,10,25,19
DIALOG ADD,TEXT,TEXT1fs,98,40,,,@chr(44)
DIALOG ADD,EDIT,EDIT2fs,95,50,25,19
DIALOG ADD,TEXT,TEXT2fs,98,80,,,@chr(44)
DIALOG ADD,EDIT,EDIT3fs,95,90,25,19
DIALOG ADD,TEXT,TEXT3fs,98,120,,,@chr(44)
DIALOG ADD,EDIT,EDIT4fs,95,130,25,19
DIALOG ADD,TEXT,TEXT4fs,98,160,,,@chr(44)
DIALOG ADD,EDIT,EDIT5fs,95,170,25,19
dialog set,edit2fs,*
dialog disable,edit3fs
dialog disable,edit4fs
dialog disable,edit5fs
REM DIALOG 5
:dialog 5
DIALOG CREATE,Tools,-1,0,145,195,nosys
DIALOG ADD,GROUP,GROUP1tools,16,152,180,40,Program Title
DIALOG ADD,LIST,LIST1tools,10,8,130,144,click,dblclick
DIALOG ADD,EDIT,EDIT1tools,30,158,168,19
DIALOG ADD,GROUP,GROUP2tools,58,152,180,40,Program Path
DIALOG ADD,BITMAP,BITMAP1tools,104,162,32,32
DIALOG ADD,BUTTON,BUTTON1tools,100,266,64,24,Browse
DIALOG ADD,BUTTON,BUTTON2tools,162,75,64,24,<<More
DIALOG ADD,BUTTON,BUTTON3tools,162,10,64,24,Launch,default
DIALOG ADD,BUTTON,BUTTON4tools,130,266,64,24,Save
DIALOG ADD,EDIT,EDIT2tools,72,158,166,19
DIALOG ADD,BUTTON,BUTTON5tools,160,266,64,24,Delete
DIALOG ADD,BUTTON,BUTTON6tools,160,192,64,24,Exit
%a = 0
%b = @count(1)
:loadloop
dialog select,1
REM *** Changed by Script Converter ***
list seek,1,%a
option fieldsep,(
parse "%c;%d",@item(1)
REM *** Changed by Script Converter ***
list add,2,%c
%a = @succ(%a)
if @equal(%a,%b)
goto nextload
else
end
goto loadloop
REM *** Changed by Script Converter ***
list seek,2,0
:nextload
if @match(2,Bold)
REM *** Changed by Script Converter ***
list delete,2
goto nextload
else
REM *** Changed by Script Converter ***
list seek,2,0
goto nextload4
end
:nextload4
if @match(2,Italic)
REM *** Changed by Script Converter ***
list delete,2
goto nextload4
else
goto nextload5
end
:nextload5
REM *** Changed by Script Converter ***
list assign,list1,2
REM *** Changed by Script Converter ***
list seek,list1,@iniread(list,list1)
dialog set,edit1,@item(list1)
REM *** Changed by Script Converter ***
list loadtext,list2
"Regular
"Bold
"Italic
"Bold Italic
REM *** Changed by Script Converter ***
list seek,list2,@iniread(list,list2)
dialog set,edit2,@item(list2)
REM *** Changed by Script Converter ***
list loadtext,list3
"1
"2
"3
"4
"5
"6
"7
REM *** Changed by Script Converter ***
list seek,list3,@iniread(list,list3)
dialog set,edit3,@item(list3)
REM *** Changed by Script Converter ***
list loadtext,combo1
"Black
"Maroon
"Green
"Olive
"Navy
"Purple
"Gray
"Silver
"Red
"Lime
"Yellow
"Blue
"Aqua
"White
REM *** Changed by Script Converter ***
list seek,combo1,@iniread(list,combo1)
dialog select,0
directory create,c:\nodnarb
%a = 12
:openloop
%a = @sum(%a,1)
REM %b = @iniread(User%a,Title)
%b =
dialog set,user%a,%b
if @equal(%a,20)
goto noteopen
else
goto openloop
:noteopen
goto hideset
REM OLD SCRIPT
wait
if @equal(@iniread(Notepad,S),1)
goto normal
else
goto iconized
:normal
%a = @iniread(Notepad,T)
%b = @iniread(notepad,L)
%c = @iniread(Notepad,W)
%d = @iniread(Notepad,H)
window position,%n,%a,%b,%c,%d
goto %8set
else
goto iconized
:iconized
if @equal(@iniread(Notepad,S),2)
window iconize,%n
goto %8set
else
goto maximize
:maximize
if @both(@null(@iniread(Notepad,S)),@null(@iniread(notepad,T)))
goto %8set
else
if @equal(@iniread(notepad,S),3)
window maximize,%n
goto %8set
else
inifile write,notepad,s,1
goto %8set
:hideset
%1 = %7
%2 = %8
%3 = %8
%4 = %8
:Hideshowloop
if @equal(%1,%8)
Dialog %8,New
Dialog %8,Indent
Dialog %8,Lbreak
Dialog %8,Pbreak
Dialog %8,Font
Dialog %8,Image
Dialog %8,Movie
Dialog %8,Anchor
Dialog %8,Jump
Dialog %8,UList
Dialog %8,Olist
Dialog %8,Definition
Dialog %8,HR
Dialog %8,Comment
dialog %8,ascii
dialog %8,working
Dialog %8,View
Dialog %8,Help
dialog %8,about
dialog %8,Unreg
goto loop2
else
Dialog Disable,A
Dialog Enable,B
Dialog Enable,C
Dialog Enable,D
Dialog %7,New
Dialog %7,Indent
Dialog %7,Lbreak
Dialog %7,Pbreak
Dialog %7,Font
Dialog %7,Image
Dialog %7,Movie
Dialog %7,Anchor
Dialog %7,Jump
Dialog %7,UList
Dialog %7,Olist
Dialog %7,Definition
Dialog %7,HR
Dialog %7,Comment
dialog %7,ascii
dialog %7,working
Dialog %7,View
Dialog %7,Help
dialog %7,about
dialog %7,unreg
PARSE "%a;%b;%c",@winpos(%t,TLW)
Window Position,%t,%a,%b,%c,425
goto loop2
:loop2
if @equal(%2,%8)
Dialog %8,Bold
Dialog %8,Italic
Dialog %8,Underline
Dialog %8,Strike
Dialog %8,BlockQuote
Dialog %8,TeleType
Dialog %8,KeyBoardData
Dialog %8,Preformat
Dialog %8,Center
Dialog %8,Marquee
Dialog %8,Strong
Dialog %8,Small
Dialog %8,Big
Dialog %8,SubScript
Dialog %8,SuperScript
goto loop3
else
dialog Disable,B
Dialog Enable,A
Dialog Enable,C
Dialog Enable,D
Dialog %7,Bold
Dialog %7,Italic
Dialog %7,Underline
Dialog %7,Strike
Dialog %7,BlockQuote
Dialog %7,TeleType
Dialog %7,KeyBoardData
Dialog %7,Preformat
Dialog %7,Center
Dialog %7,Marquee
Dialog %7,Strong
Dialog %7,Small
Dialog %7,Big
Dialog %7,SubScript
Dialog %7,SuperScript
PARSE "%a;%b;%c",@winpos(%t,TLW)
Window Position,%t,%a,%b,%c,345
goto loop3
:loop3
if @equal(%3,%8)
Dialog %8,Table
Dialog %8,TR
Dialog %8,TH
Dialog %8,TD
Dialog %8,Frameset
Dialog %8,Framesrc
Dialog %8,Form
Dialog %8,TextArea
Dialog %8,Combo
Dialog %8,List
Dialog %8,BoxData
Dialog %8,Text
Dialog %8,Password
Dialog %8,Radio
Dialog %8,CheckBox
Dialog %8,Hidden
Dialog %8,Submit
Dialog %8,Reset
dialog %8,quote
goto loop4
else
Dialog Disable,C
Dialog enable,A
Dialog Enable,B
Dialog Enable,D
Dialog %7,Table
Dialog %7,TR
Dialog %7,TH
Dialog %7,TD
Dialog %7,Frameset
Dialog %7,Framesrc
Dialog %7,Form
Dialog %7,TextArea
Dialog %7,Combo
Dialog %7,List
Dialog %7,BoxData
Dialog %7,Text
Dialog %7,Password
Dialog %7,Radio
Dialog %7,CheckBox
Dialog %7,Hidden
Dialog %7,Submit
Dialog %7,Reset
dialog %7,quote
PARSE "%a;%b;%c",@winpos(%t,TLW)
Window Position,%t,%a,%b,%c,405
goto loop4
:loop4
if @equal(%4,%8)
Dialog %8,User1
Dialog %8,User2
Dialog %8,User3
Dialog %8,User4
Dialog %8,User5
Dialog %8,User6
Dialog %8,User7
Dialog %8,User8
Dialog %8,User9
Dialog %8,User10
Dialog %8,User11
Dialog %8,User12
Dialog %8,User13
Dialog %8,User14
dialog %8,user15
dialog %8,user16
dialog %8,user17
dialog %8,user18
dialog %8,user19
dialog %8,user20
Dialog %8,BEDIT
dialog show
goto Evloop
else
Dialog Disable,D
Dialog Enable,A
Dialog Enable,B
Dialog Enable,C
Dialog %7,User1
Dialog %7,User2
Dialog %7,User3
Dialog %7,User4
Dialog %7,User5
Dialog %7,User6
Dialog %7,User7
Dialog %7,User8
Dialog %7,User9
Dialog %7,User10
Dialog %7,User11
Dialog %7,User12
Dialog %7,User13
Dialog %7,User14
dialog %7,user15
dialog %7,user16
dialog %7,user17
dialog %7,user18
dialog %7,user19
dialog %7,user20
Dialog %7,BEDIT
PARSE "%a;%b;%c",@winpos(%t,TLW)
Window Position,%t,%a,%b,%c,285
dialog show
Goto Evloop
:evloop
title NodNarb's HTML Send 2.1
wait event
%a = @event(d)
parse "%a;%b",%a
dialog select,%b
goto %a
:Abutton
%1 = %7
%2 = %8
%3 = %8
%4 = %8
goto %8%7loop
:Bbutton
%1 = %8
%2 = %7
%3 = %8
%4 = %8
goto %8%7loop
:Cbutton
%1 = %8
%2 = %8
%3 = %7
%4 = %8
goto %8%7loop
:Dbutton
%1 = %8
%2 = %8
%3 = %8
%4 = %7
goto %8%7loop
:new pagemenu
goto newbutton
:indentmenu
goto indentbutton
:break linemenu
goto lbreakbutton
:Page Breakmenu
goto pbreakbutton
:change fontmenu
goto fontbutton
:Insert Imagemenu
goto imagebutton
:insert moviemenu
goto moviebutton
:insert anchormenu
goto anchorbutton
:make jumpmenu
goto jumpbutton
:unordered listmenu
goto ulistbutton
:ordered listmenu
goto olistbutton
:definitionmenu
goto definitionbutton
:horizontal rulemenu
goto hrbutton
:commentmenu
goto commentbutton
:char to html asciimenu
goto asciibutton
:view pagemenu
goto viewbutton
:helpmenu
goto helpbutton
:aboutmenu
goto aboutbutton
:NewButton
DIALOG CREATE,New Page,-1,0,200,341,nosys,ontop
DIALOG ADD,GROUP,GROUP1,5,5,190,40,Page Title
DIALOG ADD,EDIT,EDIT1a,20,10,180,19
DIALOG ADD,GROUP,GROUP2,50,5,190,40,Keywords
DIALOG ADD,EDIT,EDIT2a,65,10,180,19
DIALOG ADD,GROUP,GROUP3,95,5,190,40,Description
DIALOG ADD,EDIT,EDIT3a,110,10,180,19
DIALOG ADD,GROUP,GROUP4,140,5,190,40,Background Sound
DIALOG ADD,EDIT,EDIT4a,155,10,180,19
DIALOG ADD,CHECK,check1a,234,12,180,18,Links Change on Mouseover
DIALOG ADD,GROUP,GROUP5a,258,4,190,40,Background File or Color
DIALOG ADD,EDIT,EDIT5a,274,8,180,19
DIALOG ADD,BUTTON,BUTTON1a,312,130,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2a,308,6,64,24,Cancel
DIALOG ADD,GROUP,GROUP6a,188,6,188,40,Link Colors
DIALOG ADD,COMBO,COMBO1,202,12,73,21,Alink
list add,combo1,Blue
list add,combo1,Red
list add,combo1,User Defined
DIALOG ADD,COMBO,COMBO2,202,110,72,21,Vlink
list add,combo2,Blue
list add,combo2,Red
list add,combo2,User Defined
DIALOG SHOWmodal
goto evloop
:button1abutton
%a = @dlgtext(edit1a)
%f = @dlgtext(edit2a)
%e = @dlgtext(edit3a)
%b = @dlgtext(edit4a)
%g = @dlgtext(check1a)
%c = @dlgtext(edit5a)
goto oldnewpagescript
:button2abutton
goto evloop
%a = @input(Insert Page Title)
%f = @input(Insert any WebFind Keywords)
%e = @input(Insert WebPage Description)
%b = @input(Insert Background Sound)
%g = @ask(Make Links Dynamically Change Color?)
%c = @input(Insert Background File or Color)
:oldnewpagescript
if @ext(%c)
%d = <BODY BACKGROUND=%s%c%s
goto new3
else
if @not(@null(%c))
%d = <BODY BGCOLOR=%s%c%s
goto new3
else
%d = <BODY

if @equal(@dlgtext(combo1),Alink)
%%alink =
else
%%alink = @chr(32)alink=%s@dlgtext(combo1)%s@chr(32)
end
if @equal(@dlgtext(combo2),vlink)
%%vlink = >
else
%%vlink = vlink=%s@dlgtext(combo2)%s>
end
goto new3
:new3
window send,%n,<HTML>@cr()<HEAD>@cr()<TITLE>%a@cr()</TITLE>@cr()
if @null(%b)
goto newf
else
window send,%n,<BGSOUND SRC=%s%b%s LOOP=%s1%s>@cr()
goto newf
:newf
if @not(@null(%f))
window send,%n,<META NAME=%sKeywords%s CONTENT=%s%f%s>@cr()
goto newe
else
goto newe
:newe
if @not(@null(%e))
window send,%n,<META NAME=%sDescription%s CONTENT=%s%e%s>@cr()
goto generator
else
goto generator
:generator
window send,%n,<META NAME=%sGenerator%s CONTENT=%s%y 2.1%s>@cr()
goto new2
:new2
if @null(%g)
goto newnew
else
window send,%n,<style>@cr()@cr()</style>@cr()
goto newnew
:newnew
window send,%n,</HEAD>@cr()%d%%alink%%vlink@cr()@cr()</BODY>@cr()</HTML>@key(Up)@key(up)
goto evloop
:Indentbutton
window send,%n,     
goto evloop
:LbreakButton
window send,%n,<BR>
goto evloop
:pbreakButton
window send,%n,<P>
goto evloop
:FONTBUTTON
dialog select,1
dialog show
:edit1exit
:edit2exit
:edit3exit
goto evloop
:list2click
dialog set,edit2,@item(list2)
goto evloop
:list1click
dialog set,edit1,@item(list1)
goto evloop
:list3click
dialog set,edit3,@item(list3)
goto evloop
:combo1click
goto evloop
:BUTTON1BUTTON
window send,#notepad,<FONT FACE=%s@dlgtext(edit1)%s size=@dlgtext(edit3) color=%s@item(combo1)%s>
if @equal(@dlgtext(edit2),Regular)
window send,#notepad,@cr()@cr()
goto finfont
else
end
if @equal(@dlgtext(edit2),Bold)
window send,#notepad,<B>@cr()@cr()</B>
else
end
if @equal(@dlgtext(edit2),Italic)
window send,#notepad,<I>@cr()@cr()</I>
else
end
if @equal(@dlgtext(edit2),Bold Italic)
window send,#notepad,<B><I>@cr()@cr()</I></B>
else
end
:finfont
window send,#notepad,</FONT>@key(up)
inifile write,list,list1,@index(list1)
inifile write,list,list2,@index(list2)
inifile write,list,list3,@index(list3)
inifile write,list,combo1,@index(combo1)
dialog hide
goto evloop

:button2button
dialog hide
goto evloop
REM OLD SCRIPT
%a = @input(Insert Font Face)
%b = @input(Insert Font Color)
%c = @input(Insert Font Size)
window send,%n,<FONT
if @null(%a)
goto fcolor
else
window send,%n,@chr(32)FACE=%s%a%s
goto Fcolor
:fcolor
if @null(%b)
goto fsize
else
window send,%n,@chr(32)COLOR=%s%b%s
goto fsize
:fsize
if @null(%c)
window send,%n,>@cr()@cr()</FONT>@key(up)
goto evloop
else
window send,%n,@chr(32)SIZE=%c>@cr()@cr()</FONT>@key(up)
goto evloop
:imagebutton
dialog select,2
dialog show
dialog set,check1b,1
:check1bclick
if @null(@dlgtext(check1b))
dialog enable,edit3b
dialog enable,edit4b
goto evloop
else
end
dialog clear,edit3b
dialog disable,edit3b
dialog clear,edit4b
dialog disable,edit4b
goto evloop
:button1bbutton
%a = @dlgtext(edit1b)
%b = @dlgtext(edit3b)
%c = @dlgtext(edit4b)
%d = @dlgtext(edit2b)
dialog hide
goto imagescript
:button2bbutton
dialog hide
goto evloop
REM OLD IMAGE SCRIPT
%a = @input(Insert Image Source)
if @null(%a)
goto evloop
else
%b = @input(Insert Height)
%c = @input(Insert Width)
%d = @input(Insert Popup Message)
:imagescript
window send,%n,<IMG SRC=%s%a%s
if @null(%b)
goto image2
else
window send,%n,@chr(32)HEIGHT=%b
goto image2
:image2
if @null(%c)
goto image3
else
window send,%n,@chr(32)WIDTH=%c
goto image3
:image3
if @null(%d)
window send,%n,>
goto evloop
else
window send,%n,@chr(32)ALT=%s%d%s>
goto evloop
:MOVIEBUTTON
dialog select,3
dialog show
dialog set,check1c,1
:check1cclick
if @null(@dlgtext(check1c))
dialog enable,edit2c
dialog enable,edit3c
goto evloop
else
end
dialog clear,edit2c
dialog disable,edit2c
dialog clear,edit3c
dialog disable,edit3c
goto evloop
:button1cbutton
%a = @dlgtext(edit1c)
%b = @dlgtext(edit2c)
%c = @dlgtext(edit3c)
dialog hide
goto moviescript
:button2cbutton
dialog hide
goto evloop
REM OLD MOVIE SCRIPT
%a = @input(Insert Movie Path)
if @null(%a)
goto evloop
else
%b = @input(Insert Height)
%c = @input(Insert Width)
:moviescript
Window send,%n,<IMG DYNSRC=%s%a%s
if @null(%b)
goto movie2
else
window send,%n,@chr(32)HEIGHT=%b
goto movie2
:Movie2
if @null(%c)
window send,%n,@chr(32)Start=fileopen>
goto evloop
else
window send,%n,@chr(32)WIDTH=%c Start=fileopen>
goto evloop
:Anchorbutton
DIALOG CREATE,New Anchor,-1,0,200,80,nosys,ontop
DIALOG ADD,GROUP,GROUP1,5,5,190,40,Anchor Name
DIALOG ADD,EDIT,EDIT1e,20,10,180,19
DIALOG ADD,BUTTON,BUTTON1e,50,130,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2e,50,10,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1ebutton
%a = @dlgtext(edit1e)
goto anchorscript
:button2ebutton
goto evloop
REM OLD SCRIPT
%a = @input(Please Name this Anchor)
:anchorscript
if @null(%a)
goto evloop
else
window send,%n,<A NAME=%s%a%s></A>
goto evloop
:Jumpbutton
DIALOG CREATE,New Link,-1,0,200,218,nosys,ontop
DIALOG ADD,GROUP,GROUP1,5,5,190,40,File to Jump to....
DIALOG ADD,EDIT,EDIT1d,20,10,180,19
DIALOG ADD,GROUP,GROUP2,50,5,190,40,Jump Anchor
DIALOG ADD,EDIT,EDIT2d,65,10,180,19
DIALOG ADD,GROUP,GROUP3,95,5,190,40,Target Window
DIALOG ADD,EDIT,EDIT3d,110,10,180,19
DIALOG ADD,GROUP,GROUP4,140,5,190,40,Link Text
DIALOG ADD,EDIT,EDIT4d,155,10,180,19
DIALOG ADD,BUTTON,BUTTON1d,185,130,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2d,185,10,64,24,Cancel
dialog showmodal
goto evloop
:button1dbutton
%a = @dlgtext(edit1d)
%b = @dlgtext(edit2d)
%c = @dlgtext(edit3d)
%g = @dlgtext(edit4d)
goto jumpscript
:button2dbutton
goto evloop
REM OLD SCRIPT
%a = @input(Insert File Link)
%b = @input(Insert Anchor)
%c = @input(Target Window)
%g = @input(Insert Jump Label Text)
:jumpscript
if @null(%a)
goto evloop
else
window send,%n,<A HREF=%s%a
if @null(%b)
window send,%n,%s
goto jump2
else
window send,%n,#%b%s
goto jump2
:jump2
if @null(%c)
window send,%n,>
goto label
else
window send,%n,@chr(32)target=%s%c%s>
goto label
:label
window send,%n,%g</A>
goto evloop
else
window send,%n,%g</A>
goto evloop
:ulistbutton
DIALOG CREATE,Unordered List,-1,0,105,114,nosys,ontop
DIALOG ADD,GROUP,GROUP1f,5,5,95,40,# of Items
DIALOG ADD,EDIT,EDIT1f,20,10,85,19
DIALOG ADD,BUTTON,BUTTON1f,82,20,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2f,50,20,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1fbutton
%a = @dlgtext(edit1f)
goto ulistscript
:button2fbutton
goto evloop
REM OLD SCRIPT
%a = @input(Number of Items?)
:ulistscript
if @numeric(%a)
goto items
else
info That is not a valid number
goto evloop
:items
window send,%n,<UL>@cr()
%b = 0
:loop
if @equal(%b,%a)
goto endloop
else
window send,%n,<LI>@cr()
%b = @sum(%b,1)
goto loop
:endloop
window send,%n,</UL>
goto evloop
:OLISTbutton
DIALOG CREATE,Ordered List,-1,0,105,114,nosys,ontop
DIALOG ADD,GROUP,GROUP1g,5,5,95,40,# of Items
DIALOG ADD,EDIT,EDIT1g,20,10,85,19
DIALOG ADD,BUTTON,BUTTON1g,82,20,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2g,50,20,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1gbutton
%a = @dlgtext(edit1g)
goto olistscript
:button2gbutton
goto evloop
rem old script
%a = @input(Number of Items?)
:olistscript
if @numeric(%a)
goto Oitems
else
info That is not a valid number
goto evloop
:Oitems
window send,%n,<OL>@cr()
%b = 0
:Oloop
if @equal(%b,%a)
goto Oendloop
else
window send,%n,<LI>@cr()
%b = @sum(%b,1)
goto Oloop
:Oendloop
window send,%n,</OL>
goto evloop
:Definitionbutton
DIALOG CREATE,Definition,-1,0,200,132,nosys
DIALOG ADD,GROUP,GROUP1h,5,5,190,40,Defined Item
DIALOG ADD,EDIT,EDIT1h,20,10,180,19
DIALOG ADD,GROUP,GROUP2h,50,5,190,40,Definition
DIALOG ADD,EDIT,EDIT2h,65,10,180,19
DIALOG ADD,BUTTON,BUTTON1h,100,130,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2h,100,5,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1hbutton
%a = @dlgtext(edit1h)
%b = @dlgtext(edit2h)
goto definitionscript
:button2hbutton
goto evloop
REM OLDSCRIPT
%a = @input(Insert item to be defined)
if @null(%a)
goto evloop
else
%b = @input(Please define %a)
:definitionscript
window send,%n,<DL>@cr()<DT>%a@cr()<DD>%b@cr()</DL>
goto evloop
:HRbutton
DIALOG CREATE,Horizontal Rule,-1,0,176,118,nosys,ontop
DIALOG ADD,GROUP,GROUP4hr,10,92,72,68,Width
DIALOG ADD,EDIT,EDIT3hr,27,97,60,19
DIALOG ADD,BUTTON,BUTTON1hr,85,100,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2hr,85,8,64,24,Cancel
DIALOG ADD,RADIO,RADIO1hr,6,6,80,72,Alignment,Center|Left|Right,center
DIALOG ADD,CHECK,CHECKhr1,52,98,62,18,Percent
dialog showmodal
goto evloop
:button1hrbutton
%a = @dlgtext(edit3hr)
window send,#notepad,<HR
if @null(%a)
goto alignhr
else
window send,#notepad,@chr(32)WIDTH=%a
end
:percenthr
if @dlgtext(checkhr1)
window send,#notepad,"%"
else
end
:alignhr
window send,#notepad,@chr(32)ALIGN=@dlgtext(radio1hr)>
goto evloop
:button2hrbutton
goto evloop

REM Old Script

%a = @input(Insert a Line Width)
%b = @input(Center Left or Right?)
%c = @input(Insert Rule Size)
%d = @ask(Shade?)
if @null(%a)
window send,%n,<HR>
goto evloop
else
window send,%n,<HR WIDTH=%a
if @null(%b)
goto hr2
else
window send,%n,@chr(32)ALIGN=%b
goto hr2
:hr2
if @null(%c)
goto hr3
else
window send,%n,@chr(32)SIZE=%c
goto hr3
:hr3
if @null(%d)
window send,%n,@chr(32)NOSHADE>
goto evloop
else
Window send,%n,>
goto evloop
:commentbutton
DIALOG CREATE,Comment,-1,0,200,80,nosys,ontop
DIALOG ADD,GROUP,GROUP1comm,5,5,190,40,Comment
DIALOG ADD,EDIT,EDIT1comm,20,10,180,19
DIALOG ADD,BUTTON,BUTTON1comm,50,130,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2comm,50,10,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1commbutton
%a = @dlgtext(edit1comm)
goto commentscript
:button2commbutton
goto evloop
REM Old Script
%a = @input(Insert Comment)
:commentscript
if @null(%a)
goto evloop
else
window send,%n,
goto evloop
:Asciibutton
DIALOG CREATE,Character to Ascii,-1,0,105,114,nosys,ontop
DIALOG ADD,GROUP,GROUP1asc,5,5,95,40,Character
DIALOG ADD,EDIT,EDIT1asc,20,10,85,19
DIALOG ADD,BUTTON,BUTTON1asc,82,20,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2asc,50,20,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1ascbutton
%a = @dlgtext(edit1asc)
goto asciiscript
:button2ascbutton
goto evloop
REM OLD SCRIPT
%a = @input(Please insert one keyboard character)
:asciiscript
if @null(%a)
goto evloop
else
%b = @asc(%a)
window send,%n,&#%b;
goto evloop
:Viewbutton
list clear,4
window send,#notepad,@ctrl(@key(home))@ctrl(@shift(@key(end)))@ctrl(c)@ctrl(@key(home))
wait
list paste,4
list savefile,4,temp.htm
wait
shell open,temp.htm
goto evloop

:aboutbutton
DIALOG CREATE,About,-1,0,240,188,nosys
DIALOG ADD,STYLE,STYLE1,Comic Sans ms,12,IC,BACKGROUND,RED
DIALOG ADD,GROUP,GROUP1,10,12,218,130
DIALOG ADD,TEXT,TEXT1,16,20,,,NodNarb's HTML Send 2.1,style1
DIALOG ADD,TEXT,TEXT2,46,78,,,Open Source,style1
DIALOG ADD,TEXT,TEXT3,72,32,,,http://htmlsend.cjb.net/,style1
DIALOG ADD,TEXT,TEXT4,104,48,,,CNodNarb"@"aol.com,style1
DIALOG ADD,BUTTON,OK,152,100,64,24,OK,default
DIALOG SHOWmodal
%a = @event()
goto evloop

REM Old Script
if @equal(@iniread(%w,%6),%l)
info This version is %w to........@cr()@cr()@iniread(%w,name)@cr()@iniread(%w,street)@cr()@iniread(%w,City)@cr()@cr()Program by Brandon Cunningham
goto evloop
else
info UNREGISTERED VERSION@cr()Please send your name@chr(44) address@chr(44) name of program to be regisetered@chr(44) and $10 to..........@cr()@cr()Brandon Cunningham@cr()2500 52nd Ave N #103@cr()St. Pete@chr(44) FL 33714
goto evloop
:unregbutton
%a = @ask(Enter %6 code now?)
if @null(%a)
goto checku
else
%a = @input(Insert %6 code)
if @null(%a)
goto checku
else
if @not(@equal(%a,%l))
goto reginfof
else
inifile write,%w,%6,%a
%a = @input(Insert your first and last name)
inifile write,%w,name,%a
%a = @input(Insert your street address)
inifile write,%w,street,%a
%a = @input(Insert your city@chr(44) state@chr(44) and zip code)
inifile write,%w,city,%a
info If any entered information was incorrect you may open the file %sc:\nodnarb\htmsend.ini%s to edit your %6 data.@cr()This is also the file where your user tag files are kept.
if @equal(%u,8)
goto mainopen
else
%1 = %7
%2 = hide
%3 = %8
%4 = %8
goto %8%7loop
:checku
if @equal(%u,8)
goto close
else
goto evloop
:reginfof
info That is not the correct %6 code.
if @equal(%u,8)
goto unregbutton
else
goto aboutbutton
:helpbutton
rem old script
if @file(@windir()\hh.exe)
run hh @shortname(@path(%0)htmlhelp\master.htm)
else
shell open,@path(%0)htmlhelp\master.htm
end
goto evloop
if @winexist(%yer Help)
PARSE "%a;%b;%c;%d;%e",@winpos(%yer Help,TLWHS)
inifile write,%yer Help,T,%a
inifile write,%yer Help,L,%b
inifile write,%yer Help,W,%c
inifile write,%yer Help,H,%d
inifile write,%yer Help,S,%e
window close,%yer Help
goto openhelp
else
goto openhelp
:openhelp
if @file(c:\windows\hh.exe)
registry write,root,.nod\shell\open\command,,"c:\windows\hh.exe %1"
shell open,c:\nodnarb\htmsend\master.hlp
goto helploop
else
shell open,c:\nodnarb\htmsend\master.htm
goto evloop
:helploop
%b = @event()
if %b
goto %b
else
if @winexist(Help Topics: %yer 2.1 Help)
goto helploop2
else
goto helploop
:helploop2
%b = @event()
if %b
goto %b
else
if @winexist(Help Topics: %yer 2.1 Help)
goto helploop2
else
goto helppos
:helppos
%b = @event()
if %b
goto %b
else
if @winexist(help)
goto helppos2
else
goto helppos
:helppos2
window settext,Help,%yer Help
if @equal(@iniread(%yer Help,S),1)
goto normalhelp
else
goto iconizedhelp
:normalhelp
%a = @iniread(%yer Help,T)
%b = @iniread(%yer Help,L)
%c = @iniread(%yer Help,W)
%d = @iniread(%yer Help,H)
window position,%yer Help,%a,%b,%c,%d
goto evloop
else
goto iconizedhelp
:iconizedhelp
if @equal(@iniread(%yer Help,S),2)
window iconize,%yer Help
goto evloop
else
goto maximizehelp
:maximizehelp
if @equal(@iniread(%yer Help,S),3)
window maximize,%yer Help
goto evloop
else
inifile write,%yer Help,s,1
goto evloop
:BoldButton
Window send,%n,<B></B>%x%x%x%x
Goto Evloop
:Italicbutton
Window send,%n,<I></I>%x%x%x%x
Goto Evloop
:Underlinebutton
Window send,%n,<U></U>%x%x%x%x
Goto Evloop
:Strikebutton
Window send,%n,<S></S>%x%x%x%x
Goto Evloop
:BlockQuotebutton
Window send,%n,<BLOCKQUOTE></BLOCKQUOTE>%x%x%x%x%x%x%x%x%x%x%x%x%x
Goto Evloop
:TeletypeButton
Window send,%n,<TT></TT>%x%x%x%x%x
Goto Evloop
:KeyBoardDatabutton
Window send,%n,<KBD></KBD>%x%x%x%x%x%x
Goto Evloop
:Preformatbutton
Window send,%n,<PRE></PRE>%x%x%x%x%x%x
Goto Evloop
:CenterButton
Window send,%n,<CENTER></CENTER>%x%x%x%x%x%x%x%x%x
Goto Evloop
:Marqueebutton
DIALOG CREATE,Marquee,-1,0,126,150,nosys
DIALOG ADD,RADIO,RADIO1mar,10,8,102,72,Marquee Behavior,Scroll|Slide|Alternate,Scroll
DIALOG ADD,BUTTON,BUTTON1mar,120,30,64,24,OK,Default
DIALOG ADD,BUTTON,BUTTON2mar,90,30,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1marbutton
%a = @dlgtext(radio1mar)
goto marqueescript
:button2marbutton
goto evloop

REM Old Script
%a = @input(Scroll Slide or Alternate?)
:marqueescript
if @null(%a)
Window send,%n,<MARQUEE></MARQUEE>%x%x%x%x%x%x%x%x%x%x
Goto Evloop
else
Window send,%n,<MARQUEE BEHAVIOR=%s%a%s>@cr()@cr()</MARQUEE>@key(up)
goto evloop
:Strongbutton
Window send,%n,<STRONG></STRONG>%x%x%x%x%x%x%x%x%x
Goto Evloop
:Smallbutton
Window send,%n,<SMALL></SMALL>%x%x%x%x%x%x%x%x
Goto Evloop
:BigButton
Window send,%n,<BIG></BIG>%x%x%x%x%x%x
Goto Evloop
:SubScriptbutton
Window send,%n,<SUB></SUB>%x%x%x%x%x%x
Goto Evloop
:SuperScriptButton
Window send,%n,<SUP></SUP>%x%x%x%x%x%x
Goto Evloop
:TableButton
DIALOG CREATE,New Table,-1,0,200,172,nosys,ontop
DIALOG ADD,GROUP,GROUP1nt,5,5,190,40,Caption
DIALOG ADD,EDIT,EDIT1nt,20,10,180,19
DIALOG ADD,GROUP,GROUP3nt,48,54,80,40,Border Value
DIALOG ADD,EDIT,EDIT4nt,63,60,68,19
DIALOG ADD,GROUP,GROUP2nt,90,5,80,40,Cell Padding
DIALOG ADD,EDIT,EDIT2nt,105,10,70,19
DIALOG ADD,GROUP,GROUP4nt,90,110,80,40,Cell Spacing
DIALOG ADD,EDIT,EDIT3nt,105,115,70,19
DIALOG ADD,BUTTON,BUTTON1nt,140,115,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2nt,140,8,64,24,Cancel
dialog showmodal
goto evloop
:button1ntbutton
%a = @dlgtext(edit4nt)
%b = @dlgtext(edit3nt)
%c = @dlgtext(edit2nt)
%d = @dlgtext(edit1nt)
goto tablebuttonscript
:button2ntbutton
goto evloop
REM OLD SCRIPT
%a = @input(Insert Border Value)
%b = @input(Insert Cell Spacing)
%c = @input(Insert Cell Padding)
%d = @input(Insert Caption)
:tablebuttonscript
Window send,%n,<TABLE
if @null(%a)
goto Cellspacing
else
Window send,%n,@chr(32)BORDER=%a
goto Cellspacing
:cellspacing
if @null(%b)
goto Cellpadding
else
Window send,%n,@chr(32)CELLSPACING=%b
goto cellpadding
:cellpadding
if @null(%c)
Window send,%n,>
goto caption
else
Window send,%n,@chr(32)CELLPADDING=%c>
goto caption
:caption
if @null(%d)
Window send,%n,@cr()@cr()</TABLE>@key(up)
goto evloop
else
Window send,%n,<CAPTION>@cr()%d@cr()</CAPTION>@cr()@cr()</TABLE>@key(up)
goto evloop
:TRbutton
Window send,%n,<TR>@cr()</TR>@key(up)
goto evloop
:THButton
DIALOG CREATE,Table Heading,-1,0,200,80,nosys,ontop
DIALOG ADD,GROUP,GROUP1th,5,5,190,40,Table Heading
DIALOG ADD,EDIT,EDIT1th,20,10,180,19
DIALOG ADD,BUTTON,BUTTON1th,50,130,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2th,50,10,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1thbutton
%a = @dlgtext(edit1th)
goto thscript
:button2thbutton
goto evloop
rem old script
%a = @input(Insert Table Heading)
:thscript
if @null(%a)
Window send,%n,<TH>@cr()@cr()</TH>@key(up)
goto evloop
else
Window send,%n,<TH>@cr()%a@cr()</TH>@key(up)
goto evloop

:TDbutton
DIALOG CREATE,Table Data,-1,0,200,261,nosys,ontop
DIALOG ADD,GROUP,GROUP1td,5,5,190,40,Background Color
DIALOG ADD,EDIT,EDIT1td,20,10,180,19
DIALOG ADD,GROUP,GROUPtdb,50,5,80,40,Height
DIALOG ADD,EDIT,EDIT3td,65,10,70,19
DIALOG ADD,GROUP,GROUP4td,50,110,80,40,Width
DIALOG ADD,EDIT,EDIT4td,65,115,70,19
DIALOG ADD,BUTTON,BUTTON1td,225,130,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2td,225,5,64,24,Cancel
DIALOG ADD,RADIO,RADIO1td,100,5,80,72,Vertical Align,Top|Middle|Bottom,Middle
DIALOG ADD,RADIO,RADIO2td,100,110,86,72,Horizontal Align,Top|Center|Bottom,Center
DIALOG ADD,GROUP,GROUP2td,175,5,190,40,Cell Text
DIALOG ADD,EDIT,EDIT2td,190,10,180,19
DIALOG SHOWmodal
goto evloop
:button1tdbutton
%a = @dlgtext(edit1td)
%b = @dlgtext(edit4td)
%c = @dlgtext(edit3td)
%d = @dlgtext(radio1td)
%e = @dlgtext(radio2td)
%f = @dlgtext(edit2td)
goto tdbuttonscript
:button2tdbutton
goto evloop
REM Old Script
%a = @input(Insert background color)
%b = @input(Insert Width)
%c = @input(Insert Height)
%d = @input(Vertically Align Top Middle or Bottom)
%e = @input(Horizontally Align Left Right or Center)
%f = @input(Insert Cell Text)
:tdbuttonscript

Window send,%n,<TD
if @null(%a)
goto tdwidth
else
window send,%n,@chr(32)BGCOLOR=%s%a%s
goto tdwidth
:tdwidth
if @null(%b)
goto TDheight
else
Window send,%n,@chr(32)WIDTH=%b
goto TDheight
:TdHeight
if @null(%c)
goto TDValign
else
Window send,%n,@chr(32)HEIGHT=%c
goto TDVALIGN
:Tdvalign
if @null(%d)
goto TDAlign
else
Window send,%n,@chr(32)VALIGN=%d
goto TDAlign
:TDALign
if @null(%e)
Window send,%n,>
goto TableData
else
Window send,%n,@chr(32)ALIGN=%e>
goto TableData
:TableData
if @null(%f)
Window send,%n,@cr()@cr()</TD>@key(up)
goto evloop
else
Window send,%n,@cr()%f@cr()</TD>
goto evloop
:Framesetbutton
dialog select,4
dialog show
repeat
%%event = @event(d)
if @not(@equal(@dlgtext(edit2fs),*))
if @not(@dlgtext(edit3fs))
dialog enable,edit3fs
dialog set,edit3fs,*
else
else
end
end

if @not(@equal(@dlgtext(edit3fs),*))
if @not(@dlgtext(edit4fs))
if @not(@null(@dlgtext(edit3fs)))
dialog enable,edit4fs
dialog set,edit4fs,*
else
else
else
end
end
end

if @not(@equal(@dlgtext(edit4fs),*))
if @not(@dlgtext(edit5fs))
if @not(@null(@dlgtext(edit4fs)))
dialog set,edit5fs,*
else
else
else
end
end
end
until %%event
parse "%a;%b",%%event
dialog select,%b
goto %a
:button1fsbutton
if @equal(@dlgtext(radio1fs),Columns)
%%radio1fs = COLS
else
%%radio1fs = ROWS
end
if @not(@null(@dlgtext(edit1fs)))
window send,#notepad,<FRAMESET %%radio1fs=%s@dlgtext(edit1fs)@chr(44)@dlgtext(edit2fs)
goto button1fs2
else
goto evloop
end
:button1fs2
if @not(@equal(@dlgtext(edit2fs),*))
window send,#notepad,@chr(44)@dlgtext(edit3fs)
else
goto finbutton1fs
end
if @not(@equal(@dlgtext(edit3fs),*))
window send,#notepad,@chr(44)@dlgtext(edit4fs)
else
goto finbutton1fs
end
if @not(@equal(@dlgtext(edit4fs),*))
window send,#notepad,@chr(44)@dlgtext(edit5fs)
else
goto finbutton1fs
end

:finbutton1fs
window send,#notepad,%s>@cr()@cr()</FRAMESET>@key(up)
dialog hide
dialog select,0
goto evloop

:button2fsbutton
dialog hide
dialog select,0
goto evloop
REM OLD SCRIPT
%a = @input(COLS or ROWS)
%b = @input(Insert Values)
if @null(%a)
Window send,%n,<FRAMESET>@cr()@cr()</FRAMESET>@key(up)
goto evloop
else
if @null(%b)
window send,%n,<FRAMESET>@cr()@cr()</FRAMESET>@key(up)
goto evloop
else
Window send,%n,<FRAMESET %a=%s%b%s>@cr()@cr()</FRAMESET>@key(up)
goto evloop
:FRAMESRCbutton
DIALOG CREATE,Frame Source,-1,0,200,205,nosys,ontop
DIALOG ADD,GROUP,GROUP1fsrc,5,5,190,40,Frame Source File
DIALOG ADD,EDIT,EDIT1fsrc,20,10,180,19
DIALOG ADD,GROUP,GROUP2fsrc,50,5,190,40,Window Name
DIALOG ADD,EDIT,EDIT2fsrc,65,10,180,19
DIALOG ADD,CHECK,check1fsrc,100,10,180,18,No Scrolling
DIALOG ADD,GROUP,GROUP3fsrc,120,5,80,40,Margin Width
DIALOG ADD,EDIT,EDIT3fsrc,135,10,70,19
DIALOG ADD,GROUP,GROUP4fsrc,120,110,80,40,Margin Height
DIALOG ADD,EDIT,EDIT4fsrc,135,115,70,19
DIALOG ADD,BUTTON,BUTTON1fsrc,170,125,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2fsrc,170,8,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1fsrcbutton
%a = @dlgtext(edit1fsrc)
%b = @dlgtext(check1fsrc)
%c = @dlgtext(edit3fsrc)
%d = @dlgtext(edit4fsrc)
%f = @dlgtext(edit2fsrc)
goto fsrcscript
:button2fsrcbutton
goto evloop
REM OLD SCRIPT
%a = @input(Insert Frame Source)
%b = @ask(Do you want Scrolling?)
%c = @input(Insert Margin Width)
%d = @input(Insert Margin Height)
%e = @ask(Do you want this source to be resizable?)
%f = @input(Give this window a name)
:fsrcscript
if @null(%a)
goto evloop
else
Window send,%n,<FRAME SRC=%s%a%s
end
if @not(@null(%b))
Window send,%n,@chr(32)SCROLLING=NO
goto MARGINWIDTH
else
GOTO MARGINWIDTH
:Marginwidth
if @null(%c)
goto MARGINHEIGHT
else
Window send,%n,@chr(32)MARGINWIDTH=%c
goto MARGINHEIGHT
:MARGINHEIGHT
if @null(%d)
goto target
else
Window send,%n,@chr(32)MARGINHEIGHT=%d
goto target
:resize
if @null(%e)
Window send,%n,@chr(32)NORESIZE
goto target
else
goto target
:Target
if @null(%f)
Window send,%n,>
goto evloop
else
Window send,%n,@chr(32)NAME=%s%f%s>
goto evloop
:formbutton
DIALOG CREATE,New Form,-1,0,200,80,nosys,ontop
DIALOG ADD,GROUP,GROUP1formb,5,5,190,40,E-Mail Address
DIALOG ADD,EDIT,EDIT1formb,20,10,180,19
DIALOG ADD,BUTTON,BUTTON1formb,50,130,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2formb,50,10,64,24,Cancel
DIALOG SHOWmodal
goto evloop
:button1formbbutton
%a = @dlgtext(edit1formb)
goto formbuttonscript
:button2formbbutton
goto evloop
REM OLD SCRIPT
%a = @input(Insert your E-Mail address)
:formbuttonscript
if @null(%a)
Window send,%n,<FORM>@cr()@cr()</FORM>@key(up)
goto evloop
else
Window send,%n,<FORM METHOD=POST ACTION=%smailto:%a%s ENCTYPE=%stext/plain%s>@cr()@cr()</FORM>@key(up)
goto evloop
:textareabutton
DIALOG CREATE,Text Area,-1,0,200,210,nosys,ontop
DIALOG ADD,GROUP,GROUP1tar,5,5,190,40,Text Area Name
DIALOG ADD,EDIT,EDIT1tar,20,10,180,19
DIALOG ADD,GROUP,GROUP2tar,50,5,80,40,Lines
DIALOG ADD,EDIT,EDIT2tar,65,10,70,19
DIALOG ADD,GROUP,GROUP4tar,50,110,80,40,Spaces
DIALOG ADD,EDIT,EDIT3tar,65,115,70,19
DIALOG ADD,BUTTON,BUTTON1tar,180,130,64,24,OK,default
DIALOG ADD,BUTTON,BUTTON2tar,180,5,64,24,Cancel
DIALOG ADD,RADIO,RADIO1tar,100,60,80,72,Wrap,Virtual|Physical|Off,Virtual
DIALOG SHOWmodal
goto evloop
:button1tarbutton
%a = @dlgtext(edit1tar)
%b = @dlgtext(edit2tar)
%c = @dlgtext(edit3tar)
%d = @dlgtext(ra

LiquidCode · Posted: Thu Sep 12, 2002 4:53 pm Post subject:

All you need to do to highlight your code is put
it between these tags [code] and [/code]

Garrett · Posted: Thu Sep 12, 2002 5:22 pm Post subject:

NobNarb... was just thinking about you last night. Checked the link on your webwrite program to see if your site was still there, but it wasn't... So was wondering what had happened to you.

You going to be hanging around for a bit?

-Garrett

cnodnarb · Posted: Thu Sep 12, 2002 7:51 pm Post subject:

Yes, I am going to be a bit more active than I have over the past year or so.

I've been pretty busy attending ITT Tech in Tampa FL... 1 year into it... and haven't had much free time. Now that i'm starting to get the hang of some of the other languages i've been learning i've decided to get back to the language I love, VDS!

NodNarb Software, which has not been updated, is now at http://members.aol.com/_ht_a/webwritepro/

Still featuring WebWrite LoL

WebWrite was a marketing failure, and I am considering making it open source. Let me know what you think Wink

NodNarb

FreezingFire · **Admin Team** Joined: 23 Jun 2002 Posts: 3508

For HTML Send...

I don't think that you can put that much text in one post...however, I reccomend uploading it in a TXT file to your web site, or upload it to VDSWORLD.com

For Web Write Pro...

Making it open-source would be really nice...I always wanted to know how that worked... Very Happy

LiquidCode · Posted: Thu Sep 12, 2002 10:15 pm Post subject:

WebWrite Pro Open-Source would be very cool.
I have also wanted to know how that was made.

cnodnarb · Posted: Fri Sep 13, 2002 5:20 am Post subject:

WebWrite Pro will be Officially Announced as Open Source sometime today, because it now is. Cool

http://members.aol.com/_ht_a/webwritepro/webwritepro.exe

marty · Professional Member Joined: 10 May 2001 Posts: 789

I'd like to personnaly say a BIG THANK YOU for the source code of Webwrite.

I havent noticed that VDS app before and its really impressive.

Again thanks cnodnarb!

Wink

LiquidCode · Posted: Fri Sep 13, 2002 11:53 am Post subject:

Yes, Thank You. This is a GREAT program. A lot can be learned from it.

LOBO · Posted: Fri Sep 13, 2002 1:10 pm Post subject:

Yes I must agree with marty and chris that webwrite becoming open source will help everyone who gets involved with it. It's a great program and will teach everyone something.