|
612
|
Programación / Programación Visual Basic / Limitar decimales y winsock
|
en: 28 Junio 2005, 21:50 pm
|
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 : 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
|
|
|
613
|
Programación / Programación Visual Basic / Re: PROTEGER APLICACION
|
en: 28 Junio 2005, 19:13 pm
|
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 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: <?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
|
|
|
619
|
Programación / Programación Visual Basic / Compresion del ejecutable.
|
en: 8 Junio 2005, 23:37 pm
|
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
|
|
|
620
|
Programación / Programación Visual Basic / Re: Problema con Listview
|
en: 2 Junio 2005, 16:19 pm
|
Y donde tengo que poner eso? cada vez que quiero añadir algo? 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???
|
|
|
|
|
|
|