sandu 发表于 2011-6-14 12:06:00

谁能帮我把一段C代码转成VB6的?

谁能帮我把下面这段代码转成VB6的?   
NTSTATUS CreateInstances(__in PUNICODE_STRING RegistryPath)
{ NTSTATUS Status; HANDLE VtioHandle; ULONG Flags = 0; HANDLE InstancesKeyHandle;
UNICODE_STRING SubValueName; WCHAR Altitude[] = {L"360000"};
WCHAR DefaultInstances[] = {L"VTIO"}; UNICODE_STRING Instances = RTL_CONSTANT_STRING(L"Instances");
Status = CreateKeyByRootKeyName(RegistryPath,&Instances,KEY_ALL_ACCESS,&InstancesKeyHandle);
if (!NT_SUCCESS(Status)) { return Status; } RtlInitUnicodeString(&SubValueName,L"DefaultInstance");
Status = SetValue(InstancesKeyHandle,&SubValueName,REG_SZ,DefaultInstances,sizeof(DefaultInstances));
if (!NT_SUCCESS(Status)) { ZwClose(InstancesKeyHandle); return Status; }
RtlInitUnicodeString(&Instances,L"VTIO");
Status = [...]

Tesla.Angela 发表于 2011-6-17 21:22:59

缩进这么乱，让人怎么帮你啊。。。
再说转换代码这件苦力活要自己完成。。。

马大哈 发表于 2011-6-17 21:41:04

........这语法有够乱

sandu 发表于 2011-6-18 13:05:29

已搞定
页: [1]
查看完整版本: 谁能帮我把一段C代码转成VB6的?