Temas

Antes de seguir me gustaria saber si ahi algun problema al tratar el tema de hackear los usuarios o perfiles de Aspel......

Me gustaria que un moderador opinara antes de postear algo de codigo o algo asi....

Estoy tratando de crear una aplicacion que logre esto...

Pero aun tengo unas dudas y me gustria que entre todos podamos hacer algo....

desde ya gracias

Hola a toda la comunidad.......

De antemano gracias a los que me puedan ayudar....

Tengo el siguiente problema... estoy haciendo un sistema como proyecto final en la escuela, todo va bastante bien, el problema es que el sistema maneja un ciber-cafe y debe de tener la opcion de apagar los equipo remotamente.... lo intente con

Código (vb) [Seleccionar] Expandir

Shell "shutdown -s -f -t 0 -m //(nombre del equipo)

pero no me funciono...... entonces estoy haciendo varios clientes (para las maquinas que se rentan) y un servidor. Mi duda es como con un servidor manejo varios clientes por que si utilizo el mismo cliente en varias maquinas, los datos que mando desde el servidor le llegan solo a una maquina y las demas se pasman (se traban) y la verdad no tengo ni idea de como solucionar ese problema...... si alguien me puede ayudar de antemano gracias 

por cierto lo unico que mando al cliente desde el servidor es un dato booleano que si es TRUE ejecuta la instruccion...

Código (vb) [Seleccionar] Expandir

Shell "Shutdown -s -f -t 0

con esto me evito el "-m" y ya no tengo acceso denegado.... la maquina se apaga sola y no se apaga desde la red...

Hola a todos:

Tengo una enorme pregunta estoy haciendo un pequeño sistema pero necesito que sea visible en la barra de tareas (sysTray creo se llama), hasta ahi todo bien

El problema es que quiero que aparezca un menu contextual al dar clic derecho sobre el icono de notificacion.... alguien podria asesorarme.

De antemano muchas gracias

este es mi codigo:

Código (vb) [Seleccionar] Expandir


Option Explicit
'Estructura NOTIFYICONDATA para usar con Shell_NotifyIcon
Private Type NOTIFYICONDATA
   cbSize As Long
   hWnd As Long
   uID As Long
   uFlags As Long
   uCallbackMessage As Long
   hIcon As Long
   szTip As String * 128
   dwState As Long
   dwStateMask As Long
   szInfo As String * 256
   uTimeout As Long
   szInfoTitle As String * 64
   dwInfoFlags As Long
End Type

'Variable para la estructura anterior
Private sysTray As NOTIFYICONDATA


'Constantes
Private Const NOTIFYICON_VERSION = 3
Private Const NOTIFYICON_OLDVERSION = 0

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

Private Const NIM_SETFOCUS = &H3
Private Const NIM_SETVERSION = &H4

Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const NIF_STATE = &H8
Private Const NIF_INFO = &H10

Private Const NIS_HIDDEN = &H1
Private Const NIS_SHAREDICON = &H2

Private Const NIIF_NONE = &H0
Private Const NIIF_WARNING = &H2
Private Const NIIF_ERROR = &H3
Private Const NIIF_INFO = &H1
Private Const NIIF_GUID = &H4

Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLK = &H206

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private Sub Form_Activate()
Dim msj_txt As String
Dim msj_titulo As String
msj_txt = "Bienvenido a KeepMe. La aplicación está ahora en ejecución"
msj_titulo = "Sistema KeepMe"

With sysTray
        .cbSize = Len(sysTray)
        .hWnd = Me.Picture1.hWnd
        .uID = vbNull
        .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = Me.Picture1.Picture
        .szTip = " Acá colocar el toolTip " & vbNullChar
        .dwState = 0
        .dwStateMask = 0
   End With
   
   'Notifica en el systray
   Shell_NotifyIcon NIM_ADD, sysTray
   
   
With sysTray
        .cbSize = Len(sysTray)
        .hWnd = Picture1.hWnd
        .uID = vbNull
        .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = Me.Picture1
        .szTip = "KeepMe Activado" & vbNullChar
        .dwState = 0
        .dwStateMask = 0
        .szInfo = msj_txt & Chr(0)
        .szInfoTitle = msj_titulo & Chr(0)
        .dwInfoFlags = NIIF_INFO
        .uTimeout = 100
   End With
   'Modifica el ícono con la información
   Shell_NotifyIcon NIM_MODIFY, sysTray

End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, sysTray
End Sub


Hola a todos los que lean este y de antemano gracias por la ayuda que puedadn brindar.

Mi pregunta es como hago para que el escritorio se obscuresca. Algo asi como cuando configuras un tema en Windows XP y el escritorio se obscurece por unos mommentos.

Gracias por su ayuda

Hola y antes que nada gracias por su ayuda.
Mi pregunta es estoy realizando un programam en vb que te realice calculoas matematicas como permutaciones combinacion probabilidad y cosas por el estilo, pero me gustaria crear graficos en excel.

Mi pregunta es como puedo hacer una grafica en excel ya teniendo los datos en vb.

De ante mano gracias

Hola y de antemano gracias.

Tengo el siguiente codigo para crear un archivo ".txt"

Código (vb) [Seleccionar] Expandir


Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("C:\Prueba1.txt", True)
tf.WriteLine "HOLA"
tf.Close

Pero el problema es que si vuelvo a correr el programa se vuelve a crear el archivo y lo que a mi me gustaria es que lo abra y siga escrbriendo en el. Alguien sabe como.

Gracias

[Pues mas que nada eso alguien sabe como obtener la imagen del usuario que ha iniciado sesion.]

Pues mas que nada eso alguien sabe como obtener la imagen del usuario que ha iniciado sesion.

Mi duda es la siguiente ¿como mando datos de un exe a otro exe?, es decir al yo dar clic en un boton del exe1 y que me genere, no se un numero aleatorio o lo que sea pero que me mande el resultado del proceso a un cuadro de texto del exe2.
Espero y me explique bien

Esto talves sonara tonto pero.......
Alguien sabe como pasar al final de un listbox
Gracias de antemano

De entrada gracias por leer esto. Mi pregunta es la siguiente.
Hice un programa que genera todas las combinaciones posibles con "2" "3" "4" "5" "6"  y "7" caracteres el problema es que tarda demasiado alguien sabe como acelerar el proceso. este es el codigo.
Necesita 11 LABEL
Un listbox
Un timer con intervalo de 100 (inicia enabled "false")
Y tres botones

Código (vb) [Seleccionar] Expandir


Public mil As Integer
Public seg As Integer
Public min As Integer
Public hor As Integer
Public cont As Long
Public detener As Boolean
Private Sub Command1_Click()
'Programa que genera todas las combinaciones posibles con "2","3","4","5","6", y "7"
'caracteres el metodo es un poco tardado pero solo asi he logrado generarlo
'Si deseas que se formen combinaciones con mas de "7" caracteres solo sigue la misma
'estructura
'Creado por Sergio Uziel Tovar Lemus
Timer1.Enabled = True
Label5.Caption = "Procesando"
Command2.Enabled = False
Command3.Enabled = True
detener = False
cont = 0
'Comienza a generar combinaciones con dos caracteres
For chr_uno = Asc("a") To Asc("z")
    For chr_dos = Asc("a") To Asc("z")
    List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
    cont = cont + 1
    Label2.Caption = cont
       If detener = True Then
          Command2.Enabled = True
          Command3.Enabled = False
          MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
          mil = 0
          seg = 0
          min = 0
          hor = 0
          Label6.Caption = "Horas:        " & hor
          Label7.Caption = "Minutos:      " & min
          Label8.Caption = "Segundos:  " & seg
          Label9.Caption = "Milesimas:   " & mil
          List1.Clear
          Label2.Caption = List1.ListCount
          Label5.Caption = "Detenido por el usuario"
          ProgressBar1.Value = 0
          Exit Sub
       End If
    DoEvents
    Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Ahora hace las combinaciones con tres caracteres
For chr_uno = Asc("a") To Asc("z")
    For chr_dos = Asc("a") To Asc("z")
         For chr_tres = Asc("a") To Asc("z")
         List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
         cont = cont + 1
         Label2.Caption = cont
            If detener = True Then
               Command2.Enabled = True
               Command3.Enabled = False
               MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
               mil = 0
               seg = 0
               min = 0
               hor = 0
               Label6.Caption = "Horas:        " & hor
               Label7.Caption = "Minutos:      " & min
               Label8.Caption = "Segundos:  " & seg
               Label9.Caption = "Milesimas:   " & mil
               List1.Clear
               Label2.Caption = List1.ListCount
               Label5.Caption = "Detenido por el usuario"
               ProgressBar1.Value = 0
               Exit Sub
            End If
         DoEvents
         Next chr_tres
    DoEvents
    Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Ahora hace las combinaciones con cuatro caracteres
For chr_uno = Asc("a") To Asc("z")
    For chr_dos = Asc("a") To Asc("z")
         For chr_tres = Asc("a") To Asc("z")
             For chr_cuatro = Asc("a") To Asc("z")
             List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
             cont = cont + 1
             Label2.Caption = cont
                If detener = True Then
                   Command2.Enabled = True
                   Command3.Enabled = False
                   MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
                   mil = 0
                   seg = 0
                   min = 0
                   hor = 0
                   Label6.Caption = "Horas:        " & hor
                   Label7.Caption = "Minutos:      " & min
                   Label8.Caption = "Segundos:  " & seg
                   Label9.Caption = "Milesimas:   " & mil
                   List1.Clear
                   Label2.Caption = List1.ListCount
                   Label5.Caption = "Detenido por el usuario"
                   ProgressBar1.Value = 0
                   Exit Sub
                End If
             DoEvents
             Next chr_cuatro
         DoEvents
         Next chr_tres
    Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Ahora comenzamos con cinco caracteres
For chr_uno = Asc("a") To Asc("z")
    For chr_dos = Asc("a") To Asc("z")
         For chr_tres = Asc("a") To Asc("z")
             For chr_cuatro = Asc("a") To Asc("z")
                 For chr_cinco = Asc("a") To Asc("z")
                 List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
                 cont = cont + 1
                 Label2.Caption = cont
                    If detener = True Then
                       Command2.Enabled = True
                       Command3.Enabled = False
                       MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
                       mil = 0
                       seg = 0
                       min = 0
                       hor = 0
                       Label6.Caption = "Horas:        " & hor
                       Label7.Caption = "Minutos:      " & min
                       Label8.Caption = "Segundos:  " & seg
                       Label9.Caption = "Milesimas:   " & mil
                       List1.Clear
                       Label2.Caption = List1.ListCount
                       Label5.Caption = "Detenido por el usuario"
                       ProgressBar1.Value = 0
                       Exit Sub
                    End If
                 DoEvents
                 Next chr_cinco
             DoEvents
             Next chr_cuatro
         DoEvents
         Next chr_tres
    Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Con seis caracteres
For chr_uno = Asc("a") To Asc("z")
    For chr_dos = Asc("a") To Asc("z")
         For chr_tres = Asc("a") To Asc("z")
             For chr_cuatro = Asc("a") To Asc("z")
                 For chr_cinco = Asc("a") To Asc("z")
                     For chr_seis = Asc("a") To Asc("z")
                     List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
                     cont = cont + 1
                     Label2.Caption = cont
                         If detener = True Then
                            Command2.Enabled = True
                            Command3.Enabled = False
                            MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
                            mil = 0
                            seg = 0
                            min = 0
                            hor = 0
                            Label6.Caption = "Horas:        " & hor
                            Label7.Caption = "Minutos:      " & min
                            Label8.Caption = "Segundos:  " & seg
                            Label9.Caption = "Milesimas:   " & mil
                            List1.Clear
                            Label2.Caption = List1.ListCount
                            Label5.Caption = "Detenido por el usuario"
                            ProgressBar1.Value = 0
                            Exit Sub
                         End If
                     DoEvents
                     Next chr_seis
                 DoEvents
                 Next chr_cinco
             DoEvents
             Next chr_cuatro
         DoEvents
         Next chr_tres
    Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Finalmente con siete
For chr_uno = Asc("a") To Asc("z")
    For chr_dos = Asc("a") To Asc("z")
         For chr_tres = Asc("a") To Asc("z")
             For chr_cuatro = Asc("a") To Asc("z")
                 For chr_cinco = Asc("a") To Asc("z")
                     For chr_seis = Asc("a") To Asc("z")
                         For chr_siete = Asc("a") To Asc("z")
                         List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
                         cont = cont + 1
                         Label2.Caption = cont
                            If detener = True Then
                               Command2.Enabled = True
                               Command3.Enabled = False
                               MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
                               mil = 0
                               seg = 0
                               min = 0
                               hor = 0
                               Label6.Caption = "Horas:        " & hor
                               Label7.Caption = "Minutos:      " & min
                               Label8.Caption = "Segundos:  " & seg
                               Label9.Caption = "Milesimas:   " & mil
                               List1.Clear
                               Label2.Caption = List1.ListCount
                               Label5.Caption = "Detenido por el usuario"
                               ProgressBar1.Value = 0
                               Exit Sub
                            End If
                         DoEvents
                         Next chr_siete
                     DoEvents
                     Next chr_seis
                 DoEvents
                 Next chr_cinco
             DoEvents
             Next chr_cuatro
         DoEvents
         Next chr_tres
    Next chr_dos
DoEvents
Next chr_uno
Command2.Enabled = True
ProgressBar1.Value = ProgressBar1.Value + 18.3
Label5.Caption = "Terminado"
Timer1.Enabled = False
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas:        " & hor
Label7.Caption = "Minutos:      " & min
Label8.Caption = "Segundos:  " & seg
Label9.Caption = "Milesimas:   " & mil
MsgBox "El proceso ha terminado satisfactoriamente." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas:        " & hor
Label7.Caption = "Minutos:      " & min
Label8.Caption = "Segundos:  " & seg
Label9.Caption = "Milesimas:   " & mil
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido por el usuario"
ProgressBar1.Value = 0
End Sub

Private Sub Command2_Click()
Label5.Caption = "Limpiando"
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido"
End Sub

Private Sub Command3_Click()
detener = True
Timer1.Enabled = False
End Sub

Private Sub Command8_Click()

End Sub

Private Sub Command9_Click()

End Sub

Private Sub Form_Load()
Label1.Caption = "combinaciones generadas: "
Label2.Caption = List1.ListCount
Label6.Caption = "Horas:        " & hor
Label7.Caption = "Minutos:      " & min
Label8.Caption = "Segundos:  " & seg
Label9.Caption = "Milesimas:   " & mil
End Sub

Private Sub Timer1_Timer()
mil = mil + 1
Label6.Caption = "Horas:        " & hor
Label7.Caption = "Minutos:      " & min
Label8.Caption = "Segundos:  " & seg
Label9.Caption = "Milesimas:   " & mil
If mil = 10 Then
mil = 0
seg = seg + 1
  If seg = 60 Then
   seg = 0
   min = min + 1
       If min = 60 Then
       min = 0
       hor = hor + 1
       End If
   End If
End If
End Sub