如何用VB

来源：百度知道 编辑：UC知道 时间：2024/05/19 12:27:35
如何把
123Q
456B
输入到C:\1.txt里面
如何运行C:\1.bat
如何修改注册表
删除HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
下的QQ.EXE项目
如果有详细的说明我会追+分哦~
有哪些关于注册表的设置的。关于U盘病毒的注册表的设置。回答得好的追+40分！还有怎么样实现错误返回

Private Sub Command1_Click()
Dim filenumber As Integer, i As Integer, a As Integer, b As Integer
Dim file As String
filenumber = FreeFile
file = "d:\1.txt"
Open file For Output As #filenumber
For i = 1 To 10
a = a + 1
b = b + 2
Print #filenumber, a, b
Next i
Close #filenumber
End Sub
比较简单的下面有~~不知道合适不 不合适也施舍点分吧
Private Sub Command1_Click()
filenumber = FreeFile
file = "d:\fdgdfgdfgfgf.txt"
Open file For Output As #1
Print #1, a.Text, b.Text
Close #1
End Sub