vb.net 类似qq截图?

[chdf535]

自己不能完成类似QQ截图的功能。网上找，VB.NET 资料很少，请各位老大赐教

[迈克揉索芙特]

学习 顺便接分

[一只熊猫]

[Quote=引用 1 楼 hornbills 的回复:]
PB_Form的代码

PB_Form的程序可以在这里下载
http://d.download.csdn.net/down/527284/skigil

code=VB.NET]
Public Class Form1


Private Sub Ayaya()
Me.Hide()
Dim r As Bitmap
Dim P1 As New Point(0, 0)
Dim P2 As New Point(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
r = New Bitmap(P2.X, P2.Y, Imaging.PixelFormat.Format32bppArgb)
Using g As Graphics = Graphics.F…
[/Quote]

这段代码很不错的，根据自己的需要再适合的改下。

[floadcloud]

mark

[dylike]

    Dim G As Graphics
    Dim B1 As Bitmap
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
        Me.Location = New Point(0, 0)
        Me.Size = New Point(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        B1 = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        G = Graphics.FromImage(B1)
        G.CopyFromScreen(New Point(0, 0), New Point(0, 0), New Point(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height))
        G.Dispose()
        Me.BackgroundImage = B1
    End Sub

[JeffChung]

直接调用QQ的CameraDll.dll最简单了,哈哈

[yanlongwuhui]

mark

[skigil]

以上二位老大把我上传的东东给复制下来了哈，谢谢啊
我出了个新版本，不过现在用的是工作电脑，下次重新上传

[chdf535]

请问"风中聆听"如何调用CameraDll.dll，

把图片保存的制定的目录[e-mail]

[mjjzg]

学习
顶一下，以表支持

[deeeeep]

mark

[wzuomin]

学习

[skigil]

CameraDll.dll是加密的，用不了
明天上传给你一个完整的

[51Crack]

    Public Declare Function ZhuaTu1 Lib "CameraDLL.dll" Alias "CameraSubArea" (ByVal handle As Integer) As Integer
    Public Declare Function ZhuaTu2 Lib "CameraDLL.dll" Alias "CameraWindowLikeSpy" () As Integer

DLL文件下载

[josephSC]

收藏~~

[outstand]

比较复杂

[51Crack]

[Quote=引用 16 楼 51Crack 的回复:]
VB.NET code
Public Declare Function ZhuaTu1 Lib "CameraDLL.dll" Alias "CameraSubArea" (ByVal handle As Integer) As Integer
Public Declare Function ZhuaTu2 Lib "CameraDLL.dll" Alias "CameraWindowLikeSpy" () As Integer
[/Quote]
调用：
ZhuaTu1(me.handle.toint32)
ZhuaTu2()

[JeffChung]

[Quote=引用 18 楼 51Crack 的回复:]
引用 16 楼 51Crack 的回复:
VB.NET code
Public Declare Function ZhuaTu1 Lib "CameraDLL.dll" Alias "CameraSubArea" (ByVal handle As Integer) As Integer
Public Declare Function ZhuaTu2 Lib "CameraDLL.dll" Alias "CameraWindowLikeSpy" () As Integer

调用：
ZhuaTu1(me.handle.toint32)
ZhuaTu2()
[/Quote]

就是调用CameraSubArea，不过并不是所有版本的CameraDll.dll都能正常调用
如果16楼的dll不能用你找我

[mygod525]

看不懂

[huluang]

不懂啊，学习中。

[MOJIN1352]

不懂啊，学习