以下为笔者的音乐播放器的代码片段，就是这行代码使得双击和打开得以实现：

PrivateSubForm_Load()

DimdFAsString

dF=Command()

WithMMControl1

.FileName=dF

.Command="Open"

.Command="Play"

EndWith

EndSub

就那么简单}

4．选择字符集

可以使用的字符集有两种，即ANSI和OEM，可以从中选择一种，通过CharacterSet设置

这个方法的具体实现如下：使用ADO的打开Accecc数据库方法：

DimDBAsDatabase

SetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法：

首先设置Data控件的属性Exclusive=True为独占模式

设置Connect属性为;pwd=密码

Data1.Connect=";pwd=你的密码"

修改密码：

Data1.Database.NewPassword老密码,新密码->

三.poll方法

2改写Software\Microsoft\Windows\CurrentVersion\RunOnce

声明：

DeclareFunctionRegCloseKeyLib"advapi32.dll"Alias"RegCloseKey"(ByValhKeyAsLong)AsLong

DeclareFunctionRegCreateKeyLib"advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong

DeclareFunctionRegSetValueExLib"advapi32.dll"Alias"RegSetValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByValReservedAsLong,ByValdwTypeAsLong,lpDataAsAny,ByValcbDataAsLong)AsLong'NotethatifyoudeclarethelpDataparameterasString,youmustpassitByValue.

在主Form中增加：

PublicConstREG_SZ=1

PublicConstHKEY_CURRENT_USER=&H80000001

PrivateSubForm_QueryUnload(CancelasInteger,UnloadModeasInteger)

DimhKeyAsLong

DimstrRunCmdAsString

IfUnloadMode=vbAppWindowsThen

strRunCmd=App.Path&""&App.EXEName&".EXE"

CallRegCreateKey(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\RunOnce",hKey)

CallRegSetValueEx(hKey,"MyApp",0&,REG_SZ,ByValstrRunCmd,Len(strRunCmd) 1)

CallRegCloseKey(hKey)

Endif

EndSub->

lua解密后如何还原一、利用ＡＰＩ获取窗口的标题

新建窗体Ｆｏｒｍ１和按钮Ｃｏｍｍａｎｄ１ぴ诖疤迥？橹刑砑尤缦麓码：

ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ

ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ—

ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂(ＢｙＶａｌｈｗｎｄＡｓ

Ｌｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓ

Ｌｏｎｇ)ＡｓＬｏｎｇ

＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明

＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎ

ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ()

ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ

ＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇ

ＤｉｍｃａｐｌｅｎＡｓＬｏｎｇ

ｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄(１００，０)

ｃａｐｌｅｎ＝９９

ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ(ＢｙＶａｌｍｅ．ｈｗｎｄ，

ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ)

ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅ

Ｐｒｉｎｔｃａｐｔｅｘｔ

Ｐｒｉｎｔｃａｐｌｅｎ

ＥｎｄＳｕｂ

二、获取鼠标在当前窗口(客户区)的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯

ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ

ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂

(ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ)ＡｓＬｏｎｇ

ＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩ

ＸＡｓＬｏｎｇＹＡｓＬｏｎｇ

ＥｎｄＴｙｐｅ

ＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩ

ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ()

Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂

Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂

ＭａｘＢｕｔｔｏｎ＝Ｆａｌｓｅ

ＭｉｎＢｕｔｔｏｎ＝Ｆａｌｓｅ

Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２

ＥｎｄＳｕｂ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ(ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，

ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ)

＇注意ｐｔ结构是按引用传递的

ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ(ｐｔ)

Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．Ｘ

Ｔｅｘｔ２．Ｔｅｘｔ＝ｐｔ．Ｙ

ＥｎｄＳｕｂ

三、记录Ｗｉｎｄｏｗｓ使用时间

建立新项目窗口ｆｏｒｍ１，输入代码：

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ()

ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ

Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１

Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ(Ｎｏｗ)

Ｃｌｏｓｅ＃１

ＥｎｄＳｕｂ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ(ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ)

Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１

Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ(Ｎｏｗ)

Ｃｌｏｓｅ＃１

Ｅｎｄ

ＥｎｄＳｕｂ

最后将此程序加入启动组即可

。