用vb打造远程屏幕监控.mht

vb实现对远程计算机屏幕的监视,对vb监控学习很有用

            Me.ScaleWidth, Me.ScaleHeight, MyHdc, 0, 0, =
vbSrcCopy<BR>&nbsp;=20
            &nbsp; nTime =3D Timer - Val(Me.Caption)<BR>&nbsp; &nbsp; =
Me.Caption =3D=20
            Timer - StartT<BR>&nbsp; &nbsp; If =
Len(StatusBar1.SimpleText) &lt;=20
            255 Then<BR>&nbsp; &nbsp; &nbsp; &nbsp; =
StatusBar1.SimpleText =3D=20
            nTime &amp; "=EF=BC=8C" &amp; =
StatusBar1.SimpleText<BR>&nbsp; &nbsp;=20
            Else<BR>&nbsp; &nbsp; &nbsp; &nbsp; StatusBar1.SimpleText =
=3D=20
            nTime<BR>&nbsp; &nbsp; End If<BR>&nbsp; &nbsp; If bytesTotal =
&gt; i=20
            + 1 Then<BR>&nbsp; &nbsp; &nbsp; &nbsp; RevByte =3D =
bytesTotal - i -=20
            1<BR>&nbsp; &nbsp; &nbsp; &nbsp; CopyMemory BmpDat(0), dat(i =
+ 1),=20
            RevByte<BR>&nbsp; &nbsp; End If<BR>&nbsp; Else<BR>&nbsp; =
&nbsp;=20
            CopyMemory BmpDat(RevByte), dat(0), bytesTotal<BR>&nbsp; =
&nbsp;=20
            RevByte =3D RevByte + bytesTotal<BR>&nbsp; End If<BR>&nbsp; =
<BR>End=20
            Sub<BR>Private Sub WS1_Error(ByVal Number As Integer, =
Description As=20
            String, ByVal Scode As Long, ByVal Source As String, ByVal =
HelpFile=20
            As String, ByVal HelpContext As Long, CancelDisplay As=20
            Boolean)<BR>&nbsp; StatusBar1.SimpleText =3D ("Error : " =
&amp;=20
            Description)<BR>End Sub</SPAN> <BR>
            <DIV class=3DlogsFooter><A=20
            =
href=3D"mailto:%3C!--%20~%20authoremail%20~%20--%3E">=E5=B0=8F=E4=B8=BA</=
A> @ 18:18:36=20
            | <A onclick=3D"OpenTrackback(this.href); return false"=20
            =
href=3D"http://int.blogbus.com/logs/t3221853.html">=E5=BC=95=E7=94=A8 =
0</A> | <A=20
            =
href=3D"http://www.blogbus.com/blog/entry/edit.php?BlogID=3D1009386&amp;L=
ogID=3D3221853">=E7=BC=96=E8=BE=91</A></DIV></TD></TR></TBODY></TABLE><BR=
><BR><BR>
      <DIV class=3DcatTitle>=E8=AF=84=E8=AE=BA</DIV>
      <DIV class=3DcatTitle>=E5=8F=91=E8=A1=A8=E8=AF=84=E8=AE=BA</DIV>
      <FORM action=3Dhttp://www.blogbus.com/public/comment.php =
method=3Dpost>
      <TABLE cellSpacing=3D0 cellPadding=3D0 border=3D0>
        <TBODY>
        <TR>
          <TD vAlign=3Dcenter noWrap =
align=3Dleft>&nbsp;=E5=A7=93=E5=90=8D=EF=BC=9A&nbsp;</TD>
          <TD vAlign=3Dbottom align=3Dleft><INPUT name=3Dname></TD></TR>
        <TR>
          <TD vAlign=3Dcenter noWrap =
align=3Dleft>&nbsp;E-mail=EF=BC=9A&nbsp;</TD>
          <TD vAlign=3Dbottom align=3Dleft><INPUT =
name=3Demail></TD></TR>
        <TR>
          <TD vAlign=3Dcenter noWrap =
align=3Dleft>&nbsp;=E5=9C=B0=E5=9D=80=EF=BC=9A&nbsp;</TD>
          <TD vAlign=3Dbottom align=3Dleft><INPUT =
name=3Dhomepage></TD></TR>
        <TR>
          <TD vAlign=3Dtop align=3Dleft>&nbsp;</TD>
          <TD vAlign=3Dbottom align=3Dleft><TEXTAREA =
style=3D"PADDING-RIGHT: 3px; PADDING-LEFT: 3px; FONT-WEIGHT: 500; =
FONT-SIZE: 12px; PADDING-BOTTOM: 3px; COLOR: #686458; PADDING-TOP: 3px; =
FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif" name=3Dcmt rows=3D8 =
cols=3D45></TEXTAREA>&nbsp;=20
            <INPUT type=3Dhidden value=3D3221853 name=3Dparentid> <INPUT =
type=3Dhidden=20
            value=3Dhttp:///3221853.html name=3Djumpto> <INPUT =
style=3D"BORDER-TOP-WIDTH: 0px; FONT-WEIGHT: bolder; BORDER-LEFT-WIDTH: =
0px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 0px; MARGIN-BOTTOM: 1px; =
CURSOR: pointer; COLOR: #adadad; BACKGROUND-COLOR: transparent; =
TEXT-ALIGN: left; BORDER-RIGHT-WIDTH: 0px" type=3Dsubmit =
value=3D"=E6=8F=90 =E4=BA=A4" name=3Daddsub>=20
<INPUT style=3D"BORDER-TOP-WIDTH: 0px; FONT-WEIGHT: bolder; =
BORDER-LEFT-WIDTH: 0px; FONT-SIZE: 12px; BORDER-BOTTOM-WIDTH: 0px; =
MARGIN-BOTTOM: 1px; CURSOR: pointer; COLOR: #adadad; BACKGROUND-COLOR: =
transparent; TEXT-ALIGN: left; BORDER-RIGHT-WIDTH: 0px" type=3Dreset =
value=3D"=E9=87=8D =E7=BD=AE" name=3D=E9=87=8D=E7=BD=AE>=20
          =
</TD></TR></TBODY></TABLE></FORM><BR><BR><BR></TD></TR></TBODY></TABLE>
<SCRIPT language=3Djavascript type=3Dtext/javascript>
function resize_img()
{
var pics=3Dwindow.document.images;
var calc=3D1;
var maxWidth =3D 640;
for (var i=3D0;i<pics.length;i++)
{
if (pics[i].width>maxWidth)
{
calc=3Dpics[i].width;
calc=3DmaxWidth/calc
pics[i].width*=3Dcalc
pics[i].onclick =3D function() {
				window.open(this.src, "_blank");
			};
pics[i].onmouseover =3D function() {
				this.style.cursor=3D "pointer";
			};
pics[i].onmouseout =3D function() {
				this.style.cursor=3D"";
			};
pics[i].alt =3D " =
=E7=82=B9=E5=87=BB=E6=9F=A5=E7=9C=8B=E5=8E=9F=E5=A7=8B=E5=B0=BA=E5=AF=B8 =
";=09
}
}
}
resize_img();
              </SCRIPT>
</BODY></HTML>

------=_NextPart_001_00C9_01C73286.8B4E00E0
Content-Type: application/octet-stream
Content-Transfer-Encoding: quoted-printable
Content-Location: http://img.uiuni.com/ivr/code/20061019/html/4.html?uid=463&sid=

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" =
"http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML =
xmlns=3D"http://www.w3.org/1999/xhtml"><HEAD><TITLE>=B5=E3=B8=E8=CB=CD=D7=
=A3=B8=A3</TITLE>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Dgb2312">
<STYLE type=3Dtext/css>BODY {
	FONT-SIZE: 12px
}
TD {
	FONT-SIZE: 12px
}
TH {
	FONT-SIZE: 12px
}
A:link {
	TEXT-DECORATION: none
}
A:visited {
	TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: none
}
A:active {
	TEXT-DECORATION: none
}
BODY {
	MARGIN: 0px
}
</STYLE>

<META content=3D"MSHTML 6.00.5700.6" name=3DGENERATOR></HEAD>
<BODY>
<SCRIPT language=3Djavascript=20
src=3D"http://img.uiuni.com/ivr/jscript/sendcode.js"></SCRIPT>

<SCRIPT language=3Djavascript>
		 function uishouji(){
	          window.open("http://img2.uiuni.com/search/mf.html?uid=3D" + =
uid + "&sid=3D" + sid);
         }
		 function uimms(){
	          window.open("http://www.uido.com/all/mms.htm?uid=3D" + uid + =
"&sid=3D" + sid);
         }
		 function uidg(){
	          window.open("http://img2.uiuni.com/ivr/all/joy.htm?uid=3D" + =
uid + "&sid=3D" + sid);
         }
		 function uidg2(){
	          window.open("http://img2.uiuni.com/uiall/index.html?uid=3D" + =
uid + "&sid=3D" + sid);
         }
</SCRIPT>

<TABLE height=3D80 cellSpacing=3D0 cellPadding=3D0 width=3D580 =
border=3D0>
  <TBODY>
  <TR>
    <TD>
      <TABLE cellSpacing=3D0 cellPadding=3D0 width=3D580 border=3D0>
        <TBODY>
        <TR>
          <TD vAlign=3Dtop><IMG height=3D22=20
            =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/580x22.gif"=20
            width=3D580 useMap=3D#Map border=3D0></TD></TR>
        <TR>
          <TD height=3D58>
            <TABLE height=3D58 cellSpacing=3D0 cellPadding=3D0 =
width=3D"100%"=20
              border=3D0><TBODY>
              <TR>
                <TD class=3Dtbody width=3D66 bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7014')"><FONT=20
                  =
color=3D#3f3f3f>&nbsp;=CF=E3=CB=AE=D3=D0=B6=BE</FONT></A></TD>
                <TD width=3D28 bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD width=3D74 bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7066')"><FONT=20
                  =
color=3D#3f3f3f>=C5=DD=C5=DD=C0=CF=B9=AB</FONT></A></TD>
                <TD width=3D20 bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD class=3Dtbody width=3D70 bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7041')"><FONT=20
                  color=3D#3f3f3f>QQ=B0=AE</FONT></A></TD>
                <TD width=3D22 bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD class=3Dtbody bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7067')"><FONT=20
                  =
color=3D#3f3f3f>=CD=B5=D0=C4=BA=A3=B5=C1</FONT></A></TD>
                <TD width=3D21 bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD width=3D67 bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7022')"><FONT=20
                  =
color=3D#3f3f3f>=C7=EF=CC=EC=B2=BB=BB=D8=C0=B4</FONT></A></TD>
                <TD width=3D20 bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD width=3D93 bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7061')"><FONT=20
                  =
color=3D#3f3f3f>=B4=EF=B7=D2=C6=E6=B5=C4=C3=DC=C2=EB</FONT></A></TD>
                <TD width=3D20 bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD></TR>
              <TR>
                <TD class=3Dtbody bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7057')"><FONT=20
                  =
color=3D#3f3f3f>&nbsp;=B0=AE=C7=E9=B8=B4=D0=CB</FONT></A><A=20
                  href=3D"javascript:Send_Song('6947')"></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7049')"><FONT=20
                  =
color=3D#3f3f3f>=D0=D2=B8=A3=C3=AB=C3=AB=B3=E6</FONT></A><A =
onclick=3DSend_Song(6786,1)=20
                  href=3D"javascript:"></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD class=3Dtbody bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7058')"><FONT=20
                  =
color=3D#3f3f3f>=B2=CA=BA=E7=B5=C4=CE=A2=D0=A6</FONT></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD class=3Dtbody width=3D79 bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7068')"><FONT=20
                  =
color=3D#3f3f3f>=B0=AE=C9=CF=B1=B4=BF=CB=BA=BA=C4=B7</FONT></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('6992')"><FONT=20
                  =
color=3D#3f3f3f>=B2=BB=C5=C2=B2=BB=C5=C2</FONT></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('6947')"><FONT=20
                  =
color=3D#3f3f3f>=CE=D2=C3=C7=B6=BC=CA=C7=BA=C3=BA=A2=D7=D3</FONT></A></TD=
>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD></TR>
              <TR>
                <TD class=3Dtbody bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7024')"><FONT=20
                  =
color=3D#3f3f3f>&nbsp;=C8=CF=D5=E6=B5=C4=D1=A9</FONT></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('6977')"><FONT=20
                  =
color=3D#3f3f3f>=C3=F7=CC=EC=B5=C4=CF=E3=B8=F1..</FONT></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD class=3Dtbody bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('6984')"><FONT=20
                  color=3D#3f3f3f>=C0=DB=B6=B7=C0=DB</FONT></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD class=3Dtbody width=3D79 bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7069')"><FONT=20
                  =
color=3D#3f3f3f>=CE=D2=C3=C7=D4=F5=C3=B4=C1=CB</FONT></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7060')"><FONT=20
                  =
color=3D#3f3f3f>=B0=AE=C4=E3=B2=BB=BB=E1=B1=E4</FONT></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  width=3D12></TD>
                <TD bgColor=3D#f5d2ff><A=20
                  href=3D"javascript:Send_Song('7065')"><FONT=20
                  =
color=3D#3f3f3f>=C0=CF=B9=AB=C0=CF=B9=AB=CE=D2..</FONT></A></TD>
                <TD bgColor=3D#f5d2ff><IMG height=3D12=20
                  =
src=3D"http://img.uiuni.com/ivr/code/20061019/html/3/laba.gif"=20
                  =
width=3D12></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>=
</TBODY></TABLE><MAP=20
id=3DMap name=3DMap><AREA shape=3DRECT coords=3D261,6,321,20=20
  href=3D"javascript:uishouji();"><AREA shape=3DRECT =
coords=3D343,6,391,19=20
  href=3D"javascript:uimms();"><AREA shape=3DRECT coords=3D415,6,487,20=20
  href=3D"javascript:uidg();"><AREA shape=3DRECT coords=3D56,3,192,21=20
  href=3D"javascript:uidg2();"></MAP></BODY></HTML>

------=_NextPart_001_00C9_01C73286.8B4E00E0--

------=_NextPart_000_00C0_01C73286.8B4B8FE0--