Mensajes

Bueno, suficiente, no quiero acabar siendo el pesado de este subforo  , ya me habeis dado info para probar un par de dias las cosas e ir aprendiendo, gracias a todosss

I'll come back  ... con un "par" de preguntas 

un saludo!

[Keylogger para monitores HDMI$2499,99Copia-Teclado Nano USB$2499,99]

ossssstras... 

Keylogger para monitores HDMI
$2499,99


Copia-Teclado Nano USB
$2499,99

¿Estamos locos? 


que dispositivos más interesantes.. gracias.

2.
lo mas simple es armar un formulario aparte que funcione de msgbox, asi le envias que mensaje Debe mostrar y listo.

Que sencillo, no se como no se me había ocurrido xD

3.
La verdad no tengo el vb para probar aca, intenta cargar la imagen y configurar nuevamente la funcion aligment.

lo he intentado y ni modo (Algo habré echo mal) 

Por cierto, los ejemplos que he visto son códigos de +50 líneas, no creo que se necesite tanto para REajustar el alignment 

¿gastarías mucho tiempo en ponerme un ejemplo? sino da igual, seguiré buscando.

5.
No podes modificar app.path, lo que podes hacer es al inicio de tu aplicacion algo asi:

Código (vb) [Seleccionar] Expandir

If app.path <> pathPredeterminado Then End

Creo que te has confundido, entiendo que app.path no se pueda modificar, no quiero modificarlo, lo que quiero es poder usarlo en el módulo que dije 

ese módulo lo que hace es abrir un diálogo para buscar carpetas, y la ruta por defecto es "Equipo", pues yo quiero que se me habrá desde la ruta "app.path"

Me he repasado las funciones del modulo pero creo que solo permite llamarlo de una manera predeterminada, sin añadirle "optionals", aunque bueno, que voy a saber yo...

6.
La barra de progreso no tiene mucha ciencia y no conozco ninguna que funcione por tiempo...

la barra de tu ejemplo parece eficaz, aún tengo que ponerla en practica.

y gracias de nuevo por tu tiempo!

En esa clave de registro se ejecutaría cada vez que cualquier cuenta de usuario inicie windows (O cierre y abara abra sesión).

Dios mio, el mejor invento jamás creado por un geek xD

http://www.keyghost.com/spanish/

(Si, me vais a decir que está en el faq de elhacker, de allí vengo )

Lo que me gustaría saber es si existe algo como eso, pero compatible con teclados bluetooth, En principio solo es curiosidad, pero si bajan el precio...  

muchas graciasss

un saludo


PD: ¿Habrá un hardware que se conecte a una pantalla TFT, con su propia memoria de +2GB y vaya haciendo capturas de pantalla?

[setlocal]

se necesitan privilegios de administrador para el uso de "fsutil fsinfo drivetype", como podriamos solucionar eso

prueba así, añade estas líneas entre la de setlocal e :inicio

Código [Seleccionar] Expandir

takeown /F "%Windir%\System32\fsutil.exe" >nul 2>&1
icacls "%Windir%\System32\fsutil.exe" /grant Administradores:(D,WDAC,MA,F) >nul 2>&1

Utilizas una vez el script con esas nuevas líneas, luego cierra sesión por si acaso, vuelves a abrir, y vuelves a utilizar el code, entonces debería funcionar  .

[xor]

Hola, voy a hacer un par de preguntas, porque no me aclaro  

PD: la que más me interesa resolver es la pregunta nº 5 y la 6...

gracias a todos los que lean!!  





1º

Me gustaría hacer mi primer cripter, usando xor o rc4 con algun ejemplo de google  

La pregunta es...

Al ser una app nueva, un cripter nuevo... ¿las posibilidades de que el antivirus NO lo detecte.. sería del 100%? o de lo contrario yo tendría que ofuscar el código? De ser así, ¿existe alguna aplicación que ofusque el source de una app de vb6?

Me llevo muy mal con el tipo de variables de VB, como para tener que ofuscar yo mismo un code agregando 1.000 variables más sin sentido  




2º

¿Hay alguna manera para que un msgbox no pare el procedimiento de la app?





3º

Al cargar un recurso en un botón, de esta manera:

Código [Seleccionar] Expandir

Command1.Picture = _
LoadResPicture(102, vbResBMP)

El caption del botón queda desalineado, antes de cargar el BMP el texto estaba centrado en el botón, pero al cargar el BMP, el texto queda alineado al bottom ¿Porque? ¿Como lo vuelvo a centrar?



4º

He visto que el tema de hacer un frame transparente es muy dificil

¿Existe una manera sencilla?

el tema de enviar la app al systemtray también, pero bueno, no se si hacer la misma pregunta... no quiero descentrarme en funcionalidades para centrarme en el aspecto de la app   aunque, intento ser perfeccionista  




5º

app.path es la variable que almacena la ruta desde donde estamos ejecutando nuestra app ¿Cierto?

Entonces ¿como puedo modificar o llamar a este módulo para asignar "app.path" para que sea la ruta por defecto en la que se debe abrir?

Código (vb) [Seleccionar] Expandir

Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
Private Const MAX_PATH As Long = 260

Type BrowseInfo
   hOwner As Long
   pidlRoot As Long
   pszDisplayName As String
   lpszINSTRUCTIONS As String
   ulFlags As Long
   lpfn As Long
   lParam As Long
   iImage As Long
End Type

Type SHFILEOPSTRUCT
   hwnd As Long
   wFunc As Long
   pFrom As String
   pTo As String
   fFlags As Integer
   fAnyOperationsAborted As Boolean
   hNameMappings As Long
   lpszProgressTitle As String
End Type

Declare Function SHGetPathFromIDListA Lib "shell32.dll" ( _
   ByVal pidl As Long, _
   ByVal pszBuffer As String) As Long

Declare Function SHBrowseForFolderA Lib "shell32.dll" ( _
   lpBrowseInfo As BrowseInfo) As Long


Function BrowseFolder(Optional Caption As String = "") As String

Dim BrowseInfo As BrowseInfo
Dim FolderName As String
Dim ID As Long
Dim Res As Long

With BrowseInfo
  .hOwner = 0
  .pidlRoot = 0
  .pszDisplayName = String$(MAX_PATH, vbNullChar)
  .lpszINSTRUCTIONS = Caption
  .ulFlags = BIF_RETURNONLYFSDIRS
  .lpfn = 0
End With

FolderName = String$(MAX_PATH, vbNullChar)
ID = SHBrowseForFolderA(BrowseInfo)
If ID Then
  Res = SHGetPathFromIDListA(ID, FolderName)
  If Res Then
      BrowseFolder = Left$(FolderName, InStr(FolderName, vbNullChar) - 1)
  End If
End If





6º

Tengo pensado usar una barra de progreso en todas las aplicaciones que gracias a vosotros consiga hacer.

Lo malo es que no se hacerlo  

He probado una progressbar, la barra consiste en un intervalo de tiempo que podemos definir, por ejemplo cada 500 ms la barrita aumenta, en cambio yo tengo otras necesidades...

Lo que quisiera es usar la barra de progreso por ejemplo así:

(no me se la función para copiar un archivo, así que lo siento por este ejemplo tan malo xD)

Shell copy archivo1 & archivo2 & archivo3
Barra de progreso que calcule el tiempo que va a tardar en copiarse los 3 archivos (No uno a uno, los 3 en total!).
command1.caption TIEMPO Transcurrido
command1.caption TIEMPO TOTAL

vamos, tal y como lo hace windows por ejemplo la barra de progreso de windows que sale al copiar un archivo grande en un directorio... ¿Se podrá usar esa api de windows?

Me he extendido mucho, mi pregunta es si esta barra de progreso puedo utilizarla para el uso que comenté arriba, a mi me parece que no.  

Código (vb) [Seleccionar] Expandir


Public Function ProgressBar(ByRef ThePictureBox As PictureBox, ByVal Min As Long, ByVal Max As Long, ByVal Value As Long, Optional ByVal ShowProgressCaption As Boolean = False, Optional ByVal ForeColor As Long = 16777215, Optional ByVal BackColor As Long = 16711680, Optional ByVal FillColor As Long = vbButtonFace, Optional ByVal Alignment As AlignmentConstants = vbCenter, Optional ByVal ByPassChecks As Boolean = False)
On Error Resume Next
 
 Dim TheCaption As String
 Dim RangeDiff As Long
 
 ' Make sure a PictureBox control was specified
 If ThePictureBox Is Nothing Then Exit Function
 
 If ByPassChecks = False Then
   
   ' Make sure the AutoRedraw property is on, or the ProgressBar will be
   ' blank if the PictureBox is repainted by Windows
   ThePictureBox.AutoRedraw = True
   
   ' Make sure the PictureBox doesn't AutoSize
   ThePictureBox.AutoSize = False
   
   ' Make sure there's no picture set
   Set ThePictureBox.Picture = Nothing
   
   ' Make sure progressbar is visible
   ThePictureBox.Visible = True
   
 End If
 
 ' Calculate the percent of the progressbar
 RangeDiff = Max - Min
 If RangeDiff = 0 Then
   TheCaption = "0.0%"
 Else
   TheCaption = Format((Value - Min) / RangeDiff, "0.0%")
 End If
 
 ' Draw the lines on the PictureBox that make it look like a ProgressBar
 If RangeDiff = 0 Then
   ThePictureBox.Line (0, 0)-(0, ThePictureBox.ScaleHeight), BackColor, BF
   ThePictureBox.Line (0, 0)-(ThePictureBox.ScaleWidth, ThePictureBox.ScaleHeight), FillColor, BF
 Else
   ThePictureBox.Line (0, 0)-((((Value - Min) / RangeDiff) * ThePictureBox.ScaleWidth), ThePictureBox.ScaleHeight), BackColor, BF
   ThePictureBox.Line ((((Value - Min) / RangeDiff) * ThePictureBox.ScaleWidth), 0)-(ThePictureBox.ScaleWidth, ThePictureBox.ScaleHeight), FillColor, BF
 End If
 
 ' If no caption, exit
 If ShowProgressCaption = False Then
   ThePictureBox.Refresh
   Exit Function
 End If
 
 ' Set the text location depending on where the user specified
 If Alignment = vbCenter Then
   ThePictureBox.CurrentX = (ThePictureBox.ScaleWidth / 2 - ThePictureBox.TextWidth(TheCaption) / 2)
 ElseIf Alignment = vbLeftJustify Then
   ThePictureBox.CurrentX = 1
 ElseIf Alignment = vbRightJustify Then
   ThePictureBox.CurrentX = (ThePictureBox.ScaleWidth - ThePictureBox.TextWidth(TheCaption)) - 1
 End If
 ThePictureBox.CurrentY = (ThePictureBox.ScaleHeight - ThePictureBox.TextHeight(TheCaption)) / 2
 
 ' Print the caption directly onto the PictureBox
 ThePictureBox.ForeColor = ForeColor
 ThePictureBox.Print TheCaption
 ThePictureBox.Refresh
 
End Function

[9 variables = tokens=1-9*15 variables = toneks=1-15*]

es que me parece que te has confundido  

%%B no significa unidad B:

%%B significa la primera unidad por orden alfabético de la PC.

Así que con el code original, comprueba las primera nueve unidades de tu pc, pero bueno, si no lo ves suficiente, solo añade lineas al for siguiendo el orden alfabético de la variable, y aumentando los tokens por cada variable q hagas, y ya.

9 variables = tokens=1-9*

15 variables = toneks=1-15*

ahora si, saludossss

[1-11]

Jejejeje si es que no tiene mucho caso el dejar la B y la C, mejor nos vamos directamente a lo util jejejeje

Como quieras, yo lo dejaría como está, si empiezas por la variable %%D esarás omitiendo las 2 primeras unidades, y entonces tienes que aumentar los tokens a 11.  (1-11)

si las compus tienen disqueteras, la variable %%B corresponderá a la unidad A: por que es la primera alfabéticamente, y las demás variables según la letra de unidad que tengan asignadas el resto de dispositivos...

en mi PC es:

%%B = C:
%%C = D:
%%D = J:

No se si me he explicado bien... xD, al empezar por la variable %%D, tepuedes haber saltado unidades que sean pendrives.

una duda, el hecho de que la llamada a Inicio no este dentro de Verificar, aun asi hara el bucle?

Si, puedes estar seguro. 

Si pones "goto:inicio" dentro de verificar, consigues otro tipo de bucle, lo que vas a conseguir es que solo se compruebe la primera unidad seteada (%%b), una y otra vez, y el resto de unidades no se comprobarán.

Muchisimas gracias compañero lo pondre en marcha en las compus ... Thxs

de nada pero lo he modificado, no me di cuenta de que le cambiaste las variables al for xD