论坛 › 『 提问交流 』 › 请问 _StringEncrypt 不支持winXP么

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

请问 _StringEncrypt 不支持winXP么

本帖最后由 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), 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), 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), 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才是空白的

查看完整版本: 请问 _StringEncrypt 不支持winXP么