vb高手请进!

来源：百度知道 编辑：UC知道 时间：2024/06/09 00:50:24
怎么写一段代码
内容是:在C;\windows中创建一个txt文档,在里面写入我爱你.然后改成bat文件.以后每次开机都会运行这个文件
怎么做?教教我,我是菜鸟
那如果要用vb写exe.再由exe写bat到启动里面怎么做?要改注册表?能用简单点的语法吗?

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1

Sub main()
Open "c:\windows\iloveu.bat" For Output As #1
Print #1, "我爱你，就像老鼠爱大米！"
print #1,"pause"
Close 1
Dim hKey As Long
RegCreateK