Mensajes

NO ME SIRVE ME DICE QUE SOLO ES PARA ENVIAR ARCHIVOS NO PACKETES

mmm pero no te exasperes bro...¡! lo que debes saber es que para enviar texto, datos binarios, archivo (EXe, jpg, todo lo que se t ocurra) por medio el Winsock o derivados. se mandan de la misma forma TODOS.

Busca en el foro un manual de Winsock que basta cantidad de esto.

P.D.: Lee un manual/tuto de esto.¡!

o se si te entendi pero es algo asi?

Código (vb) [Seleccionar] Expandir


Dim abc() As String

Private Sub Form_Load()
ReDim abc(90 - 65)
For i = 65 To 90
   abc(i - 65) = Chr(i)
   List1.AddItem Rnd(1) * 32765 & Chr(i) & Chr(i / 2 * 3)
Next i
End Sub

Private Sub List1_Click()
   MsgBox abc(List1.ListIndex)
End Sub


Que El Prograama Se Conecte Al main.exe (osea el mu)

Cual es tu objetivo en si?

Lo que intenta hacer es un Cheat para enviar paquetes en un juego.¡!

[Bueno gente estuve biendo y se que sabes demasiado...Lo que tengo que hacer es...Crear un programa .exey que ese exe pueda conectarse a un servidor casi como a este vaguito aca http://foro.elhacker.net/programacion_vb/ayuda-t257266.0.htmlOsea..Que El Prograama Se Conecte Al main.exe (osea el mu)y Poder Enviar Paketes (cualquier pakete).. No Se Si Me Expreso Bien.. PD : Si Me Pueden Dejar Los Codigos Se Los agradecería Mucho]

xD] link=topic=257321.msg1248403#msg1248403 date=1244391307]
Bueno gente estuve biendo y se que sabes demasiado...
Lo que tengo que hacer es...
Crear un programa .exe
y que ese exe pueda conectarse a un servidor casi como a este vaguito aca
http://foro.elhacker.net/programacion_vb/ayuda-t257266.0.html
Osea..
Que El Prograama Se Conecte Al main.exe (osea el mu)
y Poder Enviar Paketes (cualquier pakete).. No Se Si Me Expreso Bien.. 
PD : Si Me Pueden Dejar Los Codigos Se Los agradecería Mucho

Antes que nada leete un Manual de Winsock y por si las dudas un tutorial basico de Basic es mas t dejare una execcional web para ello:

http://www.google.com/
y tambien si lo deseas:
http://foro.elhacker.net/search.html

Pero en todo caso, con lo del mu deberias saber que paquetes enviar no es cualquier cosa...¡!

P.D.: El texto q pusiste... el app no se conectaria al main.exe si no mas bien al puerto 55901 del servidor pero bueno, aun asi obten mas info, leete u buen manual, etc¡!

Saludos, Dulces Lunas.¡!

yo uso el no-ip... pero no uso su software para actualizar IP sencillamente uso esta liga:

Código [Seleccionar] Expandir


http://dynupdate.no-ip.com/dns?username=Correo@hotmail.com&password=TuContraseña&hostname=infrangelux.sytes.net


igual. funciona xD

Saludos, Dulces Lunas

los datos si se estan enviando sabes

Corrige estas lineas

Código (vb) [Seleccionar] Expandir


ws1.senddata "Keylogger"& text1.text ' Te falta el separador
'a
ws1.senddata "Keylogger|"& text1.text'Corregido


Tambien etas otras en el DataArribal

Código (vb) [Seleccionar] Expandir


if data="keylogger" then
    'bla bla bla
end if

'Corrige a esto:

if vdata(0)="keylogger" then
    'bla bla bla
end if



P.D.: Son es esactamente el mismo code o lineas pero te daras unaidea de lo que te plasmo.¡!


Son los dos unicos errores que detecte, igual seria mejor que pusieras el cource, de estos hay sientos en la red llamada internet.

P.D.: antes de enviar algo con Windows imprimiedo y cuando lo resivas con otro Winsock igual imprimelo en un textbox o donde quieras y como quieras el chiste es ver la informacion, te servira para detectar erres ent us datos y como los estas manejando, eso es lo q solo te falta, cuando ya tomes mas Experiencia con BAsic, no digo con WinSock por que lo estas trabajando bien, con Basic y sus sintaxis y detalles bien tus proyectos con hoja y lapiz entenderas mejro tus errores.¡!, Lee un manual, o revisa tu error de LOGICA.¡!

Post viejo

Pero algo que encontre en Enlaces del foro:

[Source Code] - Mem Dumper 1.3

//Un programa para volcar la memoria de un proceso.

Saludos: Dulces Lunas

mmm eso es algodificil:

Ya que tendrias que estar teniendo un oroceso que le haga un resample a la cancion es decir bajar sus kbs de reproduccion y q los apase aenvia masivo, teniedno obviamente unos 60 min aproximadamente de bufer, para posteriormente enviarlos

En si s algo asi como stremingcomo youtube (flash nomaneja strimg en inea directa solo archivos estaticos.) pero en linea activa. mas la suma de la compresion del envio en paquetes xS.

no hay fallo en el trozo que plasme en si lo que hice fue tomar en consideración de 0 a X siendo 0 = 0% y X = 100% jamas tome diferencial alguno

graficamente hablando tome como referencia el Numero mayor como 100% y el numero cero como 0% entonces


0------------------18
0------------------------------------------------------------100

= 18% casi igual y de diferencia solo se restaria ese 18% el 100% que seria 82% pero da igual no es lo que pedias...!¡


A=19
B=1

1= 5% de 19 por ende es 5% igual de 19 y 95% diferente

P.D.: creo que deberias tranajar con regla de 3 en lugar de siempre esperar un numero menor a 100,

Si el la diferencia de A y B = 100 dice que es un numero grande?...¡!

Saludos, Dulces Lunas

NO SE SI LE ATINE O NO PERO AUN ASI TE DIGO LO QUE TE ENTIENDO

supongamos que se genero un numero en "X" y uno "Y"

rectifico cual es el mayor y con base a esto lo mando a una funcion donde el mayor el es 100% y el menor es una parte de ese porcentaje

es decir

A=19
B=50

por decir algo

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
'juega con estos valores
a = 50
b = 49
'Fin valores
If a > b Then
res = Porcentaje(a, b)
ElseIf b > a Then
res = Porcentaje(b, a)
Else
res = 100
End If
MsgBox res
End Sub
Function Porcentaje(ByVal ValMax As Integer, ByVal valMin As Integer) As Long
     Porcentaje = (valMin * 100) / ValMax
End Function



Edito-------------------------

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim res As String
a = 19
b = 50
res = IIf(a > b, Porcentaje(a, b), IIf(b > a, Porcentaje(b, a), 100))
MsgBox res
End Sub
Function Porcentaje(ByVal ValMax As Integer, ByVal valMin As Integer) As Long
     Porcentaje = (valMin * 100) / ValMax
End Function