Question

可以帮我把易语言翻成VB吗?(谢谢) 之1 还有之二喔!!

.版本 2
.支持库 eNetIntercept
.支持库 iext
.支持库 spec
.支持库 eAPI
.支持库 EThread

.程序集 窗口程序集2
.程序集变量 F1功夫发货, 逻辑型
.程序集变量 F2杀人, 逻辑型
.程序集变量 安装, 网络服务安装
.程序集变量 长度
.程序集变量 F1还原, 逻辑型
.程序集变量 F2还原, 逻辑型
.程序集变量 F5卡人啊, 逻辑型
.程序集变量 F5还原啊, 逻辑型
.程序集变量 定时, 整数型

.子程序 _窗口1_创建完毕

设置窗口透明度 (_启动窗口.取窗口句柄 (), 200)
时钟_进程.时钟周期 ＝ 10
写到文件 (“C:\WINDOWS\system32\ESPI11.dll”, #服务文件)
安装.安装 (“C:\WINDOWS\system32\ESPI11.dll”)
网截.打开 ()
监视热键 (&f1, #F1键)
监视热键 (&f2, #F2键)
监视热键 (&f4, #F4键)
监视热键 (&f5, #F5键)
监视热键 (&f7, #F7键)
监视热键 (&挤频道, #F8键)
监视热键 (&准心开关, #F10键)

.子程序 _窗口1_将被销毁

网截.关闭 ()
安装.卸载 ()
撤消监视热键 ()
删除文件 (“C:\WINDOWS\twain_32\fghj.dll”)

.子程序 _网截_调发送, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考

.如果真 (寻找文本 (调用者信息.取进程名 (), “SpecialForce.exe”, , 假) ≠ -1)
长度 ＝ 取字节集长度 (网络数据.到字节集 ())
.如果真 (F1功夫发货 ＝ 真)
网络数据.释放 ()
返回 (2)
.如果真结束

.如果真 (长度 ＝ 400)
网络数据.释放 ()
返回 (2)

.如果真结束

.如果真 (F1还原)
网络数据.从字节集分配 (还原字节集 (“{227,3,0}”))
F1还原 ＝ 假
返回 (2)

.如果真结束

.如果真 (F5卡人啊 ＝ 真)

网络数据.释放 ()
返回 (1)

.如果真结束

.如果真 (长度 ＝ 400)
网络数据.释放 ()
返回 (1)

.如果真结束

.如果真 (F5还原啊)
网络数据.从字节集分配 (还原字节集 (“{227,3,0}”))
F5还原啊 ＝ 假
返回 (1)
.如果真结束

.如果真结束

.子程序 _网截_调定向发送, 整数型
.参数 调用者信息, 调用者信息, 参考
.参数 套接字句柄, 整数型, 参考
.参数 网络数据, 网络数据, 参考
.参数 调用方式, 整数型, 参考
.参数 网址, 网址信息, 参考

.如果真 (寻找文本 (调用者信息.取进程名 (), “SpecialForce.exe”, , 假) ≠ -1)
长度 ＝ 取字节集长度 (网络数据.到字节集 ())
.如果真 (F1功夫发货 ＝ 真)
网络数据.释放 ()
返回 (2)
.如果真结束

.如果真 (长度 ＝ 400)
网络数据.释放 ()
返回 (2)

.如果真结束

.如果真 (F1还原)
网络数据.从字节集分配 (还原字节集 (“{227,3,0}”))
F1还原 ＝ 假
返回 (2)

.如果真结束

.如果真 (F5卡人啊 ＝ 真)

网络数据.释放 ()
返回 (1)

.如果真结束

.如果真 (长度 ＝ 400)
网络数据.释放 ()
返回 (1)

.如果真结束

.如果真 (F5还原啊)
网络数据.从字节集分配 (还原字节集 (“{227,3,0}”))
F5还原啊 ＝ 假
返回 (1)
.如果真结束

.如果真结束

Answer 1

易语言编译的时候就是将易语言代码翻译成VB，然后链接到VB进行机器码编译二进制原码。你到VB里面看得到。