anyone can examine with my code..

[nokmaster]

@dee-u

i have hera a program called dummy.exe and it on runs under ms-dos prompt
i want the result to be save into data.txt

this my the code:

Option Explicit
 
Dim O As Long
Dim CShell As String
Dim CSK As New clsSendKeys
 
'Form Load
Private Sub Form_Load()
cmdGenerate.Enabled = False
txtSerialNumber.Text = ""
txtDummy.Visible = False
txtExit.Visible = False
CShell = Environ("COMSPEC")
O = Shell(CShell & " > C:\data.txt", vbNormalFocus)
End Sub
 
'Serial Number
Private Sub txtSerialNumber_Change()
If txtSerialNumber.Enabled = True Then
    cmdGenerate.Enabled = True
End If
If txtSerialNumber.Text = "" Then
cmdGenerate.Enabled = False
End If
End Sub
 
'Generate
Private Sub cmdGenerate_Click()
CSK.Destination = O
CSK.SendKeys txtDummy.Text + vbCrLf
CSK.SendKeys txtSerialNumber.Text + vbCrLf
End Sub
 
'About
Private Sub cmdAbout_Click()
Call MsgBox("Saras Boxes (Activation String)" & vbCrLf & "" & vbCrLf & "Program by: monxxx - > NOKMASTERgsm (+639155618198)" & vbCrLf & "" & vbCrLf & "Thanks to: Spreader ;-)" & vbCrLf & "" & vbCrLf & "Greetings to: ed2k_5,HiTek_Promdi,rbtabanao,Kontact and for those i forgot to mention... ;-)" & vbCrLf & "" & vbCrLf & "This Windows Based program can be found on:" & vbCrLf & "" & vbCrLf & "               << [url]www.tapgsm.com.ph[/url] >>  ", vbOKOnly + vbInformation + vbApplicationModal, "About")
End Sub
 
'Exit
Private Sub cmdExit_Click()
CSK.Destination = O
CSK.SendKeys txtExit.Text + vbCrLf
End
End Sub