易语言内存读取获得当前PC已经登陆微信号的代码

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 局部_登陆个数, 整数型
.局部变量 局部_微信号, 文本型, , "0"
.局部变量 i, 整数型
局部_登陆个数 ＝ 取当前登陆微信号 (局部_微信号)
.计次循环首 (局部_登陆个数, i)
  微信号编辑框.内容 ＝ “当前PC登陆微信号:” ＋ 局部_微信号 [i]
.计次循环尾 ()
.子程序 取当前登陆微信号, 整数型, , 成功返回登陆个数，失败返回0 
.参数 微信号数组, 文本型, 数组, 数组 
.局部变量 局部_特征码, 字节集
.局部变量 局部_进程ID数组, 整数型, , "0"
.局部变量 局部_登陆个数, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_计次1, 整数型
.局部变量 局部_搜索结果, 整数型, , "0"
.局部变量 局部_地址, 整数型
.局部变量 局部_搜索结果个数, 整数型
.局部变量 局部_微信号, 文本型
局部_特征码 ＝ 编码_Ansi到Unicode (“\Msg\”)
局部_登陆个数 ＝ 进程_取同名ID (“WeChat.exe”, 局部_进程ID数组)
.计次循环首 (局部_登陆个数, 局部_计次)
  局部_搜索结果个数 ＝ 内存.搜索 (局部_进程ID数组 [局部_计次], 局部_特征码, 局部_搜索结果)
  .计次循环首 (局部_搜索结果个数, 局部_计次1)
    局部_地址 ＝ 局部_搜索结果 [局部_计次1] － 50
    局部_微信号 ＝ 文本_取出中间文本 (编码_Unicode到Ansi (内存.读字节集 (局部_进程ID数组 [局部_计次], 局部_地址, 200)), “Files\”, “\Msg\”)
    .如果真 (局部_微信号 ≠ “”)
      加入成员 (微信号数组, 局部_微信号)
      跳出循环 ()
    .如果真结束
  .计次循环尾 ()
.计次循环尾 ()
返回 (取数组成员数 (微信号数组))