ImgFileName = App。路徑與路徑。" \temp.bmp "
對於WebBrowser1中的每個X。文檔.全部
如果X.Id = "img_verify ",則X.Id是圖片Id。
設置CtrlRange = WebBrowser1。document . body . createcontrolrange()
CtrlRange。添加(X)
CtrlRange.execCommand ("Copy ")
保存圖片剪貼板。GetData，ImgFileName
Image1。picture = load picture(img file name)
殺死ImgFileName
如果…就會結束
然後