.版本 2 .子程序 _按钮2_被单击 .局部变量 ID, 整数型 .局部变量 hMem, 整数型 .局部变量 lSize, 整数型 .局部变量 lPtr, 整数型 .局部变量 bData, 字节集 编辑框1.内容 ＝ “” ID ＝ ReGISterClipboardFormat (“HTML Format”) .如果真 (ID ＞ 49152) .如果真 (OpenClipboard (取窗口句柄 ()) ≠ 0) hMem ＝ GetClipboardData (ID) .如果真 (hMem ≠ 0) lSize ＝ GlobalSize (hMem) .如果真 (lSize ≠ 0) lPtr ＝ GlobalLock (hMem) .如果真 (lPtr ≠ 0) bData ＝ 取空白字节集 (lSize) CopyMemory (bData, lPtr, lSize) GlobalUnlock (hMem) 编辑框1.内容 ＝ UTF8转ANSI (bData) ' 注： 如果网页中含有Unicode字符编辑框无法正常显示 .如果真结束 .如果真结束 .如果真结束 .如果真结束 .如果真结束 CloseClipboard ()