VB家用消费收支管理系统，一个理财信息管理程序，适用于家庭用，注：已建立的数据库打开密码为：1，确认密码不用填。源程序有很多目前流行的技术在里面，比如双击文字可实现编辑、按回车保存、VB日期控件等.
2022-10-24 15:23:33
19KB
1
创建系统服务的模块，木马使用的SvcHost服务方式启动，
现在不用，共享一下，拿些积分！
'=======================================================++
' 函数名称：CreateNormalService
' 函数说明：创建一个标准系统服务
' 返回数值：4-提供参数不对,2-服务存在,0-创建成功
' 参数说明：(服务名,映像路径,服务显示名,服务描述)
' 必填参数：(serviceName,serviceImagePath,"","")
'=======================================================++
' 函数名称：CreateSvcHostService
' 函数说明：创建一个SvcHost启动的服务
' 返回数值：True-成功,False-失败
' 参数说明：(服务名,DLL路径,SvcHost组名,服务显示名,服务描述)
' 必填参数：(serviceName,serviceDll,scvHostGroup,"","")
'=======================================================++
' 函数名称：ReplaceSvcHostService
' 函数说明：替换一个原来的SvcHost服务
' 返回数值：True-成功,False-失败
' 参数说明：(服务名,DLL路径,SvcHost组名)
'=======================================================++
' 函数名称：DeleteTheService
' 函数说明：删除一个服务
' 参数说明：(服务名,SvcHost服务组名)
' 调用说明：第二个参数一般为空，(删除SvcHost的服务才用)
'=======================================================
' 函数名称：Add_SvcHost_serviceName
' 函数说明：在SvcHost服务组里增加一个服务名称
' 返回数值：返回BOOL,并设置serviceNameIsAlreadyExist(BOOL)
' 参数说明：(SvcHost组名,SvcHost服务名,服务名是否已存在标志)
'=======================================================+
' 函数名称：ControlServiceStatus
' 函数说明：控制服务运行状态
' 参数说明：(服务名,运行状态)
' 调用说明：第二个参数:"pause","continue","stop"
2022-10-22 14:25:51
6KB
1
计算Layout上所有图形元素个数
Public void CountLayoutElements()
{IMxDocument pMxDoc =ThisDocument
IGraphicsContainer pGContainer =pMxDoc.PageLayout;
pGContainer.Reset();//确保指针指向最初的位置
IElement pElement = pGContainer.Next();
Int intGraphicCount = 0;
Do
{If TypeOf(pElement) is IGraphicElement
{ intGraphicCount = itGraphicCount +1}
pElement = pGContainer.Next();
}While(pElement=null)
MsgBox.show(“There are " & intGraphicCount & " graphics on the page“)}
Example: Count all the graphic elements on the layout
Public Sub CountLayoutElements ()
Dim pMxDoc As IMxDocument
Dim pGContainer As IGraphicsContainer
Dim pElement As IElement
Dim intGraphicCount As Integer
Set pMxDoc = ThisDocument
Set pGContainer = pMxDoc.PageLayout
pGContainer.Reset '*Make sure the pointer is on the first item
Set pElement = pGContainer.Next '*pull out the first element
Do Until pElement Is Nothing '*Loop thru all elements
If TypeOf pElement Is IGraphicElement Then
intGraphicCount = intGraphicCount + 1 '*increment the count
End If
Set pElement = pGContainer.Next '*pull out the next element
Loop
MsgBox "There are " & intGraphicCount & " graphics on the page"
Exit Sub
2022-10-20 10:31:55
4.83MB
1
目前我用的比较合适【本人使用vs2017，其他版本自己试】
支持 多音字 自动分类，这个比较好
【解压到程序根目录，引用两个DLL】
Imports NetCorePal.Toolkit.Pinyins
PinyinConvert.ToPinyinInitials(str)
2022-10-19 19:06:42
210KB
1
AE系统性知识体系构建+全顶级案例讲解，资深MG动画讲师带你飞，7年动态设计经验，专精MG动漫、图形特效、UI动效领域，手把手传授给你独家秘籍。
2022-10-19 14:08:33
15.8MB
1