Question

哪个VB高手能帮我把这段易语言代码转成VB代码呀(有点多喔!)

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

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

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

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP过程加密开始
飘零关闭驱动句柄 (防OD线程驱动句柄)
透明标签3.标题 ＝ “到期时间为：” ＋ 到期时间
登陆检测时钟.时钟周期 ＝ 1000 × 60 × 2
时钟_验证动态.时钟周期 ＝ 1000 × 60 × 5
' 飘零写通讯数据 (“piaolook”, 特征数据) ' 在DLL用 飘零读通讯数据 (“piaolook”) 取到该防破数据或基址
调试输出 (特征数据)
.如果真 (非法了吗 ≠ 4)
飘零蓝屏 ()
.如果真结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP过程加密结束
追梦_加载皮肤 (#皮肤_Adamant)

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

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

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

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

.如果真结束

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

.如果真结束

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

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

.如果真结束

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

.如果真结束

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

.如果真结束

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

百度易语言转vb的工具

Answer 2

我擦，没法转换，重写