VB复制自身_vb中如何复制窗体?
1、FileCopy(source,destination)函数
2、RegDeleteValue,用这个API解决
3、用FileSystemObject可以探测磁盘是否存在,然后再FileCopy或者FSO自带复制功能都行。
4、Kill xxx,这是删除文件的最基本的一行话。如果文件隐藏的话用FSO.DeleteFile就可以
API函数使用前需要声明:
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
就10分还打源码……设计木马的范畴。。
参考 http://
Windows API(应用程序接口)是Windows系列软件为程序开发人员提供的火力强大的“武器库”,在这个武器库中,有很多极具威力的武器,SendMessage就是其中之一,它的功能非常丰富,灵活使用这个函数,会给编程工作带来很多便利。本文以Visual Basic为例,结合几个具体的例子介绍该函数的功能。
一、SendMeaasge函数简介
顾名思义,SendMessage函数的功能是“发送消息”,即将一条消息发送到指定对象(操作系统、窗口或控件等)上,以产生特定的动作(如滚屏、修改对象外观等)。
SendMessage函数在VB中的函数说明如下:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (Byval hwnd As Long, Byval wMsg As Long,Byval wParam As Long,lParam As Any) As Long
其中四个自变量的含义和说明如下:
hWnd:对象的句柄。希望将消息传送给哪个对象,就把该对象的句柄作为实参传送,在VB中可以简单地用“对象.hWnd”获得某个对象的句柄,如Text1.hWnd和Form1.hWnd分别可以得到Text1和Form1的句柄。
wMsg:被发送的消息。根据具体需求和不同的对象,将不同的消息作为实参传送,以产生预期的动作。
wParam、lParam:附加的消息信息。这两个是可选的参数,用来提供关于wMsg消息更多的信息,不同的wMsg可能使用这两个参数中的0、1或2个,如果不需要哪个附加参数,则将实参赋为NULL(在VB中赋为0)。
在简单了解了SendMessage函数的格式和功能后,让我们以几个例子来看看它的威力。
二、SendMessage函数使用实例
例1 多行TextBox中的快速处理功能在处理多行TextBox时我们经常会碰到以下几种情况:
希望了解多行TextBox中目前共有多少行文字。
想快速返回第N行的文字。
对于上面的情况,如果用VB自身的语句或函数来实现的话,要写不短的代码,而且由于要采用顺序查找的办法来完成,因此代码的执行效率也很低。如果使用SendMessage函数则可以大大减少代码量,并大幅度的提高执行效率。
用SendMessage函数完成上面两个任务的方法非常简单,每个任务只需简单地发送一条消息给多行TextBox即可,两个消息分别为:EM_GETLINECOUNT、EM_GETLINE,其它参数和返回值见附表。
下面用一个简单的实例演示这两个功能:
新建工程,在Form1上添加三个TextBox(名称分别为Text1、txtLineCount、TxtString,将Text1的Multi
Line属性置为True)、三个标签和一个命令按钮。为工程添加一个模块Moudle1,在其中写如下声明(其中
SendMessage函数的声明可以从VB的“API浏览器”中复制): 消息常量名 消息值 wParam lParam 返回值
EM_GETLINECOUNT &HBA 未用 未用 行数
EM_GETLINE &HC4 要找的行号 存结果的字节串 结果字节串的字节数
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,lParam As Any) As Long
Public Const EM_GETLINECOUNT=&HBA
Public Const EM_GETL
2、RegDeleteValue,用这个API解决
3、用FileSystemObject可以探测磁盘是否存在,然后再FileCopy或者FSO自带复制功能都行。
4、Kill xxx,这是删除文件的最基本的一行话。如果文件隐藏的话用FSO.DeleteFile就可以
API函数使用前需要声明:
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
就10分还打源码……设计木马的范畴。。
参考 http://
Windows API(应用程序接口)是Windows系列软件为程序开发人员提供的火力强大的“武器库”,在这个武器库中,有很多极具威力的武器,SendMessage就是其中之一,它的功能非常丰富,灵活使用这个函数,会给编程工作带来很多便利。本文以Visual Basic为例,结合几个具体的例子介绍该函数的功能。
一、SendMeaasge函数简介
顾名思义,SendMessage函数的功能是“发送消息”,即将一条消息发送到指定对象(操作系统、窗口或控件等)上,以产生特定的动作(如滚屏、修改对象外观等)。
SendMessage函数在VB中的函数说明如下:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (Byval hwnd As Long, Byval wMsg As Long,Byval wParam As Long,lParam As Any) As Long
其中四个自变量的含义和说明如下:
hWnd:对象的句柄。希望将消息传送给哪个对象,就把该对象的句柄作为实参传送,在VB中可以简单地用“对象.hWnd”获得某个对象的句柄,如Text1.hWnd和Form1.hWnd分别可以得到Text1和Form1的句柄。
wMsg:被发送的消息。根据具体需求和不同的对象,将不同的消息作为实参传送,以产生预期的动作。
wParam、lParam:附加的消息信息。这两个是可选的参数,用来提供关于wMsg消息更多的信息,不同的wMsg可能使用这两个参数中的0、1或2个,如果不需要哪个附加参数,则将实参赋为NULL(在VB中赋为0)。
在简单了解了SendMessage函数的格式和功能后,让我们以几个例子来看看它的威力。
二、SendMessage函数使用实例
例1 多行TextBox中的快速处理功能在处理多行TextBox时我们经常会碰到以下几种情况:
希望了解多行TextBox中目前共有多少行文字。
想快速返回第N行的文字。
对于上面的情况,如果用VB自身的语句或函数来实现的话,要写不短的代码,而且由于要采用顺序查找的办法来完成,因此代码的执行效率也很低。如果使用SendMessage函数则可以大大减少代码量,并大幅度的提高执行效率。
用SendMessage函数完成上面两个任务的方法非常简单,每个任务只需简单地发送一条消息给多行TextBox即可,两个消息分别为:EM_GETLINECOUNT、EM_GETLINE,其它参数和返回值见附表。
下面用一个简单的实例演示这两个功能:
新建工程,在Form1上添加三个TextBox(名称分别为Text1、txtLineCount、TxtString,将Text1的Multi
Line属性置为True)、三个标签和一个命令按钮。为工程添加一个模块Moudle1,在其中写如下声明(其中
SendMessage函数的声明可以从VB的“API浏览器”中复制): 消息常量名 消息值 wParam lParam 返回值
EM_GETLINECOUNT &HBA 未用 未用 行数
EM_GETLINE &HC4 要找的行号 存结果的字节串 结果字节串的字节数
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,lParam As Any) As Long
Public Const EM_GETLINECOUNT=&HBA
Public Const EM_GETL
佚名
2024-05-30 01:49:32
类似问题(10)
-
佚名2024-05-30 20:12:15
问在工作表“sheet1”进行复制,复制后的工作表副本自动取名为什么
答程序所自动设置的
-
佚名2024-05-30 05:20:49
问梦幻西游复制自己的名字?
答创个小号,加你ID。然后打开好友面板,点复制
-
佚名2024-05-30 10:04:27
问汽车车身有小坑怎么自己修复
答修复车身表面小凹坑:① 根据小坑的位置,选择合适的圆头撬棍。② 撬棍置于车身内,用撬棍圆头部分以合适的力量顶起小坑。③ 在撬棍顶不到的位置,如车身上双层板或多层...
-
佚名2024-05-30 06:53:22
问qq炫舞里怎么复制自己的名字
答不能复制但是我还告诉你下ctrl+c保证管用。。。哈哈我气死你
-
佚名2024-05-30 23:24:49
问千牛上面怎么复制自己店铺链接
答打开千牛,在“我的”中最上面一条有自己名字,点右边的→ 右箭头,在显示的页面点“分享店铺”
-
佚名2024-05-30 09:16:19
问新大话西游2怎样复制自己的名字
答大话西游里所有的字都不能复制粘贴,必须手动输入 查看原帖>>
-
佚名2024-05-30 08:00:00
问王者荣耀怎么能把自己名字复制了
答ctrl+C就能复制,4月8日,王者城市赛华西赛区将打响本赛区的首轮海选!四川、云南、贵州、陕西、山西、甘肃、重庆,七个省市将战火再燃,再次面向所有城市王者召唤...
-
佚名2024-05-30 08:00:00
问C#中的深度复制和浅度复制,请帮忙解惑,不要网上复制粘贴,最好有自己的见解+示例代码。
答在C#中,对象的“复制”操作有三种:1,引用 DemoClass dclass1=new DemoClass(); DemoClass dcl...
-
佚名2024-05-30 08:00:00
问天龙八部2怎么复制自己的名字
答你创建个小号,用小号和自己私聊,在聊天框里(ctrl+c)复制(ctrl+v》粘贴
-
佚名2024-05-30 08:00:00
问复制后接龙上自己的名字什么接
答就是吧自己的名字发送到朋友圈或者其他社交工具让别人把自己名字和你的名字一起发送出去一个接一个到最后会有好多人的名字
风水
起名
网名
- 1 与君囚三字类似网名
- 2 什么小青年的网名
- 3 qq情侣网名2个字2017
- 4 求忘记一个女人的网名
- 5 昵称三人
- 6 女生网红昵称
- 7 微信昵称怎么写彩色字
- 8 lol昵称韩文可用的
- 9 兔男昵称
- 10 吉祥老年人的微信昵称
说说
- 1 有哲理的女生个性签名
- 2 关于备注的签名
- 3 福地的说说
- 4 爱情保卫战的说说
- 5 想你是呼吸的痛的说说
- 6 说说信息技术在课堂教学中应用的心得
- 7 你好 2月说说
- 8 2019新春钜惠说说
- 9 为啥发了说说刷新不起来
- 10 爱不到的人就放手说说