Mensajes

wenas, esque lo del split tampoco lo he usado nunca y tenia que mirar tambien lo del InStr...
Lo de identar el code me ha sido imposible...(tenia otra idea en la cabeza, primer post) pero lo q vosotros decis esq esta mejor, voy a probar el ejemplo grax Spider-Net

Identar es tabularlo, sólo poner tabuladores para saber que instrucciones se ejecutan dentro de cada procedimiento.

Saludos

¿Pero por qué no usas el split que es mucho más fácil? Y un consejo compañero, acostúmbrate a tabular (indentar) tu código porque es más fácil de comprender:

A ver, un ejemplo:

Código (vb) [Seleccionar] Expandir


'Ejemplo de uso de Split para separar comandos
'Por Auron
'Espero que lo entiendas bien esta vez
Option Explicit
Dim a, resultado As String
Dim i, contador As Integer
Dim v As Variant

Private Sub Command1_Click()
a = Text1.Text 'Se almacena en a la cadena
v = Split(a, " ") 'Se separa cada parametro con un split

'v(0) = primer parametro
'v(1) = segundo parametro
'v(2) = tercer parametro... etc


'Se cuenta el numero de espacios que hay en el texto, así sabremos
'cuantos parámetros hay, porque entre cada parámetro ha de haber un espacio
For i = 1 To Len(a)
    If Mid(a, i, 1) = " " Then
        contador = contador + 1 'contador almacena el número de espacios
    End If
Next

'Si el primer parametro es el comando clean entramos
If LCase(v(0)) = "clean" Then
    resultado = "clean" 'asignamos el resultado clean
   
    'Si contador es mayor o igual que 1 es que hay uno o más parámetros
    If contador >= 1 Then
        If LCase(v(1)) = "/q" Then
            resultado = resultado & " /q" 'Si el parámetro 1 es /q se almacena en resultado
        ElseIf LCase(v(1)) = "/s" Then
            resultado = resultado & " /s" 'Si el parámetro 1 es /s se almacena en resultado
        End If
    End If
   
    'Si contador es mayor o igual que 2 es que hay dos o más parametros
    If contador >= 2 Then
        If LCase(v(2)) = "/q" Then
            resultado = resultado & " /q" 'Si el parámetro 2 es /q se almacena en resultado
        ElseIf LCase(v(2)) = "/s" Then
            resultado = resultado & " /s" 'Si el parámetro 2 es /s se almacena en resultado
        End If
    End If
   
    'Mostramos el resultado
    MsgBox "El comando resultante es: " & resultado, vbInformation, "Resultado"
End If
End Sub

¿Pero cómo tienes tanta cara para decir que no copias nada tio?, si hace un par de semanas encontré una copia de mi troyano con tu nombre:
http://foro.elhacker.net/foro_libre/lammers_varios-t229198.0.html;msg1091330#msg1091330

Ya veo que no copias nada de nada. Por cierto el keylogger de este "DEMO" que has puesto no se como será, pero el que pusiste la última vez era clavadito al de mi troyano

Eres muy lammer men, y se te nota por todas partes, así que deja de dártelas de programador pr0 que hace dos días y medio estabas en este mismo foro preguntando como almacenar lo que recibías por winsock en un textbox...

PD: Por cierto, los códigos que has COPIADO para "tu troyano" se te han escapado algunos errores. Cuando copies algo y lo pongas en tu proyecto, al menos tradúcelo entero.
Que eso de "PRINT MANAGER:" Imprimir, Opciones, cortar, copiar y de repente "Clear Clipboard"...  Qué pasa que no sabías que es lo que significaba eso?
Luego: "Informacion del sistema:" Fecha, hora, sección, sistema operativo y de repente: PC Uptime, CD Key y el tiempo en minutes and seconds xD

"SCANNER DE PUERTOS" Opciones de mapeo, hacer ping, por si el ping falla 
Y de repente: Options List, Socks Options, Max. Socks y Scan!

"ENVIO DE MENSAJES:" Información, exclamación... y de repente none xDD

Y así con casi todo... a quién pretendes engañar tio?, te engañas tu sólo pero a nadie más.


Ala, saludos!

No hace falta nada de eso, cualquier imagen puede contener maps, que son zonas distintas de la imagen con enlaces a cualquier sitio. Se agregan directamente desde Dreamweaver o en html, pero en html hay que introducir las coordenadas del map y es algo complicado. Desde dreamweaver es solo seleccionar el área que quieres convertir en enlace y ya está.

[InStr]

 

InStr

[[MODO IRÓNICO]]

No es el primero código que copia. Ya copió mi troyano entero y le puso su nombre y luego hizo otro troyano distinto y le puso mi keylogger y tampoco mostró el verdadero autor...

[MODO IRÓNICO]Este chaval es todo un programador... xD[/MODO IRÓNICO]

[Split]

Con la función Split.

Código (vb) [Seleccionar] Expandir

Dim A As String
Dim v As Variant

A = "Clean /e /r"
v = Split(A, " ")

'v(0) = Clean
'v(1) = /e
'v(2) = /r
'Ejemplo:
Dim i As Integer
For i = 0 To 2
   MsgBox v(i) & " es el parámetro " & i
Next

Saludos!

aaronduran2 ha posteado mientras lo hacia yo, pero bueno ya te dejo el ejemplo

Está bien el ejemplo, la calidad de la imagen no es muy buena, pero la verdad es que ha de ser así para ganar velocidad de transferencia. La verdad es que está bien, es un buen ejemplo para capturar webcam sin usar controles externos!

Si lees el post, en la 2ª página del post que yo he puesto hay inyección en .exe, es un code que puso E0N lo que pasa es que si no leemos pues no podemos verlo xD

Y si no pones el source por qué lo posteas en el foro de VB???