elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Sigue las noticias más importantes de elhacker.net en ttwitter!


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18
131  Programación / .NET / ayuda en VB.NET en: 19 Septiembre 2017, 22:33
hola a todos.

hoy me he encontrado con un problema en vb.net que no puedo solucionar.

tengo este codigo:
Código
  1. Dim dirPath As String = Environment.ExpandEnvironmentVariables("%AppData%\Microsoft\Windows\Start Menu\Programs\Startup")
  2.        Try
  3.            For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
  4.                                    dirPath, _
  5.                                    FileIO.SearchOption.SearchAllSubDirectories, _
  6.                                    "*.vbs", _
  7.                                    "*.cmd", _
  8.                                    "*.js", _
  9.                                    "*.wsf", _
  10.                                    "*.ink", _
  11.                                    "*.bat")
  12.                ListBox1.Items.Add(Archivo)
  13.                Form7.Show()
  14.            Next
  15.            ' errores  
  16.        Catch oe As Exception
  17.            MsgBox(oe.Message, MsgBoxStyle.Critical)
  18.        End Try

el código se encarga de buscar en la carpeta inicio  de windows todos los archivos con los formatos que aparecen.

Bueno lo que quiero es que si al buscar en la carpeta, no encuentra ningún archivo con ese formato me muestre un formulario. eso es todo .

en pocas palabras necesito saber como ubicar este codigo:

Código
  1. If cualquiercode Then
  2.    MsgBox("se encontraron archivos con formato .vbs-.bat-.ink-.cmd-.js")
  3. Else
  4.    form9.show()
  5. End If
  6.  

                                   no se si me comprenden. XD  :silbar:
132  Programación / Scripting / Re: Calculadora en Python con Tkinter! en: 17 Septiembre 2017, 23:59
Ahora solo te falta la pestaña de conversiones:
de distancia , volumen, temperatura, etc...  ;-)
133  Programación / Scripting / Re: Calculadora en Python con Tkinter! en: 17 Septiembre 2017, 23:43
podrías agregar mas funciones fácilmente si la Programaras en vb.net o vb6.

funciones como raicez, potencias, notación científica, conversiones etc..
134  Programación / Scripting / Re: Calculadora en Python con Tkinter! en: 17 Septiembre 2017, 23:36
umm. en verdad es bastante simple pero lo que me llama la atención es lo ordenada que es, si desarrollas el proyecto podrías hacer algo con mas funciones.
como una calculadora científica.  ;-)  ;-)  ;-) .
135  Programación / Scripting / Re: el signo = en: 17 Septiembre 2017, 22:56
dale no es nada.  :)

si no entiendes alguna parte de el code me avisas, con gusto te lo explicare.   ;)
136  Programación / Scripting / Re: el signo = en: 17 Septiembre 2017, 19:18
ya lo he terminado. comenta si te funciono.

code:
Código
  1. @echo off
  2. set n=HT
  3. setlocal enabledelayedexpansion
  4. for /f "tokens=* delims=" %%x in ('type texto.txt') do (
  5. set linea=%%x
  6. set linea=!linea:version=%n%!
  7. call :show !linea!
  8. )
  9. goto foroelhacker.net
  10.  
  11. :foroelhacker.net
  12. Setlocal EnableDelayedExpansion
  13. Mode Con Cols=100 Lines=25
  14. If Exist "%TMP%\BMCTP" (
  15. Goto Inicio
  16. ) Else (
  17. MD "%TMP%\BMCTP"
  18. Goto Inicio
  19. )
  20.  
  21. :Inicio
  22. Set Ruta=%CD%
  23. CD %Ruta%
  24.  
  25. :Nombre_Texto
  26. Echo. & Echo =======================================================
  27. Echo Escriba el nombre del archivo a modificar (Solo archivos de texto plano "txt"):
  28. Set "Archivo=out"
  29. Cls
  30. If Not Exist "%Archivo%.txt" (
  31. Cls
  32. Echo No se ha encontrado el archivo solicitado, intente nuevamente.
  33. Goto Nombre_Texto
  34. ) Else (
  35. Cls
  36. Echo Archivo encontrado.
  37. Goto Backup
  38. )
  39.  
  40. :Backup
  41. Copy /Y "%Ruta%\%Archivo%.txt" "%TMP%\BMCTP\%Archivo%_Backup.txt" >nul
  42. If Exist "%TMP%\BMCTP\%Archivo%_Backup.txt" (
  43. Echo. & Echo =======================================================
  44. Echo Backup realizado con exito.
  45. >Nul Ping -n 3 Localhost & Cls & Goto Caracter
  46. ) Else (
  47. Cls
  48. Echo Error al hacer Backup del archivo.
  49. Pause>nul
  50. Exit
  51. )
  52.  
  53. :Caracter
  54. Set Caracter=^=
  55. If "%Caracter%" == "" Cls & Echo Por favor no intente ingresar valores nulos... & Echo. & Goto Caracter
  56. Cls & >Nul Ping -n 1 Localhost
  57.  
  58. :Mod
  59. Set PosX=0
  60. For /F "Usebackq Tokens=*" %%a IN ("%Ruta%\%Archivo%.txt") Do (
  61. Set Linea=%%a
  62. Call:Buscador
  63. Set "LineaNueva="
  64. )
  65. Goto Aprobacion
  66.  
  67. :Buscador
  68. If Not "%Caracter%" == "!Linea:~%PosX%,1!" (
  69. If "!Linea:~%PosX%,1!" == "" (
  70. Set PosX=0
  71. Echo !LineaNueva!>>"%TMP%\BMCTP\Nuevo_%Archivo%.txt"
  72. Goto:Eof
  73. )
  74. Set "LineaNueva=%LineaNueva%!Linea:~%PosX%,1!"
  75. Set /A PosX+=1
  76. Goto Buscador
  77. ) Else (
  78. If "!Linea:~%PosX%,1!" == "" (
  79. Set PosX=0
  80. Echo !LineaNueva!>>"%TMP%\BMCTP\Nuevo_%Archivo%.txt"
  81. Goto:Eof
  82. )
  83. Set /A PosX+=1
  84. Goto Buscador
  85. )
  86.  
  87. :Aprobacion
  88. Goto Fin
  89.  
  90. :Fin
  91. del /f /q out.txt
  92. Cls & Echo.
  93. Copy /Y "%TMP%\BMCTP\Nuevo_%Archivo%.txt" "%Ruta%\%Archivo%.txt" >nul
  94. >Nul Ping -n 1 Localhost
  95. Del /Q "%TMP%\BMCTP" >nul
  96. Echo El archivo modificado se encuentra en : "%Ruta%".
  97. Echo El archivo Back-Up se encuentra en : "%TMP%\BMCTP".
  98. Echo. & Echo Hemos terminado!
  99. Echo. & Echo Saliendo...
  100. >Nul Ping -n 2 Localhost & Exit
  101.  
  102. :show
  103. echo %* >> out.txt
  104. goto:eof
  105.  


lo que hace es buscar en el archivo texto.txt las palabras version=85045 y te las cambia a HT85045 . justo lo que querias ,

       comenta si te funciono   ;-)
137  Programación / Scripting / Re: el signo = en: 16 Septiembre 2017, 22:29
a ver, que es precisamente lo que quieres?
138  Programación / Scripting / Re: duda (bucle con python) en: 16 Septiembre 2017, 20:41
ahhh, OK. de verdad es mas corto tan solo 8 lineas en vez de 13.
gracias por el code.   ;D   ;-)
139  Programación / Scripting / Re: duda (bucle con python) en: 16 Septiembre 2017, 20:28
ya lo solucione. lo estaba escribiendo mal, lo solucione con while.

tenias razón, gracias.

Código
  1. import ctypes
  2. SetCursorPos = ctypes.windll.user32.SetCursorPos
  3. mouse_event = ctypes.windll.user32.mouse_event
  4.  
  5. def left_click(x, y, clicks=1):
  6.  
  7.  SetCursorPos(x, y)
  8.  for i in xrange(clicks):
  9.   mouse_event(2, 0, 0, 0, 0)
  10.   mouse_event(4, 0, 0, 0, 0)
  11.  
  12. while 1==1:
  13.    left_click(000, 900) #left clicks at 200, 200 on your screen. Was able to send 10k clicks instantly.
  14.  
140  Programación / Scripting / Re: el signo = en: 16 Septiembre 2017, 19:52
listo solo tienes que colocar el signo ^  para que te reconozca el = como texto.

asi:
Código
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "tokens=* delims=" %%x in ('type texto.txt') do (
  4. set linea=%%x
  5. set linea=!linea:Perl=^=ht!
  6. call :show !linea!
  7. )
  8. goto:eof
  9. :show
  10. echo %* >> out.txt
  11. goto:eof
  12.  
prueba el code a ver si es lo que quieres.
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines