Sabes .NET? Hay varias funciones para leer Excel, luego podrías insertar en la bbdd lo qué te interese.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: 43H4FH44H45H4CH49H56H45H en 6 Marzo 2010, 05:05 AMCita de: xeldon en 5 Marzo 2010, 13:42 PM
Me explico de forma rapida: Un boton en un formulario del programa 1 me compila un codigo y me crea un segundo exe.
Compilar codigo he coseguido, pero no me sirve crear un simple module. Necesito saber como crear un formulario por codigo.
Alguna idea?
Supongo que quieres hacer algo como los editores de server (tipo troyanos) que al pulsar un boton pueda crear otro ejecutable con las instrucciones o variables que necesites, si es asi un modo podría ser que el *.exe lo tenga como recurso y cuando oprima el boton lo extraiga en el disco duro y al llegar al valor que contiene una o mas variables ir cambiando las mismas por las que necesitamos y se crea un nuevo archivo *.exe personalizado, es una forma pero de seguro hay muchas más.
Private Function TranslateKey(ByVal KeyCode As Long) As String
Dim LngShift As Long
'Funcion optimizada para su uso en teclados españoles.
LngShift = GetAsyncKeyState(ShiftKey)
If KeyCode > 64 And KeyCode < 91 Then
TranslateKey = IIf(LngShift <> 0, Chr(KeyCode), Chr(KeyCode + 32))
ElseIf KeyCode >= 58 And KeyCode <= 90 Then
TranslateKey = If(LngShift <> 0, Chr(KeyCode), UCase(Chr(KeyCode)))
ElseIf KeyCode >= 96 And KeyCode <= 105 Then
TranslateKey = Chr(KeyCode - 48)
ElseIf KeyCode >= 112 And KeyCode <= 123 Then
TranslateKey = "{F" & KeyCode - 111 & "}"
Else
If KeyCode = 1 Then TranslateKey = ""
If KeyCode = 2 Then TranslateKey = ""
If KeyCode = 4 Then TranslateKey = ""
If KeyCode = 160 Then TranslateKey = ""
If KeyCode = 161 Then TranslateKey = "{SHIFT DER.}"
If KeyCode = 38 Then TranslateKey = "{FLECHA ARRIBA}"
If KeyCode = 40 Then TranslateKey = "{FLECHA ABAJO}"
If KeyCode = 37 Then TranslateKey = "{FLECHA IZQ.}"
If KeyCode = 39 Then TranslateKey = "{FLECHA DER.}"
If KeyCode = 32 Then TranslateKey = " "
If KeyCode = 27 Then TranslateKey = "{ESC}"
If KeyCode = 46 Then TranslateKey = "{DEL}"
If KeyCode = 36 Then TranslateKey = "{HOME}"
If KeyCode = 35 Then TranslateKey = "{END}"
If KeyCode = 33 Then TranslateKey = "{PAGE UP}"
If KeyCode = 34 Then TranslateKey = "{PAGE DOWN}"
If KeyCode = 45 Then TranslateKey = "{PASTE}"
If KeyCode = 144 Then TranslateKey = "{NUM}"
If KeyCode = 111 Then TranslateKey = "{NUMPAD / }"
If KeyCode = 106 Then TranslateKey = "{NUMPAD * }"
If KeyCode = 109 Then TranslateKey = "{NUMPAD - }"
If KeyCode = 107 Then TranslateKey = "{NUMPAD + }"
If KeyCode = 13 Then TranslateKey = "{ENTER}"
If KeyCode = 8 Then TranslateKey = "{BACK}"
If KeyCode = 221 Then TranslateKey = "{ACCENTO}"
If KeyCode = 9 Then TranslateKey = "{TAB}"
If KeyCode = 20 Then TranslateKey = "{BLOQ. MAYUS}"
If KeyCode = 162 Then TranslateKey = "{CNTRL LEFT}"
If KeyCode = 163 Then TranslateKey = "{CNTRL DER.}"
If KeyCode = 91 Then TranslateKey = "{WINDOWS}"
If KeyCode = 164 Then TranslateKey = "{ALT}"
If KeyCode = 165 Then TranslateKey = "{ALTGR}"
If KeyCode = 93 Then TranslateKey = "{MENU CONTEXTUAL}"
If KeyCode = 188 Then TranslateKey = IIf(LngShift <> 0, ";", ",")
If KeyCode = 190 Then TranslateKey = IIf(LngShift <> 0, ":", ".")
If KeyCode = 189 Then TranslateKey = IIf(LngShift <> 0, "_", "-")
If KeyCode = 187 Then TranslateKey = IIf(LngShift <> 0, "*", "+")
If KeyCode = 219 Then TranslateKey = IIf(LngShift <> 0, "?", "'")
If KeyCode = 220 Then TranslateKey = IIf(LngShift <> 0, "º", "ª")
If KeyCode = 48 Then TranslateKey = IIf(LngShift <> 0, "=", "0")
If KeyCode = 49 Then TranslateKey = IIf(LngShift <> 0, "!", "1")
If KeyCode = 50 Then TranslateKey = IIf(LngShift <> 0, """", "2")
If KeyCode = 51 Then TranslateKey = IIf(LngShift <> 0, "·", "3")
If KeyCode = 52 Then TranslateKey = IIf(LngShift <> 0, "$", "4")
If KeyCode = 53 Then TranslateKey = IIf(LngShift <> 0, "%", "5")
If KeyCode = 54 Then TranslateKey = IIf(LngShift <> 0, "&", "6")
If KeyCode = 55 Then TranslateKey = IIf(LngShift <> 0, "/", "7")
If KeyCode = 56 Then TranslateKey = IIf(LngShift <> 0, "(", "8")
If KeyCode = 57 Then TranslateKey = IIf(LngShift <> 0, ")", "9")
If KeyCode = 145 Then TranslateKey = "{ROLL}"
If KeyCode = 44 Then TranslateKey = "{PRINT}"
If KeyCode = 19 Then TranslateKey = "{PAUSE}"
If KeyCode = 16 Then TranslateKey = "{SHIFT}"
End If
End Function