一个脚本双击管用，但是加入启动项中却不会开机启动？

ac5474012

我做了一个脚本，将这个脚本加入启动中。

脚本内容
1.通过FTP下载一个文件
2.打开文件

1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
2. #AutoIt3Wrapper_Icon=..\..\..\..\图标\3919\3919\28.ico
   
3. #AutoIt3Wrapper_Compression=4
   
4. #AutoIt3Wrapper_UseUpx=n
   
5. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
   
6. #include <FTPEx.au3>
   
7. Local $server = '10.1.56.101'  ;服务器0
   
8. Local $server1 = '10.1.56.220'  ;服务器1
   
9. Select
   
10. Case p($server) = 1
    
11. $name = 'run'              ;用户名
    
12. $pass = 'admin'              ;密码
    
13. $Open = _FTP_Open('MyFTP')  ;打开一个FTP会话
    
14. $Conn = _FTP_Connect($Open,$server,$name,$pass,0,21)  ;连接到ftp服务器
    
15. $ftp_download = _FTP_FileGet($Conn,"\run.exe",@TempDir&"\run.exe",False)  ;下载文件(True=覆盖 False=不覆盖(默认))
    
16. ;~ MsgBox(0,"下载",$Ftp_download)
    
17. If $Ftp_download = 0 Then MsgBox(0,"错误","FTP文件下载失败")
    
18. $Ftpc = _FTP_Close($Open)  ;关闭 _FTP_Open 打开的回话
    
19. Sleep(1000)
    
20. Run(@TempDir&"\run.exe")
    
21. Case p($server1) = 1
    
22. $name = 'run'              ;用户名
    
23. $pass = 'admin'              ;密码
    
24. $Open = _FTP_Open('MyFTP')  ;打开一个FTP会话
    
25. $Conn = _FTP_Connect($Open,$server1,$name,$pass,0,21)  ;连接到ftp服务器
    
26. $ftp_download = _FTP_FileGet($Conn,"\run.exe",@TempDir&"\run.exe",False)  ;下载文件(True=覆盖 False=不覆盖(默认))
    
27. ;~ MsgBox(0,"下载",$Ftp_download)
    
28. If $Ftp_download = 0 Then MsgBox(0,"错误","FTP文件下载失败")
    
29. $Ftpc = _FTP_Close($Open)  ;关闭 _FTP_Open 打开的回话
    
30. Sleep(1000)
    
31. Run(@TempDir&"\run.exe")
    
32. EndSelect
    
33. 
    
34. Func p($server);检测PIng是否通
    
35.         Local $var = Ping($server, 250)
    
36. If $var Then; 还可以:  If @error = 0 Then ...
    
37. ;~     MsgBox(0,"状态-成功","收发时间间隔:" & $var & "毫秒")
    
38. Return 1
    
39. Else
    
40. ;~     MsgBox(0,"状态-失败","错误代码:" & @error)
    
41. Return 0
    
42. EndIf
    
43. 
    
44. EndFunc

复制代码

问题是我双击管用，但是启动时不管用这是为什么？

xms77

用注册表注册试试先
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","OCR Control", "REG_SZ", "D:\OCR software setup\OCR Control.exe")

xms77

我的一个类似的软件，创建快捷方式在startup中没有问题

1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
2. #AutoIt3Wrapper_icon=C:\WINDOWS\system32\SHELL32.dll|-209
   
3. #AutoIt3Wrapper_Outfile=OCR IP Address Collector_Rev2.1.exe
   
4. #AutoIt3Wrapper_Res_Comment=自动发送OCR电脑的IP地址到FTP服务器上的OCR IP Collect中的OCR IP的列表中
   
5. #AutoIt3Wrapper_Res_Fileversion=3.0
   
6. #AutoIt3Wrapper_Res_LegalCopyright=CopyRight 2011
   
7. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
   
8. #include <file.au3>
   
9. #include <array.au3>
   
10. #include <date.au3>
    
11. #include <FTPEx.au3>
    
12. 
    
13. Opt("TrayIconHide", 1)             ;软件运行时不显示图标在系统托盘
    
14. Sleep(60000)  ;等待系统启动完毕，以便可靠连接FTP服务器
    
15. $server = "10.38.91.191"
    
16. $username = "sea"
    
17. $pass = "gate"
    
18. 
    
19. $Open = _FTP_Open('MyFTP Control')
    
20. $Conn = _FTP_Connect($Open, $server, $username, $pass, 0, "21")
    
21. 
    
22. If $conn Then       
    
23.         ;~ 把FTP上的制定文件下载到本机的C:\
    
24.         $File_Get = _FTP_FileGet($Conn,"OCR IP record\OCR IP.txt","C:\OCR IP.txt")
    
25.         If $File_Get = 1 Then
    
26.                 Dim $aRecords,$Flag = 0
    
27.                 If  _FileReadToArray("C:\ocr ip.txt",$aRecords) Then
    
28.                         ;_ArrayDisplay($aRecords)
    
29.                         For $i = 1 To $aRecords[0]
    
30.                                 If StringRegExp($aRecords[$i],@ComputerName,0) Then
    
31.                                         $aRecords[$i] = @ComputerName & " " & @IPAddress1 & " -- latest updated at " & _now()
    
32.                                         $flag = 1
    
33.                                         ExitLoop
    
34.                                 EndIf
    
35.                         Next
    
36.                         If $flag = 0 Then
    
37.                                 $temp = @ComputerName & " " & @IPAddress1 & " -- latest updated at " & _now()
    
38.                                 _ArrayAdd($aRecords,$temp)
    
39.                         EndIf
    
40.                 EndIf
    
41. 
    
42.                 Do             ;去除空行
    
43.                         $k = 0       
    
44.                         For $i = 1 To UBound($aRecords)-1
    
45.                                 If $aRecords[$i] = "" Then
    
46.                                         _ArrayDelete($aRecords,$i)
    
47.                                         $k += 1
    
48.                                         ExitLoop
    
49.                                 EndIf
    
50.                         Next
    
51.                 Until $k = 0
    
52. 
    
53.                 $hFile = FileOpen("c:\ocr ip.txt", 2)
    
54.                 _FileWriteFromArray($hFile,$aRecords,1)
    
55.                 FileClose($hFile)
    
56.                
    
57.                 _FTP_FilePut($Conn, "C:\OCR IP.txt", "OCR IP record\OCR IP.txt")
    
58.                 FileDelete("c:\ocr ip.txt")               
    
59.         EndIf
    
60.         _FTP_Close($Conn)
    
61. EndIf
    
62. Exit

复制代码

ac5474012

我再试试

1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
2. #AutoIt3Wrapper_Icon=..\..\..\..\图标\3919\3919\28.ico
   
3. #AutoIt3Wrapper_Compression=4
   
4. #AutoIt3Wrapper_UseUpx=n
   
5. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
   
6. #include <FTPEx.au3>
   
7. Sleep(10000)
   
8. Local $server = '10.1.56.101'  ;服务器0
   
9. Local $server1 = '10.1.56.220'  ;服务器1
   
10. Select
    
11. Case p($server) = 1
    
12. $name = 'run'              ;用户名
    
13. $pass = 'admin'              ;密码
    
14. $Open = _FTP_Open('MyFTP')  ;打开一个FTP会话
    
15. $Conn = _FTP_Connect($Open,$server,$name,$pass,0,21)  ;连接到ftp服务器
    
16. $ftp_download = _FTP_FileGet($Conn,"\run.exe",@TempDir&"\run.exe",False)  ;下载文件(True=覆盖 False=不覆盖(默认))
    
17. ;~ MsgBox(0,"下载",$Ftp_download)
    
18. If $Ftp_download = 0 Then MsgBox(0,"错误","FTP文件下载失败")
    
19. $Ftpc = _FTP_Close($Open)  ;关闭 _FTP_Open 打开的回话
    
20. Sleep(1000)
    
21. Run(@TempDir&"\run.exe")
    
22. Case p($server1) = 1
    
23. $name = 'run'              ;用户名
    
24. $pass = 'admin'              ;密码
    
25. $Open = _FTP_Open('MyFTP')  ;打开一个FTP会话
    
26. $Conn = _FTP_Connect($Open,$server1,$name,$pass,0,21)  ;连接到ftp服务器
    
27. $ftp_download = _FTP_FileGet($Conn,"\run.exe",@TempDir&"\run.exe",False)  ;下载文件(True=覆盖 False=不覆盖(默认))
    
28. ;~ MsgBox(0,"下载",$Ftp_download)
    
29. If $Ftp_download = 0 Then MsgBox(0,"错误","FTP文件下载失败")
    
30. $Ftpc = _FTP_Close($Open)  ;关闭 _FTP_Open 打开的回话
    
31. Sleep(1000)
    
32. Run(@TempDir&"\run.exe")
    
33. EndSelect
    
34. 
    
35. Func p($server);检测PIng是否通
    
36.         Local $var = Ping($server, 250)
    
37. If $var Then; 还可以:  If @error = 0 Then ...
    
38. ;~     MsgBox(0,"状态-成功","收发时间间隔:" & $var & "毫秒")
    
39. Return 1
    
40. Else
    
41. ;~     MsgBox(0,"状态-失败","错误代码:" & @error)
    
42. Return 0
    
43. EndIf
    
44. Case Else
    
45.         MsgBox(0,"run网络未发现","您若看到这条信息请将其忽略，此信息对用户无意义请无向网管中心询问。")
    
46. EndFunc

复制代码

xianhou

编译成exe文件。

ac5474012

回复 5# xianhou

会报错，等等把改好的发上来吧。

andersonljw

注册表注册试试先

ac5474012

回复 7# andersonljw

怎么添加来着？

xms77

回复 8# ac5474012
2楼的列子不是注册表启动项里面添加吗？

leon460

是不是运行身份的问题，在当前用户下用管理员身份验证就有可能有问题的，
尝试在当前用户下运行

hzxymkb

直接放在启动项那里应该没事的！我在XP下正常！

ac5474012

回复 9# xms77

哦 对没看见~

ac5474012

回复 10# leon460

我也顾虑这个问题

ac5474012

回复 11# hzxymkb

时间问题时间问题，我改改

ac5474012

这个应该没问题，不过还没有测试。

1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
2. #AutoIt3Wrapper_Icon=..\..\..\..\图标\3919\3919\28.ico
   
3. #AutoIt3Wrapper_Compression=4
   
4. #AutoIt3Wrapper_UseUpx=n
   
5. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
   
6. #include <FTPEx.au3>
   
7. ;~ $server1变量用作FTP服务器地址--------------------------------
   
8. Local $server1="10.1.56.101"
   
9. Local $server2="10.1.56.220"
   
10. ;~ ----------------------------------------------------------
    
11. ;~ $ip变量用作检测是否连接到网络的指标------------------------------
    
12. Local $ip="10.1.56.100"
    
13. ;~ ------------------------------------------------------------------
    
14. link()
    
15. 
    
16. Select
    
17. Case ping_($server1) = 1
    
18. Ftp($server1,"21","run","admin")
    
19. Case ping_($server2) = 1
    
20. Ftp($server2,"21","run","admin")
    
21. Case Else
    
22.         MsgBox(0,"run网络未发现","您若看到这条信息请点击确定将其忽略，此信息对用户无意义请勿向网管中心询问。")
    
23. EndSelect
    
24. 
    
25. Func ping_($server)
    
26. ;~ 功能：检测PIng是否可用
    
27. ;~ 用法：ping_(需要检测的IP地址)
    
28. Local $var = Ping($server)
    
29. If $var Then
    
30. ;~     MsgBox(0,"状态-成功","收发时间间隔:" & $var & "毫秒")
    
31. Return 1
    
32. Else
    
33. ;~     MsgBox(0,"状态-失败","错误代码:" & @error)
    
34. Return 0
    
35. EndIf
    
36. EndFunc
    
37. 
    
38. Func Ftp($server,$Port,$name,$pass)
    
39. ;~ 功能：使用FTP协议下载并运行一个文件
    
40. ;~ 用法：ftp(服务器地址,端口,用户名,密码)
    
41. $Open = _FTP_Open('MyFTP')  ;打开一个FTP会话
    
42. $Conn = _FTP_Connect($Open,$server,$name,$pass,0,$Port)  ;连接到ftp服务器
    
43. $ftp_download = _FTP_FileGet($Conn,"\run.exe",@TempDir&"\run.exe",False)  ;下载文件(True=覆盖 False=不覆盖(默认))
    
44. ;~ MsgBox(0,"下载",$Ftp_download)
    
45. If $Ftp_download = 0 Then MsgBox(0,"错误","FTP文件下载失败")
    
46. $Ftpc = _FTP_Close($Open)  ;关闭 _FTP_Open 打开的回话
    
47. Sleep(1000)
    
48. Run(@TempDir&"\run.exe")
    
49. EndFunc
    
50. 
    
51. Func link()
    
52. ;~ 功能：检测是否连接到网络
    
53. ;~ 用法：这是一个关卡，如果连接到网络就会立即通过，如果没有就是大约持续30秒的时间把。
    
54.         Local $timer = 0
    
55.         Local $valve = 7000
    
56.         While $timer <= 100
    
57.                 If ping_($server1) = 1 Then $timer += 100
    
58.                 If ping_($server2) = 1 Then $timer += 100
    
59.                 If ping_($ip) = 1 Then $timer += 100
    
60.                 $timer += 5
    
61.                 $valve -= 1000
    
62.                 Sleep(500 + $valve)
    
63.         WEnd
    
64. EndFunc       
    

复制代码