Code: Select all
#include <windows.h>
#include <stdio.h>
#include <winsock.h>
#pragma warning(disable : 4996)
unsigned char kk[1000],ll[1000];
void abc(char *p)
{
FILE *fp=fopen("c:\\snmp\\zz.txt","a+");
fprintf(fp,"%s\n",p);
fclose(fp);
}
int ii,dw,jj;
void abc1(unsigned char p)
{
FILE *fp=fopen("c:\\snmp\\z.txt","a+");
fprintf(fp,"%d: %x..%d..%c\n",jj,p,p,p);
fclose(fp);
}
WNDCLASS a;HWND b;MSG c;char aa[200];SOCKET s;struct hostent h;
WSADATA ws;DWORD e;char bb[100];struct sockaddr_in sa;
long _stdcall zzz (HWND,UINT,WPARAM,LPARAM);
int _stdcall WinMain(HINSTANCE i,HINSTANCE j,char *k,int l)
{
a.lpszClassName="a1";
a.hInstance=i;
a.lpfnWndProc=zzz;
a.hbrBackground=GetStockObject(WHITE_BRUSH);
RegisterClass(&a);
b=CreateWindow("a1","SNMP manager",WS_OVERLAPPEDWINDOW,1,1,10,20,0,0,i,0);
ShowWindow(b,3);
while ( GetMessage(&c,0,0,0) )
DispatchMessage(&c);
return 1;
}
long _stdcall zzz (HWND w,UINT x,WPARAM y,LPARAM z)
{
if ( x == WM_LBUTTONDOWN)
{
e=WSAStartup(0x0101,&ws);
sprintf(aa,"WSAStartup e = %ld",e);
s = socket(PF_INET,SOCK_DGRAM,0);
sprintf(aa,"socket s = %ld",s);
sa.sin_family=AF_INET;
sa.sin_addr.s_addr = inet_addr("10.189.33.29");
sa.sin_port=htons(161);
kk[0]=0x30;
kk[1]=0x2A; /*42*/
kk[2]=2;
kk[3]=1;
kk[4]=0;
kk[5]=4;
kk[6]=6;
kk[7]='p';
kk[8]='u';
kk[9]='b';
kk[10]='l';
kk[11]='i';
kk[12]='c';
kk[13]=0xa0;
kk[14]=0x1d;
kk[15]=2;
kk[16]=1;
kk[17]=1;
kk[18]=2;
kk[19]=1;
kk[20]=0;
kk[21]=2;
kk[22]=1;
kk[23]=0;
kk[24]=0x30;
kk[25]=0x12;
kk[26]=0x30;
kk[27]=0x10;
kk[28]=6;
kk[29]=0x0C;
kk[30]=0x2b;
kk[31]=6;
kk[32]=1;
kk[33]=2;
kk[34]=1;
// kk[35]=1;
kk[35]=0x2B;
kk[36]=0xA;
kk[37]=2;
kk[38]=1;
kk[39]=4;
kk[40]=1;
kk[41]=1;
kk[42]=5;
kk[43]=0;
e=sendto(s,kk,44,0,(struct sockaddr *)&sa,sizeof(sa));
sprintf(aa,"SendTo %ld",e);
dw = sizeof(sa);
ii=recvfrom(s,ll,1000,0,(struct sockaddr *)&sa,&dw);
sprintf(aa,"Recv from %d",ii);
abc(aa);
for (jj=0;jj<ii;jj++)
abc1(ll[jj
]);
MessageBox(0,"hi","hi",0);
}
if ( x == WM_DESTROY)
PostQuitMessage(0);
return DefWindowProc(w,x,y,z);
}
Code: Select all
#include "FiveWin.ch"
static oWnd, oSocket
function Main()
local oBar
DEFINE WINDOW oWnd TITLE "Client socket"
DEFINE BUTTONBAR oBar OF oWnd _3D
DEFINE BUTTON OF oBar ACTION Client() TOOLTIP "Connect"
ACTIVATE WINDOW oWnd
return nil
function Client()
local cData, nOdb,cBuf
WSAStartUp()
oSocket := Socket(2,2,0)
Connectto( oSocket,"10.189.33.29",161 ) // use the server IP address here
cData := chr(48)+chr(42)+chr(2)+chr(1)+chr(0);
+chr(4)+chr(6)+'public'+ chr(160)+chr(29)+chr(2)+chr(1)+chr(1);
+chr(2)+chr(1)+chr(0)+chr(2)+chr(1)+chr(0)+chr(48)+chr(18);
+chr(48)+chr(16)+chr(6)+chr(12)+chr(43)+chr(6)+chr(1)+chr(2)+chr(1)+chr(43)+chr(10)+chr(2)+chr(1)+chr(4)+chr(1)+chr(1);
+chr(5)+chr(0)
nOdb := SocketSend(oSocket, cData,44,0 )
if nOdb < 0
msgInfo(WSAGetLastError())
Else
msginfo(nOdb)
cBuf:=space(200)
nOdb := recv(oSocket,@cBuf,200,0)
WSACleanUp()
msginfo(nOdb)
End
return nil
Code: Select all
function Client()
local cData, nOdb,cBuf
WSAStartUp(0x101)
oSocket := Socket(2,2,17)
Connectto( oSocket,161,"10.189.33.29" ) // use the server IP address here
cData := chr(48)+chr(42)+chr(2)+chr(1)+chr(0);
+chr(4)+chr(6)+'public'+ chr(160)+chr(29)+chr(2)+chr(1)+chr(1);
+chr(2)+chr(1)+chr(0)+chr(2)+chr(1)+chr(0)+chr(48)+chr(18);
+chr(48)+chr(16)+chr(6)+chr(12)+chr(43)+chr(6)+chr(1)+chr(2)+chr(1)+chr(43)+chr(10)+chr(2)+chr(1)+chr(4)+chr(1)+chr(1);
+chr(5)+chr(0)
nOdb := SocketSend(oSocket, cData,44,0 )
if nOdb < 0
msgInfo(WSAGetLastError())
Else
SocketSelect( oSocket )
cBuf:=space(200)
nOdb := recv(oSocket,@cBuf,200,0)
WSACleanUp()
msginfo(nOdb)
End
return nil