Library WIALib C:/WINDOWS/system32/wiascr.dll Microsoft Windows Image Acquisition 1.01 Type Library Dim root As Wia Set root = New Wia Dim dev As Item Set dev = root.Devices.Item(0).Create Dim pic As Item Set pic = dev.GetItemsFromUI(SingleImage).Item(0) pic.Transfer App.Path + "/bg.jpg" Me.Picture = LoadPicture(App.Path + "/bg.jpg") 'pic.Transfer "clipboard":传送到剪贴板 'Me.Picture = Clipboard.GetData Set Wia = Nothing 嵌入到网页中 )<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE> New Document </TITLE> <META NAME="Generator" CONTENT="EditPlus"> <META NAME="Author" CONTENT=""> <META NAME="Keywords" CONTENT=""> <META NAME="Description" CONTENT=""> </HEAD> <mce:script language=javascript><!-- var dd =new ActiveXObject("wia.script"); var m=dd.Devices.Item(0).Create(); m.GetItemsFromUI(2); alert(m); // --></mce:script> <BODY> </BODY> </HTML>