100分求源码

[rtx2006]

谁有VB写的远程屏幕监视的例子呀？E-Mail:[e-mail]

[rtx2006]

Dunzip:麻烦你把这两个例子传给我好吗？

[Dunzip]

你要的是两个例子:
1/一个屏幕截取例子
1/一个图片传送例子

[可视化陈列管理系统]

用其它現成的應該有很多吧，比如PCanywhere等。還可以遠程操作控制等。

[zsj1101]

截取屏幕畫面
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScreen = 1
Const theForm = 0
'Const Const VK_SNAPSHOT = &H2C
传送应该更简单
Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, theForm, 0, 0) '當前窗口
Call keybd_event(vbKeySnapshot, theScreen, 0, 0) '全屏幕
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), FileName
End Sub

[rtx2006]

截图问题已解决，怎么传送，我做的是局域网程序，要把截图传送到服务器，但截的图太大，怎么压缩成JPG格式，然后传送？

[zsj1101]

用image控来解决存为jpg格式的问题。

[rtx2006]

试了，效果不理想
有BMP转JPG的源码吗？要VB写的

[jam021]

找冰河的源码吧