📄 un_main.dfm
字号:
're.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]"'
'strContent=re.Replace(strContent,"<OBJECT classid=clsid:CFCDAA03' +
'-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 heig' +
'ht=$2><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONSOLE VALUE=Clip1><' +
'PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALU' +
'E=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84' +
'B-0020AFBBCCFA height=32 id=video2 width=$1><PARAM NAME=SRC VALU' +
'E=$3><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=c' +
'ontrolpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>")'
''
''
''
#39#36229#38142#25509
're.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"'
'strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>' +
'$2</A>")'
're.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"'
'strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>' +
'$3</A>")'
#39#30005#23376#37038#20214
're.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"'
'strContent= re.Replace(strContent,"<A HREF=""mailto:$2"">$2</A>"' +
')'
're.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])"'
'strContent= re.Replace(strContent,"<A HREF=""mailto:$2"" TARGET=' +
'_blank>$3</A>")'
#39#23383#20307
're.Pattern="\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]"'
'strContent=re.Replace(strContent,"<font color=$1>$2</font>")'
're.Pattern="\[face=(.[^\[]*)\](.[^\[]*)\[\/face\]"'
'strContent=re.Replace(strContent,"<font face=$1>$2</font>")'
're.Pattern="\[align=(center|left|right)\](.*)\[\/align\]"'
'strContent=re.Replace(strContent,"<div align=$1>$2</div>")'
''
're.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]' +
'*)\[\/SHADOW]"'
'strContent=re.Replace(strContent,"<table width=$1 ><tr><td style' +
'=""filter:shadow(color=$2, strength=$3)"">$4</td></tr></table>")'
're.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)' +
'\[\/GLOW]"'
'strContent=re.Replace(strContent,"<table width=$1 ><tr><td style' +
'=""filter:glow(color=$2, strength=$3)"">$4</td></tr></table>")'
''
're.Pattern="\[i\](.[^\[]*)\[\/i\]"'
'strContent=re.Replace(strContent,"<i>$1</i>")'
're.Pattern="\[u\](.[^\[]*)(\[\/u\])"'
'strContent=re.Replace(strContent,"<u>$1</u>")'
're.Pattern="\[b\](.[^\[]*)(\[\/b\])"'
'strContent=re.Replace(strContent,"<b>$1</b>")'
're.Pattern="\[size=([1-7])\](.[^\[]*)\[\/size\]"'
'strContent=re.Replace(strContent,"<font class=tit$1>$2</font>")'
'strContent=replace(strContent,"<I></I>","")'
'set re=Nothing'
'ubb=strContent'
'end function'
''
''
''
'</script>'
''
''
'<script language="javascript">'
' var msgcnt;'
' function writemsg(m)'
' {'
' parent.frames("frame_msg").document.writeln(ubb(m));'
' if (document.forms("f").sc.checked)'
' {'
' //parent.frames("frame_msg").document.writeln("<\script>docum' +
'ent.all.a"+msgcnt+".focus();<\/script>");'
' parent.frames("frame_msg").document.writeln("<\script>window.' +
'setTimeout('#39'window.scrollBy(0,65535)'#39',100)<\/script>");'
' }'
' }'
''
' function writemsgfrominput()'
' {'
' if (document.forms("f").msg.value!="")'
' writemsg(document.forms("f").msg.value);'
' }'
''
' function showwelcom()'
' {'
' parent.frames("frame_msg").document.writeln("<table border=0 c' +
'ellspacing=0 cellpadding=0><tr><td nowrap>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9581#9552#9552#9734#9734#9734#9734#9734#9552#9552#9552#9552#9552 +
#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9582'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' ' +
' '#9474'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color=' +
'#ff00ff]'#27426#36814#20351#29992' Quick Message '#24555#35759' V1.0.2 '#27979#35797#29256'[/color] '#9474'")+"<' +
'br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' ' +
' '#9474'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color=#ff' +
'ff00]MM MM[/color] #'#26412#36719#20214#23436#20840#20813#36153#20351#29992' '#9474'")+"<' +
'br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color=#ff' +
'ff00]MMM MMM[/color] ' +
' '#9474'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color=#ff' +
'ff00]MMMM MMMM[/color] '#23545#20110#36719#20214#36816#34892#36807#31243#20013#20986#29616#30340#38382#39064' '#9474'")+"<br>")' +
';'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color=#ff' +
'ff00]MMMMMMMMM[/color] '#35831#21457#37038#20214#21040'[email]m820126@163.com[/email] ' +
' '#9474'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color=#ff' +
'ff00]MM MMM MM[/color] ' +
' '#9474'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color=#ff' +
'ff00]MM M MM[/color] '#35831#21040'[url]http://www.iamy.net[/url]'#19979#36733#26368#26032#29256#26412' ' +
' '#9474'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color=#ff' +
'ff00]MM MM[/color] ' +
' '#9474'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color=#fff' +
'f00]MMMM MMMM[/color] '#24863#35874#24744#30340#25903#25345#65281#65281#65281' '#9474'")+"<' +
'br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [color' +
'=#ffffff]iamy 2005[/color] ' +
' '#9474'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' ' +
' '#9474'")+"<br>");'
' parent.frames("frame_msg").document.writeln(ubb("'#9474' [url]http:' +
'//www.iamy.net[/url] '#9474'")+"<br>' +
'");'
' parent.frames("frame_msg").document.writeln(ubb("'#9584#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552 +
#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9552#9583'")+"<br>");'
' parent.frames("frame_msg").document.writeln("</td></tr></table' +
'><br>");'
' }'
''
' function cleanmsg()'
' {'
' parent.frames("frame_msg").document.close();'
' parent.frames("frame_msg").document.writeln("<html>");'
' parent.frames("frame_msg").document.writeln("<head>");'
' parent.frames("frame_msg").document.writeln("</head>");'
' parent.frames("frame_msg").document.writeln("<body topmargin=1' +
' leftmargin=1>");'
' parent.frames("frame_msg").document.writeln("<style>");'
' parent.frames("frame_msg").document.writeln("<!--");'
' parent.frames("frame_msg").document.writeln("A { text-de' +
'coration: underline;COLOR: #dddddd; FONT-FAMILY: '#23435#20307'; FILTER: ' +
'dropshadow(color=#cccccc,offx=1,offy=1);}");'
' parent.frames("frame_msg").document.writeln("A:hover { text-de' +
'coration: underline;COLOR: #ffffff; FONT-FAMILY: '#23435#20307'; FILTER: ' +
'dropshadow(color=#cccccc,offx=1,offy=1);}");'
' parent.frames("frame_msg").document.writeln(".A2 { COLOR' +
': green; FONT-FAMILY: '#23435#20307'; TEXT-DECORATION: none}");'
' parent.frames("frame_msg").document.writeln(".A2:hover { COLOR' +
': #000000; FONT-FAMILY: '#23435#20307'; TEXT-DECORATION: underline}");'
' parent.frames("frame_msg").document.writeln("body { BACKGRO' +
'UND-COLOR: #000000;color: #00ff00;font-family: '#23435#20307'; font-size: 9P' +
'T}");'
' parent.frames("frame_msg").document.writeln("td { font-fa' +
'mily: '#23435#20307'; font-size: 9PT}");'
' parent.frames("frame_msg").document.writeln(".input { BACKGRO' +
'UND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEF' +
'T: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TO' +
'P: #000000 1px solid; VERTICAL-ALIGN: text-bottom}");'
' parent.frames("frame_msg").document.writeln(".backc { BACKGRO' +
'UND-COLOR: #3F8805;BORDER:#3F8805 1px solid;FONT-SIZE: 9pt;color' +
':white}");'
' parent.frames("frame_msg").document.writeln(".tit1 { font' +
'-size: 9PT}");'
' parent.frames("frame_msg").document.writeln(".tit2 { font' +
'-size: 13PT}");'
' parent.frames("frame_msg").document.writeln(".tit3 { font' +
'-size: 17PT}");'
' parent.frames("frame_msg").document.writeln(".tit4 { font' +
'-size: 21PT}");'
' parent.frames("frame_msg").document.writeln(".tit5 { font' +
'-size: 25PT}");'
' parent.frames("frame_msg").document.writeln(".tit6 { font' +
'-size: 29PT}");'
' parent.frames("frame_msg").document.writeln(".tit7 { font' +
'-size: 33PT}");'
' parent.frames("frame_msg").document.writeln(".shadow1 {");'
' parent.frames("frame_msg").document.writeln("'#9'COLOR: #ffffff; ' +
'FILTER: dropshadow(color=#555555,offx=1,offy=1); FONT-SIZE: 12px' +
'");'
' parent.frames("frame_msg").document.writeln("}");'
' parent.frames("frame_msg").document.writeln(".shadow2 {");'
' parent.frames("frame_msg").document.writeln("'#9'COLOR: #000000; ' +
'FILTER: dropshadow(color=#d5d5d5,offx=1,offy=1); FONT-SIZE: 12px' +
'");'
' parent.frames("frame_msg").document.writeln("}");'
' parent.frames("frame_msg").document.writeln("-->");'
' parent.frames("frame_msg").document.writeln("</STYLE>");'
''
' }'
''
' cleanmsg();'
'showwelcom();'
'</script>'
''
''
'<form name="f">'
' <input name="b" type="button" onclick="javascript:writemsgfromi' +
'nput();" value=" b ">'
' <input name="c" type="button" onclick="javascript:cleanmsg();" ' +
'value=" c ">'
' <input name="s" type="button" onclick="javascript:showwelcom();' +
'" value=" s ">'
' <input type="checkbox" name="sc" value="" checked>'
' <input name="msg" type="hidden">'
'</form>'
'</body>'
'</html>')
Left = 104
Top = 8
end
object IdThreadMgrDefault1: TIdThreadMgrDefault
Left = 40
Top = 104
end
object tim_writemsg: TTimer
Enabled = False
Interval = 1
OnTimer = tim_writemsgTimer
Left = 40
Top = 136
end
object op_file: TOpenDialog
Filter = 'jpeg|*.jpg;*.jpeg|bmp|*.bmp|gif|*.gif|'#25152#26377#25991#20214'|*.*'
Options = [ofHideReadOnly, ofNoChangeDir, ofAllowMultiSelect, ofEnableSizing]
OnCanClose = op_fileCanClose
Left = 144
Top = 72
end
object sv_file: TSaveDialog
Filter = 'html|*.htm;*.html'
Left = 176
Top = 72
end
object idudp: TIdUDPServer
Active = True
Bindings = <>
DefaultPort = 3001
OnUDPRead = idudpUDPRead
ThreadedEvent = True
Left = 72
Top = 104
end
object IdIP: TIdIPWatch
Active = True
HistoryEnabled = False
HistoryFilename = 'iphist.dat'
Left = 136
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -