Mensajes

Prueba asi

Código [Seleccionar] Expandir


Private Sub Command1_Click()

Dim proceso As String
proceso = Text1.Text


For Each process In GetObject("winmgmts:"). _
ExecQuery("select * from Win32_Process where name='" & proceso & "'")
process.Terminate (0)
Next process

Text1.Text = vbNullString
End Sub


Coloca en un modulo bas

Código [Seleccionar] Expandir


Option Explicit

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Function wSource(Web As String) As String
    Dim sBuffer As String * 256
    Dim iRet As Integer
    Dim lRet As Long
    Dim sData As String
    Dim hInternet As Long
    Dim hSession As Long
   
    hSession = InternetOpen("tatatata", 1, vbNullString, vbNullString, 0&)
    hInternet = InternetOpenUrl(hSession, Web, vbNullString, 0&, 0&, 0&)
    iRet = InternetReadFile(hInternet, sBuffer, 256, lRet)
    sData = sBuffer
   
    Do While lRet <> 0
        iRet = InternetReadFile(hInternet, sBuffer, 256, lRet)
        sData = sData & Mid(sBuffer, 1, lRet)
    Loop
   
    iRet = InternetCloseHandle(hInternet)
    wSource = sData
End Function



En un form

Código [Seleccionar] Expandir


Private Sub Form_Load()
Text1.Text = wSource("http://www.google.co.ve")
End Sub


Aunque sea en modo consola, me gustaría ver un screen, parece bueno por los comentarios, pero quiero ver screen... 

Saludos 

descargalo... no pesa nada y no hay peligro alguno siempre que tengas el source.

pequeña duda:  esto te lo descargas abres la consola y depsues k?????

ps ejecutarle comandos a tu victima O.o

  en este caso es casi lo mismo que en el español....

Buscate un ejemplo que funcione y revisa porque el tuyo no funciona.

porque no usas Open????

Mira aca te dejo un ejemplo

Código [Seleccionar] Expandir


Imports System
Imports System.IO

Public Class Form1
    Dim inputfile As StreamReader
    Dim lines As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        inputfile = System.IO.File.OpenText("C:\test.txt")

        Do While inputfile.Peek <> -1
            lines = inputfile.ReadLine
            TextBox1.Text = Split(lines, ",")(0) 'Nombre
            TextBox2.Text = Split(lines, ",")(1) 'Apellido
            TextBox3.Text = Split(lines, ",")(2) 'Edad
        Loop
    End Sub
End Class


C:\test.txt

Código [Seleccionar] Expandir


jose,moreno,15


Código [Seleccionar] Expandir


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strNombre As String

        strNombre = "Juan,Moreno,15"

        MsgBox(Split(strNombre, ",")(1))
    End Sub
End Class


Te devolveria el apellido.

0 = Nombre
1 = Apellido
2 = Edad

para que quieres el codigo. yo lo e puesto para ver que os parecia

Yo no quiero el codigo, solo te digo que si lo vas a postear en la sección de VB deberias poner el source sino postealo en otro foro no se en un foro de Software o algo asi.