关于易语言网截无法截取的问题,求高手指点

细菌绽放

自己写了个小程序研究一下,弄了半天怎么摆弄就是截取不到东西~资料也查了不少,万般无奈找不到原因特来求助.谢谢！
ESPI11.rar (46.6 KB, 下载次数: 134)

2011-10-19 01:38 上传

点击文件名下载附件

1. .版本 2
   
2. .支持库 eNetIntercept
   
3. .支持库 eAPI
   
4. .支持库 spec
   
5. 
   
6. 
   
7. .程序集 窗口程序集1
   
8. .程序集变量 安装, 网络服务安装
   
9. .程序集变量 指定进程名, 文本型
   
10. .程序集变量 系统, 系统信息
    
11. 
    
12. 
    
13. .子程序 __启动窗口_创建完毕
    
14. 
    
15. 
    
16. .判断开始 (安装.是否已安装 () ＝ 真)
    
17.     编辑框1.加入文本 (“欢迎使用” ＋ #换行符)
    
18. 
    
19. 
    
20. .默认
    
21.     写到文件 (系统.系统目录 ＋ “\ESPI11.dll”, #ESPI11)
    
22.     安装.安装 (系统.系统目录 ＋ “\ESPI11.dll”)
    
23.     信息框 (“请重新启动程序”, 0, )
    
24.     结束 ()
    
25. .判断结束
    
26. 
    
27. 
    
28. 
    
29. 
    
30. .子程序 _按钮1_被单击
    
31. .局部变量 文本长度, 整数型
    
32. .局部变量 进程名长度, 整数型
    
33. .局部变量 字符位置, 整数型
    
34. 
    
35. 
    
36. 字符位置 ＝ 0
    
37. 通用对话框1.打开 ()
    
38. 编辑框2.内容 ＝ 通用对话框1.文件名
    
39. 文本长度 ＝ 取文本长度 (编辑框2.内容)
    
40. .判断循环首 (字符位置 ＜ 文本长度)
    
41.     .如果真 (取文本左边 (取文本右边 (编辑框2.内容, 字符位置), 1) ＝ “\”)
    
42.         跳出循环 ()
    
43.     .如果真结束
    
44.     字符位置 ＝ 字符位置 ＋ 1
    
45. .判断循环尾 ()
    
46. 指定进程名 ＝ 取文本右边 (编辑框2.内容, 字符位置 － 1)
    
47. 
    
48. 
    
49. .子程序 _按钮2_被单击
    
50. 
    
51. 
    
52. 编辑框1.加入文本 (“等待5秒.....” ＋ #换行符)
    
53. 运行 (编辑框2.内容, 假, )
    
54. 延迟 (1000 × 5)
    
55. .如果 (网截1.打开 () ＝ 真)
    
56.     编辑框1.加入文本 (“网截启动成功” ＋ #换行符)
    
57. .否则
    
58.     编辑框1.加入文本 (“网截启动失败” ＋ #换行符)
    
59. .如果结束
    
60. 
    
61. 
    
62. 
    
63. 
    
64. .子程序 _网截1_调发送, 整数型
    
65. .参数 调用者信息, 调用者信息, 参考
    
66. .参数 套接字句柄, 整数型, 参考
    
67. .参数 网络数据, 网络数据, 参考
    
68. .参数 调用方式, 整数型, 参考
    
69. 
    
70. 
    
71. .如果真 (调用者信息.取进程名 () ＝ 指定进程名)
    
72.     编辑框1.加入文本 (“Send:”, 网络数据.到文本 (), #换行符)
    
73.     返回 (#拦截操作.默认调用)
    
74. .如果真结束
    
75. 返回 (#拦截操作.默认调用)
    
76. 
    
77. 
    
78. .子程序 _网截1_调定向发送, 整数型
    
79. .参数 调用者信息, 调用者信息, 参考
    
80. .参数 套接字句柄, 整数型, 参考
    
81. .参数 网络数据, 网络数据, 参考
    
82. .参数 调用方式, 整数型, 参考
    
83. .参数 网址, 网址信息, 参考
    
84. 
    
85. 
    
86. .如果真 (调用者信息.取进程名 () ＝ 指定进程名)
    
87.     编辑框1.加入文本 (“SendD:”, 网络数据.到文本 (), #换行符)
    
88.     返回 (#拦截操作.默认调用)
    
89. .如果真结束
    
90. 返回 (#拦截操作.默认调用)
    
91. 
    
92. 
    
93. .子程序 _网截1_调接收, 整数型
    
94. .参数 调用者信息, 调用者信息, 参考
    
95. .参数 套接字句柄, 整数型, 参考
    
96. .参数 网络数据, 网络数据, 参考
    
97. .参数 调用方式, 整数型, 参考
    
98. 
    
99. 
    
100. .如果真 (调用者信息.取进程名 () ＝ 指定进程名)
     
101.     编辑框1.加入文本 (“Recv:”, 网络数据.到文本 (), #换行符)
     
102.     返回 (#拦截操作.默认调用)
     
103. .如果真结束
     
104. 返回 (#拦截操作.默认调用)
     
105. 
     
106. 
     
107. .子程序 _网截1_调定向接收, 整数型
     
108. .参数 调用者信息, 调用者信息, 参考
     
109. .参数 套接字句柄, 整数型, 参考
     
110. .参数 网络数据, 网络数据, 参考
     
111. .参数 调用方式, 整数型, 参考
     
112. .参数 网址, 网址信息, 参考
     
113. 
     
114. 
     
115. .如果真 (调用者信息.取进程名 () ＝ 指定进程名)
     
116.     编辑框1.加入文本 (“RecvD:”, 网络数据.到文本 (), #换行符)
     
117.     返回 (#拦截操作.默认调用)
     
118. .如果真结束
     
119. 返回 (#拦截操作.默认调用)

复制代码

cloud

首先说一下，本人不是高手，但是本人热爱网截，是专门从事网截程序的研究的。
你的程序问题不算很大，但是直接会导致截取数据失败，
问题一：
系统.系统目录   或者是    系统安装目录

这样的命令在输出调试文本的时候直接是空白文本，安装位置都找不到，不失败就见鬼了。

问题二：
.如果真 (调用者信息.取进程名 () ＝ 指定进程名)   ‘这里编写错误，正确的编写手法__如果真（寻找文本（调用者信息.取进程名，指定进程名，1,）！=-1）

    编辑框1.加入文本 (“Recv:”, 网络数据.到文本 (), #换行符)

    返回 (#拦截操作.默认调用)

.如果真结束

返回 (#拦截操作.默认调用)

最后，如果有关于网截不明白的什么，直接Q我：1990850157

wAnGsky

{:3_244:}{:3_226:}{:3_233:}

woaitt418

不会，帮顶上去。。。。{:3_234:}

细菌绽放

HELP ME~{:3_244:}

细菌绽放

精易求不到答案么~~~~~~

神无乐

有些系统需要管理员权限才能 运行网截
需要静态编译 +右键 使用管理员权限运行 才有效果的