Mensajes

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

Bueno al parecer ya lo resolvi con un metodo un poco mediaval pero al final da el resultado esperado.

Código (vb) [Seleccionar] Expandir


With ListView4
     Dim Idx As Long
     For e = 1 To flistview.TXTNumero.Text - 1
     If .ListItems(e).SubItems(14) = "Si" Then
        .ListItems(e).Selected = True
          CantidadGanada = CantidadGanada + .ListItems(e).SubItems(12)
          NewsOuts = NewsOuts + 1
     Else
          NewsAdds = NewsAdds + 1
     End If
     Go1 = Go1 + 1
     If Go1 = .ListItems.Count Then
          GoTo Msgs
     End If
     Next e
End With

Msgs:
MsgBox ("Ingresados: " & NewsAdds)
MsgBox "Salidos: " & NewsOuts
MsgBox "Total de dinero: " & CantidadGanada
Gracias.

si ya los tenia reseteados

Código [Seleccionar] Expandir

  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

Todo jala bien exepto

Código [Seleccionar] Expandir

  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

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 [Seleccionar] Expandir

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!

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.

Muy buena herramienta aver si la utilizo uno de estos dias
sige haci Leandro

lamento no poder ayudarte pero solo queria comentar que
muy buena pagina la de http://www.newocr.com/

gracias por decir un metodo

omg muchas gracias
lo calaree!!

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 [Seleccionar] Expandir


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 [Seleccionar] Expandir



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 ?