写错了,这样写才对。
System.Windows.Forms.Clipboard.Clear
'shell("rundll32.exe TXGYMailCamera.dll CameraSubArea", 0)
Dim proc As new Process
proc.File = "rundll32.exe"
proc.Arguments = "TXGYMailCamera.dll CameraSubArea"
proc.WaitForClose = True
proc.Start
Dim iData = System.Windows.Forms.Clipboard.GetDataObject()
If iData.GetDataPresent("System.Drawing.Bitmap",True) Then
Dim bmp = iData.GetData("System.Drawing.Bitmap")
bmp.Save("d:\test4.bmp")
msgbox("获取成功")
Else
msgbox("没有获取")
End If