elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Mensajes
Páginas: [1] 2 3 4
1  Programación / Programación Visual Basic / VB6 Ayuda Bloquear el cambio de hora. en: 15 Enero 2012, 04:39 am
Hola
estoy haciendo un programa de cuentas y nesesito que el usuario no pueda cambiar
la hora del sistema y me gustaria si ustedes tienen algun API o codigo que me pueda servir
o si bien saben como bloquear el cambio de la hora en regedit osea
que no le tenga que picar nada al administrador de grupos ni nada de eso solo que sea mediante regedit o api asi podria leer desde vb6 la ruta y cambiarsela (regedit)

Muchas gracias de antemano :)
2  Programación / Programación Visual Basic / Re: Ayuda con leer un Listview en: 27 Diciembre 2011, 02:00 am
Bueno al parecer ya lo resolvi con un metodo un poco mediaval pero :) al final da el resultado esperado.

Código
  1. With ListView4
  2.     Dim Idx As Long
  3.     For e = 1 To flistview.TXTNumero.Text - 1
  4.     If .ListItems(e).SubItems(14) = "Si" Then
  5.        .ListItems(e).Selected = True
  6.          CantidadGanada = CantidadGanada + .ListItems(e).SubItems(12)
  7.          NewsOuts = NewsOuts + 1
  8.     Else
  9.          NewsAdds = NewsAdds + 1
  10.     End If
  11.     Go1 = Go1 + 1
  12.     If Go1 = .ListItems.Count Then
  13.          GoTo Msgs
  14.     End If
  15.     Next e
  16. End With
  17.  
  18. Msgs:
  19. MsgBox ("Ingresados: " & NewsAdds)
  20. MsgBox "Salidos: " & NewsOuts
  21. MsgBox "Total de dinero: " & CantidadGanada
Gracias.
3  Programación / Programación Visual Basic / Re: Ayuda con leer un Listview en: 26 Diciembre 2011, 22:03 pm
si ya los tenia reseteados
Código:
  Dim NewsAdds As Integer, NewsOuts As Integer, CantidadGanada As Integer
  AnchoCol = 0
  NewsAdds = 0
  NewsOuts = 0

pero ni asi :(

pff alguna otra idea o manera
4  Programación / Programación Visual Basic / Re: Ayuda con leer un Listview en: 26 Diciembre 2011, 16:18 pm
Todo jala bien exepto

Código:
  For e = 1 To flistview.TXTNumero.Text
     CantidadGanada = CantidadGanada + .ListItems(e).SubItems(12)
      If .ListItems(e).SubItems(14) = "Si" Then
      NewsOuts = NewsOuts + 1
      Else
            NewsAdds = NewsAdds + 1
      End If
     
  Next

 

Ya que si en el listview hay nadamas 6 "lineas se podria decir" y el TxTNumero = 50
me da resultados de 40+ :/ osea como que sige contando o no se pasa :/ alguna solucion para indentificar bien , algo mas exacto o presiso
5  Programación / Programación Visual Basic / Ayuda con leer un Listview en: 26 Diciembre 2011, 00:11 am
Hola bueno nesesito ayuda para leer el subitem de un listview y que me diga cuantos hay entrados y cuantos salidos y el precio total:

flistview.TXTNumero.Text = a la cantidad de listitems que tengo en un listview
.ListItems(e).SubItems(12) = al dinero que han pagado
.ListItems(e).SubItems(14) = (Si/No) Si son los salidos/pagados y No los que han entrado

Este es un codigo de como Imprimir un listview al parecer el codigo funciona bien
pero al momento de que quiero sumar y darle valores a NewAdds, NewOuts, Cantidad...
me salen cosas que no. :/
NewAdds = los que an entrado (los que tienen "No")
NewsOuts = los que an pagado los que se van (los que tienen "Si")
CantidadGanada = al dinero que an pagado los que se van (NewsOuts)

Código:
Public Sub Imprimir_ListView(ListView As ListView)

On Error Resume Next

Dim i As Integer, AnchoCol As Single, Espacio As Integer, X As Integer
Dim e As Integer, e2 As Integer
  Dim NewsAdds As Integer, NewsOuts As Integer, CantidadGanada As Integer
  AnchoCol = 0
  NewsAdds = 0
  NewsOuts = 0
  CantidadGanada = 0
  'Recorremos desde la primer columna hasta la última para almacenar el ancho total
  For i = 1 To ListView.ColumnHeaders.Count
     AnchoCol = AnchoCol + ListView.ColumnHeaders(i).Width
  Next
 
  Espacio = 0
 
 With ListView
   
  'Encabezado de ejemplo
  Printer.Print "Reporte Diario"
   Printer.Print "Del dia: " & Date
 
  Printer.Print
 
  'Imprime una línea
  Printer.Line (Printer.CurrentX, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY)
 
 
  'Acá se imprimen los encabezados del ListView
  For i = 1 To .ColumnHeaders.Count
      Espacio = Espacio + CInt(.ColumnHeaders(i).Width * Printer.ScaleWidth / AnchoCol)
      Printer.Print ListView.ColumnHeaders(i).Text;
      Printer.CurrentX = Espacio
     
  Next
 

  Printer.Print
 
  'Imprime una línea
  Printer.Line (Printer.CurrentX, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY)
 
  'Imprime Línea en blanco
  Printer.Print
 
  'Este bucle recorre los items y subitems del ListView  y los imprime
  For i = 1 To .ListItems.Count
       Espacio = 0
       
       Set Item = .ListItems(i)
       Printer.Print Item.Text;
       'Recorremos las columnas
       For X = 1 To .ColumnHeaders.Count - 1
             Espacio = Espacio + CInt(.ColumnHeaders(X).Width * Printer.ScaleWidth / AnchoCol)
             Printer.CurrentX = Espacio
             Printer.Print Item.SubItems(X);
       Next
       
       'Otro espacio en blanco
       Printer.Print
  Next
 
  For e = 1 To flistview.TXTNumero.Text
     CantidadGanada = CantidadGanada + .ListItems(e).SubItems(12)
      If .ListItems(e).SubItems(14) = "Si" Then
      NewsOuts = NewsOuts + 1
      Else
            NewsAdds = NewsAdds + 1
      End If
     
  Next

 
  Printer.Print
  'Imprime la línea de final de impresión
  Printer.Line (Printer.CurrentX, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY)
  Printer.Print
  'Texto del pie
  Printer.Print "Ingresados: " & NewsAdds
  Printer.Print "Salidos: " & NewsOuts
  Printer.Print "Total de dinero: " & CantidadGanada
    End With
  'Comenzamos la impresión
  Printer.EndDoc
End Sub


De antemano muchas gracias
Y Feliz Navidad!
6  Seguridad Informática / Análisis y Diseño de Malware / Re: Como Undetectar un Injector Dll en: 2 Mayo 2011, 20:14 pm
solo pon end al final del codigo desps de qe injecte

ejemplo:

Private Sub Msg()

Msgbox Test
end

End Sub

y con el end se cierra el programa.
7  Programación / Programación Visual Basic / Re: [Proyecto]Facebook Photo Uploader en: 9 Marzo 2011, 04:20 am
Muy buena herramienta :) aver si la utilizo uno de estos dias
sige haci Leandro :D
8  Programación / Programación Visual Basic / Re: Como Descifrar Captcha.. Casi Imposible en: 24 Febrero 2011, 07:21 am
lamento no poder ayudarte pero solo queria comentar que
muy buena pagina la de http://www.newocr.com/

:D gracias por decir un metodo :)
9  Programación / Programación Visual Basic / Re: Duda con winsock en: 20 Febrero 2011, 08:04 am
omg :P muchas gracias
lo calaree!! :D
10  Programación / Programación Visual Basic / Duda con winsock en: 20 Febrero 2011, 06:35 am
Hola :p jaja bueno
mm vengo aqui preguntandoles una cosa que como puedo hacer esque miren
mi idea es crear un server y que en ese server se conecten max 10 connections
bueno todo eso ya lo ise :)

lo qe tengo duda y quiero resolver es este
un ejemplo estan 4 Pcs connectados:

1,2,3,4 <- estan conectados al server entonces

1,2,4 <- el 3º se desconecta
 
y vuelve a entrar o entra otro nuevo (que valor agarraria? 5º o rellenaria el vacio osea que seria el 3º?)

tengo esa duda y pss si incrementa en mi connectionrequest tengo esto

Código:
Private Sub sockMain_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    If lblConnections.Caption = "10" Then
    sServerMsg = Time & " - " & "Cant accept more connections..."
    List1.AddItem (sServerMsg)
    List1.TopIndex = List1.ListCount - 1
    Else
   sServerMsg = "Connection request id " & requestID & " from " & sockMain(Index).RemoteHostIP
    List1.TopIndex = List1.ListCount - 1
  If Index = 0 Then
    List1.AddItem (sServerMsg)
    sRequestID = requestID
    intSockCnt = intSockCnt + 1
    lblConnections.Caption = intSockCnt
    Load sockMain(intSockCnt)
    'Socket(intSockCnt).LocalPort = 7575
    sockMain(intSockCnt).Accept requestID
    List1.TopIndex = List1.ListCount - 1
  End If
     End If

End Sub

bueno y quise hacer esto:
Código:

Private Sub sockMain_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error GoTo Erro
    If lblConnections.Caption = "10" Then
    sServerMsg = Time & " - " & "Cant accept more connections..."
    List1.AddItem (sServerMsg)
    List1.TopIndex = List1.ListCount - 1
    Else
   sServerMsg = "Connection request id " & requestID & " from " & sockMain(Index).RemoteHostIP
    List1.TopIndex = List1.ListCount - 1
  If Index = 0 Then
    List1.AddItem (sServerMsg)
    sRequestID = requestID
    intSockCnt = intSockCnt + 1
    lblConnections.Caption = intSockCnt
    Load sockMain(intSockCnt)
    'Socket(intSockCnt).LocalPort = 7575
    sockMain(intSockCnt).Accept requestID
    List1.TopIndex = List1.ListCount - 1
  End If
     End If
    'End If
     Exit Sub
     
Erro:
    Dim TryCnt As Integer
     For TryCnt = 1 To intSockCnt
        If sockMain(TryCnt).State = sckConnected Then
            Else
             intSockCnt = intSockCnt + 1
    lblConnections.Caption = intSockCnt
    Load sockMain(TryCnt)
    'Socket(intSockCnt).LocalPort = 7575
    sockMain(TryCnt).Accept requestID
    MsgBox "Encontrado" & TryCnt
        End If
    Next TryCnt

End Sub

esque sale error ya que si estan 1,2,3,4
y el 3º se sale y vuelve a entrar qeraria tomar el valor de 4
pero ya existe haci qe sale error :p
alguna idea :D?
Páginas: [1] 2 3 4
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines