I grew a brain after my posting and decided to try some things out. Among them was sending key strokes to the application which worked. I case your wondering, it looks like this:
<----------------------
Private Sub Command1_Click()
End
End Sub
Public Sub Form_Load()
Dim File, myPath, bol
Set File = CreateObject("Scripting.FileSystemObject")
myPath = App.Path
bol = File.FileExists("C:\acp.inf")
If bol = True Then
Call Shell("explorer.exe " & myPath, 1)
KillMe
Exit Sub
Else
File.CopyFile myPath & "autorun.inf", "C:\acp.inf"
Call Shell(myPath & "Tools_of_the_Trade.exe", vbMaximizedFocus)
KillMe
Exit Sub
End If
End Sub
Public Sub KillMe()
SendKeys "C"
End
End Sub
-------------------------------------->
Anyway, why am I talking VB anyway?? long live PHP!!!!