电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

VB源代码-文本防窥探工具

VB源代码-文本防窥探工具_第1页
1/8
VB源代码-文本防窥探工具_第2页
2/8
VB源代码-文本防窥探工具_第3页
3/8
下载后可任意编辑文本防窥探工具 VB 源代码本软件的 VB 源代码包括两个窗体,两个模块,具体如下:‘Form1’CodePrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '声明Private Sub Command3_Click()Form2.ShowEnd SubPrivate Sub Form_Load()If Dir(App.Path & "\skin.urf") <> "" ThenDim bRes As Boolean bRes = SkinStart(App.Path & "\skin.urf", 2, "RQPJNW0N0V2QRMAP1KXVBHHDUVVQGUXR", 1, 0, 0) End IfCommand2.Enabled = FalseEnd SubPrivate Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)If Data.Files.Count < 1 Then Exit Sub Dim tFile As String tFile = Data.Files.Item(1) If UCase(Right(tFile, 4)) <> ".TXT" Then MsgBox "拖放的文件不是 TXT 文件", , "提示" Exit Sub End IfDim sA As String * 65400Open Data.Files(1) For Binary As #1Get #1, , sAClose #1Text1.Text = sAEnd SubPrivate Sub Command1_Click()Text2.Text = DeCrypt(Text1.Text, zihao2024)Open App.Path & "\" & "已加密" & ".txt" For Output As #1 Print #1, Text2.Text Close #1 MsgBox "已保存在“已加密.txt”中", , "提示"End Sub下载后可任意编辑Private Sub Command2_Click()Text2.Text = Crypt(Text1.Text, zihao2024)Open App.Path & "\" & "已解密" & ".txt" For Output As #1 Print #1, Mid(Text2.Text, 1, Len(Text1.Text) - 2) Close #1 MsgBox "已保存在“已解密.txt”中", , "提示"End SubPrivate Sub Label2_Click()ShellExecute 0, "open", "http://blog.sina.com.cn/s/blog_92b6d74d01012s3r.html", vbNullString, vbNullString, 3End SubPrivate Sub Text1_Change()If Text1.Text <> "" ThenCommand2.Enabled = TrueEnd IfEnd SubPrivate Sub Timer1_Timer()Static c As Integerc = c + 1Select Case cCase...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

VB源代码-文本防窥探工具

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部