VB的窗口过程都不支持Unicode所以一切嘟要用Unicode版本来做

首先我看到Textbox1.Text得到全是问号，所以便想直接通过API得到文本内容但这个该死的Textbox没有hWnd属性,而即便有句柄,通过普通的GetWindowText API也得不到它嘚文本（具体原因没有深究，也许是它的窗口过程的关系）所以我就通过一个取巧的方法，即将文本复制到剪贴板然后再从剪贴板间接获得文本内容。最后调用Unicode版本的MessageBox API显示消息

也许会有其他更好的办法（比如子类化处理普通文本框，将其窗口过程替换为Unicode版本的）但目前止步于此

设置试用期30天程序(VB6.0源代码编写)注冊码转换,程序只允许试用30次到期程序将自动提醒用户注册