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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / [Ayuda] Control WebBrowser en: 6 Febrero 2008, 00:09 am
Hola a todos,
Porfavor le pido a aquel que sepa solucionar este problemas, me ayude,
aunque se que en esta comunidad son buena onda ;D

Lo que quiero es que al usuario no le aparezca ese error
que dice si deseo depurarlo...
error en la linea xxx
acceso denegado...

Bueno, ese cuadro de advertencia lo odio, Hate It  >:D

Graaaaacias amigos de la comunidad

Editado---

Ahora le pongo
WebBrowser1.Silent = True

y no aparece el molesto error eeeeeee
pero aparece otra ventana que dice algo de
just-in-time debbugger
no se q cosa aaaah lloro :-(
2  Programación / Programación Visual Basic / [Codigo] Mata Bichos =P en: 2 Diciembre 2007, 03:55 am
Mas mula el programa jajkakajaka
pero se hace lo que se puede  :rolleyes:
para el que le sirva parte del codigo,
nuevas ideas, etc... haganlo ***** :o :xD

Controles:

- 2 cajas de texto (txtRuta y txtBicho)
- 3 botones (cmdBuscar, malo y Command2)
- 1 CommonDialog (AbrirArchivo)
- 1 Listbox (List1) (carga procesos)

Código
  1. Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
  2. Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  3. Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  4. Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
  5. Private Type PROCESSENTRY32
  6.           dwSize As Long
  7.           cntUsage As Long
  8.           th32ProcessID As Long
  9.           th32DefaultHeapID As Long
  10.           th32ModuleID As Long
  11.           cntThreads As Long
  12.           th32ParentProcessID As Long
  13.           pcPriClassBase As Long
  14.           dwFlags As Long
  15.           szExeFile As String * 260
  16.       End Type
  17.  
  18. Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
  19. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  20. Const PROCESS_TERMINATE = &H1
  21. Const PROCESS_CREATE_THREAD = &H2
  22. Const PROCESS_VM_OPERATION = &H8
  23. Const PROCESS_VM_READ = &H10
  24. Const PROCESS_VM_WRITE = &H20
  25. Const PROCESS_DUP_HANDLE = &H40
  26. Const PROCESS_CREATE_PROCESS = &H80
  27. Const PROCESS_SET_QUOTA = &H100
  28. Const PROCESS_SET_INFORMATION = &H200
  29. Const PROCESS_QUERY_INFORMATION = &H400
  30. Const STANDARD_RIGHTS_REQUIRED = &HF0000
  31. Const SYNCHRONIZE = &H100000
  32. Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
  33.  
  34. ////// Pausar
  35. Sub Pause(interval)
  36. Current = Timer
  37. Do While Timer - Current < Val(interval)
  38. DoEvents
  39. Loop
  40. End Sub
  41.  
  42. ///// Rellenar List1 con procesos activos
  43. Sub RellenaLista()
  44. Dim hSnapShot As Long
  45. Dim uProceso As PROCESSENTRY32
  46. Dim res As Long
  47.  
  48. List1.Clear
  49. hSnapShot = CreateToolhelpSnapshot(2&, 0&)
  50. If hSnapShot <> 0 Then
  51.   uProceso.dwSize = Len(uProceso)
  52.   res = ProcessFirst(hSnapShot, uProceso)
  53.   Do While res
  54.      List1.AddItem Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
  55.      List1.ItemData(List1.NewIndex) = uProceso.th32ProcessID
  56.      res = ProcessNext(hSnapShot, uProceso)
  57.   Loop
  58.   Call CloseHandle(hSnapShot)
  59. End If
  60.  
  61. End Sub
  62.  
  63. ////// Buscar el ejecutable en cuestion
  64. Private Sub cmdBuscar_Click()
  65. With AbrirArchivo
  66.    .Filter = "Bichos Ejecutables! (*.exe)|*.exe"
  67.    .DialogTitle = "Buscando Bicho a Exterminar !!"
  68.    .ShowOpen
  69.  
  70. If .FileTitle = "" Then
  71. malo.Visible = False
  72. Exit Sub
  73. End If
  74.  
  75. End With
  76. txtBicho = AbrirArchivo.FileTitle
  77. cuadro1.Caption = "Archivo " & "|" & AbrirArchivo.FileTitle & "|"
  78. txtRuta = AbrirArchivo.FileName
  79. RellenaLista
  80. malo.Visible = False
  81. End Sub
  82.  
  83. ////// Manda a la cresta el proceso y elimina el archivo
  84. Private Sub Command2_Click()
  85. malo.Visible = True
  86. On Error GoTo err
  87. RellenaLista
  88. Dim hProcess As Long, iResult As Long, Resp As Integer
  89.    List1.Text = txtBicho
  90. If List1.Text = txtBicho Then
  91.    hProcess = OpenProcess(PROCESS_TERMINATE, True, List1.ItemData(List1.ListIndex))
  92.    iResult = TerminateProcess(hProcess, 99)
  93.    CloseHandle hProcess
  94.    DoEvents
  95.    Kill txtRuta
  96.    Pause 2
  97.    MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!"
  98.    malo.Visible = True
  99. Else
  100.    Resp = MsgBox("No existe proceso activo..." & vbCrLf & "Desea eliminar el archivo?", vbQuestion + vbYesNo, "Eliminar Bicho?")
  101.    If Resp = 7 Then malo.Visible = False
  102.    If Resp = 6 Then Kill txtRuta: Pause 2: MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!": malo.Visible = True
  103.    Exit Sub
  104. End If
  105. End Sub
  106.  
  107. ////// Rellena el List1 al cargar el formulario po
  108. Private Sub Form_Load()
  109. RellenaLista
  110. End Sub
  111.  

jakjkaja
y eso era po
al que le sirva  ;)

Chauuuuuz
Saludos desde Chile
3  Programación / Programación Visual Basic / [Solucionado =)] Separar informacion de un textbox en: 29 Agosto 2007, 22:52 pm
hola a todos ;D

intento hacer un control remoto...
recien estoy haciendo el control del mouse...
con winsock envio las cordenadas juntas al servidor
de esta forma: ejeX:ejeY

entonces en un textbox del servidor llegan las cordenadas
(520:352), (1024:768), (0:0)

y lo que necesito es poner el ejeX en otro textbox
y el ejeY en otro

----Cliente
remote.SendData ejeX & ":" & ejeY

-----Servidor
remote.GetData dat, vbString
Text1 = dat

necesito: ejeX en text2 y ejeY en text3

Porfavor, si alguien me pudiera ayudar
creo que no es un codigo largisimo
pero es muy necesario :-(

De antemano MUCHISIMAS GRACIAS

P.d: cuando lo termine les posteo el codigo fuente :rolleyes:
4  Media / Diseño Gráfico / [Ayuda porfavor] Convertir Px a Cm en: 25 Abril 2007, 18:26 pm
hola a todooos !!

puxa :-( postie la misma pregunta en el foro de vb y no me fue muy bien :(

Espero que ustedes me puedan ayudar...
como lo dice el titulo, quiero hacer un programa que
convierta de Px a Cm como para con el fireworks y el
photoshop... al crear una nueva area de trabajo se insertan
las medidas, y si uno cambia el combobox de px a cm, por
ejemplo 800px lo pasa a 30 cm....
Espero entiendan mi idea  :xD que al parece es media confusa jejejej

aps, tengo estos datos:

Px  Cm   Intervalo
1    0.04  4
2    0.07  3
3    0.11  4
4    0.14  3
5    0.18  4
....

y asi sigue :)

Graaaaacias por tu tiempo !!
5  Programación / Programación Visual Basic / [Ayuda porfavor] Convertir Px a Cm en: 24 Abril 2007, 05:37 am
Hola comunida,
bueno, acudo a uds porque se que esta es una buena comunidad y que de todo podemos llegar a una conclusion y ayudarme :D

Quiero hacer un programa que convierta pixeles a centimetros y viceversa.... los unicos datos que he encontrado son estos:

Px  Cm
1    0,04
2    0,07
3    0,11
4    0,14
5    0,18
6    0,21
7    0,25
...

de esos datos se puede inferir:

Px  Cm    Intervalo
1   0,04    4
2   0,07    3
3   0,11    4
4   0,14    3
5   0,18    4
6   0,21    3
7   0,25    4
...

bueno, eso logre averiguar :-[
ahora, como puedo hacer un pograma en visual basic
que me convierte de pixel a centimetros ??  :-\

De antemano les agradezco mucho la atencion

ah, un dato importante:

Código:
If Val(Text1.Text) Mod 2 = 0 Then
verificar.Text = "par"
Else
verificar.Text = "impar"
End If

Adiooos, Gracias ;D
6  Programación / Programación Visual Basic / [ayuda] editor de imagenes en: 20 Enero 2007, 06:11 am
se me ocurrio esta idea, hacer algo asi como fireworks, pero algo super sencillo, para usuarios estandar que no tienen tiempo de editar sus fotos con efectos y otros...

les explico un poco la estructura:

que en el formulario hayan 2 botones y dos imagenes... 1 boton para abrir una foto y el otro para guardarla... 1 imagen de fondo (que es la que viene preestablecida por el programa) y una que elija el usuario para que combine con la imagen de fondo...

eso seria a grandes rasgos. ah, y que al guardar la imagen solo se guarde el area en la que estan las dos imagenes...

porfavor, el que me pueda aportar con algunos codigos (simples si pudiesen), como para mover la imagen dentro de la imagen de fondo, como guardar el resultado en jpg optimizado, algun codigo de brillo, contraste... todo lo que tenga que ver con diseño (pero sencillo, porfavor), ustedes saben  ;D

de antemano se lo agradezco mucho

P.D: si me va bien con la recoleccion, cuando tenga listo el programa posteo su codigo para uso libre  :D
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines