int jiaMi()
{
string password
string password1
password ="123"
int n = 3
cout<<"请输入密码:"<<endl
cin>>password1
while(n)
{
if(password1==password)
return m=1//m是程序继续运行的判断,m=1表示继续运行
else
{
cout<<"你输入的密码不正确,请重新输入:"<<endl
cin>>password1
--n
}
}
cout<<"你已经连续输错密码三次,系统将退出!"<<endl
return 0
}
while(m==1)
{......}
置剪辑板文本(这里面输入你的账号)账号坐标[Y] = 启动窗口.顶边+账号编辑框在启动窗口里的Y坐标
账号坐标[X] = 启动窗口.左边+账号编辑框在启动窗口里的X坐标
密码坐标[Y] = 启动窗口.顶边+密码编辑框在启动窗口里的Y坐标
密码坐标[X] = 启动窗口.左边+密码编辑框在启动窗口里的X坐标
模拟鼠标点击(账号坐标X,账号坐标Y)
置剪辑板文本(这里输入你的账号)
模拟键盘(Ctrl+V)
延迟(1000)
模拟鼠标点击(密码坐标X,密码坐标Y)
置剪辑板文本(这里输入你的密码)
模拟键盘(Ctrl+V)
没用易语言纯手打的,有些地方参数不准,我也刚学,高手勿喷
Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串Dim c$
c$ = ""
Do While m <>0
r = m Mod 2
m = m 2
c$ = r &c$
Loop
c$ = Right("00000000" &c$, 8)
ByteToBin = c$
End Function
Function Reverse(m As String) As String ' 将八位二进制字符串颠倒顺序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1) &x
Next i
Reverse = x
End Function
Function BinToByte(m As String) As Byte ' 将八位二进制串转换成十进制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
BinToByte = z
End Function
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = InputBox("请输入要加密的文件名!注意加上路径名:")
If Dir(fname) = "" Then
MsgBox "文件不存在!"
Exit Sub
End If
Open fname For Binary As #1 ' 以二进制访问模式打开待加密文件
For i = 1 To LOF(1) ' LOF函数是求文件长度的内部函数
Get #1, i, x ' 取出第i个字节
x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数
Put #1, i, x ' 将加密后的这个字节写回到文件原位置
Next i
Close
MsgBox "任务完成!"
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)