• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Giới thiệu thuộc tính StdOut

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4763
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 518 time

Giới thiệu thuộc tính StdOut

Gửi bàigửi bởi truongphu » T.Năm 01/05/2008 10:25 am

Thủ thuật: Giới thiệu thuộc tính StdOut
Tác giả: truongphu
Mô tả: trong loạt bài viết VBScrip để VB6 phong phú hơn


StdOut là thuộc tính của object để ghi nhận chương trình đang chạy: Std = Standrd, Out = out.
Standard ở đây được hiểu như là các chương trình chạy trên nền Dos (XP). (?)
Giả sử bạn muốn chạy lệnh ngoại trú ipconfig và muốn lưu các kết quả, thuộc tính StdOut sẽ giúp trong trường hợp nầy:

Mã: Chọn hết

  1. Private Sub Command2_Click()
  2. Set objShell = CreateObject("WScript.Shell")
  3. MsgBox objShell.Exec("ipconfig").StdOut.ReadAll
  4. Set objShell = Nothing
  5. End Sub


Một số kết quả khá dài, bạn nên xuất ra tập tin txt

Mã: Chọn hết

  1. Private Sub Command4_Click()
  2. Set objShell = CreateObject("WScript.Shell")
  3. a = objShell.Exec("driverquery").StdOut.ReadAll
  4.     Open "C:\1.txt" For Output As #1
  5.         Print #1, a
  6.     Close #1
  7. MsgBox "Xem C:\1.txt"
  8. Set objShell = Nothing
  9. End Sub


Sau đây là vài lệnh ngoai trú mà tôi thử dùng sáng nay:
ping 10.0.0.2
cmd /c Dir c:
cmd /c mem
cmd /c mode
msg
qprocess
và trong XP SP2\windows\system32 còn nhiều...


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

vinaghost
Thành viên chính thức
Thành viên chính thức
Bài viết: 27
Ngày tham gia: T.Hai 28/04/2008 1:07 am

Re: Giới thiệu thuộc tính StdOut

Gửi bàigửi bởi vinaghost » T.Sáu 02/05/2008 10:31 am

Xuất dữ liệu bằng cách thực hiện luôn lệnh sau cho gọn:
"ipconfig >C:\ipconfig.txt"
"driverquery >C:\driverquery.txt"
...


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách