ifstring1.via

来自「用VB6写的真正的32位高级语言可视程序编译器」· VIA 代码 · 共 19 行

// IfString1.lnl

application PE GUI entry main;

import MessageBox ascii lib "USER32.DLL",4;

string message[10];
string messageII[10];

frame main();

    message = "Compare"; messageII = "Compare";

    if(message=messageII) {
        MessageBox(0,"Equal","Strings..",0);
    } else {
        MessageBox(0,"Not Equal","Strings..",0);
    }
end;