|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - ROBER.29
Páginas: 1 ... 4 5 [6] 7 8 ... 17
126
« en: Lunes 2 de Febrero de 2004, 09:23 »
A mi también me parece muy buena idea.
Un saludo.
127
« en: Viernes 30 de Enero de 2004, 16:37 »
Gracias pero eso ya lo sabia.
Muchas gracias de todas formas.
Saludos.
128
« en: Viernes 30 de Enero de 2004, 11:53 »
Se pueden ejecutar comandos de MS-DOS de la siguiente forma: Option Explicit Private Const PROCESS_QUERY_INFORMATION = &H400 Private Const STILL_ACTIVE = &H103 Private Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _ As Long Private Declare Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) _ As Long Sub EsperarShell(sCmd As String) Dim hShell As Long Dim hProc As Long Dim codExit As Long ' ejecutar comando hShell = Shell(Environ$("Comspec") & " /c " & sCmd, 2) ' esperar a que se complete el proceso hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell) Do GetExitCodeProcess hProc, codExit DoEvents Loop While codExit = STILL_ACTIVE MsgBox "El comando ha acabado" End Sub Private Sub Command1_Click() EsperarShell (Text1.Text) End Sub
Este ejemplo está sacado de la siguiente página: http://support.microsoft.com/?scid=kb;es-es;E11075Es el truco 4. Un saludo.
129
« en: Viernes 30 de Enero de 2004, 11:44 »
Hola compañeros,
Como puedo ejecutar el comando regsvr32 desde código de Visual Basic?
Muchas gracias.
Saludos a todos.
130
« en: Jueves 29 de Enero de 2004, 12:13 »
La verdad es que es un tema bastante interesante y complejo a la vez. Oy por oy es casi implosible proteger tus aplicaciones lo único que se intenta es poner las cosas lo más complicadas posibles a los hackers para que de esta forma a lo mejor puedan a llegar a desistir.
Existe una librería para visual basic que está relacionada con los temas de criptografía y seguridad. Dicha dll es la CAPICOM.dll busca información en Internet que viene bastante y haz pruebas con tus aplicaciones.
Más no te puedo decir porque ahora mismo la verdad es que yo estoy haciendo pruebas con esa dll y estoy intentando realizar una protección para mis aplicaciones pero todavía no lo he conseguido, he conseguido que sea difícil pero no lo suficiente, ya que yo mismo he conseguido luego desproteger una de mis aplicaciones y piratearla. Además para cerciorarme mejor de si mi aplicación estaba bien protegida, la he puesto a pruebas con otros conocidos, ya que como yo conozco como la protejo me resultaba fácil desprotegerla, pero ellos también lo consiguieron aunque tardarón bastante más que yo.
Un saludo.
131
« en: Miércoles 28 de Enero de 2004, 09:27 »
Hola, Eso quedaría de la siguiente forma: Private m_MediaId As String Public Property GetMediaID() As String Get return m_MediaId End Get Set(ByVal Value As String) m_MediaId = Value End Set End Property
Saludos.
132
« en: Martes 27 de Enero de 2004, 09:31 »
Hola, El formulario tambien tiene el evento KeyPress. Por lo tanto: Private Sub Form_KeyPress(KeyAscii As Integer) Msgbox KeyAscii End Sub
Así sabrás el código Ascii de la tecla pulsada. Saludos.
133
« en: Viernes 23 de Enero de 2004, 12:04 »
La animación es un ejecutable o algo por el estilo, es decir que si tu esa animación la ejecutas se reproduce de forma automática sin necesidad de ninguna otra aplicación?
Por ejemplo, tu tienes un fichero que es una animación y haces doble clic sobre el y se reproduce?
Saludos.
134
« en: Miércoles 21 de Enero de 2004, 10:32 »
Hola,
Utiliza la API ShellExecute. Sería de la siguiente forma:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Dim Parameters AS String
Parameters = "nombre_archivo.dat.6"
ShellExecute Me.hwnd, "Open", "c:\Datos\Hidraulica\hidra2.exe ", Parameters, "C:\", SW_SHOWNORMAL
Saludos.
135
« en: Miércoles 14 de Enero de 2004, 10:07 »
Hola,
¿Alguien tiene documentación en espáñol sobre la librería CAPICOM.dll o alguien me puede explicar un poco como funciona?
Muchas gracias de antemano.
Saludos.
136
« en: Martes 13 de Enero de 2004, 16:24 »
Hola,
¿Me.CboDepartamento contiene ya todos los valores?
¿Qué es lo que contiene la columna 13?
¿Qué es lo que quieres hacer exactamente en ese combo?
Saludos.
137
« en: Lunes 12 de Enero de 2004, 13:38 »
Ya he encontrado la solución. Es de la siguiente forma: \'#VBIDEUtils#*********************************************** \' * Programmer Name : Waty Thierry \' * Web Site : www.geocities.com/ResearchTriangle/6311/ \' * E-Mail : waty.thierry@usa.net \' * Date : 28/06/99 \' * Time : 13:16 \' ******************************************************** \' * Comments : Showing the Properties dialog box \' * \' * This tip demonstrates how To use the Win32 API To \' * bring up the explorer properties \' * dialog box For a specified file. \' * This API Function has the same effect As Right \' * clicking On a file In Windows 95 And selecting properties. \' ************************************************** Option Explicit Private Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type Private Const SEE_MASK_INVOKEIDLIST = &HC Private Const SEE_MASK_NOCLOSEPROCESS = &H40 Private Const SEE_MASK_FLAG_NO_UI = &H400 Private Declare Function ShellExecuteEX Lib \"shell32.dll\" Alias \"ShellExecuteEx\" (SEI As SHELLEXECUTEINFO) As Long Public Function ShowProps(FileName As String, OwnerhWnd As Long) As Boolean \'USAGE: \'To show the properties dialog box of \"c:\\autoexec.bat\", use the following code: \'Call ShowProps(\"c:\\autoexec.bat\", Me.hwnd) \'Function will return false if \'property windows can\'t be shown for \'any reason (e.g., invalid file or Ownerhwnd) On Error Resume Next Dim SEI As SHELLEXECUTEINFO Dim r As Long With SEI .cbSize = Len(SEI) .fMask = SEE_MASK_NOCLOSEPROCESS Or _ SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI .hwnd = OwnerhWnd .lpVerb = \"properties\" .lpFile = FileName .lpParameters = vbNullChar .lpDirectory = vbNullChar .nShow = 0 .hInstApp = 0 .lpIDList = 0 End With r = ShellExecuteEX(SEI) ShowProps = r End Function
Saludos.
138
« en: Lunes 12 de Enero de 2004, 13:02 »
Alguien sabe si existe una forma de poder utilizar la ventana de propiedades de un fichero del windows en nuestras aplicaciones?
He estado buscando si existía alguna API específica pero no la ha encontrado. Supongo q existirá alguna a la cual se la pase la ruta de un fichero y nos muestre la ventana de windows con las propiedades del mismo.
Gracias por su atención.
Saludos.
139
« en: Miércoles 7 de Enero de 2004, 16:22 »
Hola, Me lo podrías enviar el manual a mi correo? Mi correo es GARCI_20@hotmail.comMuchas gracias. Saludos.
140
« en: Miércoles 7 de Enero de 2004, 09:26 »
No se exactamente lo que quieres hacer pero podrías almacenar los datos que te devuelve la consulta en un array bidimensional.
Saludos.
141
« en: Viernes 26 de Diciembre de 2003, 13:16 »
Feliz Navidad a todos. Espero que le año que viene sea un buen año para todos.
Saludos.
142
« en: Lunes 22 de Diciembre de 2003, 13:52 »
Muchas gracias por tu ayuda.
Lo he probado y funciona correctamente.
Saludos.
143
« en: Viernes 19 de Diciembre de 2003, 17:45 »
En la aplicación que estoy haciendo estoy intentando protegerla utilizando RSA y firma digital para ello necesito saber el numero de serie de la bios.
He estado buscando información y he leido en algunas páginas que con visual basic no era posible obtener el número de serie de la bios y que una posible forma de hacerlo sería utilizar un programa en hecho en C para obtener el número de serie introducirlo en un fichero de texto y desde visual basic leer el fichero para obtenerlo.
¿Alguno sabeis si es posible obtener el número de serie de la bios?
Yo voy a seguir buscando si al final lo encuentro os lo comunicaré pero si alguien sabe como hacerlo les agradecería que me lo dijeran.
Muchas gracias.
Saludos.
144
« en: Jueves 18 de Diciembre de 2003, 10:17 »
Hola, Te lo puedes descargar de esta página: http://msdn.microsoft.com/vstudio/download...1/download.aspxDe todas formas, yo para crear las instalaciones de las aplicaciones que realizo con Visual Basic 6.0 utilizo el programa Setup Factory 6.0, que realmente a mi me parece muy bueno y con el cual, todas las aplicaciones que he instalado con el setup generado por dicho programa han funcionado correctamente. Antes de utilizar este programa probe otros, entre ellos el empaquetador de visual basic 6.0 y algunas de las apliaciones que instalaba no funionaban luego correctamente porque me faltaban algunas dll o algún ocx, por eso desde que probé este programa y vi que funcionaba correctamente no he dejado de utilizarlo. El único inconveniente es que el Setup Factory 6.0 es de pago y cuesta casi 400 $. Saludos.
145
« en: Lunes 15 de Diciembre de 2003, 09:41 »
Aquí te pongo una función que hice hace tiempo para validar fechas, la función la utilice en ASP o sea que seguro que hay alguna variable que no he declarado y que me falta de poner el tipo de dato pero eso ya lo revisas y lo pones tú. 'Función que comprueba si una fecha es válida. Devuelve: ' 0 -> si es nula o esta vacía ' 1 -> Si la fecha es incorrecta ' 2 -> Si la fecha es válida ' Parámetros: ' Fecha -> contiene la fecha que vamos a validar ' Tipo -> Variable que determina el tipo de fecha a validar. Puede ser: ' 0 -> Cualquier fecha ' 1 -> Entre el año actual menos 100 Function Validar_Fecha(Fecha, Tipo) As byte Dim Con, Dia, Mes, Anyo If Trim(Fecha) <> "" Then If Len(Fecha) <> 10 Then Validar_Fecha = 1 Exit Function End If If Mid(Fecha, 3, 1) <> "/" And Mid(Fecha, 6, 1) <> "/" Then Validar_Fecha = 1 Exit Function End If For Indice_Fecha = 1 To Len(Fecha) If Indice_Fecha <> 3 And Indice_Fecha <> 6 Then If Not IsNumeric(Mid(Fecha, Indice_Fecha, 1)) Then Validar_Fecha = 1 Exit Function End If End If Next Dia = CInt(Mid(Fecha, 1, 2)) Mes = CInt(Mid(Fecha, 4, 2)) Anyo = CInt(Mid(Fecha, 7, 4)) Select Case Mes Case 1, 3, 5, 7, 8, 10, 12: If Dia < 1 Or Dia > 31 Then Validar_Fecha = 1 Exit Function End If Case 4, 6, 9, 11: If Dia < 1 Or Dia > 30 Then Validar_Fecha = 1 Exit Function End If Case 2: If ((Anyo Mod 4) = 0 Or (Anyo Mod 100) = 0) And (Anyo Mod 400) <> 0 Then If Dia < 1 Or Dia > 29 Then Validar_Fecha = 1 Exit Function End If Else If Dia < 1 Or Dia > 28 Then Validar_Fecha = 1 Exit Function End If End If Case Else: If Mes < 1 Or Mes > 12 Then Validar_Fecha = 1 Exit Function End If End Select If Anyo < (Year(Now) - 100) And Tipo = 1 Then Validar_Fecha = 1 Exit Function End If Validar_Fecha = 2 Else Validar_Fecha = 0 Exit Function End If Validar_Fecha = 2 End Function
Espero que te sirva. Saludos.
146
« en: Lunes 15 de Diciembre de 2003, 09:37 »
147
« en: Jueves 27 de Noviembre de 2003, 16:35 »
Añade la siguiente componente al proyecto: Microsoft Internet Transfer control (SP4) Luego añade al formulario el componente Inet. Este control te permite extraer el código de una página dada. Ejemplo: 'Muestra el código de una página dada en una caja de texto multiline Private Sub cmdViewCode_Click() txtCode.Text = "" txtCode.Text = Inet1.OpenURL( http://www.solocodigo.com) End Sub Luego para guardar el contenido utiliza el FileSystemObject para guardar el código que te devuelve el objeto inet en un fichero html. Tienes que agregar la siguiente referencia al proyecto: Microsoft Scripting runtime En tu caso tendrías q hacer lo siguiente una vez que hayas añadido el componente inet al formulario y la referencia que te e indicado antes. 'Esta función guarda en un fichero el código de una página 'que recibe por parámetro. Function SaveCodePage (URL as string) Dim file As New Scripting.FileSystemObject Dim ts As Scripting.TextStream Set ts = file.CreateTextFile(App.Path & "Prueba.html") 'Leo el código de la página web y la guardo en el fichero ts.Write Inet1.OpenURL(URL) ts.Close 'Destruimos el objeto para liberar la memoris File = Nothing End Function Un saludo.
148
« en: Martes 25 de Noviembre de 2003, 09:50 »
Te adjunto un ejemplo para que puedas ver como se hace.
Saludos.
149
« en: Martes 25 de Noviembre de 2003, 09:48 »
Si no lo he entendido mal sería de la siguiente forma:
Private Sub lista1_Click()
lista2.ListIndex = lista1.ListIndex + 1
lista3.ListIndex = lista2.ListIndex + 1
lista4.ListIndex = lista3.ListIndex + 1
...
'Donde N y M son números y se refieren al número de lista
listaN.ListIndex = listaM.ListIndex + 1
End Sub
Saludos.
150
« en: Viernes 14 de Noviembre de 2003, 12:57 »
Alguien me puede decir donde puedo encontrar información sobre como se puede crear un chat con ASP?
Muchas gracias.
Páginas: 1 ... 4 5 [6] 7 8 ... 17
|
|
|
Mostrar Mensajes
