主题：[求助]ft可以做生成工具吗？

http://www.foxtable.com/help/topics/2642.htm

 

各位早上好，来公司晚了。

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()

p.StandardInput.WriteLine("C:\Users\基永\Desktop\bootrom(0.3.7)_2108POE(920-7472)\rom_convert.exe" & " " & e.Form.Controls("TextBox1").Text & " " & e.Form.Controls("TextBox2").Text & " " & e.Form.Controls("DropBox1").Text, 1)

p.StandardInput.WriteLine("exit")

output.show("C:\Users\基永\Desktop\bootrom(0.3.7)_2108POE(920-7472)\rom_convert.exe " & e.Form.Controls("TextBox1").Text & " " & e.Form.Controls("TextBox2").Text & " " & e.Form.Controls("DropBox1").Text)-----你的意思output.show加入到这里面？这绝对不可能输出啊。要是把这句放入到命令窗口也肯定是不行的，不认识e参数啊。你是这个意思吗？
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)

 叫你先打开命令窗口，然后执行上面的代码，在命令窗口那里就有输出了啊。

 

 拷贝输出的内容，到cmd那里执行看报不报错

命令窗口能识别e参数？

此主题相关图片如下：error.png

 在窗口那里执行代码啊

命令窗口的话,就要用 froms("窗口名")  并且确保窗口在打开状态

你说的窗口不是指杂项---命令窗口？是设计好的窗口？

我们能QQ聊聊吗？315640115

 

1、你打开命令窗口；

 

2、去到你设计的窗口，运行，执行按钮代码

 

3、去命令窗口那里看得到的字符串啊

哦。这回事啊。把输出的字符串复制到cmd窗口，发现没进入都目录。应该是cd 指定的目录吧，在这个下面才有rom_convert.exe。

 

 

此主题相关图片如下：没进入到目录吧.png

 加入双引号看看，拷贝生成的语句，到cmd运行

 

output.show("""C:\Users\基永\Desktop\bootrom(0.3.7)_2108POE(920-7472)\rom_convert.exe"" " & e.Form.Controls("TextBox1").Text & " " & e.Form.Controls("TextBox2").Text & " " & e.Form.Controls("DropBox1").Text)-----