[VB6] Mengirim Command ke CommandPrompt dan Mengambil Hasil Command

Posted by : Unknown Sunday, 23 February 2014

Pendahuluan

Command prompt adalah sebuah perintah DOS yg ada di windows yg bisa kita akses secara online atau offline, command prompt sendiri merupakan sebuah fitur yg cukup menarik dan memiliki fungsi yg cukup berguna, dimana kita bisa mengakses, mengganti nama, memindahkan sebuah file dengan mudah melalui fitur ini. Tapi tidak semua pengguna komputer yg menggunakan fitur ini dengan bijaksana, adapun beberapa hacker yg sering melalukan aksi jahilnya melalui fitur ini. Disini saya akan membagi ilmu bagaimana cara mengirim intruksi/perintah ke command prompt dan mengambil laporanya

Module yang diperlukan

Public Sub Send(st As String)
    Open App.Path & "\sub.cmd" For Output As #1
        Print #1, st & " > """ & App.Path & "\result.txt"""
    Close #1
    Shell App.Path & "\sub.cmd", vbHide
End Sub
Public Function Report() As String
    If Dir(App.Path & "\result.txt") = "" Then Exit Function
    Open App.Path & "\result.txt" For Input As #1
        Report = Input(LOF(1), 1)
    Close #1
End Function