|
Mostrar Mensajes
|
Páginas: [1] 2 3 4
|
1
|
Programación / Desarrollo Web / consulta a estas tablas en mysql
|
en: 12 Julio 2016, 02:35 am
|
hola gente, bueno en esta ocasion les pido ayuda por la siguiente razon:
tengo 2 tablas en mysql:
characters la cual tiene como filas: obj_id 'esta guarda el id del personaje char_name 'este es el nombre del personaje
y esta otra tabla:
items la cual tiene como filas: owner_id 'este es el id del personaje object_id 'este es el id especifico de un item item_id 'este es el id del item count 'este es la cantidad del item
les pongo un ejemplo de como es la base de datos asi entienden un poco mejor a lo que me refiero
characters
obj_id char_name 123 maiky 124 urca
items:
owner_id object_id item_id count 123 1 57 1 123 2 13 2 123 3 22 1 124 4 57 3 124 5 13 22 124 6 22 7
yo tengo de referencia el char_name "maiky" por ejemplo y a partir de ese nombre necesito conseguir el obj_id "123" por ejemplo
una vez q consegui ese obj_id que es igual al owner_id, tengo q conseguir por ejemplo el object_id "1" que pertenece al item_id "57" para poder modificar la fila count a partir del object_id
|
|
|
5
|
Programación / Programación Visual Basic / Re: mouse (x, y) de un picture, ayuda porfas
|
en: 7 Julio 2016, 07:04 am
|
gracias por responder, no se si se entendio bien lo q hice... falta parte del codigo... en el picture meto una aplicacion ejecutada. la cual si solo tomo el X, Y del picture no me toma el ejecutable dentro de el, por eso tome las que ocupa el picture pero por fuera, y al momento de indicar al mouse que se posicione en el picture (cuando automaticamente encontro un punto del color especifico), por ejemplo en el punto "0" del picture, esas coordenadas me manda al punto "0" de la pantalla en su lugar... Private Sub Command1_Click() If sobre = True Then Print posx, posy Print X, Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) sobre = False End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) posx = X posy = Y sobre = True End Sub
este es el codigo q me dijiste, pero no veo como ponerlo en lo que yo verdaderamente necesito. creo que no es lo que busco, yo quiero hacer que el puntero del mouse se mueva automaticamete al punto del picture encontrado, pero de la forma que lo hago me manda al punto que necesito, pero en vez de ser del picture lo hace en el form. o capas yo no veo como implementarlo, de ser asi podrias guiarme un poco?
|
|
|
6
|
Programación / Programación Visual Basic / mouse (x, y) de un picture, ayuda porfas
|
en: 6 Julio 2016, 07:52 am
|
hola gente, tengo este codigo que va pixel por pixel en la pantalla viendo el color y en un color determinado hace click, modifique el codigo para q no sea moviendo el mouse buscando el color, que lo busque de forma automatica... ahora necesito que al encontrar el color valla a esa posicion, pero se me va a la posicion de la pantalla entera, pero si modifico la parte del codigo resaltado no funciona de la forma q necesito... tiene q ver las aplicaciones que estan sobre ese picture tambien para tomar sus colores... este es el codigo... Private Sub Timer1_Timer() Dim tPOS As POINTAPI Dim sTmp As String Dim lColor As Long Dim lDC As Long For tPOS.y = Picture1.ScaleHeight = 0 To Picture1.ScaleHeight - 1 For tPOS.x = Picture1.ScaleWidth = 0 To Picture1.ScaleWidth - 1 lDC = GetWindowDC(0) Call GetPixel(HDC, tPOS.x, tPOS.y) ' este <--------------------- lColor = GetPixel(Picture1.HDC, tPOS.x, tPOS.y) sTmp = Right$("000000" & Hex(lColor), 6) Me.Caption = " R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2) Label1.Caption = "" & tPOS.x & " - " & tPOS.y & "" If Right$(sTmp, 2) = "FF" And Mid$(sTmp, 3, 2) = "FF" And Left$(sTmp, 2) = "FF" Then Click tPOS Espera (5) End If If tPOS.x = 320 Then Stop If tPOS.y = 6 Then Stop Espera (0.011) Next tPOS.x Espera (0.011) Next tPOS.y End Sub
y esta es la parte del mouse Private Sub Click(p As POINTAPI) 'p.X and p.Y in absolute coordinates 'Put the mouse on the point SetCursorPos p.x, p.y 'esta parte me lleva a (x, Y) pero de la pantalla completa y necesito q tome las coordenadas dentro del picture 1 mouse_event MOUSEEVENTF_ABSOLUTE, p.x, p.y, 0, GetMessageExtraInfo() mouse_event MOUSEEVENTF_LEFTDOWN, p.x, p.y, 0, GetMessageExtraInfo() mouse_event MOUSEEVENTF_LEFTUP, p.x, p.y, 0, GetMessageExtraInfo() End Sub
espero se entienda mi conflicto, desde ya muchas gracias.
|
|
|
7
|
Programación / Programación Visual Basic / meter handler en un picture1 ayuda
|
en: 5 Julio 2016, 00:57 am
|
hola gente, tengo este codigo, mete una aplicacion en un form, en un picture.... y quisiera saber si en vez de ser por find-window, puede ser por handrers... alguien podria ayudarme con un ejemplo? este es mi codigo '//Funciones API para incrustar el programa en el picture Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _ ByVal hWndParent As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Const SHOWMAXIMIZED_eSW = 1& '//Funciones API para obtener el handle de la aplicación que queremos meter en un picture Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long '//Ejecuta el programa 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 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Const WM_SYSCOMMAND = &H112 Const SC_CLOSE = &HF060&
Private Sub Command1_Click() Dim hwnd As Long ShellExecute Me.hwnd, "Open", "D:\juegos listos para jugar\Lineage II\system\l2.exe", _ "", "", 3 Espera (50) 'Espera cinco segundos a que se cargue hwnd = FindWindow("l2UnrealWLog", vbNullString) 'Obtiene el handle padre Call SetParent(hwnd, Picture1.hwnd) 'Meter la apcliación en el picture Call ShowWindow(hwnd, SHOWMAXIMIZED_eSW) 'Lo ajusta al cuadro
|
|
|
10
|
Programación / Programación Visual Basic / login en mysql y vb6 comparar encriptacion
|
en: 22 Junio 2016, 17:36 pm
|
estoy haciendo un login de usuario en vb6 y mysql que la cuenta se crea por web y tiene este codigo de encriptacion para el password
y necesitaria abrir el usuario desde vb6 descifrando ese password. este es el codigo q tengo en vb6 Private Sub Command1_Click() '(hace consulta en db) Dim strsql As String Dim rs As ADODB.Recordset strsql = "SELECT * FROM accounts where access_level=1" Set rs = cn.Execute(strsql) If Not rs.EOF Then rs.MoveFirst While Not rs.EOF '(si el usuario coincide se va a 1, si no sale el mensaje) If Text1.Text = rs!login Then GoTo 1 rs.MoveNext Wend Set rs = Nothing MsgBox "no coincide el usuario" GoTo 0 1: '(si el password coincide se va a 2, si no sale el mensaje) If Text2.Text = rs!pass Then GoTo 2 MsgBox "no coincide la pass" GoTo 0 2: '(si el usuario ya esta en linea sale un mensaje y se va al 3) Dim strsqlonline As String strsqlonline = "SELECT * FROM accounts WHERE login= '" & Text1.Text & "'" Set rs = cn.Execute(strsqlonline) If Not rs.EOF Then rs.MoveFirst While Not rs.EOF If 1 = rs!online Then GoTo 3 rs.MoveNext Wend Set rs = Nothing '(password y usuario coinciden se va a form2) Form2.Show Form1.Hide Form1.Refresh GoTo Ends 3: MsgBox "usuario ya esta en linea" GoTo 0 0: Form1.Enabled = True Form1.Cls Ends: End Sub Private Sub Command2_Click() End End Sub Private Sub Label3_Click() Form3.Show Form1.Hide End Sub
este lo estoy utilizando pero es en otra celda de la tabla sin encriptacion. necesitaria ayuda porfas para comparar ese metodo y abrir con la password cifrada. desde ya muchas gracias
|
|
|
|
|
|
|