稳定端口转发工具例子源代码

.子程序 原子_递增_asm, , 公开, 对提供的整数型变量+1。多线程中使用可避免赋值冲突。汇编版。
.参数 被加一的变量, 整数型, 参考

置入代码 ({ 139, 77, 8, 184, 1, 0, 0, 0, 240, 15, 193, 1 })

.子程序 _按钮1_被单击

.如果真 (按钮1.标题 ≠ “启动服务”)
hpServer.Stop (spServer)
hpAgent.Stop (spAgent)
状态条1.置文本 (0, “状态:未启动”)
按钮1.标题 ＝ “启动服务”
时钟1.时钟周期 ＝ 0
返回 ()
.如果真结束
.如果真 (hpServer.Start (spServer, 编辑框1.内容, 到整数 (编辑框2.内容)))
.如果真 (hpAgent.Start (spAgent, , 假))
状态条1.置文本 (0, “状态:运行中”)
按钮1.标题 ＝ “停止服务”
时钟1.时钟周期 ＝ 3000
返回 ()
.如果真结束
信息框 (HP_Agent_GetLastErrorDesc (HP_Agent_GetLastError (spAgent)), 0, , )
返回 ()
.如果真结束
信息框 (HP_Server_GetLastErrorDesc (HP_Server_GetLastError (spServer)), 0, , )