۰۹-شهریور-۱۳۸۹, ۲۰:۵۶:۰۲
سلام من یک برنامه نوشتم به زبان C++ حالا همون رو با زبان VB6 نوشتم اما خروجی چیزی رو نشون نمیده کمک کنید من باید حتما این رو به زبان VB6 بنویسم.
خوب حالا همین برنامه رو مینویسم به زبان VB6
این کد رو که اجرا میکنم هیچ خروجی به من نمیده اما کدی که در C++ نوشتم خروجی رو درست میده خروجی من یک متن هست String حالا کمک کنید ببینم مشکل این چیه 


کد:
#include <iostream.h>
#include <conio.h>
#include <windows.h>
char Str[63];
int main()
{
cout << "Test" << endl << "coded by Sima" << endl;
HWND fenster = NULL;
while(fenster == NULL)
{
fenster = FindWindow(NULL, "Test");
Sleep(100);
}
cout << "Process Found!" << endl;
DWORD prozessid;
GetWindowThreadProcessId(fenster, &prozessid);
HANDLE handleprozess;
handleprozess = OpenProcess(PROCESS_ALL_ACCESS, FALSE, prozessid);
DWORD puffer = NULL;
ReadProcessMemory(handleprozess,(void*)(0x01AB18E4),&str,sizeof(str),&puffer);
cout << "Value: " << str << endl;
CloseHandle(handleprozess);
getch();
}
کد:
dim str as string
phwnd = FindWindow(vbNullString, "Test")
If (phwnd = 0) Then
MsgBox "Window not found!"
Exit Sub
End If
GetWindowThreadProcessId phwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Couldn't get a process handle!"
Exit Sub
End If
BaseAddr = &H01AB18E4
ReadProcessMemory phandle, BaseAddr, str, 1, 0&
Text2.text = str
CloseHandle phandle


