Mensajes

Hola.
Estoy trabajando con una base de datos con recordset y tengo un problema.

Tengo poscicionado el registro, la tabla, todo bien, pero miren esto.

Código (vb) [Seleccionar] Expandir

with RS
  !Campo1
  !Campo2
  !Campo3
  ...
  !Campo16
end with

Ahora como hago algo como esto:

Código (vb) [Seleccionar] Expandir

with rs
  for i = 1 to 16
     !campo & i
  next
end with
(Notese que esto no funciona, busco una forma facil de hacer esto sin tener que escribir tooooooooodo uno abajo del otro :S)




Me autorespondo:

Código (vb) [Seleccionar] Expandir

  For i = 0 To RS.Fields.Count -1
    Response.Write "Field Name: " & RS.Fields(i).Name & "<br>"
    Response.Write "Field Value: " & RS(i) & "<br>"
  Next

Basicamente ese video es una mentira.

El codigo fuente que tenes es para el programa que utiliza para "probar" su "multiplicador" de clics.
No es el codigo fuente del multiplicador y no creo que el mutliplicador funcione.

Paso a explicarte que hace ese codigo.

Código (vb) [Seleccionar] Expandir

Dim num As Integer 'declara una variable
Dim a As Integer = 1 'declara otra variable (MAL)

//clic en un boton 'se equivoca de comentario, ya que en VB se usa el apostrofe y no la doble barra
num = TextBox1.Text ' Obtiene el numero de "clics" que queres obtener
a = a + 1 ' Suma uno a un contador para "demostrar" que su programa funciona
'Hata aca todo bien, ahora es cuando hace trampa.
MsgBox(num * a) ' MULTIPLICA el numero de clics reales por el numero de clics que a vos te gustaria que de verdad se hiciesen para MENTIRTE diciendote que se hicieron muchisimos clics.


Acabo de hacer un descubrimiento BRUTAL

"ThunderRT6FormDC"

Es el generico para un exe de vb6.0

El programa al que yo intento afectar es de vb6.0 y el mio tambien.
TENGO UN SUPER CONFLICTO RE PULENTA

Tengo que ser mas especifico

Vuelvo despues y les cuento



SANTO REMEDIO
Tenia un conflicto en las clases.
Correji eso y sali andando en moto

Código (vb) [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetPixel Lib "GDI32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Dim window As Long
Dim dc As Long
Dim color As Long

Private Sub Form_Load()
    window = FindWindow("ThunderRT6FormDC", vbNullString)
    MsgBox window
    dc = GetWindowDC(window)
    MsgBox dc
    color = GetPixel(dc, 600, 500)
    MsgBox color
End Sub


Empeoro, ahora no anda ni de la IDE.
Puede ser que este funcionando mal porque estoy en windwos 7? :S

normalmente la api tira -1 como resultado a pesar que deberia tirar rojo.
Sino directamente recibo un error 308 cuando llega a la llamada de la api.

Se pone peor. pongo el getpixel COPIADO de otro proyecto que tengo y tampoco anda y en el otro proyecto si.
Probe de compilar a nativo y a p-code y es lo mismo (por las dudas)

odio a esa api.
Asi nomas les digo.

Tengo el hdc.
Uso getpixel DESDE el IDE y funciona de 10.
Lo compilo y me da error 308

Alguien tiene idea de que corno me pasa?

Consigo el hwnd con findwindow
consigo el hdc con getdc o con getwindowdc
y de ahi hago getpixel.


en que puedo estar fallando? :'(

con la mejor de las ondas.

MAC == MAC OS
PC != MAC OS

Osea, podes llegar a encontrar un tutorial de como meter mac os en un pc, pero no creo que ande bien :S

y le vendiste eso a alguien    

PORQUE YO NO ENCUENTRO GENTE ASI?! :'(

Por 50$ te envío uno recién codeado.

Algun dia voy a poder hacer eso 

me sorprende que si sos malo programando vendas un programa 

Pero bueh.

Si bien se podria mentir, hace algo como la direccion mac del equipo con un xor

Por decir una huevada.

De que es el programa y te decimos que tanta seguridad podes necesitar