zar niko ne zna da napravi DLL?
Ovaj kod izlista u jednom texbox-u UserName i IP broj svih
korsinika koji su logovani na taj racunar.
Potrebno mi je da se od ovog koda napravi dll fajl, kako bi mogao
da ga koristim u VB,
sa jednom funkciom koja bi se zvala npr.
GetAllUsers (UserNo, Users)
i koja bi vracala dva parametra,
1) Broj korisnika
2) Pokazivac na Niz recorda u obliku
UserName as String
Ip as String
Pogledati ovaj text: Handling VB strings (as part of an array of UDT)
http://www.codeguru.com/dll/vbString.shtml
Ako neko ima bolje resenje neka uradi kako misli da treba
pa naka detaljno opise resenje.
Nebi bilo lose da neko malo detaljnije prokomentarise ovaj kod.
Kompletan projekat se moze skinuti sa ove adrese:
www.codeguru.com/network/IPAddress.zip
Kod:
1) Include winsock2.h
2) In the Menu, go to Project-->Settings and in the Link tab,
you can see a text box named Object/Library Modules.
In that, add ws2_32.lib mpr.lib to the existing entries there.
Those 2 libraries have to be added for this code snippet to
compile without any linker errors.
CString strTemp;
struct hostent *host;
struct in_addr *ptr; // To retrieve the IP Address
DWORD dwScope = RESOURCE_CONTEXT;
NETRESOURCE *NetResource = NULL;
HANDLE hEnum;
WNetOpenEnum( dwScope, NULL, NULL, NULL, &hEnum );
WSADATA wsaData;
WSAStartup(MAKEWORD(1,1),&wsaData);
if ( hEnum )
{
DWORD Count = 0xFFFFFFFF;
DWORD BufferSize = 2048;
LPVOID Buffer = new char[2048];
WNetEnumResource( hEnum, &Count, Buffer, &BufferSize );
NetResource = (NETRESOURCE*)Buffer;
char szHostName[200];
for ( unsigned int i = 0; i < BufferSize/sizeof(NETRESOURCE);
i++, NetResource++ )
{
if ( NetResource->dwUsage == RESOURCEUSAGE_CONTAINER &&
NetResource->dwType == RESOURCETYPE_ANY )
{
if ( NetResource->lpRemoteName )
{
CString strFullName = NetResource->lpRemoteName;
if ( 0 == strFullName.Left(2).Compare("\\\\") )
strFullName = strFullName.Right(strFullName.GetLength()-2);
gethostname( szHostName, strlen( szHostName ) );
host = gethostbyname(strFullName);
if(host == NULL) continue;
ptr = (struct in_addr *) host->h_addr_list[0];
// Eg. 211.40.35.76 split up like this.
int a = ptr->S_un.S_un_b.s_b1; // 211
int b = ptr->S_un.S_un_b.s_b2; // 40
int c = ptr->S_un.S_un_b.s_b3; // 35
int d = ptr->S_un.S_un_b.s_b4; // 76
strTemp.Format("%s --> %d.%d.%d.%d",strFullName,a,b,c,d);
AfxMessageBox(strTemp);
}
}
}
delete Buffer;
WNetCloseEnum( hEnum );
}
WSACleanup();
// End of Code
 |  |
 |
Re: zar niko ne zna da napravi DLL?