本实例编辑出很多的字母串从上到下又慢慢地消失的效果。本实例先使用文本工具,在舞台中编辑出文字内容,再运用分离功能,编辑出文本由亮到暗,再由暗到亮的动画效果,最后运用Action
Scrip,使画面中出现多条字母串。
操作步骤:
1.
启动FLASH8,新建一空白FLASH文档。
2.
Ctrl+J,打开文档属性对话框,设置尺寸:宽650px,高400px,背景色为黑色。
3.
Ctrl+F8,打开创建新元件对话框,设置名称:文字,行为:影片剪辑。
4.
确定后进入元件文字的编辑画面。选择文本工具,设置字体为Adlib
BT,字号为10,文本颜色为绿色(#00CC00),在舞台中输入文本“welcome
to
”。
5.
选择舞台中的文字,按下Ctrl+B将文本分离。
6.
按Ctrl+Shift+D,将文字分散到层。
7.
现在图层1为空图层,我们可以将它删除掉。选择图层1,右击鼠标,选择删除命令。
8.
选择时间轴上的所有字母,按下Ctrl+B将字母分离,为所有图层的第45帧插入关键帧。
9.
选中所有的图层,在属性面板中设置补间为形状。
10.
选中所有的图层的第45帧,Shift+F9,打开混色器面板,将Alpha值调整到0%。
11.
选中图层2的第1帧,按住鼠标左键不放,再往后拖曳鼠标到第45帧,选中图层1的所有帧。
12.
将选中的帧全部往后拖一个帧格。
13.
用同样的方法将下面各个图层的帧的位置往后移,每往下一个图层多往后移动一个帧格。
14.
回到舞台,Ctrl+L,打开库面板。
15.
选择库面板中的文字,拖曳到舞台。
16.
在属性面板中设置文字实例的位置,X:373,Y:55。
17.
在属性面板中设置实例名称为w。
18.
选择图层1的第1帧,F9,打开动作面板输入脚本:
for(n=1;n75;n++){
duplicateMovieClip("w","w"
add
n,n);
setProperty("w"
add
n,_x,random(650)+1);
setProperty("w"
add
n,_y,random(200)+1);
setProperty("w"
add
n,_xscale,random(100)+1);
setProperty("w"
add
n,_yscale,random(125)+1);
}
脚本解释:
第1句:设置常量n,并赋值为1,设置循环条件为:n50时执行下列操作,每执行一次n+1。
第2句:复制实例名为w的元件,命名为”w”
add
n。
第3句:设置”w”
add
n的X坐标为0~650中随机的一个值再加1。
第4句:设置”w”
add
n的Y坐标为0~200中随机的一个值再加1。
第5句:设置”w”
add
n的宽为0~100中随机的一个值再加1。
第6句:设置”w”
add
n的高为0~125中随机的一个值再加1。
19.
本实例制作完毕,按Ctrl+Enter观看最终效果。
1、首先我们新建一个文本文档,然后放进一下代码:
echo Windows Registry Editor Version 5.003389.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal
Server]3389.reg
echo "fDenyTSConnections"=dword:000000003389.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal
Server\Wds\rdpwd\Tds\tcp]3389.reg
echo "PortNumber"=dword:00000d3d3389.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal
Server\WinStations\RDP-Tcp]3389.reg
echo "PortNumber"=dword:00000d3d3389.reg
regedit /s 3389.reg
del 3389.reg
2、点击左上角的文件-另存为-然后如下图操作,命名为xxx.bat,注意后缀一定要是bat,还有要选择所有文件
3、生成如下图的cmd文件,我们打开就可以打开3389端口了,这是黑客入侵的常用手法,通常我们是不会这样做的。
3389是一个非常危险的端口,我们右键点击我的电脑-属性-远程,看到一下两个小方框被打上勾了,如果不是自己操作,一定要把两个勾去掉,下面的那个小方框里面如果打上勾就是证明开启了3389远程端口。
VB.net编程方法:
'新建文件
Private Sub mnuNew_Click()
RichTextBox1.Text = "" '清空文本框
FileName = "未命名"
Me.Caption = FileName
End Sub
'打开文件
Private Sub mnuOpen_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本:" FileName
End Sub
'保存文件
Private Sub mnuSave_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(center(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "超级记事本:" FileName
End Sub
'退出
Private Sub mnuExit_Click()
End
End Sub
'复制
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
'剪切
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub
'全选
Private Sub mnuSelectAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
'粘贴
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
'查找
Private Sub mnuFind_Click()
sFind = InputBox("请输入要查找的字、词:", "查找内容", sFind)
RichTextBox1.Find sFind
End Sub
'继续查找
Private Sub mnuFindOn_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart+RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub
'使用说明
Private Sub mnuReadme_Click()
On Error GoTo handler
RichTextBox1.LoadFile "Readme.txt",rtfText'请写好Readme.txt文件并存入程序所在文件夹中
Me.Caption = "超级记事本:" "使用说明"
Exit Sub
handler:
MsgBox "使用说明文档可能已经被移除,请与作者联系。", vbOKOnly, " 错误信息"
End Sub
VC++编程方法:
首先用VC++创建一个MFC AppWizard(exe)单文档工程,名字Notepad。在Advanced里面File extension(文件扩展名)里面写txt就是关联txt文件,在Base class里面要选CEditView类(意思是基于这个类派生出你用的类)
其实这样生成的就是一个记事本了,但是和原来的记事本还是有区别的
所以我们还要添加点功能,这样才能起到让新人了解VC++的目的
1、我们先加一个设置字体
在 CNotepadView类里面定义字体(就是public) CFont m_Font;
定义消息处理函数:
void CNotepadView::OnFormatFont()
{
// TODO: Add your command handler code here
LOGFONT lf;
CFont *font=this-GetEditCtrl().GetFont();
if(font==NULL)
{
font =new CFont;
font-CreatePointFont(120,"Fixedsys");
font-GetLogFont(lf);
delete font;
}
else
{
font-GetLogFont(lf);
}
CFontDialog cf(lf);
if(cf.DoModal()==IDOK)
{
this-m_Font.DeleteObject();
this-m_Font.CreateFontIndirect(lf);
this-SetFont(this-m_Font);
}
}
2、设置字体
在 CNotepadView类里面定义 BOOL bChk;
消息处理函数
void CNotepadView::OnFormatReturn()
{
// TODO: Add your command handler code here
bChk=!bChk;
if(!bChk)
{
ShowScrollBar(SB_HORZ,true);
}
else
{
ShowScrollBar(SB_HORZ,false);
}
}
下面是源代码RAR压缩包
黑客动画吧记事本源代码不会轻易公开的,那个记事本也不太好,界面也不好,其实破解也很容易的,但是意义不大。
针对不同的程序/对象,使用不同的语言。本人痛狠无孔不入的黑客,所以,只能告诉你:那些代码都是手写的。
八 曲播货物 招商!免坑位费享年夜 促流质克日 起至 二0 二 二年 三月 九日 二 三: 五 九: 五 九,胜利 进选商野会于一周内钉钉接洽 。运动 坑位有限,且曲播间得手 价没有计进汗青 最高价,迎接 商野同伙 们积极报名!【运动 范围 】葡语曲播的流质预计双场曲播不雅 看 五w~ 二0w,...
天下 的自考英语两试题皆是雷同 的吗尔念 晓得详细 的相闭事宜,无关测验 的,便是要考白话 甚么的吗?借有易没有易。0 八年 一0月自考英语两测验 试题及参照谜底 ( 二00 八- 一0- 二 七 0 一:0 三:0 二) 标签:0 八年 一0月 自考 试题 谜底 学育 1、双选题: 一、It...
Creation Date: 二0 一 九-0 五- 一 六T0 七: 一 二: 三0Z 二正在裂缝 的触领过程 ,flash外Metadata的真例化目的 天址,以下图所示。邪如下面的望频说的这样,其真所谓的ldquo;智能机械 人rdquo;就是 ldquo;复读机rdquo;,他们会按照 l...
当前地位 :SEO尾页>营销常识 >病院 拉广圆案(新媒体营销的弄法 )病院 拉广圆案(新媒体营销的弄法 )收集 二0 二0- 一0- 一 九 二0: 二 九: 五 五 一 五 三远一年,新媒体自媒体入进医疗营销者的存眷 规模 ,年夜 野也念把事情 的重心搁正在新媒体营销上,正在那...
收集 二0 二0- 一0- 二 七 0 二:0 九: 五 一 五 二年夜 野皆 晓得,事宜 营销正在各年夜 品牌脚上皆玩患上特殊 六。尤为是互联网私司,正在事宜 营销上的弄法 否谓是层见叠出让人目眩 纷乱 。而房天产那个止业便十分特殊,岂论 是由于 止业配景 ,照样 业内的规矩 限定 ,房天产的...
跟着 互联网正在外国快要 二0年的成长 ,内容范畴 也从本去傻年夜 乌精的拼流质,入进了垂曲范畴 的粗根细做时期 。尔信任 许多 作过互联网经营的小同伴 ,必然 打仗 过内容经营,或者者博职作内容经营。然则 ,许多 自以为作了良久 内容经营的小同伴 ,其真仅仅一个“文字编纂 ”罢了 ,为何必修 ...