CMD‘Den Gelen Cevabı Almak (Yardım VB6)

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

CMD‘Den Gelen Cevabı Almak (Yardım VB6)

23/Haz/10 17:43 Kısayol Şikayet Özel Mesaj

DE5TROY3R

Kayıt Tarihi: 04/Nisan/2007

Dim cmdkomutu As String
cmdkomutu = "copy C:\dosya.txt C:\dosya2.txt"
Shell "cmd /c " & cmdkomutu, vbHide

Bu kod çalışıyor fakat gelen cevabıda almak istiyorum.

Shell "cmd /c " & cmdkomutu & " > C:\cevap.txt", vbHide

bu kodla da bir kere çalışıyor. Bir daha deneyince yeni program penceresi açıyor

Alıntı yap
23/Haz/10 19:05 Kısayol Şikayet Özel Mesaj

DE5TROY3R

Kayıt Tarihi: 04/Nisan/2007

Bat dosyası kullanarak yaptım

"cd.." gibi komutlar işlemiyor ozaman

Gizli bir cmd.exe çalıştırıp uygulama ile aralarında bağlantı kurmak istiyorum

Alıntı yap
24/Haz/10 19:15 Kısayol Şikayet Özel Mesaj

DE5TROY3R

Kayıt Tarihi: 04/Nisan/2007

VB6 dan başka bir dildede olur

Alıntı yap
24/Haz/10 19:20 Kısayol Şikayet Özel Mesaj

CHaRMaNDeR

Kayıt Tarihi: 05/Nisan/2003

vb.net kodları:

   Dim kk As New Process

   kk.StartInfo.Arguments = i.parametre

   kk.StartInfo.FileName = i.islem

   kk.StartInfo.UseShellExecute = False

   kk.StartInfo.RedirectStandardError = True

   kk.StartInfo.RedirectStandardOutput = True

   kk.StartInfo.CreateNoWindow = True

   kk.EnableRaisingEvents = True

   kk.Start()

   AddHandler kk.OutputDataReceived, AddressOf Deneme1

   AddHandler kk.ErrorDataReceived, AddressOf Deneme1

   kk.BeginOutputReadLine()

deneme1 fonksiyonuda şöyle:

   Public Function Deneme1(ByVal sender As Object, ByVal e As DataReceivedEventArgs)

    dim gelenveri as string

   gelenveri = e.data

   end function

Düşünüyorum, o halde varım.

Alıntı yap
01/Oca/12 23:49 Kısayol Şikayet Özel Mesaj

imparatore

Kayıt Tarihi: 01/Ocak/2010

DE5TROY3R bunu yazdı:
-----------------------------

Dim cmdkomutu As String
cmdkomutu = "copy C:\dosya.txt C:\dosya2.txt"
Shell "cmd /c " & cmdkomutu, vbHide

Bu kod çalışıyor fakat gelen cevabıda almak istiyorum.

Shell "cmd /c " & cmdkomutu & " > C:\cevap.txt", vbHide

bu kodla da bir kere çalışıyor. Bir daha deneyince yeni program penceresi açıyor

-----------------------------

Fikir vermek açısından, komut sonuna şöle birşey eklersen çıktı veriyor.

mesela;

dir >c:\a.txt

Alıntı yap

Toplam Hit: 1689 Toplam Mesaj: 5

Cevapla