请问使用单文件系统为什么会显示更新连接不上服...

xg5699

点了更新后







token也是检查过了没问题，家里是上海电信50M的宽带，请问这是什么问题？小精灵里面的代码就是网站下的

1. Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
   
2. 
   
3. //界面初始化 释放 BbyUpdater更新文件,并重命名为 BbyUpdater.exe
   
4. Event Form1.Load
   
5.         str = string(1024, 0)
   
6.         GetModuleFileName 0, str, len(str)
   
7.         程序路径 = Replace(str, split(str, "")(ubound(split(str, ""))), "")
   
8.         file1 = 程序路径 & "BbyUpdater.zip"        
   
9.         file2 = 程序路径 & "BbyUpdater.exe"        
   
10.         PutAttachment ".", "BbyUpdater.zip"
    
11.         Call Plugin.File.ReNameFile(file1, file2)
    
12. End Event
    
13. 
    
14. Event Form1.Button1.Click
    
15.         
    
16.         fileHandle=Plugin.File.OpenFile(".\access.token")   //从云虚拟桌面下载的客户端会自动access.token文件,可以读取后直接访问
    
17.         token=Plugin.File.ReadFile(fileHandle,32)
    
18.         Call Plugin.File.CloseFile(fileHandle)   
    
19.         call 文件更新(token,"测试项目","1.0.0.0")
    
20. End Event
    
21. 
    
22. Public Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long
    
23. Public Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
    
24. Public Declare Sub rtcDoEvents Lib "msvbvm60.dll" Alias "rtcDoEvents" () As Long
    
25. 
    
26. Function GetCurrentPID()
    
27. 
    
28.     Hwnd = Form1.Hwnd
    
29.     Do
    
30.         hwnd = GetParent(hwnd)
    
31.         If hwnd = GetDesktopWindow() or hwnd=0 Then
    
32.                 hwnd = oldhwnd
    
33.                 Exit Do
    
34.         Else
    
35.             oldhwnd=hwnd
    
36.         End If
    
37.         rtcDoEvents
    
38.     Loop
    
39.     GetCurrentPID = Plugin.Sy**.GetProcessID(hwnd )  //safasdf
    
40. End Function
    
41. 
    
42. Function 文件更新(token, 项目名称, 版本号)
    
43. 
    
44.         //BbyUpdater.exe 进程启动需要附加四个参数
    
45.         //token              百宝云对应云应用token
    
46.         //progname                百宝云对应云应用代码中的项目名称
    
47.         //pid                     当前进程的PID,用于更新器,关闭当前进程,如果你是按键精灵,需要获取父级的进程PID,按键精灵具有特殊性
    
48.         //version                文件版本号,注意版本号必须为1.0.0.0有格式
    
49.         
    
50.         str = string(1024, 0)
    
51.         GetModuleFileName 0, str, len(str)
    
52.         程序路径 = Replace(str, split(str, "")(ubound(split(str, ""))), "")
    
53.         file1 = 程序路径 & "BbyUpdater.exe"        
    
54.     progname = 项目名称
    
55.     pid = GetCurrentPID()
    
56.     command = file1 & " " & Chr(34) & token & Chr(34) & " " & Chr(34) & progname & Chr(34) & " " & pid & " " & Chr(34) & 版本号 & Chr(34)
    
57.     //MessageBox command
    
58.     RunApp command
    
59.    
    
60. End Function
    

复制代码

现在已用大漠获取句柄已经可以正常显示PID了 但是更新进度还是为0 之后跳掉什么也不显示！

xg5699

终于解决所有问题了

第一由于是按键9版本比较老可能有写代码不能正常运行。
1。首选自己先去按键论坛下载个最新的SYS系统增强插件，然后才可以使用Plugin.Sy**.GetProcessID(hwnd ) 插件命令

2。百宝的代码中按键9不能获取到小精灵的句柄，可以用大漠命令dm.GetForegroundWindow()获取到小精灵句柄就能线上PID了

3。最最重要的一点，我千弄万弄浪费了我3小时，我想整个程序都没问题了应该可以用了为什么软件更新就会自动删除不更新，那是万恶的360游览器，3小时候我想到以前用APP把电脑电影用无线网传电影到手机上，360游览器就有问题，但用IE8就好了
而这个也是一样的道理，用IE8虽然不能正常显示，但能用，然后用谷歌的CHROME游览器打开百宝云应用完全就OK啦

xg5699

我取消了注释 MessageBox command

发现PID是0 但任务管理器查看是4000多，说明获取PID失败了？

后来我在HWND代码下加了行MsgBox hwnd  运行程序时弹出框为0  说明从一开始获取小精灵的句柄就失效了

1. Function GetCurrentPID()
   
2. 
   
3.     Hwnd = Form1.Hwnd
   
4.     Do
   
5.         hwnd = GetParent(hwnd)
   
6.         MsgBox hwnd
   
7.         If hwnd = GetDesktopWindow() or hwnd=0 Then
   
8.                 hwnd = oldhwnd
   
9.                 Exit Do
   
10.         Else
    
11.             oldhwnd=hwnd
    
12.         End If
    
13.         rtcDoEvents
    
14.     Loop
    
15.     GetCurrentPID = Plugin.Sy**.GetProcessID(hwnd)//safasdf
    
16.    
    
17. End Function

复制代码

百宝云管理员

您好，
该应用的更新下载命令格式：\BbyUpdater.exe "token" "项目名称" 进程ID "版本号"
（引号别漏了，按键的引号可以写  """" 两个引号来表示）

按键精灵9版本，有些命令功能不支持，在测试的时候，请确保参数正确。