VB６
移除窗体，新建一个模块；
代码如下：
Option Explicit
Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" _
(ByVal hWnd As Long, _
ByVal lpText As Long, _
ByVal lpCaption As Long, _
ByVal wType As Long) As Long
Sub Main()
MessageBox 0, StrPtr("Hello world!"), StrPtr("Prompt"), 0
End Sub
Delphi
新建一个空的工程，代码如下
program Project2;
uses
windows;
{$apptype gui}
begin
messagebox(0,pchar(‘Hello world!’),pchar(‘prompt’),0);
end.
VB６ 生成ｅｘｅ４１Ｋ，Ｄｅｌｐｈｉ生成ｅｘｅ２７ｋ。
Python
三行代码搞定！😄
from ctypes import *
user32 = windll.user32
user32.MessageBoxA(0, "Hello,World!", "prompt",0)
＋＋＋人生苦短，我用python。＋＋＋
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请联系我们，一经查实，本站将立刻删除。
如需转载请保留出处：https://51itzy.com/kjqy/173675.html