突然想问一个问题

kevins

QQ珊瑚虫外挂是用什么写的？为什么我用language2000和PEidentifer都查不出，不会是用汇编写的吧！！！

yzhlinux

win32汇编

游侠无极限

发现他的一个提示信息和别的不太一样，呵呵

this program must be run under Win32

而不是

This program cannot be run in DOS mode

kevins

RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As Any, ByVal cbData As Long) As Long

呵呵，这里居然还有人的，那我想再多问一个问题，上面是修改注册表的API函数，

如我想修改RegSetValueEx hKey, "TcpNumConnections", 0, REG_DWORD, n, 4

到到底n是用什么进制的数。我实验中觉得好像是Ascii码！！

游侠无极限

n 用 Long 类型,

[此贴子已经被作者于2005-5-1 18:39:25编辑过]

kevins

上面代码我应该怎么改啊???

游侠无极限

dim n as Long

n = xxx

RegSetValueEx hKey, "TcpNumConnections", 0, REG_DWORD, n, 4

我是看网上资料的，由于现在没有VB6，无法测试……

kevins

RegSetValueEx hKey, "TcpNumConnections", 0, REG_DWORD, "100", 4

我直接为它赋100的值,为什么我查看时却是很大的值???

游侠无极限

你为什么要加上引号？

"100" 是字符串

100 是数字

kevins

如果不加引号就会出“类型不匹配”的提示！！

游侠无极限

用变量呢？

dim x as long

x = 100

RegSetValueEx hKey, "TcpNumConnections", 0, REG_DWORD, x, 4

实在不行把声明中的 As Any 改为 As Long

kevins

但是如果我想别人输入一个数为它的值,那不是很麻烦吗???

如我用一个Test接收输入的数,我是不是应该这样写啊:

dim x as long

x=val(Text1.text)

RegSetValueEx hKey, "TcpNumConnections", 0, REG_DWORD, x, 4

但这样写注册表根本不会去创建TcpNumConnections这个键!!

kevins

还有,改any为long,和

dim x as long

x = 100

RegSetValueEx hKey, "TcpNumConnections", 0, REG_DWORD, x, 4

这样写它也不会创建TcpNumConnections这个键!!为什么它不像REG_SZ那么容易写啊!!

游侠无极限

手头没有VB，我现在也帮不了你了

声明还是用 As Any 的 " N- X- G8 v0 Z8 y: B& {

RegSetValueEx hKey, "TcpNumConnections", 0, REG_DWORD, byval x, 4

看看这个吧

: @! d* k% i* x2 Y% v2 ^5 F. _) u

[此贴子已经被作者于2005-5-2 20:38:20编辑过]

游侠无极限

以下是引用kevins在2005-5-2 19:52:56的发言：

但是如果我想别人输入一个数为它的值,那不是很麻烦吗???

如我用一个Test接收输入的数,我是不是应该这样写啊:

dim x as long

x=val(Text1.text)

RegSetValueEx hKey, "TcpNumConnections", 0, REG_DWORD, x, 4

( L; ?: J! ^, l1 }

但这样写注册表根本不会去创建TcpNumConnections这个键!!

/ C; Q, \0 R; J1 h ! g Y* l: a v i3 ] 数字 字符串 转换在这里是必须的，你不可能避免 还有检查API的返回值会是一个好习惯 3 ]. M2 q$ A5 V( F6 B

[此贴子已经被作者于2005-5-2 20:40:46编辑过]

# L* O: Z, v; u6 s. Z+ u: u9 Z

BCGSoftBug

游侠

我建议你仔细看看这个api的定义

1 声明没错

2 使用方法的一种

dim x as long

x=val(Text1.text)

RegSetValueEx hKey, "TcpNumConnections", 0, REG_DWORD, varptr(x), 4

传送指针（就是lpData）

在调用api时，如果传字符串变量，都是船指针，byval只是在复制以后传送副本的指针

游侠无极限

…… 问题不是我出的

我还是喜欢直接由指针类型的语言