全vb6.0解密程序代码正确例题

于 2023-04-05 13:37:46 发布
阅读量181 收藏
点赞数
文章标签： 开发语言
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_32257509/article/details/129969664
版权

Private Declare Function findWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib “user32” (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_REPLACESEL = &HC2
Private Declare Sub keybd_event Lib “user32” (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Shell “C:\Users\28261\Desktop\密码登录程序.exe”, vbNormalFocus
End Sub

Private Sub Command2_Click()

Dim i As Integer

Dim k As String
Dim n As Integer
Dim s As String

n = 2 '要获取的字符串的数量
s = “00010203040506070809101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899” '原始字符串

Dim w As Long
Dim m As Object
Set m = CreateObject(“WScript.Shell”)

Sleep 1000
Call keybd_event(18, 0, 0, 0) '模拟按下 'alt
Call keybd_event(9, 0, 0, 0) '模拟按下 'tab

Call keybd_event(18, 0, &H2, 0) '模拟弹起键

Call keybd_event(9, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 1, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 3, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 5, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 7, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 9, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 11, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 13, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 15, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 17, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 19, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 21, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 23, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 25, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 27, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 29, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 31, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 33, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 35, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 37, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 39, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 41, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 43, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 45, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 47, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 49, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 51, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 53, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 55, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 57, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 59, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 61, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 63, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 65, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 67, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 69, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 71, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 73, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 75, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 77, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 79, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 81, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 83, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 85, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 87, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 89, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 91, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 93, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 95, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 97, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
k = Mid(s, 99, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板

Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000
m.SendKeys “^V”

Sleep 1000
m.SendKeys “{tab}”

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键

End Sub

EYYLTV
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
vb6.0下AES加解密模块，可对字符和文件进行加解密
06-12
vb6.0下AES加解密模块，可修改后做软件注册等，本加密程序可以加密字符和加密文件，当然也可解密，对学习AES算法当然是挺有参考意义的。可在多种场合中都可应用.
VB６．０加密解密字符串
12-28
加密解密字符串.exe　ｈｕａｎｙｉｎ下载
VBA密码清除
happycd的专栏
12-10 2877
Private Sub VBAPassword()'你要解保护的Excel文件路径Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename) = "" ThenMsgBox "没找到相关文件,清重新设置。"E...
21种VB加密算法含解密源码集.rar
07-10
21种VB加密/解密算法源代码，另外还有50多种种压缩/解压算法源码，相信够你用了，觉得还不错吧，推荐给大家。
一个加密解密函数 for vb6.0!
CodeAngel 专栏
11-11 4694
= Name:         modPassword= Description:  This function for string encrypt= Author:       Super.Wang= Date:         2004/11/01================================================= Please Do Not Rem
VB6.0文件查找程序源代码
05-07
摘要:VB源码,文件操作,文件查找　一个基于VB6.0的文件查找程序源代码，若文件类型为 Exe,Ico,Cur,Ani，则获取每个文件的默认图标，其他类型的文件，只为每一种类型加载一个默认的图标，但最多允许加载150种图标，...
常用SQL语句vb6.0实例源代码
05-19
在IT领域，Visual Basic 6.0（VB6.0）是一种经典的编程环境，用于创建Windows应用程序。SQL（Structured Query Language）则是用于管理和处理数据库的标准语言。本资源"常用SQL语句vb6.0实例源代码"是为初学者设计的...
VB6.0 操作SQLite 数据库的完整示例代码
08-02
本示例代码提供了全面的功能，使开发者能够轻松地在VB6.0项目中执行数据库的各种操作。 首先，为了使用SQLite数据库，我们需要一个SQLite的VB6.0驱动程序或控件。在提供的压缩包中，`register.bat`文件用于注册DLL...
VB6.0入门程序源代码实例
11-03
这个“VB6.0入门程序源代码实例”集合提供了丰富的学习资源，帮助初学者快速掌握VB6.0的基本概念和编程技巧。 在VB6.0中，主要使用Basic语言语法，它的特点是语法简洁，易于理解。源代码实例通常包括控制结构（如...
VB6.0应用编程150例源代码.rar
06-24
这个“VB6.0应用编程150例源代码”压缩包提供了大量实例，帮助学习者理解和掌握VB6.0的基本语法、控件使用、事件处理以及程序设计技巧。 1. **基本语法**：VB6.0使用的是基于Basic语言的语法，它包括变量声明、常量...
VB6 AES加密解密文本串和文件的DLL动态库
06-18
根据michael19880628提供的“VB实现DES加密解密算法” 改写的 一个VB6 AES加密解密文本串和文件 的 DLL动态库
VB6.0加密解密
02-27
COM组件注册 使用cmd进入以下路径调用RegAsm.exe使用以下的命令 \Microsoft.NET\Framework\v4.0.30319 下面的命令将注册 myTest.dll 中包含的所有公共类。 regasm myTest.dll 下面的命令生成包含所有必要的注册表项的 myTest.reg 文件。 此命令不更新注册表。 regasm myTest.dll /regfile:myTest.reg 下面的命令注册 myTest.dll 中包含的所有公共类，并生成和注册类型库 myTest.tlb，该类型库包含 myTest.dll 中定义的所有公共类型的定义。 regasm myTest.dll /tlb:myTest.tlb 用这个生成tlb regasm DLL的路径 /tlb:DLL的名字.tlb
Excel如何破解vba的宏密码及恶意文档样本分析
小龙人
02-07 6783
EXCEL破解VB宏密码，即解除工程属性的密码，恶意文档样本分析
VB6 加密解密字符串
weixin_30924087的博客
01-22 1767
Public Function EnCodeStr(ByVal password As String) As String Dim il_bit, il_x, il_y, il_z, il_len, i As Long Dim is_out As String il_len = Len(password) il_x =...
VB6的一个字符加密、解密的函数
weixin_34146805的博客
08-29 638
原来这个是delphi的、我翻译了一下、我感觉还是不错的、唯一的问题是不支持中文、不过没关系、反正我从来我对中文字符串加密的、 加密函数 Private Function EncrypStr(ByVal Src As String, _ Optional ByVal Key As String = "ForDream") As Str...
vb6下的加密算法 RC4
清风古韵
06-24 1284
vb6下的加密算法  2010-04-09 12:45:34|  分类： vb6|字号 订阅一款简单实用的加密算法：RC4，其源代码如下：'RC4加密算法'RC4是对称加密算法，其中：'   Expression  是待加密的明文或要解密的密文'   Password    是密钥'返回：明文或密文Public Function RC4(ByVal Expression As String, By
AES加解密
dly120219891208的专栏
09-10 421
package com.ccx.credit.util; import javax.crypto.Cipher; import javax.crypto.spec.IvParameterSpec; import javax.crypto.spec.SecretKeySpec; /**AES 是一种可逆加密算法，对用户的敏感信息加密处理 * 对原始数据进行AES加密后，在进行Base64编码转
通过VB实现简单凯撒密码加密解密
weixin_46413513的博客
08-19 1223
通过VB实现简单的凯撒密码加密解密
vb6.0解密程序代码过程太大
qq_32257509的博客
04-05 223
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace。Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace。Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace。Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace。Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace。
vb6.0程序开发代码
最新发布
02-06
下面是一些常见的VB6.0代码示例： 1. 窗体的创建和属性设置: ``` Private Sub Form_Load() Me.Width = 500 Me.Height = 300 Me.Caption = "My Form" End Sub ``` 2. 控件的创建和事件处理: ``` Private Sub ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

EYYLTV

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值