用VBScript进行Win32窗口编程
- 作者: 取个名字就不用这么纠结了吧
- 来源: 51数据库
- 2022-08-17
h=GetModuleHandle(0)
hIcon=LoadIcon(h,129)
hCursor=LoadCursor(0,35512)
c=PStr("MyClass")
pWndClass=StructPtr(48,11,GetWndProc,0,0,h,hIcon,hCursor,16,0,c,0)
R=RegisterClassEx(pWndClass)
a=CreateWindowEx(0,c,PStr("MyCaption"),13238336 or 65536,100,100,500,350,0,0,h,0)
if a > 0 then
SetWndProc a,"wnd2"
btn=CreateCtrl("BUTTON","kkdkkd",1342242816, 8, 5, 150, 28,a,10000,h)
ShowWindow a,1
UpdateWindow a
DoMessageLoop a
else
msgbox "Create Window Failed..."
ExitApp
end if
function wnd2(hwnd,uMsg,wParam,lParam)
end function
ExitApp
推荐阅读
