第一种方法,修改注册表
Dim strString As String Dim keyhand As Long Dim r As Long strString = App.Path & "\" & App.EXEName & ".exe" r = RegCreateKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand) r = RegSetValueEx(keyhand, "jsjuq", 0, REG_SZ, ByVal strString, Len(strString)) r = RegCloseKey(keyhand)
第二种方法,放到启动栏
Dim aa$, bb$
Private Sub Command1_Click()
aa = Text1.Text
bb = Environ("userprofile") & "\「开始」菜单\程序\启动\Film.exe"
FileCopy aa, bb
MsgBox "设置完毕"
End Sub