精品一区二区三区在线播放视频,欧美日本在线播放,一区二区三区在线电影

.版本 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, , )