Question

用VB怎么写批处理

求大神帮我用VS2010写个关于批处理的项目，不要生成程序，保留那个项目，因为批处理我要换很多个。。。。。要求就是点一个按钮，然后在当前程序所在目录生成一个批处理，然后后台运行，就是运行时看不见这个批处理的黑框，然后等待2秒之后删除这个批处理。要写的批处理是
start dnf.exe HFYHa9Jb8xSjYrM84SbKGSey9DiGouAXCJz7jMMcUS4Dxo5hSli2ATidE7EzSrLTNwAESzcMyWGEdyD6V4fAePWKvjr2JKrkcI9XiYnIJs4laLEDtZ3PvbMJ4uUHHjX40G/PQK8Ae20irHdxHL/LaMc+FFZ1piH6g5BXClb4sJNN4xJVB4HmbKmQRA7VRd3GKxNHx9nekpkkFLrbkMjzdgtshRI68iUqjLlyrlsbFyFMAhWyDV1tzL7K2+Jk3o8YPcX1KTu1Q1wkyZWLWAo4VbsgDXx6dEK1hvo9X10pqdOiqEwmzkPMwIHNL1PE9dscCQEFqgOI2Wj+lMT9/sRtSg==

麻烦发到850926265@qq.com 谢谢，成功了追分

Answer 1

    Dim strFilePath As String = Application.ExecutablePath & "\aaa.bat"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sw As New System.IO.StreamWriter(strFilePath, False)
        sw.WriteLine("start dnf.exe HFYHa9Jb8xSjYrM84SbKGSey9DiGouAXCJz7jMMcUS4Dxo5hSli2ATidE7EzSrLTNwAESzcMyWGEdyD6V4fAePWKvjr2JKrkcI9XiYnIJs4laLEDtZ3PvbMJ4uUHHjX40G/PQK8Ae20irHdxHL/LaMc+FFZ1piH6g5BXClb4sJNN4xJVB4HmbKmQRA7VRd3GKxNHx9nekpkkFLrbkMjzdgtshRI68iUqjLlyrlsbFyFMAhWyDV1tzL7K2+Jk3o8YPcX1KTu1Q1wkyZWLWAo4VbsgDXx6dEK1hvo9X10pqdOiqEwmzkPMwIHNL1PE9dscCQEFqgOI2Wj+lMT9/sRtSg==")
        sw.Flush()
        sw.Close()
        Shell(strFilePath, AppWinStyle.Hide)
        Timer1.Interval = 2000
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Enabled = False
        FileSystem.Kill(strFilePath)
    End Sub

追问

大神，我复制下去出现错误了。。。。
错误 1 未声明“Timer1”。它可能因其保护级别而不可访问。 C:\Users\Form1.vb 11 9 WindowsApplication1
错误 3 Handles 子句要求一个在包含类型或它的某个基类型中定义的 WithEvents 变量。
怎么改。。。。。