|
|
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 - Cyclop
Páginas: 1 ... 3 4 [5] 6 7 ... 13
101
« en: Martes 4 de Enero de 2005, 21:46 »
Alguien sabe donde puedo conseguir una fuente de ancho fijo pero que sea alto y delgado, por que los que tengo en el sistema (Courier) son anchos y cuando muestro nombres grandes en mi grid nos se ve todo.
Encontre por ahi la fuentes Arial Monospaced pero cuesta 45$ ... alguien tiene un Free o crackeado.
Gracias
Cyclopz
102
« en: Domingo 2 de Enero de 2005, 21:18 »
Bajate la Guia Api de aca www.AllApi.netSalu2 Cyclopz
103
« en: Lunes 27 de Diciembre de 2004, 20:32 »
Seria mejor convertirlo a imagen de 16bits y de ahi hacer la busqueda
Salu2
104
« en: Jueves 23 de Diciembre de 2004, 02:00 »
Aunque de todas maneras lo van a ver con un Explorador de Procesos el programa ya fue .... seria bueno hacerlo como hace el Deep Freeze. Salu2 
105
« en: Jueves 23 de Diciembre de 2004, 01:48 »
Hay una opcion del mismo Vb creo que se llama App.TaskVisible a ver si me ayudan hace los mismo que las Apis.
Salu2
Cyclop
106
« en: Jueves 23 de Diciembre de 2004, 01:43 »
107
« en: Domingo 12 de Diciembre de 2004, 19:58 »
???? Makko este proyecto fue hace 50 millones de años atraz y que yo sepa nunca funciono.
Salu2
Cyclop
108
« en: Domingo 12 de Diciembre de 2004, 19:21 »
Por que mejor no usas las librerias del winzip.
Salu2
Cyclop
109
« en: Sábado 11 de Diciembre de 2004, 01:54 »
Gracias a to2 especia cpmario era justo lo que estaba buscando. Salu2
110
« en: Miércoles 8 de Diciembre de 2004, 19:52 »
Hola nuevamente, hace un tiempo me acuerdo que encontre una api sendmessage, que hacia que un textbox entraran puro mayusculas o minusculas, lo busque en toda mi pc y me parece que borre el ejemplo alguien sabe como es? o donde lo puedo encontrar?.
Gracias
Cyclop
111
« en: Miércoles 8 de Diciembre de 2004, 19:31 »
Yo encontre uno ejemplo de capturar imagenes desde el webcam... te recomiendo que lo busques en http://www.pscode.com/vbSalu2 Cyclopz
112
« en: Miércoles 8 de Diciembre de 2004, 19:23 »
113
« en: Jueves 2 de Diciembre de 2004, 01:53 »
Otra forma que descubri sin querer queriendo ... es que en el instalador de Visual Studio hay una opcion que dice Instalar Herramientas de Visual Studio ahi viene un programita exe muy similar al Process Explorer que se llama Depend Viewer o Visor de Dependencias algo asi con ese porgrama tu seleccionas un exe y te da todas las dependecias que tiene el EXE con las DLL, OCX muy bueno tambien.
Una mas para el post
Salu2
Cyclop
114
« en: Jueves 2 de Diciembre de 2004, 01:42 »
Tu maquina que esta conectado a la red lan que tienes?
Salu2
Cyclop
115
« en: Jueves 2 de Diciembre de 2004, 01:32 »
lo que dice fap1603 es cierto solo tienes que poner asi Para que regrese a la ventana anterior Para que no regrese a la ventana anterior Salu2 Cyclop
116
« en: Miércoles 1 de Diciembre de 2004, 03:19 »
Hola a todos como se puede cargar datos desde un archivo de recursos externo
ejemplo desde el archivo de recursos del messenger "msgslang.dll" no habra alguna funcion API para hacer esto.
Gracias
Cyclop
117
« en: Miércoles 1 de Diciembre de 2004, 02:48 »
Otra forma: Function BorraLinea(ByVal sTexto As String, ByVal nLinea As Integer) As String aLista = Split(sTexto,vbCrLf) For nItem = nLinea To UBound(aLista) - 1 aLista(nItem) = aLista(nItem + 1) Next Redim Preseve aLista(UBound(aLista) - 1) BorraLinea = Join(aLista, vbCrLf) End Function
No se si funcionara ... pero bueno, mas o menos te dara una idea Salu2 Cyclop
118
« en: Miércoles 1 de Diciembre de 2004, 02:40 »
Por que mejor no lo pones en un listbox y al final lo guardas en un texto. Solo haces sSting = "" For nItem = 0 To List1.ListCount-1 sString = sString + List1.List(nItem) Next
Salu2 Cyclop
119
« en: Martes 30 de Noviembre de 2004, 01:42 »
cual es?? ... si serias tan amable en explicarlo.
Salu2
Cyclopz
120
« en: Lunes 29 de Noviembre de 2004, 16:15 »
Si te refieres ha hacer pedacitos una imagen puedes usar el metodo Paint
Salu2
Cyclop
121
« en: Lunes 29 de Noviembre de 2004, 16:05 »
El problema es lo siguiente ... con esto creo que se va a aclarar las cosas un poquitin. Los formularios se cargan en forma de ARBOL de esta forma: Form1 +----Form2 +----Form3
si yo quiero descargar el form2 esto no va a ser posible por que el form3 esta activo y es parte del form2, para poder descargar el form2 primero tengo que descargar el form3 ... y asi sucesivamente. Salu2 Cyclop
122
« en: Domingo 21 de Noviembre de 2004, 02:22 »
No se cierra la ventana por que despues de ejecutar la rutina descargarque supuestament hace un unload.me, haces un setfocus activandose nuevamente la ventana. Private Sub Combo4_Click() Combo2.Enabled = True If Text14.Text = "<ACTUALIZAR>" Then MsgBox ("mensage"), vbExclamation Form1.Show Form1.Text1.SetFocus Unload Me End If End Sub
Suerte Cyclop
123
« en: Domingo 21 de Noviembre de 2004, 01:29 »
Prueba con esto al principio de la rutina: Dim sId As String Dim sLen As String Dim sSerie As String Dim nLen As Byte
o sId$ = Space(2) Get #1, LOF(1) - 2, sId$ 'error aca...plz If sId$ = "id" Then sLen$ = Space(1) Get #1, LOF(1) - 3, sLen$ nLen = Asc(sLen$) sSerie$ = Space(nLen) Get #1, LOF(1) - (nLen + 3), sSerie$ End If
Prueba encriptandolo para mayor seguridad.  Cyclop
124
« en: Sábado 20 de Noviembre de 2004, 02:13 »
A ver si me dejo explicar bien Esto va en el programa Parchador Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) Private Sub cmdParche_Click() Dim cad1 As String * 255 Dim cad2 As String * 255 Dim numSerie As Long Dim longitud As Long Dim flag As Long unidad = "C:\" Call GetVolumeInformation(unidad, cad1, 255, numSerie, longitud,flag, cad2,255) numSerie = Trim(Replace(numSerie, Chr(0), "")) Open "Programa.Exe" For Binary As #1 sId = Space(2) Get #1, LOF(1)-2, sId If sId <> "id" Then numSerie = Trim(numserie) sBuffer$ = numSerie + Chr(Len(numSerie)) + "id" Put #1, LOF(1) + 1, sBuffer$ Else MsgBox "La aplicacion ya fue parchada" Endif Close #1 End Sub
Esto va en tu Aplicacion de Venta Private Sub Form_Load() Dim cad1 As String * 255 Dim cad2 As String * 255 Dim numSerie As Long Dim longitud As Long Dim flag As Long unidad = "C:\" Call GetVolumeInformation(unidad, cad1, 255, numSerie, longitud,flag, cad2,255) numSerie = Trim(Replace(numSerie, Chr(0), "")) Open "Programa.Exe" For Binary As #1 sSerie = "" sId = Space(2) Get #1, LOF(1)-2, sId If sId = "id" Then sLen = Space(1) Get #1, LOF(1)-3, sLen nLen = Asc(sLen) sSerie = Space(nLen) Get #1, LOF(1)-(nLen + 3), sSerie Endif Close #1 If sSerie = numSerie Then ' Es correcto la copia Else MsgBox "Copia no valida ... por favor cosulte con su proveedor de sistema juasss XP" End EndIf End Sub
Pd. Esta rutina ahun no fue testeado ... por lo que puede contener algun error de sintaxis o de logica de programacion. Salu2 Cyclop
125
« en: Viernes 19 de Noviembre de 2004, 01:57 »
Lo que puedes hacer es crear archivos sentinelas, y cada vez que entres a tu programa buscar esos archivos si no lo encuentra es porque copio tu programa en otra pc, pero el problema es que se puede monitorear con otro tipo de aplicacion y asi copiarian ese archivo que esta en la maquina original.
Otra opcion es que tu al instalar el programa en la pc de tu cliente corras un programa aparte para que te copie la serial del disco duro en la parte final de tu programa exe encriptado si es posible, cada vez que entres a tu programa comparar la serial almacenada en tu programa con la del HDD.
Suerte
Cyclop
Páginas: 1 ... 3 4 [5] 6 7 ... 13
|
|
|
Mostrar Mensajes
