tony2tony的博客

.版本 2 .程序集 程序集1 .程序集变量 图标句柄, 整数型 .程序集变量 hbmAbout, 整数型 .程序集变量 hbmAboutHover, 整数型 .程序集变量 hbmAboutDown, 整数型 .程序集变量 hbmGenerate, 整数型 .程序集变量 hbmGenerateHover, 整数型 .程序集变量 hbmGenerateDown, 整数型 .程序集变量 hbmExit, 整数型 .程序集变量 hbmExitHover, 整数型 .程序集变量 hbmExitDown, 整数型 .程序集变量 prev_proc, 整数型 .程序集变量 bMouseOverGenerateButton, 逻辑型 .程序集变量 bMouseOverAboutButton, 逻辑型 .程序集变量 bMouseOverExitButton, 逻辑型 .程序集变量 rExit, RECT .程序集变量 rAbout, RECT .程序集变量 rGenerate, RECT .程序集变量 rWindow, RECT .程序集变量 hExit, 整数型 .程序集变量 hAbout, 整数型 .程序集变量 hGenerate, 整数型 .程序集变量 hWindow, 整数型 .程序集变量 实例句柄, 整数型 .程序集变量 lf, LOGFONT .程序集变量 hKeygen, 整数型 .程序集变量 hSerial, 整数型 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 实例句柄 ＝ GetModuleHandle (0) 图标句柄 ＝ LoadIcon (实例句柄, #FFF_ICON) InitCommonControls () ' 这个是初始化共用控件API,凡是用到月历框,选择夹,XP风格等等扩展组件的,都必须调用这个API ' 这里调用的是资源对话框模板来创建窗口,在易的调试模式下无效 DialogBoxParam (实例句柄, #IDD_KEYGEN, 0, &DlgProc, 0) ' 这个API内部有消息循环泵,直到对话框被关闭才返回 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 DlgProc, 整数型 .参数 hwnd, 整数型 .参数 msg, 整数型 .参数 wparam, 整数型 .参数 lparam, 整数型 .局部变量 点击控件ID, 整数型 .局部变量 lpdis, DRAWITEMSTRUCT .局部变量 hdc, 整数型 .局部变量 hdcMem, 整数型 .局部变量 hFont, 整数型 .局部变量 hFontOld, 整数型 .局部变量 szProgname, 文本型 .局部变量 hdcSerial, 整数型 .局部变量 xmid, 整数型 .判断开始 (msg ＝ #WM_INITDIALOG) ' 初始化对话框 置随机数种子 (取启动时间 ()) ' 因为大鸟的黑月不支持播放MIDI、XM格式的音乐，所以用偶写的DLL播放吧先～～。等大鸟支持了改下就OK了。 xmid ＝ 取随机数 (1, 40) .如果 (xmid ＞ 20) playxm (#XM音乐2, 取字节集长度 (#XM音乐2)) .否则 playxm (#XM音乐1, 取字节集长度 (#XM音乐1)) .如果结束 SendMessage (hwnd, #WM_SETICON, 0, 图标句柄) ' 设置标题栏上的图标 SendMessage (hwnd, #WM_SETICON, 1, 图标句柄) SetWindowText (hwnd, “only test”) AnimateWindow (hwnd, 1000, 524288) hGenerate ＝ GetDlgItem (hwnd, #IDC_GENERATE) hAbout ＝ GetDlgItem (hwnd, #IDC_ABOUT) hExit ＝ GetDlgItem (hwnd, #IDC_EXIT) GetWindowRect (hwnd, rWindow) GetWindowRect (hGenerate, rGenerate) GetWindowRect (hAbout, rAbout)