请问 _StringEncrypt 不支持winXP么

yunnl · 发表于 2012-8-24 20:06:38

本帖最后由 yunnl 于 2012-8-25 00:20 编辑

在虚拟机上测试的
_StringEncrypt函数获取不到结果
请问是什么原因？
测试了加入#AutoIt3Wrapper_UseAnsi=y
和修改文本编码ANSI（貌似本来就是ANSI）
均无效

#include <String.au3>
FileInstall("dll.dll",@TempDir&"\dll.dll",1)
$sn = dllcall(@TempDir&"\dll.dll","int","GetSerialNumber","int","nDrive","str","lpBuffer")     ;硬盘序列号
Local $a = StringMid ( _StringToHex($sn[2]), 3 , 8 )
Local $keyword = _StringEncrypt( 1 , $a , "1" , 1)
Local $b = StringMid( $keyword , 2 , 10 )
MsgBox(0,$b,$b)

半芯竹 · 发表于 2012-8-24 21:45:17

肯定支持。。你方法有问题
把源码发上来参考。。再详说问题。

lxwlxwayy · 发表于 2012-8-24 22:10:30

_StringEncrypt函数是什么用的阿

yunnl · 发表于 2012-8-24 22:21:11

本帖最后由 yunnl 于 2012-8-24 22:24 编辑

回复 2# 半芯竹

这个是我的代码，dll可以获取硬盘ID

#include <String.au3>
FileInstall("dll.dll",@TempDir&"\dll.dll",1)
$sn = dllcall(@TempDir&"\dll.dll","int","GetSerialNumber","int","nDrive","str","lpBuffer")     ;硬盘序列号
Local $a = StringMid ( _StringToHex($sn[2]), 3 , 8 )
Local $keyword = _StringEncrypt( 1 , $a , "1" , 1)
Local $b = StringMid( $keyword , 2 , 10 )
MsgBox(0,$b,$b)

应该不是代码有问题吧 0 0

yunnl · 发表于 2012-8-24 22:23:14

回复 3# lxwlxwayy

一个UDF，用法可以看看帮助文档~

lxwlxwayy · 发表于 2012-8-24 22:24:28

应该支持xp的

lxwlxwayy · 发表于 2012-8-24 22:26:17

上次我在论坛上找了一个，不知放哪去了，你在论坛上再找下获取硬盘ID dll

yunnl · 发表于 2012-8-24 22:32:43

回复 7# lxwlxwayy

#include <String.au3>
FileInstall("dll.dll",@TempDir&"\dll.dll",1)
$sn = dllcall(@TempDir&"\dll.dll","int","GetSerialNumber","int","nDrive","str","lpBuffer")     ;硬盘序列号
Local $a = StringMid ( _StringToHex($sn[2]), 3 , 8 )
MsgBox(0,"",$a)
Local $keyword = _StringEncrypt( 1 , $a , "1" , 1)
MsgBox(0,"",$keyword)
Local $b = StringMid( $keyword , 2 , 10 )
MsgBox(0,"",$b)

代码一直到$keyword才是空白的

		自动登录	找回密码
密码			加入

[AU3基础] 请问 _StringEncrypt 不支持winXP么

相关帖子

本帖子中包含更多资源