Temas

[buenos dias o buenas noches.]

buenos dias o buenas noches. a lo mejor es confuso el titulo.

se me plantea la siguiente situación, vieron que por ahi hay webs , o software o procesadores de texto o lo que sea , donde se encuentra una porción de texto lo cual se puede seleccionar pero no copiar( ni con control c ni con clic derecho copiar), alguien me puede ayudar o facilitar algún ejemplo de código para copiar ese texto al Clipboard
muchas gracias por leer y disculpen las molestias.

Que tal. buenas noches o buenos días a todos los que lean este post.
quiero saber e informarme sobre la manipulacion de frecuencias. en este caso de la placa de red wifi. tal como esta es una emisora y  receptora de ondas electromagnéticas, quiero saber sobre sus manipulacion por medio de un software o en mi caso que programo en varios lenguajes , saber de drivers  para interactuar con estos.
para que se den una idea algo simple como esto es lo que quiero lograr o obtener(software )
software emisor:
canal o frecuencia a emitir : 2100 MHz
datos a emitir : "hola mundo "
software receptor:
canal o frecuencia a recibir  : 2100 MHz
datos recibidos : "hola mundo "
. cualquier información sera de mucha ayuda. grax por leer

hola que tal. estaba programando e hice un servidor para redirecionar conexiones en vb.
el tema es el siguiente , tengo windows server 2008(es como un vista) , el programa funcionar bien en modo local, pero tengo un problema al querer entrar por mi ip publica , da error de conexión , como que no se pudo conectar.. intente crear server de juegos etc , y solo  puedo entrar en manera local , por mi ip publica no.
tengo un Router- modem Huawei 520c, hace 2 años si podía entrar a mis server por ip publica. ahora no me deja
nota: tengo desactivado el firewall , y no tengo anti virus. que puedo ser ?
tambien me e dado cuenta que mi 2 PCs Portatil tiene la misma ip publica que la del server , y mi cel tambien . yo creo que hay esta el problema .

hola buenas nochess. estoy tratando de hacer un modulo para  listar archivos y carpetas , actualmente me manejo con FileSystemObject , y con la funcion DIR(), o con los controles de usuarion drive y file, dir listbox. quiero hacer algo diferente , puede ser que existan algunas apis que desconozca , me pueden dar una mano.
nota : que se muestren carpetas y archivos ocultos y protegidos por el sistema.
tienen algun código por ahi ? graxx

Hola . anoche deje descargando un archivo ! todo andaba normalmente luego de ello , apague el equipo! al otro dia cuando inicio  el explorador si anda pero la barra de tarea no !!!,TAMBIEN no puedo copiar, pegar,mover etc. los servisios de los antivirus estan desactivados, tambien el del audio,video, WIN insstaller ,wmi y el de system restore cuando le hago clic para START ,me sale como que an sido eliminados . El desfragmentador de disco no anda .En la carpeta de C:\WINDOWS\system32\Restore el rstrui.exe no anda. dice reinicie el equipo TIENEN ALGUNA IDEA DE QUE LE PASA A MI XP! para mi es algun servicio que anda cagado y me tira offline a los otros

  Buenas tengo una duda!! de como se puede controlar o realizar un paquete ICMP !!! Creo que con las apis de socket no se puede sino como ?? tengo entendido que su estructura es :

0                   1                   2                   3
  0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
|     Tipo      |    Código     |          Suma de chequeo      |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
|                             Sin uso                           |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
| Cabecera de Internet + 64 bits de datos del datagrama original|
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+


seria como un spoofing!!!

hola.  yendo al grano estoy tratando de hacer un soft que me detecte algo inyectado (dll . exe) inyectado dentro del notepad. pero se complica y lo unico que se me ocurrio fue  jugar con este code y inyectando dll al notepad(por el pid)  y con ReadMemory al puntero del programa obtenido por el pid. pero cada ves que le  inyecto algo lo obtenido con el ReadMemory sigue igual!! . que estoy haciendo mal
Code

Código (vb) [Seleccionar] Expandir


Private Const PAGE_READWRITE As Long = &H4

Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const SYNCHRONIZE As Long = &H100000
Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)


Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Long, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long

Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long


Public Function Leed(pId As Long) As Integer
Dim proc As Long
Dim load As Long


Dim ReadMemory As String, i As Long

  Dim bytValue As Long
On Error GoTo Error

proc = OpenProcess(PROCESS_ALL_ACCESS, False, pId)
load = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")


For i = load To Int(load + 100) Step 2
      '
   
      ReadProcessMemory proc, ByVal i, bytValue, 1, 0&
   
     
      ReadMemory = ReadMemory & Chr(bytValue)
   Next
RichTextBox1.Text = ReadMemory '


CloseHandle proc


Exit Function
Error:

Me.Caption = ""
'nota: para que se actualize constantemente la funcion Leed esta dentro de un timer con intervalo de 10 milisecon
End Function

ese es mi code. pero los primeros  50  caracteres siguen igual, y  la dll si se inyecto . como detecto ese segmento inyectado  

Hola se me a dado la idea de crear un buscador de multimedia, pero tengo una duda con respecto al analisis del codigo web(html,java,csx etc).   la mayoria de las  web reciven el contenido en Gzip. que luego el navegador lo traduce y obtiene el codigo. mi duda principal es encontrar la direccion el enlaze del video o musica. Ej: con www.youtube.com : http://www.youtube.com/watch?v=x4nT4XxAoQ4 dentro de ese link se encuentra un embed que contiene la ruta del video en el server, como encuentro ese link. cualquier informacion estaria genial. grax y la duda secundaria : hay alguna modulo en alguna web para extraer el contenido gzip

Hola como estoy enfermo no puedo hacer nada estoy en la  pc jaja, me puse a boludear con winsock y vi como 3 ejemplos de winsock32 ,  y decidí aprender mas de las apis y me puse a jugar  tengo este codigo, pero tengo problema en dejarlo statico en memoria para que llame a la funciones correspondientes (depaso dejamos el surce si lo termino con exito)
* se conecta con exito, y envia datos con exito , el problema es  hacer la funcion de descarga,

Código (vb) [Seleccionar] Expandir

Private Declare Function htons Lib "wsock32.dll" (ByVal hostshort As Long) As Integer
Private Declare Function Connect Lib "wsock32.dll" Alias "connect" (ByVal s As Long, addr As SOCKADDR, ByVal namelen As Long) As Long
Private Declare Function Send Lib "wsock32.dll" Alias "send" (ByVal s As Long, buf As Any, ByVal buflen As Long, ByVal Flags As Long) As Long
Private Declare Function Socket Lib "wsock32.dll" Alias "socket" (ByVal af As Long, ByVal s_type As Long, ByVal protocol As Long) As Long
Private Declare Function DestroyWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVR As Long, lpWSAD As WSADataType) As Long
Private Declare Function WSACleanup Lib "wsock32.dll" () As Long
Private Declare Function inet_addr Lib "wsock32.dll" (ByVal cp As String) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function recv Lib "wsock32.dll" (ByVal s As Long, buf As Any, ByVal buflen As Long, ByVal Flags As Long) As Long
Private Const SOCK_STREAM As Long = 1
Private Const AF_INET As Long = 2
Private Const IPPROTO_TCP As Long = 6
Private Called As Long
Private Callad As Long
Public SocketHandle As Long
Public Len_Bytes_Enviados As Long
Public Status As Long
Public m_ObjectHost As Object

Private Type SOCKADDR
sin_family As Integer
sin_port As Integer
sin_addr As Long
sin_zero As String * 8
End Type
Private Type WSADataType
wVersion As Integer
wHighVersion As Integer
szDescription As String * 257
szSystemStatus As String * 129
iMaxSockets As Integer
iMaxUdpDg As Integer
lpVendorInfo As Long
End Type
Private Const GWL_WNDPROC As Long = (-4)

Public Function Form_Gethw(ObjectHost As Object)

Dim StartupData As WSADataType


   Set m_ObjectHost = ObjectHost

 
       If Not WSAStartup(&H101, StartupData) Then
           bIsInit = True
           hWin = CreateWindowEx(0&, "STATIC", "SOCKET_WINDOW", 0&, 0&, 0&, 0&, 0&, 0&, 0&, App.hInstance, ByVal 0&)
           PrevProc = SetWindowLong(hWin, GWL_WNDPROC, AddressOf Socket_Evento)
       Else
           bIsInit = False
       End If
End Function


Public Function WsConnect(ByVal Host As String, ByVal Port As Long) As Long
Dim s As Long, Sockin As SOCKADDR

Sockin.sin_family = 2
Sockin.sin_port = htons(Port)
Sockin.sin_addr = inet_addr(Host$)
s = Socket(2, 1, 6)
If Connect(s, Sockin, 16) <> 0 Then
MsgBox "error al conectar"
Exit Function
End If


SocketHandle = s
'Call Enviar0("HOLA COMO ANDAS ANDAS LAURITA")
End Function

Public Function Enviar0(Data As String)
Dim Temp0$, Data0() As Byte
Select Case VarType(Data)
Case 8209
Data0 = Data
Case 8
Data0 = StrConv(Data, vbFromUnicode)
Case Else
Data0 = CStr(Data)
Data0 = StrConv(Data, vbFromUnicode)
End Select
Len_Bytes_Enviados = Send(SocketHandle, Data0(0), Len(Data), 0)
End Function

Private Function Socket_Evento(ByVal hWnd As Long, ByVal uMsg As Long, ByVal SocketHandle As Long, ByVal Evento As Long) As Long

Select Case Evento
Case &H10& 'conectado
Call m_ObjectHost.Scoket0_Conectado

Case &H20& 'cerrado
Call m_ObjectHost.Scoket0_Cerrado
Case &H1& 'descarga
Dim DataTemp As String, Ret As Long, rBuff As String

Do
rBuff = String(1024, 0)
Ret = recv(SocketHandle, ByVal rBuff, Len(rBuff), 0)
If Ret > 0 Then DataTemp = DataTemp + Left$(rBuff, Ret)
Loop Until Ret <= 0
If LenB(DataTemp) > 0 Then
Call m_ObjectHost.Scoket0_Descarga(DataTemp)
End If
End Select

End Function
Public Sub terminate()
DestroyWindow Called
Call WSACleanup
End Sub

el problema esta ak, en Socket_Evento , no recibe la llamada de SetWindowLong, me podrian echar una manito

hola buenos dias, como me e cansado de las pc con procesadores de 8 núcleos,  e decidido  armarme una pc  con un procesador AMD Opteron Serie 6200-(16 nucleos) y   necesitaría comprar también una mother  con un buss de data mayor a los 6000 necesitaría saber cual mother me recomendarían ya que tengo que meter 2 placas de video nvidea 550 ti o unas Raedeon 6800 ( o mas) , la fuente tengo claro que debe ser de 800 watt.el proposito mio no es armar un server sino una super pc q me sirva para lo que yo quiera(especial los juegos) que mother me recomendarían

hola les traigo una herramienta para  inyectar pass en páginas web no tan seguras Ejemplo todas aquellas que utilizan un codigo de verificación de palabras o aquella que no posea ningun código de verificación ni conexiones SSL(seguridad de socket layer)
images de como usar :
inicio : dirigir con el navegador sin proxy a la web., rellenar los cambos de forma correcta menos la contraseña . ahora sigue estos pasos
paso 1 : configurar el navegador para utilizar el interprete de conexión





ejecutar el BX interpreter (en mi caso me equivoque y puse de user : textpacketxy es testpacketx,)
paso 2 ponemos estar al puerto 80 o el que se nos cante. y con el proxy ya configurado ponemos conectar ,enter o lo que sea determinado para iniciar el usuario


a continuación recibimos datos  de la conexión , es lo que no sirve , pinchan en la  listview la conexión deseada.
copiamos los datos y abrimos el packetx.exe
donde dice  ip es el host sin el http, el host que nos larga el dato.

paso 3 configuramos el dato recibido con los comando.
donde dice conten - leng colocamos: %%lEN%%
respetando los espacios y bites que tenemos . un error al editar el contenido de  forma incorrecta , la conexión es nula.

%%Start%%:  es donde la tool comenzara la lectura de datos
%%End%%: termina la lectura de datos
$$INYECT##: es dato a inyectar del diccionario
%%Set_Range$$: esto es opcional , inyecta un numero random entre (99 *99)
ideal para manejar cokkies o cesiones de datos

i nos  queda de esta forma

paso 4
colocamos la ruta del diccionario , por motivos de buffer solo posee la capacidad de 999999 palabras (no letras), clic en abrir y luego clic en star.


dentro de 2 segundos se ven los resultados


paso 5 (para facilitar un poco las cosas)
programe una herramienta para ver el contenido de un code gzip
llamado gzip.exe , muy facil de usar, solo hay q indicar la cantidad de conneciones que tenemos en el packetx

NOTA:teneis que habilitar en la parte de configuracion de packetx la casilla de interprete de gzip puerto 80 , si larga error , es porque tenemos el puerto 80 ocupado con otra aplicación

EJEMPLO:
VEMOS QUE Con la cadena choripan no hace efecto miren.


con la cadena rembolso(que es la contraseña del usuario testpacketx miren lo que aparece)

miren la parte de usuarios log : aparece testpacketx

atencion : EL CONJUNTO DE TODOS ESOS SOFT SEGURO TIENEN ERRORES , POR FAVOR IMFORMAR
LES PUSE LAS OCX para que funcione sin problemas , solo registrenlas.
descarga: (ocx,bx-interpreter,gzip,packetx, ejemplos)
http://www.filefactory.com/file/63wnhil8p35f/n/final.rar

hola . pasando el rato con internet , en el navegador coloque
63 veces  w + el .com y se me lleno la pantalla de con todo tipo de letras es esta página

Código (asp) [Seleccionar] Expandir

http://wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww.com/

con el siguiente texto :

Código (caddcl) [Seleccionar] Expandir

Welcome to

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww.com


$B$5$FLdBj$G$9!##W$O$$$/$D$"$k$G$7$g$&$+!)(J($B>P(J)

$B$3$s$J%I%a%$%s$r$B$3$A$i(J$B$G$9!#(J



sera algun bug de mi ordenador , o de la isp

Buenas. ultimamente no e estado en la casa , en una de esas situaciones mi hermano se mete a mi PC (con windows xp)  y la cual deje la capote de la pc habierta y la mother , disco , pvideo estaban al descubierto, al llegar a la casa mi hermano me dice que estando jugando en la pc se le volvio gris(tipo televisores sin señales , gris con puntos negros y rallas) . cuando me conto eso me di cuenta de que pordria haber sido el monitor q se desconecto de la placa, pero no. al cabo de un rato la rata me dice que jugando con una navaja se le callo arriva de la placa de video(NVidia gforce 9500 gt 1 gb) y iso un chispaso.
al querer iniciar windows(xp) cuando carga los PCI  se ven las letras un medio raras sin tonalidad y defectuosas EJ: la palabra drivers se ve D«╕r╩vers  y las otras tambien.
al cargar windows sale la barra y el xp , con tonalidades raras, y al ponerce la pantalla para entrar al usuario se ve todos gris rallado.

NOTA IMPORTANTE

*el problema se soluciona cuando conecto el monitor directamente a la MOTHER, pero me quedo sin placa de video(, el coller de la placa de video anda.
Y NO PARECE QUEMADA)

*LE puse WINDOWS 8  y lo conecte a la placa de video  la cual la pantalla me anda media rara,  pero no me toma la placa de video . se Habra roto la memoria de la placa de video. ??
* no tengo otra pc para probar la placa solo 2 portatiles mas
*tengo otra placa la pruebo y les comento,

me alludarian a solucionar el problema

hola. e decido jugar con algunas apis, para eso quiese enlistar en un listview los procesos, sus pid, y su ruta pero tengo un inconveniente con la ruta ...

Código (vb) [Seleccionar] Expandir

'veran en vb6 con esta api no tengo ningun problema :

Private Declare Function GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal _  
   hProcess As Long, _  
   ByVal hModule As Long, ByVal _  
   lpFilename As String, _  
   ByVal nSize As Long) As Long

y adapte la api en .net de esta forma

Código (vbnet) [Seleccionar] Expandir

<System.Runtime.InteropServices.DllImport("PSAPI.DLL")> _
   Private Shared Function GetModuleFileNameExA(ByVal hWnd As System.IntPtr, ByVal hModule As Int32, ByVal lpFilename As String, ByVal nSize As Int32) As Integer
   End Function

pero al querer adquirir la ruta de cierto proceso no sale nada  porque sera ?
mi codigo

Código (vbnet) [Seleccionar] Expandir


       Dim Proceso As Process, ret As Integer, hola As String

       For Each Proceso In Process.GetProcesses

           If Proceso.ProcessName = "notepad" Then

               hola = Space(255)
               ret = GetModuleFileNameExA(Proceso.Handle, 0, hola, 255)
             
               MsgBox(Len(Microsoft.VisualBasic.Left(hola, ret))) ' no optengo nada ??
           Else
             
           End If


       Next

Alguna sugerencia. gracias ..

[hola . estoy asiendo una base de datos para millones de usuarios. Y tengo dos dudas enfrentadas. Son las siguientes : (en c++)¿Cuál de estas formas es mas rápida y consume menos recursos?Forma 1: mantener en una Cadena todos los usuarios (supongamos q serian 2 millones) y en la petición extraer el usuario directamente de cadena. Pero lo malo es que consume mucha ram y en la hora de buscar un usuario entre 2 millones consume mucho y se puede desbordar el buffer.Forma 2: mantener en una carpeta todas las carpetas con los nombres de usuario y adentro de la carpeta un archivo .txt con su datos .asi en la petición lo extrae directamente mas rápido y no consume ram pero consume disco y muchas carpetas ejemplo:Petición :usuario rembolso&pass&choripanServer: busca una carpeta que se llame rembolso y dentro de esa carpeta esta rembolsopass.txtUsuariosDB\Rembolso\rembolsopass.txtLa petición es mas rápida pero como ya aclare consume mucho disco y lo hace mas lento pero no importa necesitaría un consejo. Y si hay otra forma por favor postéenla.gracias por leer]

hola . estoy asiendo una base de datos para millones de usuarios. Y tengo dos dudas enfrentadas. Son las siguientes : (en c++)

¿Cuál  de estas formas es mas rápida y consume menos recursos?

Forma 1: mantener en una Cadena todos los usuarios (supongamos q serian 2 millones)  y en la petición extraer el usuario directamente de cadena. Pero lo malo es que consume mucha ram y en la hora de buscar un usuario entre 2 millones consume mucho y se puede desbordar el  buffer.
Forma 2: mantener en una carpeta  todas las carpetas con los nombres de usuario y adentro de la carpeta un archivo .txt con su datos .asi en la petición lo extrae directamente mas rápido y no consume ram pero consume disco y muchas carpetas ejemplo:

Petición :usuario rembolso&pass&choripan
Server: busca una carpeta que se llame rembolso y dentro de esa carpeta esta rembolsopass.txt

UsuariosDB\Rembolso\rembolsopass.txt

La petición es mas rápida pero como ya aclare consume mucho disco y lo hace mas lento pero no importa necesitaría un consejo. Y si hay otra forma por favor postéenla.

gracias por leer

hola. acabo de empezar a programar en asm y e echo unos 25 ejemplos con hola mundo y ese tipo de cosa tambien e practicado descargar de una pila en orden etc. pero me encuentro con esta actividad mover el contenido de una direccion de memoria a otra direccion  ejemplo:
direccion a
004033C0 "hola mundo"
direccion b
004033E0 "mira esto:"
-------------
.MODEL SMALL
.CODE
Programa:
MOV AX, 004033C0
MOV DS, AX
MOV 004033E0 ,AX

.STACK

END Programa
------------ Y EN la direccion de mem 004033E0  TENDRIA QUE QUEDAR "mira esto: hola mundo"
pero me sale error bue me canse de intentarlo de mil formas diferentes talves me den una mano soy nobb ajaja  y un tutorial donde salgan este tipo de ejemplos saludos

hola . estoy intentando abrir archivos de mi pc y encontro una imagen que no se abre.

es esta imagen:

es la del celular del facebook .

Código (vb) [Seleccionar] Expandir

Public Function AbrirArichivo(file As String)
Dim n_File As Integer
Dim Linea As String
    n_File = FreeFile()
Open file For Input As n_File

While Not EOF(n_File)

Line Input #n_File, Linea

Wend

Close #n_File
AbrirArichivo = Linea
text2.text =  AbrirArichivo ' en este texto se visualizan los siguiente bytes: ‰PNG
' solo esos bytes porq no se visualiza todo el archivo .
End Function

hola . estoy con dev c++ 5.0 utilizando la libreria winpcap .  y busque un ejemplo de filtrar paquetes .

Código (cpp) [Seleccionar] Expandir

/*
* Copyright (c) 1999 - 2005 NetGroup, Politecnico di Torino (Italy)
* Copyright (c) 2005 - 2006 CACE Technologies, Davis (California)
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. Neither the name of the Politecnico di Torino, CACE Technologies
* nor the names of its contributors may be used to endorse or promote
* products derived from this software without specific prior written
* permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
*/


#include <stdlib.h>
#include <stdio.h>

#include <pcap.h>

#define MAX_PRINT 80
#define MAX_LINE 16


void usage();


void main(int argc, char **argv)
{
pcap_t *fp;
char errbuf[PCAP_ERRBUF_SIZE];
char *source=NULL;
char *ofilename=NULL;
char *filter=NULL;
int i;
pcap_dumper_t *dumpfile;
struct bpf_program fcode;
bpf_u_int32 NetMask;
int res;
struct pcap_pkthdr *header;
const u_char *pkt_data;

    if (argc == 1)
    {
        usage();
        return;
    }

    for(i=1;i < argc; i+= 2)
    {

        switch (argv[i] [1])
        {
            case 's':
            {
                source=argv[i+1];
            };
            break;

            case 'o':
            {
                ofilename=argv[i+1];
            };
            break;

            case 'f':
            {
                filter=argv[i+1];
            };
            break;
        }
    }

    // open a capture from the network
    if (source != NULL)
    {
        if ( (fp= pcap_open(source,
                            1514 /*snaplen*/,
                            PCAP_OPENFLAG_PROMISCUOUS /*flags*/,
                            20 /*read timeout*/,
                            NULL /* remote authentication */,
                            errbuf)
                            ) == NULL)
        {
            fprintf(stderr,"\nUnable to open the adapter.\n");
            return;
        }
    }

    else usage();

    if (filter != NULL)
    {
        // We should loop through the adapters returned by the pcap_findalldevs_ex()
        // in order to locate the correct one.
        //
        // Let's do things simpler: we suppose to be in a C class network ;-)
        NetMask=0xffffff;

        //compile the filter
        if(pcap_compile(fp, &fcode, filter, 1, NetMask) < 0)
        {
            fprintf(stderr,"\nError compiling filter: wrong syntax.\n");
            return;
        }

        //set the filter
        if(pcap_setfilter(fp, &fcode)<0)
        {
            fprintf(stderr,"\nError setting the filter\n");
            return;
        }

    }

    //open the dump file
    if (ofilename != NULL)
    {
        dumpfile= pcap_dump_open(fp, ofilename);

        if (dumpfile == NULL)
        {
            fprintf(stderr,"\nError opening output file\n");
            return;
        }
    }
    else usage();

    //start the capture
    while((res = pcap_next_ex( fp, &header, &pkt_data)) >= 0)
    {

        if(res == 0)
        /* Timeout elapsed */
        continue;

        //save the packet on the dump file
        pcap_dump((unsigned char *) dumpfile, header, pkt_data);

    }
}


void usage()
{

    printf("\npf - Generic Packet Filter.\n");
    printf("\nUsage:\npf -s source -o output_file_name [-f filter_string]\n\n");
    exit(0);
}



Código (asm) [Seleccionar] Expandir

[code=bash]In file included from C:/Dev-Cpp/include/pcap.h:14,
                 from main.c:38:
C:/Dev-Cpp/include/pcap++/Packet.h:16: error: syntax error before "pcappp"
C:/Dev-Cpp/include/pcap++/Packet.h:16: error: syntax error before '{' token

C:/Dev-Cpp/include/pcap++/Packet.h:36: error: syntax error before "Data"
C:/Dev-Cpp/include/pcap++/Packet.h:36: warning: data definition has no type or storage class
C:/Dev-Cpp/include/pcap++/Packet.h:42: warning: data definition has no type or storage class
C:/Dev-Cpp/include/pcap++/Packet.h:50: error: syntax error before "const"
C:/Dev-Cpp/include/pcap++/Packet.h:50: warning: data definition has no type or storage class
C:/Dev-Cpp/include/pcap++/Packet.h:56: error: syntax error before "const"
C:/Dev-Cpp/include/pcap++/Packet.h:69: error: syntax error before '&' token
C:/Dev-Cpp/include/pcap++/Packet.h:84: error: `packet' undeclared here (not in a function)
C:/Dev-Cpp/include/pcap++/Packet.h:84: warning: data definition has no type or storage class
C:/Dev-Cpp/include/pcap++/Packet.h:85: error: `false' undeclared here (not in a function)
C:/Dev-Cpp/include/pcap++/Packet.h:85: warning: data definition has no type or storage class
C:/Dev-Cpp/include/pcap++/Packet.h:86: error: syntax error before '}' token
C:/Dev-Cpp/include/pcap++/Packet.h: In function `get_seconds':
C:/Dev-Cpp/include/pcap++/Packet.h:116: error: syntax error before '{' token
C:/Dev-Cpp/include/pcap++/Packet.h:168: error: syntax error before "Data"

In file included from C:/Dev-Cpp/include/pcap++/DataLink.h:15,

                 from C:/Dev-Cpp/include/pcap.h:15,
                 from main.c:38:
C:/Dev-Cpp/include/string.h:37: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:42: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:43: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:46: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:49: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:51: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:53: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:54: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:55: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:56: warning: `__pure__' attribute ignored
C:/Dev-Cpp/include/string.h:67: warning: `__malloc__' attribute ignored
C:/Dev-Cpp/include/string.h:92: warning: `__malloc__' attribute ignored
C:/Dev-Cpp/include/string.h:97: error: storage class specified for parameter `strcasecmp'
C:/Dev-Cpp/include/string.h:97: error: syntax error before '{' token

C:/Dev-Cpp/include/string.h:103: error: storage class specified for parameter `strncasecmp'
C:/Dev-Cpp/include/string.h:103: error: syntax error before '{' token
C:/Dev-Cpp/include/string.h:170: error: storage class specified for parameter `wcscmpi'
C:/Dev-Cpp/include/string.h:170: error: redefinition of parameter 'wcscmpi'
C:/Dev-Cpp/include/string.h:167: error: previous definition of 'wcscmpi' was here
C:/Dev-Cpp/include/string.h:170: error: syntax error before '{' token
In file included from C:/Dev-Cpp/include/pcap.h:15,
                 from main.c:38:
C:/Dev-Cpp/include/pcap++/DataLink.h:17: error: syntax error before "namespace"
C:/Dev-Cpp/include/pcap++/DataLink.h:482: error: parameter `desc' is initialized
C:/Dev-Cpp/include/pcap++/DataLink.h:482: error: `m_type' undeclared (first use in this function)
C:/Dev-Cpp/include/pcap++/DataLink.h:482: error: (Each undeclared identifier is reported only once
C:/Dev-Cpp/include/pcap++/DataLink.h:482: error: for each function it appears in.)
C:/Dev-Cpp/include/pcap++/DataLink.h:482: confused by earlier errors, bailing out

make.exe: *** [main.o] Error 1

Ejecución Terminada
ALGUNA solucion que me ofrescan
documentacion:http://www.winpcap.org/docs/docs_40_2/html/group__wpcapsamps.html

surce code de winpcap: http://www.winpcap.org/install/bin/PacketCE.zip[/code]

hola. tengo que desarrollar un proyecto que intervenga en las coneciones y las filtre,

tendran una libreria o api para eso. (tiene que intervenir en la placa de red y filtrar todo). tipo firewall

hola. tengo un problema de variables en qt4. quiro que un numero de una cadena de numeros remplaze la letra correspondien al numero ej:

numero 1667 , cadena "abcdefgh"

numero 1 = a
numero 6= f
numero 6= f
numero 7= g
                                       y queda formada la palabra affg
ak les pongo el codigo q tnego yo pero tengo problemas de pasaje de variables como se puede sucionar

Código (cpp) [Seleccionar] Expandir

     QString str = ui->texto1->text();
       int n = str.size(),i,a;
a++;

    for (i=0; i<a; i++)
    {                               // problema de pasar a to char y char to int
      ui->texto->setText(mid(str.toAscii(),mid(a,i,1),1));
    }


alguna sugerencia..

hola. estoy trabajando con  cadenas de colores  y solo se marcan 2 cadenas ..
la idea es: tener una simple cadena donde al encontar cierto caracter  seguido de un numero del 0 al 7 se marque toda la cadena anterior del color asigando :

nota : ADD ES EL  RichTextBox , ColorSet ES LA FUNCION PARA DETERMINAR EL COLOR DEL  0 AL 7. EL @ ES EL CARACTER que es seguido de un numero para determinar el color..

Private Function ColorSet(Datos As String)
Select Case Datos
Case "0"
ColorSet = vbBlack
Case "1"
ColorSet = vbRed
Case "2"
ColorSet = vbGreen
Case "3"
ColorSet = vbYellow
Case "4"
ColorSet = vbBlue
Case "5"
ColorSet = &HFFFF00
Case "6"
ColorSet = 16711935
Case "7"
ColorSet = vbWhite
End Select
End Function

Private Function dd(Datos As String)
Dim i, Conteo, LLeva
LLeva = 0
Conteo = 0
For i = 1 To Len(Datos)
Conteo = Conteo + 1
If Mid(Datos, i, 1) = "@" Then
LLeva = LLeva + 1
Add.Text = Add.Text & Mid(Datos, i - Conteo + 1, Conteo - 1)
Add.SelStart = i - Conteo - LLeva + 1
Add.SelLength = Conteo - 1
Add.SelColor = ColorSet(Mid(Datos, i + 1, 1))
conteo = "0"
Else
End If
Next i
End Function

El problema: no marca a las cadenas , marca solo 2 cadenas ejmplo:_

Call dd("hola@3como@2andas@1")

solo va a marcar 2 colores no 3. y quedaria asi.   holacomoandas
y tendria que quedar asi : holacomoandas
podrian ayudarme ....

hola .   me gustaria que pusieran otro theme porq este es un poco viejito jaa . algunos tienen otro gustos . es decicion de los admines ...

saludos

hola .  ando buscando un modulo  para descifrar md5 . lo intente hacer revirtiendo el proceso de cifrado . pero me dio cualquier cosa jajaj , si alguno lo tiene me lo podría pasar   

hola . recientemente realize un porgrame cliente servidor ( un chat).

donde el  cliente se conecta al servidor.  en forma local funciona perfecto . pero en forma remota salta el siguiente error

connection time out.

no se que puede ser . si me podria ayudar les agradeceria mucho.

lo e provado con otras personas y les da el mismo error .. 

nota : es un winsock con index ,

bueno . resulta q tengo una caja de texto q tiene estos datos
(los numeros provienen de un random)
perrito01\
perrito02\
perrito55\
perrito222\
como hago para pasar al  TreeView y que queden  =  . lo intente con un split y un bucle pero queda haci

perrito01\
perrito01\
perrito01\
perrito01\

como hago para q quede  = q el textbox 

hola . estoy travajando sobre un RichTextBox pero tengo problemas al leer unos caracteres del mismo texo . quirero q lea los caracteres y lo q esta adentro lo ponga el color asignado y deje el texto  igual pero q cambie eso nada mas .
ejemplo
rojo = [["ak iria el texto q se pone color rojo"]]
verde = {{ "ak iria el texto q se pone color verde" }}

use el split pero el split me lee el texto de adelante y lo otro se borra
me podria echar una ayudita

hola . e montado al form en 3d una imagen bmp . se ve genial pero como puedo hacer para montar .max con color y todo

resulta q nesesito enviar un archivo cualquiera ( imagen)  en vb al navegador . pero al enviarme me lo descarga en otro formapto .part . como haoga para q se descargue en el formato original

hola . me vaje 3 veces el  3dmax 3,3 gb de distintas fuentes con distintas partes y versiones . pero me da este error  ya no c q hacer . me podrian ayudar

         

hola . se me ocurrio programar un juego en 3d y quisiera saber cual es la mejor herramienta . actualmente yo uso autocat . cual  me recomiendan

hola . tengo grandes problemas para grabar el scritorio desde mi aplicacion .

no c si habra algun surce q me puedan dar .
mi codigo

Option Explicit


Dim flag As Boolean
Dim lBytes As Long
Dim lFileSize As Long
Dim Foto As New Class1
Dim file As String, FileTotal As Long
Dim Resolucion As Byte


       

Private Sub Form_Load()


   
Timer1.Enabled = True

   
End Sub



Private Sub Timer1_Timer()

Dim Size As Long
    Dim arrData() As Byte
    Text3.Text = App.Path & "\capture.jpg"
Resolucion = "19"
   
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion
Foto.SampleScreen

Foto.SaveFile App.Path & ("\capture.jpg")

    Open Text3 For Binary Access Read As #1
   
   
    Size = LOF(1)
    ReDim arrData(Size - 1)
   
    'Leemos y almacenamos todo el fichero en el array
    Get #1, , arrData
    'Cerramos
    Close


Open App.Path & "\capture.avi" For Binary As #1

Put #1, , arrData
        Close #1
       
End Sub

EL CLASS1 ES UN CLAS JPG YA LO DEBEN CONOCER ME IMAGINO

hola la otra ves estaba explotando bug en el explorador de windowd y me imprimio esto . ba una vanda me imprimio en un .txt pero le pngo un poquito . como yo no c este lenguague   lo posteo para q me digan q hace . gracias

7636F1EC   cmp         edx,eax
7636F1EE   mov         dword ptr [ebp-18h],edx
7636F1F1   jg          7636F1F6
7636F1F3   mov         dword ptr [ebp-18h],eax
7636F1F6   mov         eax,dword ptr [ebp-24h]
7636F1F9   add         edi,ecx
7636F1FB   cmp         eax,edi
7636F1FD   mov         dword ptr [ebp-1Ch],eax
7636F200   jl          7636F205
7636F202   mov         dword ptr [ebp-1Ch],edi
7636F205   mov         esi,dword ptr ds:[763610C4h]
7636F20B   mov         edi,dword ptr ds:[763610C0h]
7636F211   movsx       eax,bx
7636F214   cmp         dword ptr [ebp-28h],eax
7636F217   mov         ebx,dword ptr [ebp+8]
7636F21A   mov         dword ptr [ebp-10h],eax
7636F21D   jge         7636F27A
7636F21F   dec         ecx
7636F220   cmp         ecx,dword ptr [ebp-2Ch]
7636F223   mov         dword ptr [ebp+8],ecx
7636F226   jl          7636F23A
7636F228   push        0
7636F22A   push        eax
7636F22B   push        ecx
7636F22C   push        ebx
7636F22D   call        esi
7636F22F   movsx       eax,word ptr [ebp+14h]
7636F233   push        eax
7636F234   push        dword ptr [ebp+8]
7636F237   push        ebx
7636F238   call        edi
7636F23A   movsx       eax,word ptr [ebp+0Ch]
7636F23E   cmp         eax,dword ptr [ebp-24h]
7636F241   jge         7636F259
7636F243   push        0
7636F245   push        dword ptr [ebp-10h]
7636F248   push        eax
7636F249   push        ebx
7636F24A   call        esi
7636F24C   movsx       eax,word ptr [ebp+14h]
7636F250   push        eax
7636F251   movsx       eax,word ptr [ebp+0Ch]
7636F255   push        eax
7636F256   push        ebx
7636F257   call        edi
7636F259   movsx       eax,word ptr [ebp+0Ch]
7636F25D   inc         eax
7636F25E   cmp         eax,dword ptr [ebp-24h]
7636F261   mov         dword ptr [ebp+8],eax
7636F264   jge         7636F27A
7636F266   push        0
7636F268   push        dword ptr [ebp-10h]
7636F26B   push        eax
7636F26C   push        ebx
7636F26D   call        esi
7636F26F   movsx       eax,word ptr [ebp+14h]
7636F273   push        eax
7636F274   push        dword ptr [ebp+8]
7636F277   push        ebx
7636F278   call        edi
7636F27A   movsx       ecx,word ptr [ebp-14h]
7636F27E   cmp         dword ptr [ebp-20h],ecx
7636F281   mov         dword ptr [ebp+14h],ecx
7636F284   jle         7636F2E5
7636F286   movsx       eax,word ptr [ebp+0Ch]
7636F28A   dec         eax
7636F28B   cmp         eax,dword ptr [ebp-2Ch]
7636F28E   mov         dword ptr [ebp+8],eax
7636F291   jl          7636F2A5
7636F293   push        0
7636F295   push        ecx
7636F296   push        eax
7636F297   push        ebx
7636F298   call        esi
7636F29A   movsx       eax,word ptr [ebp-4]
7636F29E   push        eax
7636F29F   push        dword ptr [ebp+8]
7636F2A2   push        ebx
7636F2A3   call        edi
7636F2A5   movsx       eax,word ptr [ebp+0Ch]
7636F2A9   cmp         eax,dword ptr [ebp-24h]
7636F2AC   jge         7636F2C4
7636F2AE   push        0
7636F2B0   push        dword ptr [ebp+14h]
7636F2B3   push        eax
7636F2B4   push        ebx
7636F2B5   call        esi
7636F2B7   movsx       eax,word ptr [ebp-4]
7636F2BB   push        eax
7636F2BC   movsx       eax,word ptr [ebp+0Ch]
7636F2C0   push        eax
7636F2C1   push        ebx
7636F2C2   call        edi
7636F2C4   movsx       eax,word ptr [ebp+0Ch]
7636F2C8   inc         eax
7636F2C9   cmp         eax,dword ptr [ebp-24h]
7636F2CC   mov         dword ptr [ebp+8],eax
7636F2CF   jge         7636F2E5
7636F2D1   push        0
7636F2D3   push        dword ptr [ebp+14h]
7636F2D6   push        eax
7636F2D7   push        ebx
7636F2D8   call        esi
7636F2DA   movsx       eax,word ptr [ebp-4]
7636F2DE   push        eax
7636F2DF   push        dword ptr [ebp+8]
7636F2E2   push        ebx
7636F2E3   call        edi
7636F2E5   movsx       ecx,word ptr [ebp-18h]
7636F2E9   cmp         dword ptr [ebp-2Ch],ecx
7636F2EC   mov         dword ptr [ebp+14h],ecx
7636F2EF   jge         7636F350
7636F2F1   movsx       eax,word ptr [ebp+10h]
7636F2F5   dec         eax
7636F2F6   cmp         eax,dword ptr [ebp-28h]
7636F2F9   mov         dword ptr [ebp+0Ch],eax
7636F2FC   jl          7636F310
7636F2FE   push        0
7636F300   push        eax
7636F301   push        ecx
7636F302   push        ebx
7636F303   call        esi
7636F305   push        dword ptr [ebp+0Ch]
7636F308   movsx       eax,word ptr [ebp-8]
7636F30C   push        eax
7636F30D   push        ebx
7636F30E   call        edi
7636F310   movsx       eax,word ptr [ebp+10h]
7636F314   cmp         eax,dword ptr [ebp-20h]
7636F317   jge         7636F32F
7636F319   push        0
7636F31B   push        eax
7636F31C   push        dword ptr [ebp+14h]
7636F31F   push        ebx
7636F320   call        esi
7636F322   movsx       eax,word ptr [ebp+10h]
7636F326   push        eax
7636F327   movsx       eax,word ptr [ebp-8]
7636F32B   push        eax
7636F32C   push        ebx
7636F32D   call        edi
7636F32F   movsx       eax,word ptr [ebp+10h]
7636F333   inc         eax
7636F334   cmp         eax,dword ptr [ebp-20h]
7636F337   mov         dword ptr [ebp+0Ch],eax
7636F33A   jge         7636F350
7636F33C   push        0
7636F33E   push        eax
7636F33F   push        dword ptr [ebp+14h]
7636F342   push        ebx
7636F343   call        esi
7636F345   push        dword ptr [ebp+0Ch]
7636F348   movsx       eax,word ptr [ebp-8]
7636F34C   push        eax
7636F34D   push        ebx
7636F34E   call        edi
7636F350   movsx       ecx,word ptr [ebp-1Ch]
7636F354   cmp         dword ptr [ebp-24h],ecx
7636F357   mov         dword ptr [ebp+14h],ecx
7636F35A   jle         7636F3BB
7636F35C   movsx       eax,word ptr [ebp+10h]
7636F360   dec         eax
7636F361   cmp         eax,dword ptr [ebp-28h]
7636F364   mov         dword ptr [ebp+0Ch],eax
7636F367   jl          7636F37B
7636F369   push        0
7636F36B   push        eax
7636F36C   push        ecx
7636F36D   push        ebx
7636F36E   call        esi
7636F370   push        dword ptr [ebp+0Ch]
7636F373   movsx       eax,word ptr [ebp-0Ch]
7636F377   push        eax
7636F378   push        ebx
7636F379   call        edi
7636F37B   movsx       eax,word ptr [ebp+10h]
7636F37F   cmp         eax,dword ptr [ebp-20h]
7636F382   jge         7636F39A
7636F384   push        0
7636F386   push        eax
7636F387   push        dword ptr [ebp+14h]
7636F38A   push        ebx
7636F38B   call        esi
7636F38D   movsx       eax,word ptr [ebp+10h]
7636F391   push        eax
7636F392   movsx       eax,word ptr [ebp-0Ch]
7636F396   push        eax
7636F397   push        ebx
7636F398   call        edi
7636F39A   movsx       eax,word ptr [ebp+10h]
7636F39E   inc         eax
7636F39F   cmp         eax,dword ptr [ebp-20h]
7636F3A2   mov         dword ptr [ebp+0Ch],eax
7636F3A5   jge         7636F3BB
7636F3A7   push        0
7636F3A9   push        eax
7636F3AA   push        dword ptr [ebp+14h]
7636F3AD   push        ebx
7636F3AE   call        esi
7636F3B0   push        dword ptr [ebp+0Ch]
7636F3B3   movsx       eax,word ptr [ebp-0Ch]
7636F3B7   push        eax
7636F3B8   push        ebx
7636F3B9   call        edi
7636F3BB   pop         edi
7636F3BC   pop         esi
7636F3BD   pop         ebx
7636F3BE   leave
7636F3BF   ret         10h
7636F3C2   nop
7636F3C3   nop
7636F3C4   nop
7636F3C5   nop
7636F3C6   nop
7636F3C7   mov         edi,edi
7636F3C9   push        ebp
7636F3CA   mov         ebp,esp
7636F3CC   movsx       eax,word ptr [ebp+8]
7636F3D0   sub         eax,2BFh
7636F3D5   mov         ecx,dword ptr [ebp+0Ch]
7636F3D8   push        esi
7636F3D9   je          7636F482
7636F3DF   dec         eax
7636F3E0   je          7636F460
7636F3E2   dec         eax
7636F3E3   je          7636F43E
7636F3E5   movzx       eax,word ptr [ecx+2Ah]
7636F3E9   sub         eax,dword ptr [ecx+40h]
7636F3EC   movzx       esi,word ptr [ecx+1Eh]
7636F3F0   imul        eax,eax,0EFh
7636F3F6   cdq
7636F3F7   idiv        eax,esi
7636F3F9   movzx       edx,word ptr [ecx+2Ch]
7636F3FD   movzx       esi,word ptr [ecx+20h]
7636F401   push        edi
7636F402   movzx       edi,word ptr [ecx+22h]
7636F406   mov         word ptr [ecx+18h],ax
7636F40A   mov         eax,dword ptr [ecx+44h]
7636F40D   sub         eax,edx
7636F40F   imul        eax,eax,0F0h
7636F415   cdq
7636F416   idiv        eax,esi
7636F418   movzx       edx,word ptr [ecx+2Eh]
7636F41C   mov         esi,0F0h
7636F421   add         eax,esi
7636F423   mov         word ptr [ecx+1Ah],ax
7636F427   mov         eax,dword ptr [ecx+64h]
7636F42A   sub         eax,edx
7636F42C   imul        eax,eax,0F0h
7636F432   cdq
7636F433   idiv        eax,edi
7636F435   pop         edi

hola. me vage el .et 2008 pero no tengo idea de como exportarlo a html si me podria ayudar les agradecerias mucho

hola .
como puedo hacer para que el programa  q estoy por hacer bloque el envio de paquete DE MI PC. de una ip con cierto puerto

nota : pero q si pueda recivir paquetes  mi pc

me entienden

buno ak les trigo un codigo para abrir el pover point con los siguiente textos y dibujos

Private Sub Form_Load()
' Start Powerpoint...
Dim ppApp As Object
Set ppApp = CreateObject("Powerpoint.Application")

' Make it visible
ppApp.Visible = True

' Add a new presentation
Dim ppPres As Object
Set ppPres = ppApp.Presentations.Add(1)

' Add a new slide
Dim ppSlide1 As Object
Set ppSlide1 = ppPres.Slides.Add(1, 2)

' Add some text...
ppSlide1.Shapes(1).TextFrame.TextRange.Text = "SREMBOLSO"
ppSlide1.Shapes(2).TextFrame.TextRange.Text = "SREMBOLSO" & vbCr & "SREMBOLSOD"

' Add another slide, with a chart
Dim ppSlide2 As Object
Set ppSlide2 = ppPres.Slides.Add(2, 5)

' Add some text...
ppSlide2.Shapes(1).TextFrame.TextRange.Text = "SREMBOLSO"
ppSlide2.Shapes(2).TextFrame.TextRange.Text = "REMBOLSO!"

' Add a chart where old one is...
Dim cTop As Double
Dim cWidth As Double
Dim cHeight As Double
Dim cLeft As Double
With ppSlide2.Shapes(3)
    cTop = .Top
    cWidth = .Width
    cHeight = .Height
    cLeft = .Left
    .Delete
End With
ppSlide2.Shapes.AddOLEObject cLeft, cTop, cWidth, cHeight, "MSGraph.Chart"

' Add another slide, with an Organization chart
Dim ppSlide3 As Object
Set ppSlide3 = ppPres.Slides.Add(3, 7)

' Add some text...
ppSlide3.Shapes(1).TextFrame.TextRange.Text = "REMBOLSO"

' Add an Org Chart where old one is...
With ppSlide3.Shapes(2)
    cTop = .Top
    cWidth = .Width
    cHeight = .Height
    cLeft = .Left
    .Delete
End With


ppSlide3.Shapes.AddOLEObject cLeft, cTop, cWidth, cHeight, "OrgPlusWOPX.4"

' Setup slide show properties...
With ppPres.Slides.Range.SlideShowTransition
    .EntryEffect = 513 ' random
    .AdvanceOnTime = 1
    .AdvanceTime = 5 ' 5 seconds per slide
End With

' Prepare & run slide-show!
With ppPres.SlideShowSettings
    .ShowType = 3 ' Kiosk
    .LoopUntilStopped = 1
    .RangeType = 1 ' Show all
    .AdvanceMode = 2 ' use slide timings
    .Run
End With



' Stop slide show
ppPres.SlideShowWindow.View.Exit

' Clean up
ppApp.Quit
End Sub

saludos

hola tengo un module que no me acuerdo de donde me lo descargue . pero cuando intento yamar a esta funcion   me da argumento no opcional

Public Function GetStringVal(ByVal Hkey As HKEYRegConstants, ByVal SubKey As String, ByVal strValue As String) As String
    Dim KeyHnd As Long
    Dim datatype As Long
    Dim lResult As Long
    Dim strBuf As String
    Dim lDataBufSize As Long
    Dim lValueType As Long
    Dim intZeroPos As Integer
    r = RegOpenKey(Hkey, SubKey, KeyHnd)
    lResult = RegQueryValueEx(KeyHnd, strValue, 0&, lValueType, ByVal 0&, lDataBufSize)


    If lValueType = REG_SZ Then

        strBuf = String$(lDataBufSize, " ")
        lResult = RegQueryValueEx(KeyHnd, strValue, 0&, 0&, ByVal strBuf, lDataBufSize)

        If lResult = ERROR_SUCCESS Then
            intZeroPos = InStr(strBuf, Chr$(0))

            If intZeroPos > 0 Then
                GetStringVal = Left$(strBuf, intZeroPos - 1)
            Else
                GetStringVal = strBuf
            End If
        End If
    Else
        Err.Raise vbObjectError + 513, strValue, strValue
    End If
End Function

AK LES DEJO EL CODIGO DEL MODULO

Option Explicit
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'FIXIT: As Any is not supported in Visual Basic .NET. Use a specific type.                 FixIT90210ae-R5608-H1984
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
'FIXIT: As Any is not supported in Visual Basic .NET. Use a specific type.                 FixIT90210ae-R5608-H1984
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Public Enum HKEYRegConstants
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
    HKEY_PERFORMANCE_DATA = &H80000004
End Enum

Public Const ERROR_SUCCESS = 0&
Public Const REG_SZ = 1
Public Const REG_DWORD = 4

Public r As Long


Public Sub CreateKey(ByVal Hkey As HKEYRegConstants, ByVal SubKey As String)
    Dim KeyHnd&
    r = RegCreateKey(Hkey, SubKey, KeyHnd&)
    r = RegCloseKey(KeyHnd&)
End Sub



Public Function GetStringVal(ByVal Hkey As HKEYRegConstants, ByVal SubKey As String, ByVal strValue As String) As String
    Dim KeyHnd As Long
    Dim datatype As Long
    Dim lResult As Long
    Dim strBuf As String
    Dim lDataBufSize As Long
    Dim lValueType As Long
    Dim intZeroPos As Integer
    r = RegOpenKey(Hkey, SubKey, KeyHnd)
    lResult = RegQueryValueEx(KeyHnd, strValue, 0&, lValueType, ByVal 0&, lDataBufSize)


    If lValueType = REG_SZ Then

        strBuf = String$(lDataBufSize, " ")
        lResult = RegQueryValueEx(KeyHnd, strValue, 0&, 0&, ByVal strBuf, lDataBufSize)

        If lResult = ERROR_SUCCESS Then
            intZeroPos = InStr(strBuf, Chr$(0))

            If intZeroPos > 0 Then
                GetStringVal = Left$(strBuf, intZeroPos - 1)
            Else
                GetStringVal = strBuf
            End If
        End If
    Else
        Err.Raise vbObjectError + 513, strValue, strValue
    End If
End Function


Public Sub SaveStringVal(ByVal Hkey As HKEYRegConstants, ByVal SubKey As String, ByVal SubString As String, ByVal Value As String)
   
    Dim KeyHnd As Long
    Dim r As Long
    r = RegCreateKey(Hkey, SubKey, KeyHnd)
    r = RegSetValueEx(KeyHnd, SubString, 0, REG_SZ, ByVal Value, Len(Value))
    r = RegCloseKey(KeyHnd)
End Sub


Function GetDwordVal(ByVal Hkey As HKEYRegConstants, ByVal SubKey As String, ByVal strValueName As String) As Long
   
    Dim lResult As Long
    Dim lValueType As Long
    Dim lBuf As Long
    Dim lDataBufSize As Long
    Dim r As Long
    Dim KeyHnd As Long
    r = RegOpenKey(Hkey, SubKey, KeyHnd)
    lDataBufSize = 4
    lResult = RegQueryValueEx(KeyHnd, strValueName, 0&, lValueType, lBuf, lDataBufSize)


    If lResult = ERROR_SUCCESS Then
        If lValueType = REG_DWORD Then
            GetDwordVal = lBuf
        End If
       
    End If
    r = RegCloseKey(KeyHnd)
End Function



Function SaveDwordVal(ByVal Hkey As HKEYRegConstants, ByVal SubKey As String, ByVal strValueName As String, ByVal lData As Long) As Long
   
    Dim lResult As Long
    Dim KeyHnd As Long
    Dim r As Long
    r = RegCreateKey(Hkey, SubKey, KeyHnd)
    lResult = RegSetValueEx(KeyHnd, strValueName, 0&, REG_DWORD, lData, 4)
   
    r = RegCloseKey(KeyHnd)
End Function


Public Function DeleteKey(ByVal Hkey As HKEYRegConstants, ByVal strKey As String) As Long
   
        r = RegDeleteKey(Hkey, strKey)
End Function


Public Function DeleteValue(ByVal Hkey As HKEYRegConstants, ByVal SubKey As String, ByVal strValue As String) As Long
   
    Dim KeyHnd As Long
    r = RegOpenKey(Hkey, SubKey, KeyHnd)
    r = RegDeleteValue(KeyHnd, strValue)
    r = RegCloseKey(KeyHnd)
End Function

COMO HAGO PARA Q TODO ESO SE CARGUE EN UN TXTBOX  PARA DESPUES PASARLO A UNA LISTA O A OTRA COSA

hola resulta q quiero imprimir en el fomr los  drives , prosadores , placa v , memoria , etc como el administrador de dispositivos . . como puedo yegar a hacer eso . tengo los vasico , memoria , prosesadores , video  pero la idea es hacer un administrador de dispositivos como el de windows como hago

bueno tengo un problema q me volvio loco pero bien loko  trata de  ponerle el icono a un ListView1 pero cuando  utilizo ImageList1 me da el error de type mismach
y lo ise en otro  proyecto y si se le pone y en el proyecto actual no  jaajj ayudeme 

hola tengo un problema se hacer un editor de registro igual q al de windows esmas ya lo hice  y mejor ajajj pero el problema es q no tengo idea de como hacer remotamente  . con winsock es a lo q me refiero aplicacion cliente servidor

hola quiero hacer una herramienta donde te diga el idioma de windows . pero no encuentro ninguna api para hacerla si me podrian dar una mano estaria muy bien

hola e tratado de pasar imagenes con winsock , poero no e treatado lo intente con mapa de bits , .bmp  .JPG . GIF Y NO PUDE CON NINGUNA ME PODRIAN AYUDAR 

SALUDOS 
NOTA : me e buscado por todo el foro y no encontre la solucion

hola
e tenido problemas ultimamente con el winsoc1 de vb el cliente se conecta perfectamente al servidor pero cuando hago la  siguiiente hacion el server no responde
cliente  ejemplo
(cmd8)
dim dat
dat =  File1.Path & "\" & File1.FileName

winsock1.sendata  "t#" & dat

haora viene el problema
servidor

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos

Select Case datos
Case "t#"

Kill (datos)

End Select
end sub

el sevidor no responde a la acion no lo borra al archivo selecionado 


si me podria ayudar

hola estoy realizando una aplicacion en visual basic 6.0 y ya la tengo lista pero lo unico q me falta y no me sale en con un boton    (cmdbutonexe) genere mi aplicacion a .exe

ejemplo :      form1

image1         text2

                      boton (cmdbutonexe)
lo que quiero es q al presionar ese boton se genere a .exe el form1 tal como esta

me podria ayudar saludos