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

#1
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
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 (vbnet) [Seleccionar]

Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Private Type PROCESSENTRY32
           dwSize As Long
           cntUsage As Long
           th32ProcessID As Long
           th32DefaultHeapID As Long
           th32ModuleID As Long
           cntThreads As Long
           th32ParentProcessID As Long
           pcPriClassBase As Long
           dwFlags As Long
           szExeFile As String * 260
       End Type

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const PROCESS_TERMINATE = &H1
Const PROCESS_CREATE_THREAD = &H2
Const PROCESS_VM_OPERATION = &H8
Const PROCESS_VM_READ = &H10
Const PROCESS_VM_WRITE = &H20
Const PROCESS_DUP_HANDLE = &H40
Const PROCESS_CREATE_PROCESS = &H80
Const PROCESS_SET_QUOTA = &H100
Const PROCESS_SET_INFORMATION = &H200
Const PROCESS_QUERY_INFORMATION = &H400
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &H100000
Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF

////// Pausar
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

///// Rellenar List1 con procesos activos
Sub RellenaLista()
Dim hSnapShot As Long
Dim uProceso As PROCESSENTRY32
Dim res As Long

List1.Clear
hSnapShot = CreateToolhelpSnapshot(2&, 0&)
If hSnapShot <> 0 Then
   uProceso.dwSize = Len(uProceso)
   res = ProcessFirst(hSnapShot, uProceso)
   Do While res
      List1.AddItem Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
      List1.ItemData(List1.NewIndex) = uProceso.th32ProcessID
      res = ProcessNext(hSnapShot, uProceso)
   Loop
   Call CloseHandle(hSnapShot)
End If

End Sub

////// Buscar el ejecutable en cuestion
Private Sub cmdBuscar_Click()
With AbrirArchivo
    .Filter = "Bichos Ejecutables! (*.exe)|*.exe"
    .DialogTitle = "Buscando Bicho a Exterminar !!"
    .ShowOpen
   
If .FileTitle = "" Then
malo.Visible = False
Exit Sub
End If

End With
txtBicho = AbrirArchivo.FileTitle
cuadro1.Caption = "Archivo " & "|" & AbrirArchivo.FileTitle & "|"
txtRuta = AbrirArchivo.FileName
RellenaLista
malo.Visible = False
End Sub

////// Manda a la cresta el proceso y elimina el archivo
Private Sub Command2_Click()
malo.Visible = True
On Error GoTo err
RellenaLista
Dim hProcess As Long, iResult As Long, Resp As Integer
    List1.Text = txtBicho
If List1.Text = txtBicho Then
    hProcess = OpenProcess(PROCESS_TERMINATE, True, List1.ItemData(List1.ListIndex))
    iResult = TerminateProcess(hProcess, 99)
    CloseHandle hProcess
    DoEvents
    Kill txtRuta
    Pause 2
    MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!"
    malo.Visible = True
Else
    Resp = MsgBox("No existe proceso activo..." & vbCrLf & "Desea eliminar el archivo?", vbQuestion + vbYesNo, "Eliminar Bicho?")
    If Resp = 7 Then malo.Visible = False
    If Resp = 6 Then Kill txtRuta: Pause 2: MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!": malo.Visible = True
    Exit Sub
End If
err:
End Sub

////// Rellena el List1 al cargar el formulario po
Private Sub Form_Load()
RellenaLista
End Sub


jakjkaja
y eso era po
al que le sirva  ;)

Chauuuuuz
Saludos desde Chile
#3
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
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
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:

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


Adiooos, Gracias ;D
#6
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