打开一个游戏的登陆程序界面.想让它自动输入账号,密码.用易语言怎么写源代码_CMS教程

置剪辑板文本（这里面输入你的账号）

账号坐标[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

MsgBox "任务完成！"

End Sub

1最简单的方法在TextBox内输入密码，如果密码和你希望填入的字符相等，那么就进入界面。

If Text1="123456" Then '这里密码假设为123456,可以把Text1PassWordChar=""，密码掩饰

2稍微复杂一点，就是在数据库中确定使用人和密码，然在程序启动时加载那个数据库里面表里存储的密码和使用人，然后和你输入的密码进行验证，正确则。。。

3在上面的基础上还能对密码进行加密，或者对数据库的访问添加限制

4肯定有更加有效地方法，但是根据自己的应用设置密码验证方式

分类: 电脑/网络 >> 互联网

问题描述:

<head>

<title>Qzone 此空间需要密码访问 </title>

</head>

function checkPasswd(vPasswd)

{

if(documentform1passwdvaluelength == 0)

{

alert("请您输入密码!");

return false;

}

var aUrl;

aUrl = locationhrefsplit("");

form1uinvalue = aUrl[1];

return true;

};

function DoReturn()

{

var cookie_iuin = parseInt(getCookie("zzpaneluin"));

if( cookie_iuin > 10000 ){

var Url = "" + cookie_iuin + "qzoneqq";

locationhref = Url;

}else{

locationhref = "qzoneqq/web";

}

return true;

};

function init(){

var p = locationsearch;

if(/&/test(p) && psplit("&")[1]=="2")

documentform1action = "user21qzoneqq/cgi-bin/user/cgi_auth";

}

</script>

<tr>

<td>

<tr>

</tr>

<tr>

<tr>

<td> 请输入密码：

</tr>

</tr>

<td>

</tr>

</table>

<br>

</tr>

<tr>

</tr>

</table></td>

</tr></form>

</table>

</>

这个是原代码我想知道这个网页的密码怎么查找

解析:

qq空间可不是用静态语言做出来得…是不可能从源码看出来得！

以上就是关于打开一个游戏的登陆程序界面.想让它自动输入账号,密码.用易语言怎么写源代码全部的内容，包括:打开一个游戏的登陆程序界面.想让它自动输入账号,密码.用易语言怎么写源代码、用VB编写一个U盘加密的程序。请告诉我源代码。不用很麻烦，就是增加一个打开U盘前输入密码的程序、如何设置密码打开VB开发软件的源代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/zz/10110549.html

打开一个游戏的登陆程序界面.想让它自动输入账号,密码.用易语言怎么写源代码

发表评论

评论列表（0条）