用opera调用VBS打开相对路径下的网页的问题

batsealine

这是卡饭一牛人写的

1. Set objShell = CreateObject("Wscript.Shell")
   
2. a = WScript.ScriptFullName
   
3. b = Left(a,Len(a) - Len(WScript.ScriptName))
   
4. Set objHTML=CreateObject("htmlfile")
   
5. c=objHTML.ParentWindow.ClipboardData.GetData("text")
   
6. If c = "1" Then
   
7. c = "皮肤图标查看.mht"
   
8. d = "opera.exe file://localhost/" & b & c
   
9. ElseIf c = "2" Then
   
10. c = "按钮制作工具.mht"
    
11. d = "opera.exe file://localhost/" & b & c
    
12. ElseIf c = "3" Then
    
13. c = "首选项.mht"
    
14. d = "opera.exe file://localhost/" & b & c
    
15. ElseIf c = "4" Then
    
16. c = "web"
    
17. d = "opera.exe file://localhost/" & b & c
    
18. ElseIf c = "5" Then
    
19. c = "web"
    
20. d = "C:\Windows\explorer.exe" & " " & b & c
    
21. 
    
22. ElseIf c = "6" Then
    
23. c = "fs.html"
    
24. d = "opera.exe file://localhost/" & b & c
    
25. 
    
26. ElseIf c = "" Then
    
27. c = "web"
    
28. d = "opera.exe file://localhost/" & b & c
    
29. 
    
30. ElseIf c = "" Then
    
31. c = "profile"
    
32. d = "C:\Windows\explorer.exe" & " " & b & c
    
33. End If
    
34. objShell.Run d
    
35. 'Set objShell = CreateObject("Wscript.Shell")
    
36. a = WScript.ScriptFullName
    
37. b = Left(a,Len(a) - Len(WScript.ScriptName))
    
38. Set objHTML=CreateObject("htmlfile")
    
39. c=objHTML.ParentWindow.ClipboardData.GetData("text")
    
40. If c = "1" Then
    
41. c = "皮肤图标查看.mht"
    
42. d = "opera.exe file://localhost/" & b & c
    
43. ElseIf c = "2" Then
    
44. c = "按钮制作工具.mht"
    
45. d = "opera.exe file://localhost/" & b & c
    
46. ElseIf c = "3" Then
    
47. c = "首选项.mht"
    
48. d = "opera.exe file://localhost/" & b & c
    
49. ElseIf c = "4" Then
    
50. c = "web"
    
51. d = "opera.exe file://localhost/" & b & c
    
52. ElseIf c = "5" Then
    
53. c = "web"
    
54. d = "C:\Windows\explorer.exe" & " " & b & c
    
55. 
    
56. ElseIf c = "6" Then
    
57. c = "seam\fs.html"
    
58. d = "opera.exe file://localhost/" & b & c
    
59. 
    
60. ElseIf c = "" Then
    
61. c = "web"
    
62. d = "opera.exe file://localhost/" & b & c
    
63. 
    
64. ElseIf c = "" Then
    
65. c = "profile"
    
66. d = "C:\Windows\explorer.exe" & " " & b & c
    
67. 
    
68. End If
    
69. objShell.Run d
    
70. '其中的文件和文件夹与VBS在同一目录

复制代码

调用它的opera命令为

1. Focus address field & Clear & Insert, "4" & Delay, 10 & Select all & Cut & Execute program, "optools\document.vbs"
   
2. 命令解释: 聚焦地址栏 & 清空 & 输入4 & 延迟10 & 选中4 & 剪切 & 调用VBS
   
3. 结果: 在新标签中打开web文件夹（为何会在新标签中打开有点费解，因为若直接复制全路径再enter是在当前标签打开）

复制代码

问题: 每次运行命令后剪贴板里的东西会改变，希望有高手能将其改进，让opera直接传递参数给VBS，其格式为Execute program, "程序路径以及程序名", "参数"。不过要是VBS不能接收opera参数，我希望先 Execute program, "optools\document_start\1.vbs",再用1.vbs调用document.vbs打开第一个选项即“皮肤图标查看.mht”

Demon

http://bbs.kafan.cn/thread-1370407-1-1.html

连命令行参数都不会用，果然是牛人