Ⅰ 编一个给文件夹加锁和解锁小程序

程序很简单，我抄把核心的两个过程给你贴下来，你自己编写完成的窗口程序。

uses部分要增加引用单元sysutils：
uses sysutils;

常量部分定义：
const lockstr='.{6413BA2C-B461-11d1-A18A-080036B11A03}';

两个核心的过程：
procere lock(f:string);
begin
if ExtractFileExt(f)<>lockstr then RenameFile(f,f+lockstr);
end;

procere unlock(f:string);
begin
if ExtractFileExt(f)=lockstr then RenameFile(f,(f,1,length(f)-length(lockstr)));
end;

保证瞬间完成，而且有效。如果在你的机器上行的话，可以更换lockstr的数值，比如可以换为'.{645FF040-5081-101B-9F08-00AA002F954E}'

Ⅱ 小程序如何获取链接

具体步骤如下：

1、首先，打开需要获取链接的小程序调用接口获取登录凭证，进而换取用户登录态信息，包括用户的唯一标识 及本次登录的会话密钥。

Ⅲ 微信小程序，weixin，微信小程序登录解密求助

微信聊天记录导出到电脑 苹果安卓手机均可实现
微信聊天记录导出听上去比较麻烦，其实并不是那么一回事。不管是安卓手机，还是苹果手机，将里面的微信聊天记录导出到电脑上均不是一件难事。今天就来分别介绍一下如何导出苹果手机及安卓手机里面的微信聊天记录，导出后，不但可以在电脑上查看里面的所有文字及图片聊天记录，还可以在电脑上播放所有语音聊天记录及播放接收及发送的小视频。记录导出到电脑后，

苹果手机微信聊天记录导出电脑方法
在电脑上安装并打开iTunes软件，并将苹果手机与电脑进行连接。点击左上角的小手机图标后，再依次点击“本电脑”，“立即备份”，“不备份应用程序”，

2.不同手机备份时间是不一样的，手机里面的数据多的话，导出时间相对会比较久，请耐心进行等待。直到窗口顶部的进度条消失后，说明备份已经完成(即手机上所有数据均已成功导出到电脑上)。

3.在电脑上安装并打开“PP助手”软件，在“工具箱”选项卡右边打开“iTunes备份管理”.

4.双击打开备份数据。

5.此时我们会看到很多文件夹，这些文件夹是以名称按顺序进行排列的，我们仔细找到“AppDomain-com.tencent.xin”文件夹并双击将其打开。

6.单击“Documents”文件夹，然后点击“导出”按钮将这个文件夹导出到您的电脑上。

7.上面就把微信聊天记录文件夹导出到电脑上了，但微信聊天记录是按照特殊方式进行加密保存的，我们可以使用“楼月微信聊天记录导出恢复助手”来将里面的所有微信聊天记录解密显示在软件界面上进行查看，

8.最后，再说一句题外话，我们还可以通过点击“文件”，“恢复已删除记录”来恢复自己误删的微信聊天记录，

总结：以上的苹果手机微信聊天记录导出方法适用于所有iPhone手机及iPad平板电脑，不管是最近上市的iPhone6S,iPhone6SPlus,iPhone6,iPhone6S还是前几年上市的iPhone4,iPhone5,均可以使用该方法进行导出。

安卓手机微信聊天记录导出电脑方法
安卓微信聊天记录分为两部份，分别保存在资源文件夹及数据文件夹中。其中资源文件夹中杂乱地保存了所有接收的图片，语音及小视频文件，资源文件夹中主要是一个数据库文件，里面保存了每一条微信聊天记录的时间，对应的聊天内容，及资源路径(即图片，语音保存的路径)，只有通过数据文件夹，我们才可以系统地在电脑上查看安卓手机里面的所有微信聊天记录。因此，要将微信聊天记录全部导出到电脑上的话，我们需要将这两个文件夹均导出到电脑上才可以。您只需按如下步骤进行操作即可。
1.将安卓手机与电脑进行连接，打开手机所在盘符，然后进入tencent文件夹，右击MicroMsg并对其进行复制，然后将该文件夹粘贴到电脑上。这样资源目录就导出到了电脑上。

2.前面把资源目录导出到了电脑上，但数据目录要导出到电脑上的话，相对要麻烦一些，我们需要先对手机进行Root，我们可以在网络上搜索“360一键Root”软件来对您的安卓手机进行Root。

3.手机Root后，我们再在手机上安装一款名为“Re管理器RootExplorer”的软件，我们可以在网络或360手机助手里面搜索下载该软件。
4.打开RootExplorer软件，点击进入“data\data\com.tencent.mm\”，并复制该文件夹下的MicroMsg文件夹，该文件夹即为微信聊天记录的数据目录。

5.点击最上方的“..”文件夹，返回到上一层目录，直到返回到根目录，然后打开sdcard文件夹并将其点开，然后点击下图红框中的“复制到此”按钮。这样，数据目录就从手机的系统目录中复制到了手机的sd卡中了。

6.再次将手机连接到电脑上，然后打开手机所在盘符，就可以看到我们刚才复制出来的MicroMsg数据目录了，我们再次将该文件夹复制，并粘贴到电脑的某个文件夹中。
7.在网上搜索并下载“楼月微信聊天记录导出恢复助手”，按照该软件的使用说明分别设置好数据目录和资源目录为刚才从手机上复制出来的两个文件夹。

8.此时，安卓手机上所有的微信聊天记录就显示在软件界面上了，

总结：以上的安卓手机微信聊天记录导出方法适用于所有安卓手机，包括三星，联想，小米，红米，魅族，华为，中兴，HTC，OPPO，VIVO，LG，摩托罗拉，飞利浦，黑莓，谷歌，夏普，康佳，朵唯等所有安卓手机。

Ⅳ 小弟麻烦大家(用VB)帮忙编写一个加密解密小程序

就像A~Z等字符，你可以错开几个字符，如A-B，B-C。。。。Z-A，这样就是简单的加密了，解密就是反过来就可以了，，

Ⅳ vb 解密码小程序

另一个程序中的代码

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Command2_Click()
Dim hwnd As Long, t As Long, s As String * 100‘声明变量hwnd、t为长整形，s为 100个字符的字符型变量，把句柄保存在hwnd中
hwnd = FindWindow(vbNullString, "HJonny")'寻找名为HJonny的窗体标题，这里就比如你的第一个密码程序。
t = FindWindowEx(hwnd, 0, "ThunderRT6TextBox", vbNullString)'这个是寻找其中的一个文本框，也就是迷得密码框的句柄，保存在t中
SendMessage t, 13, 100, s'sendmassage取t句柄，也就是你的密码框中的文本内容。

MsgBox s'弹出提示
End Sub

自己写不复制，人品好，希望能帮到你

Ⅵ 看懂小程序的八种类型，哪些行业适合做小程序

小程序于2017年1月9日上线,到目前为止已经发展快两年了,小程序被人们所熟知,小程序的优势被商家利用起来成为自己营销的利器,小程序也确实不为所望,为商家带来了大量的利润.那么究竟都是什么样的行以及人群业比较适合用小程序呢?
一．现下实体店家
我们都知道由于网络发展，现在电商店平台的发展收益十分可观。很多厂家想要参一脚，但也不是什么都适合电商平台发展比如：小区门口的超市。
而小程序的出现大大的解决路这个问题，它完全可以代替某宝之类的大平台，从而打造一个属于自己专署平台，既满足用户线上购物的需求，也门满足商家的供货能力，从而达到双赢的局面。
二．餐饮行业
吃饭、去哪吃？吃什么？是大多数人每天要面对的问题，想想，现在打开手机，点开附近的小程序，寻找自己喜欢的餐厅进行点餐，可以选择到店用餐也可以快递配送，减少排队时间，同时节省了客户和商家的时间，并且线上宣传该可以节省宣传成本。
三．医疗行业
去医院最烦心的是什么？当然是排队挂号了！如果打开一款小程序，在线预约挂号，既节省了排队时间，也方便了一医务人员，并且不仅仅是挂号功能还有付费，线上诊疗等等
四．电商类
前面说到电商发展好，利润高，但如果可以配合小程序以及公众号矩阵一起运营，以电商+小程序+公众号的方式，借助公众号进行导购，肯定会提高销量，增加用户的。
五．工具类
现在的APP太多，而有些APP则太占用空间，再类似于工具类的APP安置浪费手机内存，不安有时还会用上，在这中尴尬的局面中小程序正好解决这个问题，小程序触手可及，用完即走，无需下载，既满足了用户的使用需求又不用下载。比如：小睡眠、网易有道词典等就做得比较出色。
小程序的依托于微信10亿活跃用户的APP，流量高、易获客、无需下载等优势，而且小程序的开发成本相对较低，可接受程度高。任何商家只要有好的想法都可以一试，小程序带给你无限的惊喜。

Ⅶ 小程序怎么解密sessionkey和openid

调用接口获取登录凭证(code)进而换取用户登录态信息,包括用户的唯一标识(openid) 及本次登录的 会话密钥(session_key)。用户数据的加解密通讯需要依赖会话密钥完成。

Ⅷ 各位能否帮我做一个对文档（*TXT）加密解密的小程序

http://xiazai.zol.com.cn/encrypt_soft_index/encrypt_page_1.html
看看这个

Ⅸ 请大家帮忙编写一个加密、解密的小程序！谢谢（用VB或JAVA）

哈哈!不会是老师留给你的作业吧!在网上做牛! VERSION 4.00 Begin VB.Form Form1 Caption = "Sample" ClientHeight = 705 ClientLeft = 3915 ClientTop = 3315 ClientWidth = 1800 ControlBox = 0 'False Height = 1110 Left = 3855 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 705 ScaleWidth = 1800 Top = 2970 Width = 1920 Begin VB.CommandButton Command1 Caption = "Command1" Height = 495 Left = 240 TabIndex = 0 Top = 120 Width = 1215 End End Attribute VB_Name = "Form1" Attribute VB_Creatable = False Attribute VB_Exposed = False Sub FileEncodeAndDecode(InputFile As String, OutputFile As String, PasswordKey As String) Dim temp As Single Dim Char As String * 1 Dim XORMask As Single Dim temp1 As Integer Open InputFile For Binary As #1 Open OutputFile For Binary As #2 For x = 1 To Len(PasswordKey) temp = Asc(Mid$(PasswordKey, x, 1)) For y = 1 To temp temp1 = Rnd Next y ' Re-seed to throw off prying eyes Randomize temp1 Next x Counter = 0 For z = 1 To FileLen(InputFile) 'Generate random mask XORMask = Int(Rnd * 256) 'Get the char & change it Get 1, , Char Char = Chr$((Asc(Char) Xor XORMask)) Put 2, , Char Counter = Counter + 1 If Counter > Len(PasswordKey) Then Counter = 1 ' Pull random numbers from the hat For x = 1 To (Asc(Mid$(PasswordKey, Counter