언어 코드

.版本 2

.子程序 GetProcessHandle, 整数型
.参数 lpProcessName, 文本型
.局部变量 hSnapShot, 整数型
.局部变量 dwRet, 整数型
.局部变量 prHandle, 整数型
.局部变量 pe32, PROCESSENTRY32
.局部变量 test, , ,"111,222,444",3434,"2323,","
.局部变量 test2, , , ,34weeeee34,"2323,","
.局部变量 test3, , ,"111,222,444"

.判断开始 (test2)
        输出调试文本(“啊哈哈哈哈”)
    .默认
       输出调试文本(“啊哈哈哈哈”)
    .判断结束
hSnapShot ＝ CreateToolhelp32Snapshot (#TH32CS_SNAPALL, 0)
.如果真 (hSnapShot ＝ 0)
    信息框 (“获得进程快照失败”, 0, )
    返回 (dwRet)
.如果真结束
pe32.dwSize ＝ 1024
prHandle ＝ Process32First (hSnapShot, pe32)
.判断循环首 (prHandle ≠ 0)
    .判断开始 (到文本 (pe32.szExeFile) ＝ lpProcessName)
        dwRet ＝ pe32.th32ProcessID
        跳出循环 ()
    .默认
        prHandle ＝ Process32Next (hSnapShot, pe32)
    .判断结束

.判断循环尾 ()
CloseHandle (hSnapShot)
返回 (dwRet)
'test'12333###{}()“测试'''”
'//////////////////判断流程测试///////////////////////////
.如果 ()
.否则
    .如果 ()
    .否则
        .如果 ()
            .如果 ()
            .否则
            .如果结束
        .否则
            .如果 ()
            .否则
                .判断开始 ()
                .判断 ()
                .判断 ()
                    .判断开始 ()
                    .判断 ()
                    .默认
                    .判断结束
                .判断 ()
                    .判断开始 ()
                    .默认
                    .判断结束
                .判断 ()
                .默认
                .判断结束
            .如果结束
        .如果结束
    .如果结束
.如果结束

.子程序 子程序1

信息框 (“Hello World”, 0, , )

.子程序 子程序2

信息框 (“你好世界”, 0, , )

.子程序 子程序3

信息框 (“哎哟我去”, 0, , )