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

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

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,

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