Ⅰ 編一個給文件夾加鎖和解鎖小程序

程序很簡單，我抄把核心的兩個過程給你貼下來，你自己編寫完成的窗口程序。

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