タイトル : Re^2: WEB動画をJPEG等で静止画保存 投稿日 : 2010/06/03(Thu) 20:20 投稿者 : あやめ
色々やりましたが解決できません。 ソースを載せます。よろしくお願いします。 ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ Option Explicit Private Declare Function OleDraw Lib "ole32.dll" _ (ByVal pUnk As Object, ByVal dwAspect As DVASPECT, _ ByVal hDCDraw As Long, lprcBounds As RECT) As Long Private Enum DVASPECT DVASPECT_CONTENT = 1 DVASPECT_THUMBNAIL = 2 DVASPECT_ICON = 4 DVASPECT_DOCPRINT = 8 End Enum Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Sub Command1_Click() 'ボタン Dim udtRect As RECT Picture1.AutoRedraw = True Picture1.Visible = True With udtRect .Left = 0 .Top = 0 .Right = Me.ScaleX(WebBrowser1.Width, Me.ScaleMode, vbPixels) .Bottom = Me.ScaleY(WebBrowser1.Height, Me.ScaleMode, vbPixels) End With With Picture1 .Cls .Move 0, 0, 8000 - 1, 6000 - 1 Call OleDraw(WebBrowser1.object, DVASPECT_CONTENT, .hDC, udtRect) End With End Sub Private Sub Form_Load() ' WebBrowser1.Navigate "http://192.168.1.111" End Sub |