错误(10044): 不能将“文本型”数据转换到“字节集”数据。

─━☆给珎旳ai · 发表于 2017-4-6 19:44:37

源码如下，不知道哪怎么将帐号密码的整数型作调整。。。
请大神们来指导

.版本 2
.支持库 xplib
.支持库 spec

.程序集窗口程序集1
.程序集变量用户名, 文本型
.程序集变量保存名, 文本型
.程序集变量 chr1, 文本型

.子程序 __启动窗口_创建完毕
.局部变量自动登录开关, 文本型
.局部变量密码开关, 文本型

XP风格 (3)
组合框_帐号.获取焦点 ()
组合框_帐号.内容＝读配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “lastname”, )
密码开关＝读配置项 (取运行目录 () ＋ “\” ＋组合框_帐号.内容＋ “.ini”, “用户信息”, “密码开关”, )
自动登录开关＝读配置项 (取运行目录 () ＋ “\config.ini”, “配置信息”, “自动登录”, )
调试输出 (到数值 (自动登录开关))
.如果 (到数值 (自动登录开关) ＝ 1)
记住密码.选中＝真
自动登录.选中＝真
组合框_帐号.内容＝读配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “用户名”, )
编辑框_密码.内容＝读配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “密码”, )
提示信息.标题＝ “正在自动登陆中，请稍候！”
' 自动输入密码
密码解密 ()
程序_延时 (3000)  ' 延时3秒是为了给用户取消登录的机会
提示信息.标题＝ “”
登录 ()
.否则

.如果结束
.如果 (到数值 (密码开关) ＝ 1)
编辑框_密码.内容＝读配置项 (取运行目录 () ＋ “\” ＋组合框_帐号.内容＋ “.ini”, “用户信息”, “密码”, )
编辑框_密码.内容＝编码_RC4解密 (编辑框_密码.内容)
记住密码.选中＝真
登录 ()
.否则

.如果结束

.子程序 _登录_被单击

用户名＝组合框_帐号.内容
保存名＝ “\” ＋用户名＋ “.ini”
.如果 (组合框_帐号.内容 ≠ “” 且编辑框_密码.内容 ≠ “”)
' 读写配置项
.如果真 (自动登录.选中＝真)
      记住密码.选中＝真
      登录 ()  ' 先传递正确的账户名与密码信息
      程序_延时 (1000)
      ' 写开关
      写配置项 (取运行目录 () ＋ “\config.ini”, “配置信息”, “自动登录”, “1”)
      ' 写（已经存在就覆盖）自动登录的用户
      写配置项 (取运行目录 () ＋ “\config.ini”, “配置信息”, “username”, 用户名)
      ' 写最后一次登录的用户名
      写配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “lastname”, 用户名)
      ' 写自动登录的配置信息
      写配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “用户名”, 用户名)
      ' 清空密码
      写配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “密码”, “”)
      ' 加密密码
      密码加密 ()
      程序_延时 (3000)
      写配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “密码”, chr1)
      调试输出 (“成功写配置！”)
      返回 ()  ' 跳出子程序
.如果真结束
' 写用户名与密码
.如果 (记住密码.选中＝真)
      登录 ()  ' 先传递正确的账户名与密码信息
      程序_延时 (1000)
      写配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “lastname”, 组合框_帐号.内容)
      写配置项 (取运行目录 () ＋保存名, “用户信息”, “用户名”, 用户名)
      写配置项 (取运行目录 () ＋保存名, “用户信息”, “密码开关”, “1”)
      ' 加密密码
      密码加密 ()
      程序_延时 (3000)
      ' 清空密码
      写配置项 (取运行目录 () ＋保存名, “用户信息”, “密码”, “”)
      ' 写入加密后密码
      写配置项 (取运行目录 () ＋保存名, “用户信息”, “密码”, chr1)
.否则
      登录 ()
      程序_延时 (1000)
      写配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “lastname”, 用户名)  ' 写最后一次登录用户名
.如果结束

.否则
信息框 (“请输入帐号和密码！”, 0, “登录”)
.如果结束

.子程序登录
.局部变量帐号, 文本型
.局部变量密码, 文本型

' 返回登录成功信息
' 登录.禁止=真  登录成功将按钮禁止
' ===================================
' 保存账户变量
' 帐号=用户名
' 密码=编辑框_密码.内容
' ===================================
' 登录代码开始

.子程序 _安全退出_被单击
.局部变量开关, 整数型

开关＝信息框 (“即将清除所有配置信息，你确定如此做吗？”, 1 ＋ 32 ＋ 256, “登录”)
.如果 (开关＝ 1)
返回 ()
.否则
写配置项 (取运行目录 () ＋ “\config.ini”, “配置信息”, “自动登录”, “”)
' 清除自动登录的用户
写配置项 (取运行目录 () ＋ “\config.ini”, “配置信息”, “username”, “”)
' 清除最后一次登录的用户信息
写配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “lastname”, “”)
写配置项 (取运行目录 () ＋ “\” ＋组合框_帐号.内容＋ “.ini”, “用户信息”, “用户名”, “”)
写配置项 (取运行目录 () ＋ “\” ＋组合框_帐号.内容＋ “.ini”, “用户信息”, “密码”, “”)
写配置项 (取运行目录 () ＋ “\” ＋组合框_帐号.内容＋ “.ini”, “用户信息”, “密码开关”, “”)
' 清除自动登录的配置信息
写配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “用户名”, “”)
写配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “密码”, “”)
' 退出程序
_启动窗口.销毁 ()
.如果结束

.子程序 _自动登录_被单击

.如果真 (自动登录.选中＝真)
记住密码.选中＝真
.如果真结束

.子程序密码加密, , , '加密密码
.局部变量 chr0, 文本型
.局部变量 len, 整数型
.局部变量 i, 整数型

' 加密
chr0 ＝编码_RC4加密 (“编辑框_密码.内容”, “123”)
调试输出 (chr0)
len ＝取文本长度 (chr0)
调试输出 (len)
' 去掉","号
.计次循环首 (len, i)
.如果 (取文本中间 (chr0, i, 1) ≠ “,”)
      .如果 (i ％ 2 ＝ 0)  ' 求余数混乱视线
         chr1 ＝ chr1 ＋到大写 (取文本中间 (chr0, i, 1))
      .否则
         chr1 ＝ chr1 ＋到小写 (取文本中间 (chr0, i, 1))
      .如果结束

.否则

.如果结束
i ＝ i ＋ 1
.计次循环尾 ()

.子程序密码解密, , , '解密密码
.局部变量 code, 文本型

code ＝读配置项 (取运行目录 () ＋ “\user.ini”, “用户信息”, “密码”, )
编辑框_密码.内容＝编码_RC4解密 (code)

.子程序子程序1, , , '组合框账号列表
.局部变量变量, 整数型

' 组合框_帐号.置项目文本 (0, )
' 变量＝ 0
.' 计次循环首 (变量, )
' 写配置项 (取运行目录 () ＋ “\config.ini”, “配置信息”, “变量”, 到文本 (变量))
' 写配置项 (取运行目录 () ＋ “\config.ini”, “配置信息”, “username” ＋到文本 (变量), 到文本 (变量))

.' 计次循环尾 ()

.子程序 _取消_被单击

' 本来想点取消就可以中断登录()子程序的执行，未找到解决办法
信息框 (“抱歉，功能未添加！”, 0, “登录”)

运行程序返回的信息是错误(10044): 不能将“文本型”数据转换到“字节集”数据。

@阿杰大大  再劳烦大佬来指导。。。厚脸皮的我没救了