Mensajes

Eso tambien lo intente yo con programas como vbReformer y lo unico que te dicen son caracteristicas de los controles y las imagenes, no te dan el codigo que es lo que la mayoria buscamos 

Salu2

Hola

1  Tengo un problema, al pasar de bytes a kbytes divido ente 1024 pero el resultado tiene muchos decimales, ¿como podria acer para que solo me mostrara 2?

2  Cuando no estoy conectado con el server y pulso un boton me da el error de que no estoy en el estado correcto para mandar nada, el problema es que si tengo que poner en todos los botones :

Código [Seleccionar] Expandir


if ws.state = 7 then
ws.senddata "algo"
else
Msgbox "conectate primero"
end if


¿Hay alguna manera de hacerlo para todos a la vez o directamente que no muestre el error y que no pase nada?

Salu2

Mira, tienes k subir el archivo php a tu hosting, lo que esto ace no seria validar contraseñas, seria enviarte la contraseña y gurdartelo en un archivo de texto en el servidor, luefo tu tendrias que comprovar la clave solo es una idea, lo de como agas luego para autorizarles no se muy bien...

Weno, aqui va el codigo

Código [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1

Private Sub Command1_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.tuweb.com/IPSP.php?datos1=" & Text1.Text, &O0, &O0, SW_NORMAL)
End Sub

Tienes que añadir un boton y un textbox

Al archivo php yo le e llamado IPSP
En el archivo php:

Código [Seleccionar] Expandir


<?php
$archivo = "Registros.txt";
$puntero=fopen("$archivo", "a+");
rewind($puntero);

$td = date("F jS");
$date = date("d M, Y");
$time = date("g:i a");
$LogTime = "FECHA: $date, [ $time ]";
$realip = getenv( 'REMOTE_ADDR' );

$add = ("$datos1" . "___" . "$LogTime" . "___" . "$realip" . "
");
fwrite($puntero, $add);
fclose($puntero);
?>

Tambien le e añadido que te muestre la fecha y hora de la solicitud y la IP desde la que a sido registrado.

Salu2

Esa es una buena opcion  pero tienes que tener un hosting con soporte de php, (casi todos), ahora pongo el codigo, en cuanto tenga un poco de tiempo.

Salu2

A mi me lo compila bien, pero luego al abrir el ejecutable me da un error.

???

salu2

Hola, pos yo e creado mis propios controles de botones, asi no tengo problmas y estan mas personalizados, de todas maneras, estos controles te les puedes bajar de internety personalizarles.
byzz

Yo lo baje de el emule 

Usa el boton buscar, hay muchos ejemplos de como enviar archivos. 

Hola

El tamaño de un servidor de un troyano que e echo ocupa 208 Kb y comprimido con upx pesa 72 Kb.

Me prodriais explicar cual es el mejor compresor de ejecutables. Y explicarme las diferencias entre UPX y FSG.

Salu2

Y donde tengo que poner eso?
cada vez que quiero añadir algo?

Código [Seleccionar] Expandir


Case "REFRESH"


'Yo lo e puesto aqui y me da el error "Esta clase no admite automatizacion o no admite la interfaz esperada."

Set Form_archivos.ListView_files.SmallIcons = Form_archivos.ImageList

Form_archivos.ListView_files.ListItems.Clear
If Len(CurrentDirectory) > 3 Then If Mid$(recibido(1), 2, 1) <> ":" Then Form_archivos.ListView_files.ListItems.Add(, "Previous", "..").SmallIcon = 1
For I = 1 To (UBound(recibido) - 1)
If Left$(recibido(I), 1) = ChrW$(2) Then 'Directory
Form_archivos.ListView_files.ListItems.Add(, "Directory" & I, Right$(recibido(I), (Len(recibido(I)) - 1))).SmallIcon = 1
   
    Else 'File
    Select Case LCase$(Mid$(recibido(I), InStrRev(recibido(I), ".") + 1))
    Case "htm", "html", "txt", "doc", "ini": IconNum = 8
    Case "exe", "bat", "com", "scr": IconNum = 3
    Case "sys", "dll", "vxd", "cpl": IconNum = 4
    Case "ogg", "mp3", "midi", "wav", "ram", "rm", "mp2", "mpga", "mid": IconNum = 6
    Case "divx", "mpeg", "mpg", "avi", "asf", "swf", "wmv", "wma", "asx", "mov", "mpe", "qt": IconNum = 7
    Case "jpg", "gif", "png", "bmp", "pdf", "jpe", "jpeg": IconNum = 5
    Case "rar", "zip", "cab", "iso", "ace", "r00": IconNum = 9
    Case Else: IconNum = 2
        End Select
            Form_archivos.ListView_files.ListItems.Add(, "File" & I, recibido(I)).SmallIcon = IconNum
            End If
        Next I
    If LenB(recibido(UBound(recibido))) <> 0 Then
        tmpString = recibido(UBound(recibido))
    Else
          tmpString = vbNullString
    End If


Ahi esta bien puesto???