first commit (2010-01-09)
This commit is contained in:
commit
67c478f6f3
177
Body.htm
Normal file
177
Body.htm
Normal file
@ -0,0 +1,177 @@
|
|||||||
|
|
||||||
|
<!-- main.htm -->
|
||||||
|
<html>
|
||||||
|
<head>
|
||||||
|
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||||
|
<title>Informática D.J. programadores :: w w w . i n f d j . c o m ::</title>
|
||||||
|
|
||||||
|
<LINK REL="SHORTCUT ICON" HREF="http://www.infdj.com/images/infdj.ico">
|
||||||
|
<link rel=stylesheet href="addons/infdj.css">
|
||||||
|
|
||||||
|
<SCRIPT src="addons/cb.js"></SCRIPT>
|
||||||
|
<SCRIPT>baseA = "";</SCRIPT>
|
||||||
|
<SCRIPT src="addons/menu_bar/sniffer.js"></SCRIPT>
|
||||||
|
<SCRIPT src="addons/menu_bar/custom.js"></SCRIPT>
|
||||||
|
<SCRIPT src="addons/menu_bar/style.js"></SCRIPT>
|
||||||
|
|
||||||
|
<SCRIPT>
|
||||||
|
numNew=32;var level=0; </SCRIPT>
|
||||||
|
</head>
|
||||||
|
|
||||||
|
<body bgcolor="#FFFFFF" text="#FFFFFF" topmargin="0" leftmargin="0"
|
||||||
|
ondragstart="return false" onselectstart="return false" oncontextmenu="return false">
|
||||||
|
<!-- THE WAIT SCREEEN!!! -->
|
||||||
|
<div ID="waitDiv" style="position:absolute;left:380;top:280;visibility:hidden">
|
||||||
|
<center><table border=0 cellpadding=0 cellspacing=0 width="250"><tr><td bgcolor="#000000"><table cellpadding=2 cellspacing=1 border=0 width="100%"><tr><td bgcolor="#48409A"><center><font color="#F9E78C" face="Verdana, Arial, Helvetica, sans-serif" size="3"><b>Cargando la página...</b></font><br> <img src="images/await.gif" border="0" width="200" height="20"><br><font size="2" color="#F9E78C" face="Verdana, Arial, Helvetica, sans-serif">Espere por favor...</font></center></td></tr></table></td></tr></table></center>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<script>
|
||||||
|
<!--
|
||||||
|
var DHTML = (document.getElementById || document.all || document.layers);
|
||||||
|
function ap_getObj(name) {
|
||||||
|
if (document.getElementById) {
|
||||||
|
return document.getElementById(name).style;
|
||||||
|
} else if (document.all) {
|
||||||
|
return document.all[name].style;
|
||||||
|
} else if (document.layers) {
|
||||||
|
return document.layers[name];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
function ap_showWaitMessage(div,flag) {
|
||||||
|
if (!DHTML)
|
||||||
|
return;
|
||||||
|
var x = ap_getObj(div);
|
||||||
|
x.visibility = (flag) ? 'visible':'hidden'
|
||||||
|
if(! document.getElementById)
|
||||||
|
if(document.layers)
|
||||||
|
x.left=280/2;
|
||||||
|
// return true;
|
||||||
|
}
|
||||||
|
ap_showWaitMessage('waitDiv', 1);
|
||||||
|
|
||||||
|
//-->
|
||||||
|
</SCRIPT>
|
||||||
|
<!-- END -->
|
||||||
|
|
||||||
|
<div align="center"><center>
|
||||||
|
<table border="0" cellpadding="0" cellspacing="0" width="769" background="images/bg.jpg">
|
||||||
|
<tr>
|
||||||
|
<td background="images/ln.gif" valign="top"><img src="images/lb.gif" width="1" height="77"><br><img src="images/ln.gif" width="1" height="500"></td>
|
||||||
|
<td valign="top" width="777">
|
||||||
|
<!-- begin header.htm -->
|
||||||
|
|
||||||
|
<table border="0" cellpadding="0" cellspacing="0" width="100%">
|
||||||
|
<tr bgcolor="#FFFFFF">
|
||||||
|
<td width="10"> </td>
|
||||||
|
<td width="76"><img src="images/bm_logo_sup.gif" width="76" height="77"></td>
|
||||||
|
<td width="186" valign="top" width="186"><a href="/index.php"><img src="images/txt_infdj.gif" width="186" height="37" border="0"></a></td>
|
||||||
|
<td align="center" style="text-align='center'">[ESPACIO RESERVADO]</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
<table border="0" cellpadding="0" cellspacing="0" width="100%">
|
||||||
|
<tr bgcolor="#FFFFFF">
|
||||||
|
<td width="10"><img src="images/bm_med.gif" width="10" height="29"></td>
|
||||||
|
<td width="76"><img src="images/bm_logo_med.gif" width="76" height="29"></td>
|
||||||
|
<td width="130" background="images/bm_crist_med.gif" class="cristal"><img src="images/bm_med.gif" align="absmiddle" width="10" height="29"><img src="images/bm_crist_izq.gif" align="absmiddle" width="10" height="29">22-Mar-2003</td>
|
||||||
|
<td background="images/bm_med.gif"><img src="images/bm_crist_der.gif" width="10" height="29" align="absmiddle"><img src="sep.gif" name="anchor" alt="" border=0 width=5 height=20 align="absmiddle"></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td width="10"><img src="images/bm_minf.gif" width="10" height="30"></td>
|
||||||
|
<td width="76"><img src="images/bm_logo_inf.gif" width="76" height="30"></td>
|
||||||
|
<td width="130"><img src="images/bm_minf.gif" align="absmiddle" width="10" height="30"><img src="images/bm_crist_izqinf.gif" align="absmiddle" width="10" height="30"></td>
|
||||||
|
<td background="images/bm_minf.gif"><img src="images/bm_crist_derinf.gif" align="absmiddle" width="10"
|
||||||
|
height="30">:: Website parcialmente activa ¡probando módulos!</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
<!-- end header.htm -->
|
||||||
|
|
||||||
|
<table border="0" cellpadding="5" cellspacing="0" width="100%">
|
||||||
|
<tr>
|
||||||
|
<td width="167" valign="top">
|
||||||
|
<!-- begin leftnav.htm -->
|
||||||
|
<p><br><br></p>
|
||||||
|
<img src="images/sep.gif" width="5" height="5">
|
||||||
|
<script language="javascript" src="addons/box_noticias.js"></script>
|
||||||
|
<img src="images/sep.gif" width="5" height="5">
|
||||||
|
<script language="javascript" src="addons/box_ident.js"></script> <img src="images/sep.gif" width="5" height="5">
|
||||||
|
<script language="javascript" src="addons/box_enlaces.js"></script>
|
||||||
|
<img src="images/sep.gif" width="5" height="5">
|
||||||
|
<table border=0 cellpadding=0 cellspacing=0 width="167">
|
||||||
|
<tr><td width="5">
|
||||||
|
<img src="images/box/box_supizq.gif" width="5" height="17"></td>
|
||||||
|
<td background="images/box/box_supmini.gif"><img src="images/box/txt_minichat.gif"></td>
|
||||||
|
<td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td>
|
||||||
|
</tr>
|
||||||
|
<tr><td width="5" background="images/box/box_medizq.gif">
|
||||||
|
<img src="images/box/box_medizq.gif" width="5" height="17"></td>
|
||||||
|
<td bgcolor="#2067BE" class="box">
|
||||||
|
|
||||||
|
<iframe SRC="miniChat.php" NAME="miniChat" WIDTH="153" HEIGHT="120" ALIGN="center" frameborder=0 scrolling=no>:: Su navegador no soporta IFrames, si desea visualizar estas páginas correctamente, le recomendamos que actualice su navegador.</iframe>
|
||||||
|
|
||||||
|
</td>
|
||||||
|
<td background="images/box/box_medder.gif">
|
||||||
|
<img src="images/box/box_medder.gif" width="9" height="19"></td>
|
||||||
|
</tr>
|
||||||
|
<tr><td width="5">
|
||||||
|
<img src="images/box/box_infizq.gif" width="5" height="19"></td>
|
||||||
|
<td valign="top" background="images/box/box_infmed.gif" class="box">
|
||||||
|
<img src="images/box/box_infmed0.gif" align="top" width="87" height="19">
|
||||||
|
|
||||||
|
<a href="javascript:refrescaMiniChat();" class="box">Actualizar</a>'
|
||||||
|
|
||||||
|
</td><td><img src="images/box/box_infder.gif" width="9" height="19"></td>
|
||||||
|
</tr></table>
|
||||||
|
<img src="/cgi-bin/Count.cgi?df=index&dd=led&ft=0&sh=F" align="absmiddle" alt="Desde el 00.05.02">
|
||||||
|
<!-- end leftnav.htm -->
|
||||||
|
</td>
|
||||||
|
<td valign="top">
|
||||||
|
<table border="0" cellpadding="0" width="100%">
|
||||||
|
<tr>
|
||||||
|
<td align="center" valign="top" width="50%">
|
||||||
|
<table border=0 cellpadding=0 cellspacing=0 width="285"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">HP Laserjet 1000W 243.57 €</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><div style="visibility: visible; position: relative; width: 100%; height: 150px;overflow:auto;"><center><img src="prod/getImg.php?idf=231" height="130" width="116" border=0></center></div></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="185" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"><a href="javascript:aCesta(231,1,'243.57',17301760)">comprar</a></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
|
||||||
|
<td align="center" valign="top" width="50%">
|
||||||
|
<table border=0 cellpadding=0 cellspacing=0 width="285"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">Regrabadora 4Kus 48x12x48 Bu 54.26 €</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><div style="visibility: visible; position: relative; width: 100%; height: 150px;overflow:auto;"><center><img src="prod/getImg.php?idf=391" height="130" width="216" border=0></center></div></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="185" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"><a href="javascript:aCesta(391,1,'54.26',17040128)">comprar</a></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
|
||||||
|
</tr><tr>
|
||||||
|
<td align="center" valign="top" width="50%">
|
||||||
|
<table border=0 cellpadding=0 cellspacing=0 width="285"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">Noticia destacada</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><div style="visibility: visible; position: relative; width: 100%; height: 150px;overflow:auto;"><center><font size="+1">GSmart Mini 2</font><br>
|
||||||
|
<img src="publi/ene03/gs2.jpg" align=right>
|
||||||
|
<br>*1600x1200 pixel (interpolated)
|
||||||
|
<br>Alimentacion USB
|
||||||
|
<br>WebCam Mode
|
||||||
|
<br>TWAIN-compatible</center></div></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="185" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"><a href='publi\ene03
|
||||||
|
' target='_blank' class='box'>+ info</a></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
|
||||||
|
<td align="center" valign="top" width="50%">
|
||||||
|
<table border=0 cellpadding=0 cellspacing=0 width="285"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">Epson Stylus C62 PP y USB 87.41 €</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><div style="visibility: visible; position: relative; width: 100%; height: 150px;overflow:auto;"><center><img src="prod/getImg.php?idf=235" height="130" width="128" border=0></center></div></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="185" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"><a href="javascript:aCesta(235,1,'87.41',17302016)">comprar</a></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
<br>
|
||||||
|
<br><table border=0 cellpadding=0 cellspacing=0 width="575"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">Noticias del sector</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><iframe SRC="imente.htm" NAME="not_sec" WIDTH="565" HEIGHT="200" ALIGN="center" frameborder=0><div style="visibility: visible; position: relative; width: 100%; height: 200px;overflow: auto;"><script src="http://afiliados.imente.com/code.cgi?infdjcom"></script></div></iframe></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="475" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
<p><br></p>
|
||||||
|
</td>
|
||||||
|
<td background="images/ln.gif" valign="top"><img src="images/lb.gif" width="1" height="77"><br><img src="images/sep.gif" width="1" height="1"></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td bgcolor="#000000"><img src="images/sep.gif" width="1" height="1"></td>
|
||||||
|
<td align="right" valign="top" bgcolor="#000000" class="litt" style="text-align:right;margin-right:5.0pt">:: copyright © 1999 - 2002 <a href="http://jd.infdj.com" class="litt">JDsoft</a> ::</td>
|
||||||
|
<td bgcolor="#000000"><img src="images/sep.gif" width="1" height="1"></td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
</center></div>
|
||||||
|
|
||||||
|
<!-- WAIT SCRIPT!!!! -->
|
||||||
|
<script language="javascript" type="text/javascript">
|
||||||
|
<!--
|
||||||
|
ap_showWaitMessage('waitDiv', 0);
|
||||||
|
//-->
|
||||||
|
</SCRIPT>
|
||||||
|
<!-- END -->
|
||||||
|
|
||||||
|
<script language="javascript1.2" src="addons/menu_bar/menu.js"></script>
|
||||||
|
|
||||||
|
<p><br></p>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
214
ExtNC.cpp
Normal file
214
ExtNC.cpp
Normal file
@ -0,0 +1,214 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <time.h>
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "ExtNC.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "SHDocVw_OCX"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TForm1 *Form1;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TForm1::TForm1(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
ComboBox3->ItemIndex=0;
|
||||||
|
Panel1->Height = 44;
|
||||||
|
|
||||||
|
ToSend->ColWidths[0]=150;
|
||||||
|
ToSend->ColWidths[1]=450;
|
||||||
|
|
||||||
|
ToSend->Cells[0][0] = "Host";
|
||||||
|
ToSend->Cells[1][0] = "";
|
||||||
|
|
||||||
|
ToSend->Cells[0][1] = "Referer";
|
||||||
|
ToSend->Cells[1][1] = "";
|
||||||
|
|
||||||
|
ToSend->Cells[0][2] = "Cookie";
|
||||||
|
ToSend->Cells[1][2] = "";
|
||||||
|
|
||||||
|
ToSend->Cells[0][3] = "Accept";
|
||||||
|
ToSend->Cells[1][3] = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*";
|
||||||
|
|
||||||
|
ToSend->Cells[0][4] = "Accept-Language";
|
||||||
|
ToSend->Cells[1][4] = "es,es;q=0.5";
|
||||||
|
|
||||||
|
ToSend->Cells[0][5] = "Accept-Charset";
|
||||||
|
ToSend->Cells[1][5] = "iso-8859-1,*,utf-8";
|
||||||
|
|
||||||
|
|
||||||
|
ToSend->Cells[0][6] = "Content-Type";
|
||||||
|
ToSend->Cells[1][6] = "application/x-www-form-urlencoded";
|
||||||
|
|
||||||
|
ToSend->Cells[0][7] = "Accept-Encoding";
|
||||||
|
ToSend->Cells[1][7] = "gzip, deflate";
|
||||||
|
|
||||||
|
ToSend->Cells[0][8] = "User-Agent";
|
||||||
|
ToSend->Cells[1][8] = "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; .NET CLR 1.0.3705)";
|
||||||
|
|
||||||
|
ToSend->Cells[0][9] = "Proxy-Connection";
|
||||||
|
ToSend->Cells[1][9] = "Keep-Alive";
|
||||||
|
|
||||||
|
ToSend->Cells[0][10] = "Pragma";
|
||||||
|
ToSend->Cells[1][10] = "no-cache";
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TForm1::GenerarCabeceraClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
AnsiString Method[] = { "GET","HEAD","OPTIONS","TRACE","PUT","POST","DELETE" };
|
||||||
|
|
||||||
|
// Obtenemos el Host de la URL
|
||||||
|
AnsiString Host;
|
||||||
|
Host = Url->Text;
|
||||||
|
if ( Host.Pos("http://") > 0 )
|
||||||
|
Host = Host.SubString( 8, Host.Length()-7 );
|
||||||
|
if ( Host.Pos( "/" ) > 0 )
|
||||||
|
Host = Host.SubString( 1, Host.Pos( "/" ) );
|
||||||
|
|
||||||
|
|
||||||
|
// Componemos la cabecera que va a ser enviada...
|
||||||
|
Memo3->Clear();
|
||||||
|
Memo3->Lines->Add(Method[ComboBox3->ItemIndex]+" "+Url->Text+" "+ProtocolVersion->Text);
|
||||||
|
|
||||||
|
// Si esta vacia, ponemos el HOST
|
||||||
|
if ( ToSend->Cells[1][0].IsEmpty() )
|
||||||
|
ToSend->Cells[1][0] = Host;
|
||||||
|
|
||||||
|
// Componemos la cabecera que debemos enviar.
|
||||||
|
for ( int i=0; i<ToSend->RowCount; i++ )
|
||||||
|
if ( !ToSend->Cells[1][i].IsEmpty() )
|
||||||
|
Memo3->Lines->Add( ToSend->Cells[0][i] + ": " + ToSend->Cells[1][i] );
|
||||||
|
|
||||||
|
// Metodo POST
|
||||||
|
if ( ComboBox3->ItemIndex==5 )
|
||||||
|
{
|
||||||
|
Memo3->Lines->Add( "Content-Length: " +AnsiString( Post->Text.Length() ) );
|
||||||
|
Memo3->Lines->Add( "" );
|
||||||
|
Memo3->Lines->Add( Post->Text );
|
||||||
|
}
|
||||||
|
|
||||||
|
Memo3->Lines->Add( "" );
|
||||||
|
Memo3->Lines->Add( "" );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TForm1::ComboBox3Change(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( ComboBox3->ItemIndex==5 )
|
||||||
|
Panel1->Height = 80;
|
||||||
|
else
|
||||||
|
Panel1->Height = 44;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
GenerarCabeceraClick(0);
|
||||||
|
EnviarCabecera();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
EnviarCabecera();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TForm1::EnviarCabecera(void)
|
||||||
|
{
|
||||||
|
AnsiString buf;
|
||||||
|
|
||||||
|
ClientSocket = new TClientSocket( this );
|
||||||
|
ClientSocket->OnConnect = SocketConnect;
|
||||||
|
// ClientSocket->OnDisconnect = SocketDisconnect;
|
||||||
|
// ClientSocket->OnError = SocketError;
|
||||||
|
ClientSocket->ClientType = ctBlocking;
|
||||||
|
ClientSocket->Host = ToSend->Cells[1][0];
|
||||||
|
ClientSocket->Port = 80;
|
||||||
|
ClientSocket->Active = true;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TForm1::SocketConnect(TObject *Sender,
|
||||||
|
TCustomWinSocket *Socket)
|
||||||
|
{
|
||||||
|
time_t first, second;
|
||||||
|
|
||||||
|
|
||||||
|
TDateTime start;
|
||||||
|
TWinSocketStream *pStream;
|
||||||
|
|
||||||
|
bool eond;
|
||||||
|
int num_bytes_read;
|
||||||
|
char buff[500];
|
||||||
|
// create a TWinSocketStream for reading and writing
|
||||||
|
pStream = new TWinSocketStream( Socket, 20000 );
|
||||||
|
try
|
||||||
|
{
|
||||||
|
// fetch and process commands until the connection or thread is terminated
|
||||||
|
if ( ClientSocket->Active )
|
||||||
|
{
|
||||||
|
try
|
||||||
|
{
|
||||||
|
// Enviamos todos los datos de cabecera
|
||||||
|
for ( int i=0; i<Memo3->Lines->Count; i++ )
|
||||||
|
{
|
||||||
|
strncpy( buff, Memo3->Lines->Strings[i].c_str(), 499 );
|
||||||
|
pStream->Write( buff, strlen(buff) );
|
||||||
|
pStream->Write( "\n", 1 );
|
||||||
|
}
|
||||||
|
|
||||||
|
Memo2->Clear();
|
||||||
|
|
||||||
|
if ( pStream->WaitForData(10000) )
|
||||||
|
{
|
||||||
|
eond = false;
|
||||||
|
first = time(NULL); /* Gets system
|
||||||
|
time */
|
||||||
|
while( !eond && ClientSocket->Active && difftime(time(NULL),first) < 20 )
|
||||||
|
{
|
||||||
|
try {
|
||||||
|
buff[0]='\0';
|
||||||
|
num_bytes_read = 0;
|
||||||
|
num_bytes_read = pStream->Read( buff, 499 );
|
||||||
|
eond = (num_bytes_read==0);
|
||||||
|
} catch(...) {
|
||||||
|
eond = true;
|
||||||
|
}
|
||||||
|
|
||||||
|
buff[num_bytes_read]='\0';
|
||||||
|
Memo2->Lines->Text = Memo2->Lines->Text+AnsiString(buff);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
catch (Exception &E)
|
||||||
|
{
|
||||||
|
if (!E.ClassNameIs("EAbort"))
|
||||||
|
{
|
||||||
|
// nothing
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
__finally
|
||||||
|
{
|
||||||
|
delete pStream;
|
||||||
|
Socket->Close();
|
||||||
|
}
|
||||||
|
int numCRLF=1;
|
||||||
|
Memo1->Clear();
|
||||||
|
for (int i=0; numCRLF > 0 && i<Memo2->Lines->Count; i++ )
|
||||||
|
{
|
||||||
|
if ( Memo2->Lines->Strings[0].IsEmpty() ) numCRLF--;
|
||||||
|
Memo1->Lines->Add(Memo2->Lines->Strings[0]);
|
||||||
|
Memo2->Lines->Delete(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
Memo2->Lines->SaveToFile(ExtractFilePath(Application->ExeName)+"output.htm");
|
||||||
|
wchar_t *wbuff;
|
||||||
|
int ancho_buff = AnsiString(ExtractFilePath(Application->ExeName)+"output.htm").WideCharBufSize();
|
||||||
|
wbuff = new wchar_t[ancho_buff];
|
||||||
|
AnsiString(ExtractFilePath(Application->ExeName)+"output.htm").WideChar(wbuff,ancho_buff);
|
||||||
|
CppWebBrowser1->Navigate(wbuff, NULL, NULL, NULL, NULL );
|
||||||
|
delete buff;
|
||||||
|
}
|
||||||
|
|
||||||
298
ExtNC.dfm
Normal file
298
ExtNC.dfm
Normal file
@ -0,0 +1,298 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 243
|
||||||
|
Top = 116
|
||||||
|
Width = 640
|
||||||
|
Height = 480
|
||||||
|
Caption = 'Extended NC for HTTP'
|
||||||
|
Color = clBtnFace
|
||||||
|
Constraints.MinHeight = 480
|
||||||
|
Constraints.MinWidth = 640
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 16
|
||||||
|
object StatusBar1: TStatusBar
|
||||||
|
Left = 0
|
||||||
|
Top = 434
|
||||||
|
Width = 632
|
||||||
|
Height = 19
|
||||||
|
Panels = <>
|
||||||
|
SimplePanel = False
|
||||||
|
end
|
||||||
|
object PageControl1: TPageControl
|
||||||
|
Left = 0
|
||||||
|
Top = 80
|
||||||
|
Width = 632
|
||||||
|
Height = 354
|
||||||
|
ActivePage = TabSheet1
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 1
|
||||||
|
TabPosition = tpBottom
|
||||||
|
object TabSheet1: TTabSheet
|
||||||
|
Caption = 'General'
|
||||||
|
object SpeedButton2: TSpeedButton
|
||||||
|
Left = 456
|
||||||
|
Top = 88
|
||||||
|
Width = 23
|
||||||
|
Height = 22
|
||||||
|
Glyph.Data = {
|
||||||
|
66010000424D6601000000000000760000002800000014000000140000000100
|
||||||
|
040000000000F0000000800C0000800C00001000000000000000000000000000
|
||||||
|
8000008000000080800080000000800080008080000080808000C0C0C0000000
|
||||||
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
|
||||||
|
8888888800008888888888888888888800008888888888888888888800008888
|
||||||
|
8877888888888888000088880077788887778888000088870B07778887777788
|
||||||
|
000088700BB07778000777780000800BBBBB07770BB0077700000BBBBBBBB077
|
||||||
|
0BBBB07700000BBBBBBBB0780BBBB07700000BBBBBBB00000BBBB07700000BB0
|
||||||
|
0BB03333000BB077000000030B03333333300078000003330033333333333088
|
||||||
|
0000800333333333333008880000888000000000000888880000888888888888
|
||||||
|
8888888800008888888888888888888800008888888888888888888800008888
|
||||||
|
88888888888888880000}
|
||||||
|
end
|
||||||
|
object ToSend: TStringGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 624
|
||||||
|
Height = 105
|
||||||
|
Align = alClient
|
||||||
|
ColCount = 2
|
||||||
|
FixedCols = 0
|
||||||
|
RowCount = 15
|
||||||
|
FixedRows = 0
|
||||||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 105
|
||||||
|
Width = 624
|
||||||
|
Height = 218
|
||||||
|
Align = alBottom
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
TabOrder = 1
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 2
|
||||||
|
Top = 16
|
||||||
|
Width = 180
|
||||||
|
Height = 18
|
||||||
|
Caption = 'Cabecera a enviar:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Courier New'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Memo3: TMemo
|
||||||
|
Left = 1
|
||||||
|
Top = 35
|
||||||
|
Width = 618
|
||||||
|
Height = 178
|
||||||
|
Align = alBottom
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Courier New'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
ScrollBars = ssVertical
|
||||||
|
TabOrder = 0
|
||||||
|
WordWrap = False
|
||||||
|
end
|
||||||
|
object GenerarCabecera: TBitBtn
|
||||||
|
Left = 432
|
||||||
|
Top = 8
|
||||||
|
Width = 113
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Cabecera'
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = GenerarCabeceraClick
|
||||||
|
Glyph.Data = {
|
||||||
|
16010000424D1601000000000000760000002800000010000000140000000100
|
||||||
|
040000000000A0000000800C0000800C00001000000000000000000000000000
|
||||||
|
8000008000000080800080000000800080008080000080808000C0C0C0000000
|
||||||
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
|
||||||
|
8888888888888888888888888888888888888888888777778888888888000007
|
||||||
|
77888888880AAAA007788888880AAAAA20778888880AAAA2A27788888800000A
|
||||||
|
2207888887888870020788880788888770078880077777700207880A0000000A
|
||||||
|
220780AAAAAAAAA2A2780AAAAAAAAAAA208880AAAAAAAAA00888880A00000008
|
||||||
|
8888888007888888888888880888888888888888888888888888}
|
||||||
|
end
|
||||||
|
object BitBtn3: TBitBtn
|
||||||
|
Left = 552
|
||||||
|
Top = 8
|
||||||
|
Width = 65
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Send'
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = BitBtn3Click
|
||||||
|
Glyph.Data = {
|
||||||
|
16010000424D1601000000000000760000002800000010000000140000000100
|
||||||
|
040000000000A0000000800C0000800C00001000000000000000000000000000
|
||||||
|
8000008000000080800080000000800080008080000080808000C0C0C0000000
|
||||||
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
|
||||||
|
8888888888888888888888888888888888888888888777778888888888000007
|
||||||
|
77888888880AAAA007788888880AAAAA20778888880AAAA2A27788888800000A
|
||||||
|
2207888887888870020788880788888770078880077777700207880A0000000A
|
||||||
|
220780AAAAAAAAA2A2780AAAAAAAAAAA208880AAAAAAAAA00888880A00000008
|
||||||
|
8888888007888888888888880888888888888888888888888888}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object TabSheet2: TTabSheet
|
||||||
|
Caption = 'HTML'
|
||||||
|
ImageIndex = 1
|
||||||
|
object Splitter1: TSplitter
|
||||||
|
Left = 0
|
||||||
|
Top = 113
|
||||||
|
Width = 624
|
||||||
|
Height = 3
|
||||||
|
Cursor = crVSplit
|
||||||
|
Align = alTop
|
||||||
|
end
|
||||||
|
object Memo2: TMemo
|
||||||
|
Left = 0
|
||||||
|
Top = 116
|
||||||
|
Width = 624
|
||||||
|
Height = 207
|
||||||
|
Align = alClient
|
||||||
|
Font.Charset = ANSI_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Courier New'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
ReadOnly = True
|
||||||
|
ScrollBars = ssBoth
|
||||||
|
TabOrder = 0
|
||||||
|
WordWrap = False
|
||||||
|
end
|
||||||
|
object Memo1: TMemo
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 624
|
||||||
|
Height = 113
|
||||||
|
Align = alTop
|
||||||
|
Font.Charset = ANSI_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Courier New'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
ScrollBars = ssVertical
|
||||||
|
TabOrder = 1
|
||||||
|
WordWrap = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object TabSheet3: TTabSheet
|
||||||
|
Caption = 'Preview'
|
||||||
|
ImageIndex = 2
|
||||||
|
object CppWebBrowser1: TCppWebBrowser
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 624
|
||||||
|
Height = 323
|
||||||
|
TabStop = True
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
ControlData = {
|
||||||
|
4C0000007E400000622100000000000000000000000000000000000000000000
|
||||||
|
000000004C000000000000000000000001000000E0D057007335CF11AE690800
|
||||||
|
2B2E12620A000000000000004C0000000114020000000000C000000000000046
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000100000000000000000000000000000000000000}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 632
|
||||||
|
Height = 80
|
||||||
|
Align = alTop
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
TabOrder = 2
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Top = 56
|
||||||
|
Width = 100
|
||||||
|
Height = 18
|
||||||
|
Caption = 'Post Data:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Courier New'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object BitBtn1: TBitBtn
|
||||||
|
Left = 584
|
||||||
|
Top = 8
|
||||||
|
Width = 41
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Ir'
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = BitBtn1Click
|
||||||
|
Glyph.Data = {
|
||||||
|
16010000424D1601000000000000760000002800000010000000140000000100
|
||||||
|
040000000000A0000000800C0000800C00001000000000000000000000000000
|
||||||
|
8000008000000080800080000000800080008080000080808000C0C0C0000000
|
||||||
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
|
||||||
|
8888888888888888888888888888888888888888888777778888888888000007
|
||||||
|
77888888880AAAA007788888880AAAAA20778888880AAAA2A27788888800000A
|
||||||
|
2207888887888870020788880788888770078880077777700207880A0000000A
|
||||||
|
220780AAAAAAAAA2A2780AAAAAAAAAAA208880AAAAAAAAA00888880A00000008
|
||||||
|
8888888007888888888888880888888888888888888888888888}
|
||||||
|
end
|
||||||
|
object ComboBox3: TComboBox
|
||||||
|
Left = 2
|
||||||
|
Top = 8
|
||||||
|
Width = 105
|
||||||
|
Height = 24
|
||||||
|
ItemHeight = 16
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'HTTP Get'
|
||||||
|
OnChange = ComboBox3Change
|
||||||
|
Items.Strings = (
|
||||||
|
'HTTP Get'
|
||||||
|
'HTTP Head'
|
||||||
|
'HTTP Options'
|
||||||
|
'HTTP Trace'
|
||||||
|
'HTTP Put'
|
||||||
|
'HTTP Post'
|
||||||
|
'HTTP Delete')
|
||||||
|
end
|
||||||
|
object Url: TEdit
|
||||||
|
Left = 106
|
||||||
|
Top = 8
|
||||||
|
Width = 412
|
||||||
|
Height = 24
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'http://jd.infdj.com'
|
||||||
|
end
|
||||||
|
object ProtocolVersion: TEdit
|
||||||
|
Left = 518
|
||||||
|
Top = 8
|
||||||
|
Width = 65
|
||||||
|
Height = 24
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'HTTP/1.1'
|
||||||
|
end
|
||||||
|
object Post: TEdit
|
||||||
|
Left = 106
|
||||||
|
Top = 48
|
||||||
|
Width = 412
|
||||||
|
Height = 24
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object OpenDialog1: TOpenDialog
|
||||||
|
Left = 410
|
||||||
|
Top = 130
|
||||||
|
end
|
||||||
|
end
|
||||||
62
ExtNC.h
Normal file
62
ExtNC.h
Normal file
@ -0,0 +1,62 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef ExtNCH
|
||||||
|
#define ExtNCH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include <ComCtrls.hpp>
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <NMHttp.hpp>
|
||||||
|
#include <Psock.hpp>
|
||||||
|
#include <Buttons.hpp>
|
||||||
|
#include <Dialogs.hpp>
|
||||||
|
#include <Grids.hpp>
|
||||||
|
#include "SHDocVw_OCX.h"
|
||||||
|
#include <OleCtrls.hpp>
|
||||||
|
#include <ScktComp.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TForm1 : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TStatusBar *StatusBar1;
|
||||||
|
TPageControl *PageControl1;
|
||||||
|
TPanel *Panel1;
|
||||||
|
TTabSheet *TabSheet1;
|
||||||
|
TTabSheet *TabSheet2;
|
||||||
|
TTabSheet *TabSheet3;
|
||||||
|
TMemo *Memo2;
|
||||||
|
TSplitter *Splitter1;
|
||||||
|
TMemo *Memo1;
|
||||||
|
TBitBtn *BitBtn1;
|
||||||
|
TOpenDialog *OpenDialog1;
|
||||||
|
TSpeedButton *SpeedButton2;
|
||||||
|
TStringGrid *ToSend;
|
||||||
|
TComboBox *ComboBox3;
|
||||||
|
TEdit *Url;
|
||||||
|
TEdit *ProtocolVersion;
|
||||||
|
TPanel *Panel2;
|
||||||
|
TMemo *Memo3;
|
||||||
|
TLabel *Label2;
|
||||||
|
TBitBtn *GenerarCabecera;
|
||||||
|
TBitBtn *BitBtn3;
|
||||||
|
TEdit *Post;
|
||||||
|
TLabel *Label1;
|
||||||
|
TCppWebBrowser *CppWebBrowser1;
|
||||||
|
void __fastcall GenerarCabeceraClick(TObject *Sender);
|
||||||
|
void __fastcall ComboBox3Change(TObject *Sender);
|
||||||
|
void __fastcall BitBtn1Click(TObject *Sender);
|
||||||
|
void __fastcall BitBtn3Click(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
TClientSocket *ClientSocket;
|
||||||
|
void __fastcall SocketConnect(TObject *Sender, TCustomWinSocket *Socket);
|
||||||
|
void __fastcall EnviarCabecera(void);
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TForm1(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TForm1 *Form1;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
107
ExtendedNC.bpr
Normal file
107
ExtendedNC.bpr
Normal file
@ -0,0 +1,107 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8' ?>
|
||||||
|
<!-- C++Builder XML Project -->
|
||||||
|
<PROJECT>
|
||||||
|
<MACROS>
|
||||||
|
<VERSION value="BCB.05.03"/>
|
||||||
|
<PROJECT value="ExtendedNC.exe"/>
|
||||||
|
<OBJFILES value="ExtendedNC.obj ExtNC.obj"/>
|
||||||
|
<RESFILES value="ExtendedNC.res"/>
|
||||||
|
<IDLFILES value=""/>
|
||||||
|
<IDLGENFILES value=""/>
|
||||||
|
<DEFFILE value=""/>
|
||||||
|
<RESDEPEN value="$(RESFILES) ExtNC.dfm"/>
|
||||||
|
<LIBFILES value=""/>
|
||||||
|
<LIBRARIES value="bcbie50.lib VCLX50.lib NMFAST50.lib VCL50.lib"/>
|
||||||
|
<SPARELIBS value="VCL50.lib NMFAST50.lib VCLX50.lib bcbie50.lib"/>
|
||||||
|
<PACKAGES value="VCL50.bpi VCLX50.bpi VCLDB50.bpi QRPT50.bpi VCLBDE50.bpi VCLIE50.bpi
|
||||||
|
INETDB50.bpi INET50.bpi NMFAST50.bpi dclocx50.bpi CabForCB.bpi
|
||||||
|
CoolPack.bpi PhantomPack.bpi VCLMID50.bpi WEBMID50.bpi VCLDBX50.bpi
|
||||||
|
TEEQR50.bpi asgc5.bpi RAS_Tools.bpi ZCommonCB5.bpi ZDbwareCB5.bpi
|
||||||
|
ZMySqlCB5.bpi ZDb2SqlCB5.bpi ZIbSqlCB5.bpi ZMsSqlCB5.bpi ZOraSqlCB5.bpi
|
||||||
|
ZPgSqlCB5.bpi TEEUI50.bpi TEEDB50.bpi TEE50.bpi DSS50.bpi bcbsmp50.bpi
|
||||||
|
VCLADO50.bpi ibsmp50.bpi bcbie50.bpi bcb2kaxserver50.bpi VCLIB50.bpi
|
||||||
|
JDsoft.bpi"/>
|
||||||
|
<PATHCPP value=".;"/>
|
||||||
|
<PATHPAS value=".;"/>
|
||||||
|
<PATHRC value=".;"/>
|
||||||
|
<PATHASM value=".;"/>
|
||||||
|
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
|
||||||
|
<RELEASELIBPATH value="$(BCB)\lib\release"/>
|
||||||
|
<LINKER value="tlink32"/>
|
||||||
|
<USERDEFINES value=""/>
|
||||||
|
<SYSDEFINES value="NO_STRICT"/>
|
||||||
|
<MAINSOURCE value="ExtendedNC.cpp"/>
|
||||||
|
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl"/>
|
||||||
|
<LIBPATH value="$(BCB)\Projects\Lib;..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
|
||||||
|
<WARNINGS value="-w-par"/>
|
||||||
|
</MACROS>
|
||||||
|
<OPTIONS>
|
||||||
|
<IDLCFLAGS value="-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -boa"/>
|
||||||
|
<CFLAG1 value="-O2 -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -a8 -b- -k- -vi -c -tW -tWM"/>
|
||||||
|
<PFLAGS value="-$Y- -$L- -$D- -v -JPHNE -M"/>
|
||||||
|
<RFLAGS value=""/>
|
||||||
|
<AFLAGS value="/mx /w2 /zn"/>
|
||||||
|
<LFLAGS value="-D"" -aa -Tpe -x -Gn"/>
|
||||||
|
</OPTIONS>
|
||||||
|
<LINKER>
|
||||||
|
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
|
||||||
|
<ALLRES value="$(RESFILES)"/>
|
||||||
|
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
|
||||||
|
</LINKER>
|
||||||
|
<IDEOPTIONS>
|
||||||
|
[Version Info]
|
||||||
|
IncludeVerInfo=0
|
||||||
|
AutoIncBuild=0
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
Release=0
|
||||||
|
Build=0
|
||||||
|
Debug=0
|
||||||
|
PreRelease=0
|
||||||
|
Special=0
|
||||||
|
Private=0
|
||||||
|
DLL=0
|
||||||
|
Locale=3082
|
||||||
|
CodePage=1252
|
||||||
|
|
||||||
|
[Version Info Keys]
|
||||||
|
CompanyName=
|
||||||
|
FileDescription=
|
||||||
|
FileVersion=1.0.0.0
|
||||||
|
InternalName=
|
||||||
|
LegalCopyright=
|
||||||
|
LegalTrademarks=
|
||||||
|
OriginalFilename=
|
||||||
|
ProductName=
|
||||||
|
ProductVersion=1.0.0.0
|
||||||
|
Comments=
|
||||||
|
|
||||||
|
[Excluded Packages]
|
||||||
|
C:\Mis documentos\Fuentes de Programacion\C++ Builder\CAP\LM2000_vcl\LM2000_vcl.bpl=Funciones para el Manejo del LM2000
|
||||||
|
|
||||||
|
[Debugging]
|
||||||
|
DebugSourceDirs=$(BCB)\source\vcl
|
||||||
|
|
||||||
|
[Parameters]
|
||||||
|
RunParams=
|
||||||
|
HostApplication=
|
||||||
|
RemoteHost=
|
||||||
|
RemotePath=
|
||||||
|
RemoteDebug=0
|
||||||
|
|
||||||
|
[Compiler]
|
||||||
|
ShowInfoMsgs=0
|
||||||
|
LinkDebugVcl=0
|
||||||
|
LinkCGLIB=0
|
||||||
|
|
||||||
|
[CORBA]
|
||||||
|
AddServerUnit=1
|
||||||
|
AddClientUnit=1
|
||||||
|
PrecompiledHeaders=1
|
||||||
|
|
||||||
|
[Language]
|
||||||
|
ActiveLang=
|
||||||
|
ProjectLang=
|
||||||
|
RootDir=
|
||||||
|
</IDEOPTIONS>
|
||||||
|
</PROJECT>
|
||||||
22
ExtendedNC.cpp
Normal file
22
ExtendedNC.cpp
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
USERES("ExtendedNC.res");
|
||||||
|
USEFORM("ExtNC.cpp", Form1);
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
|
||||||
|
{
|
||||||
|
try
|
||||||
|
{
|
||||||
|
Application->Initialize();
|
||||||
|
Application->CreateForm(__classid(TForm1), &Form1);
|
||||||
|
Application->Run();
|
||||||
|
}
|
||||||
|
catch (Exception &exception)
|
||||||
|
{
|
||||||
|
Application->ShowException(&exception);
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
BIN
ExtendedNC.exe
Normal file
BIN
ExtendedNC.exe
Normal file
Binary file not shown.
BIN
ExtendedNC.res
Normal file
BIN
ExtendedNC.res
Normal file
Binary file not shown.
6
n_/The BugTraq Archives Nsfocus advisory testing.url
Normal file
6
n_/The BugTraq Archives Nsfocus advisory testing.url
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
[DEFAULT]
|
||||||
|
BASEURL=http://archives.indenial.com/hypermail/bugtraq/2001/May2001/0135.html
|
||||||
|
|
||||||
|
[InternetShortcut]
|
||||||
|
URL=http://archives.indenial.com/hypermail/bugtraq/2001/May2001/0135.html
|
||||||
|
Modified=806E8B43A7FEC20124
|
||||||
0
output.htm
Normal file
0
output.htm
Normal file
17
sonda2.txt
Normal file
17
sonda2.txt
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
POST http://uni14.ogame.com.es/game/index.php?ajax=1&page=flottenversand&session=91fcfd64f83e HTTP/1.1
|
||||||
|
Host: uni14.ogame.com.es
|
||||||
|
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.0.1) Gecko/20060111 Firefox/2.0.0.5
|
||||||
|
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
|
||||||
|
Accept-Language: es-es,es;q=0.5
|
||||||
|
Accept-Encoding: deflate
|
||||||
|
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
|
||||||
|
Keep-Alive: 300
|
||||||
|
Proxy-Connection: keep-alive
|
||||||
|
Content-Type: application/x-www-form-urlencoded
|
||||||
|
Referer: http://uni14.ogame.com.es/game/index.php?page=galaxy&no_header=1&session=91fcfd64f83e
|
||||||
|
Content-Length: 125
|
||||||
|
Cookie: PHPSESSID=a466948266adb64669629a6517072550
|
||||||
|
Pragma: no-cache
|
||||||
|
Cache-Control: no-cache
|
||||||
|
|
||||||
|
session=91fcfd64f83e&order=6&galaxy=2&system=332&planet=12&planettype=1&shipcount=2&speed=10&reply=short&rndval=1190493308921
|
||||||
16
sondeo.txt
Normal file
16
sondeo.txt
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
POST http://uni14.ogame.com.es/game/index.php?ajax=1&page=flottenversand&session=91fcfd64f83e HTTP/1.1
|
||||||
|
Host: uni14.ogame.com.es
|
||||||
|
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
|
||||||
|
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
|
||||||
|
Accept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3
|
||||||
|
Accept-Encoding: deflate
|
||||||
|
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
|
||||||
|
Keep-Alive: 300
|
||||||
|
Proxy-Connection: keep-alive
|
||||||
|
Content-Type: application/x-www-form-urlencoded
|
||||||
|
Referer: http://uni14.ogame.com.es/game/index.php?page=galaxy&session=91fcfd64f83e&no_header=1
|
||||||
|
Content-Length: 125
|
||||||
|
Pragma: no-cache
|
||||||
|
Cache-Control: no-cache
|
||||||
|
|
||||||
|
session=91fcfd64f83e&order=6&galaxy=2&system=334&planet=12&planettype=1&shipcount=2&speed=10&reply=short&rndval=1190486618781
|
||||||
10
tmp/001.txt
Normal file
10
tmp/001.txt
Normal file
@ -0,0 +1,10 @@
|
|||||||
|
GET http://www.ogame.com.es/ HTTP/1.1
|
||||||
|
Host: www.ogame.com.es
|
||||||
|
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
|
||||||
|
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
|
||||||
|
Accept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3
|
||||||
|
Accept-Encoding: deflate
|
||||||
|
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
|
||||||
|
Keep-Alive: 300
|
||||||
|
Proxy-Connection: keep-alive
|
||||||
|
|
||||||
57
tmp/002.txt
Normal file
57
tmp/002.txt
Normal file
@ -0,0 +1,57 @@
|
|||||||
|
HTTP/1.1 200 OK
|
||||||
|
Date: Sat, 22 Sep 2007 21:11:36 GMT
|
||||||
|
Server: Apache
|
||||||
|
Vary: Accept-Encoding
|
||||||
|
Content-Length: 1533
|
||||||
|
Connection: close
|
||||||
|
Content-Type: text/html
|
||||||
|
|
||||||
|
|
||||||
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict //EN"
|
||||||
|
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
||||||
|
|
||||||
|
<html>
|
||||||
|
<head>
|
||||||
|
<meta name="author" content="Gameforge Productions GmbH" />
|
||||||
|
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />
|
||||||
|
<meta name="keywords" content="OGame, Browsergame, Onlinegame, Browsergames, Browsergame, Spiel, Spiele, Onlinespiel, Onlinespiele" />
|
||||||
|
<meta name="description" content="OGame - Top Browsergame im Weltraum. Kommandiere deine Flotten." />
|
||||||
|
<meta name="robots" content="index, follow" />
|
||||||
|
<meta name="language" content="es" />
|
||||||
|
<meta name="distribution" content="global" />
|
||||||
|
<meta name="audience" content="all" />
|
||||||
|
<meta name="author-mail" content="info@ogame.de" />
|
||||||
|
<meta name="publisher" content="Gameforge Productions GmbH" />
|
||||||
|
<meta name="copyright" content="(c) 2007 by Gameforge Productions GmbH" />
|
||||||
|
<meta http-equiv="expires" content="0" />
|
||||||
|
<meta http-equiv="pragma" content="no-cache" />
|
||||||
|
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />
|
||||||
|
<title>OGame.com.es</title>
|
||||||
|
|
||||||
|
|
||||||
|
</head>
|
||||||
|
|
||||||
|
<frameset rows="*,0,0" frameborder="no" border="0" framespacing="0">
|
||||||
|
<frame name="mainframe" src="ttp://www.ogame.com.es/" frameborder="0" scrolling="auto" noresize>
|
||||||
|
</frameset>
|
||||||
|
</html>
|
||||||
|
|
||||||
|
<script>
|
||||||
|
frame = document.getElementsByName['mainframe'][0];
|
||||||
|
if ( typeof( window.innerWidth ) == 'number' ){
|
||||||
|
if (window.innerWidth <= 800){
|
||||||
|
frame.scrollbars.visible=true;
|
||||||
|
}
|
||||||
|
}else {
|
||||||
|
if (document.body.clientWidth <= 800){
|
||||||
|
frame.scrollbars.visible=true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
</script>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
14
tmp/010.txt
Normal file
14
tmp/010.txt
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
POST http://uni14.ogame.com.es/game/reg/login2.php HTTP/1.1
|
||||||
|
Host: uni14.ogame.com.es
|
||||||
|
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
|
||||||
|
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
|
||||||
|
Accept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3
|
||||||
|
Accept-Encoding: deflate
|
||||||
|
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
|
||||||
|
Keep-Alive: 300
|
||||||
|
Proxy-Connection: keep-alive
|
||||||
|
Referer: http://www.ogame.com.es/home.php
|
||||||
|
Content-Type: application/x-www-form-urlencoded
|
||||||
|
Content-Length: 83
|
||||||
|
|
||||||
|
v=2&universe=uni14.ogame.com.es&login=lupenlll&pass=cambiando&button.x=9&button.y=5
|
||||||
14
tmp/011.txt
Normal file
14
tmp/011.txt
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
HTTP/1.1 200 OK
|
||||||
|
Date: Sat, 22 Sep 2007 21:15:13 GMT
|
||||||
|
Server: Apache
|
||||||
|
Set-Cookie: PHPSESSID=d5f8ce2697e858d716181f174af61e9b; path=/
|
||||||
|
Expires: Thu, 19 Nov 1981 08:52:00 GMT
|
||||||
|
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
|
||||||
|
Pragma: no-cache
|
||||||
|
Set-Cookie: U_es14:lupenlll=U_es14%3Alupenlll; expires=Sun, 23 Sep 2007 21:15:13 GMT; path=/
|
||||||
|
Vary: Accept-Encoding
|
||||||
|
Content-Length: 101
|
||||||
|
Connection: close
|
||||||
|
Content-Type: text/html; charset=iso-8859-1
|
||||||
|
|
||||||
|
<meta http-equiv='refresh' content='0; URL=/game/index.php?page=overview&session=e57798f6ac12&lgn=1'>
|
||||||
11
tmp/012.txt
Normal file
11
tmp/012.txt
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
GET http://uni14.ogame.com.es/game/index.php?page=overview&session=e57798f6ac12&lgn=1 HTTP/1.1
|
||||||
|
Host: uni14.ogame.com.es
|
||||||
|
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
|
||||||
|
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
|
||||||
|
Accept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3
|
||||||
|
Accept-Encoding: deflate
|
||||||
|
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
|
||||||
|
Keep-Alive: 300
|
||||||
|
Proxy-Connection: keep-alive
|
||||||
|
Referer: http://uni14.ogame.com.es/game/reg/login2.php
|
||||||
|
Content-Type: application/x-www-form-urlencoded
|
||||||
16
tmp/013.txt
Normal file
16
tmp/013.txt
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
HTTP/1.1 400 Bad Request
|
||||||
|
Date: Sat, 22 Sep 2007 21:17:57 GMT
|
||||||
|
Server: Apache
|
||||||
|
Vary: Accept-Encoding
|
||||||
|
Content-Length: 226
|
||||||
|
Connection: close
|
||||||
|
Content-Type: text/html; charset=iso-8859-1
|
||||||
|
|
||||||
|
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
|
||||||
|
<html><head>
|
||||||
|
<title>400 Bad Request</title>
|
||||||
|
</head><body>
|
||||||
|
<h1>Bad Request</h1>
|
||||||
|
<p>Your browser sent a request that this server could not understand.<br />
|
||||||
|
</p>
|
||||||
|
</body></html>
|
||||||
BIN
tmp/nc.exe
Normal file
BIN
tmp/nc.exe
Normal file
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user