[转载][Chrome套件] Chrome Remote Desktop 连线遥控他人的电脑！

什么是远端遥控呢？ 远端遥控工具就是无论你在任何地方，只要能上网，就能立刻透过软体来控制远端的电脑。

大部分人会透过TeamViewer，进行远端的连线遥控，如果要轻巧和简单的远端遥控软体，就可以试试Chrome Remote Desktop这个附属于Google Chrome的扩充元件。 安装了它，你就可以轻易遥控别人的电脑哦！

目前，Google旗下浏览器Chrome市占率已经越来越高，最近推出的Chrome Remote Desktop功能也比较简单，对于单纯进行连线遥控的使用者来说，不用安装复杂的软体，浏览器扩充一下即可。

最重要的是，每次连线的编号都不一样，也可以避免别人记住你的资料。

Chrome Remote Desktop是一个不错的新选择！

下载地址：Chrome Remote Desktop

注：必须先安装 Google Chrome!

第1步

在Chrome Store上安装Chrome Remote Desktop后，开启软体，点击Continue，进行授权设定。

如果没有Google账号，就无法安装扩充元件，那就申请一个吧！

第2步

安装后，基本上会自动启动这个功能，不过下次要用的时候，它会在哪里呢？

如果要使用的话，可以先开启一个新分页。 点击网址列上方的“+”（a）或是按下键盘上的﹝Ctrl﹞+﹝T﹞，即可开启新分页。

接着到新分页下方的【Apps】（​​b）切换后，画面上会有一个“Chrome Remote Desktop”图样，点击它，即可启动远端桌面连线。

第3步

启动软体后，我们只要点击﹝Share This Computer﹞（c）。

第4步

接着会产生一组数字，复制该组数字（d），并让对方连线你的电脑。 但得注意的是，遥控端和被遥控端都必须安装Chome Remote Desktop的应用程式！

如果中断连线，Chrome Remote Desktop会告知你这个阶段的工作已经结束了，若下次你还要遥控别人的电脑，或让别人遥控你的电脑，那么就需要产生新的数字，原有的数字就不能使用咯！

第5步

如果要接收遥控别人的电脑，启动应用程式后，点选下方的“Share this Computer”（e）。

第6步

如果你的浏览器没有放到最大，画面感觉就限制在小小浏览器内, 这样要靠旁边和下方出现的卷轴了（f）。 如果放大到全荧幕，那么就整个被放大咯！

透过这个扩充应用程式连过去的电脑，你就可以对他的电脑进行任何动作了。

来源

[原创][VB6] 又是一个整人小程序 - Desktop Spammer

续 『屏幕融化』这个恶搞小程序过后

总觉得 这一些些不够
便写了一个：Desktop Spammer

主要功能：
1、Spam 桌面
2、能更改文字

Desktop Spammer嘛～
怎样说呢？
来点截图～

主程序，没加进那么多功能，以后可能会继续加入～

选择“Spam With Cursor”

选择“Randomly Spam”

好玩呗？
哈哈～
给下载地址（点击链接以下载～）

 Desktop Spammer.zip

[转载][VB6] 获取CMD命令的输出

在VB中不用文件（而用内存，再精确点是管道）来获取DOS程序的输出


方法：

1.新建工程
2.添加一个Class模块，命名为DOSOutputs，在Class内粘贴以下代码：

1. Option Explicit
2. 'Class Module Named "DOSOutputs"
3. 'The CreatePipe function creates an anonymous pipe,
4. 'and returns handles to the read and write ends of the pipe.
5. Private Declare Function CreatePipe Lib "kernel32" ( _
6.     phReadPipe As Long, _
7.     phWritePipe As Long, _
8.     lpPipeAttributes As Any, _
9.     ByVal nSize As Long) As Long
10. 
    
11. 'Used to read the the pipe filled by the process create
12. 'with the CretaProcessA function
13. Private Declare Function ReadFile Lib "kernel32" ( _
14.     ByVal hFile As Long, _
15.     ByVal lpBuffer As String, _
16.     ByVal nNumberOfBytesToRead As Long, _
17.     lpNumberOfBytesRead As Long, _
18.     ByVal lpOverlapped As Any) As Long
19. 
    
20. 'Structure used by the CreateProcessA function
21. Private Type SECURITY_ATTRIBUTES
22.     nLength As Long
23.     lpSecurityDescriptor As Long
24.     bInheritHandle As Long
25. End Type
26. 
    
27. 'Structure used by the CreateProcessA function
28. Private Type STARTUPINFO
29.     cb As Long
30.     lpReserved As Long
31.     lpDesktop As Long
32.     lpTitle As Long
33.     dwX As Long
34.     dwY As Long
35.     dwXSize As Long
36.     dwYSize As Long
37.     dwXCountChars As Long
38.     dwYCountChars As Long
39.     dwFillAttribute As Long
40.     dwFlags As Long
41.     wShowWindow As Integer
42.     cbReserved2 As Integer
43.     lpReserved2 As Long
44.     hStdInput As Long
45.     hStdOutput As Long
46.     hStdError As Long
47. End Type
48. 
    
49. 'Structure used by the CreateProcessA function
50. Private Type PROCESS_INFORMATION
51.     hProcess As Long
52.     hThread As Long
53.     dwProcessID As Long
54.     dwThreadID As Long
55. End Type
56. 
    
57. 'This function launch the the commend and return the relative process
58. 'into the PRECESS_INFORMATION structure
59. Private Declare Function CreateProcessA Lib "kernel32" ( _
60.     ByVal lpApplicationName As Long, _
61.     ByVal lpCommandLine As String, _
62.     lpProcessAttributes As SECURITY_ATTRIBUTES, _
63.     lpThreadAttributes As SECURITY_ATTRIBUTES, _
64.     ByVal bInheritHandles As Long, _
65.     ByVal dwCreationFlags As Long, _
66.     ByVal lpEnvironment As Long, _
67.     ByVal lpCurrentDirectory As Long, _
68.     lpStartupInfo As STARTUPINFO, _
69.     lpProcessInformation As PROCESS_INFORMATION) As Long
70. 
    
71. 'Close opened handle
72. Private Declare Function CloseHandle Lib "kernel32" ( _
73.     ByVal hHandle As Long) As Long
74. 
    
75. 'Consts for the above functions
76. Private Const NORMAL_PRIORITY_CLASS = &H20&
77. Private Const STARTF_USESTDHANDLES = &H100&
78. Private Const STARTF_USESHOWWINDOW = &H1
79. 
    
80. 
    
81. Private mCommand As String          'Private variable for the CommandLine property
82. Private mOutputs As String          'Private variable for the ReadOnly Outputs property
83. 'This property set and get the DOS command line
84. 'It's possible to set this property directly from the
85. 'parameter of the ExecuteCommand method
86. Public Property Let CommandLine(DOSCommand As String)
87.     mCommand = DOSCommand
88. End Property
89. 
    
90. Public Property Get CommandLine() As String
91.     CommandLine = mCommand
92. End Property
93. 
    
94. 'This property ReadOnly get the complete output after
95. 'a command execution
96. Public Property Get Outputs()
97.     Outputs = mOutputs
98. End Property
99. 
    
100. Public Function ExecuteCommand(Optional CommandLine As String) As String
101.     Dim proc As PROCESS_INFORMATION     'Process info filled by CreateProcessA
102.     Dim ret As Long                     'long variable for get the return value of the
103.                                         'API functions
104.     Dim start As STARTUPINFO            'StartUp Info passed to the CreateProceeeA
105.                                         'function
106.     Dim sa As SECURITY_ATTRIBUTES       'Security Attributes passeed to the
107.                                         'CreateProcessA function
108.     Dim hReadPipe As Long               'Read Pipe handle created by CreatePipe
109.     Dim hWritePipe As Long              'Write Pite handle created by CreatePipe
110.     Dim lngBytesread As Long            'Amount of byte read from the Read Pipe handle
111.     Dim strBuff As String * 256         'String buffer reading the Pipe
112. 
     
113.     'if the parameter is not empty update the CommandLine property
114.     If Len(CommandLine) > 0 Then
115.         mCommand = CommandLine
116.     End If
117.     
118.     'if the command line is empty then exit whit a error message
119.     If Len(mCommand) = 0 Then
120.         MsgBox "Command Line empty", vbCritical
121.         Exit Function
122.     End If
123.     
124.     'Create the Pipe
125.     sa.nLength = Len(sa)
126.     sa.bInheritHandle = 1&
127.     sa.lpSecurityDescriptor = 0&
128.     ret = CreatePipe(hReadPipe, hWritePipe, sa, 0)
129.     
130.     If ret = 0 Then
131.         'If an error occur during the Pipe creation exit
132.         MsgBox "CreatePipe failed. Error: " & Err.LastDllError, vbCritical
133.         Exit Function
134.     End If
135.     
136.     'Launch the command line application
137.     start.cb = Len(start)
138.     start.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
139.     'set the StdOutput and the StdError output to the same Write Pipe handle
140.     start.hStdOutput = hWritePipe
141.     start.hStdError = hWritePipe
142.     'Execute the command
143.     ret& = CreateProcessA(0&, mCommand, sa, sa, 1&, _
144.         NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
145.         
146.     If ret <> 1 Then
147.         'if the command is not found ....
148.         MsgBox "File or command not found", vbCritical
149.         Exit Function
150.     End If
151.     
152.     'Now We can ... must close the hWritePipe
153.     ret = CloseHandle(hWritePipe)
154.     mOutputs = ""
155.     
156.     'Read the ReadPipe handle
157.     Do
158.         ret = ReadFile(hReadPipe, strBuff, 256, lngBytesread, 0&)
159.         mOutputs = mOutputs & StrConv(LeftB((StrConv(strBuff, vbFromUnicode)), lngBytesread), vbUnicode)
160.         
161.         '原来为 mOutputs = mOutputs & Left(strBuff, lngBytesread)，感谢mr_gjd 提供关键性修改！
162.     Loop While ret <> 0
163.     
164.     'Close the opened handles
165.     ret = CloseHandle(proc.hProcess)
166.     ret = CloseHandle(proc.hThread)
167.     ret = CloseHandle(hReadPipe)
168.     
169.     'Return the Outputs property with the entire DOS output
170.     ExecuteCommand = mOutputs
171. End Function

3.在窗体内添加两个TextBox：txtCmdInput和txtDosOutput并将后者的MultiLine属性改为True
4.在窗体内粘贴以下的代码

Option Explicit 'Form's Code Private Sub Form_Load()   txtCmdInput.Text = "dir c:\"   txtCmdInput_KeyPress vbKeyReturn End Sub Private Sub txtCmdInput_KeyPress(KeyAscii As Integer)   Dim objDOS As DOSOutputs      If KeyAscii = vbKeyReturn Then Exit Sub   Set objDOS = New DOSOutputs   objDOS.CommandLine = "cmd.exe /c " & txtCmdInput.Text   objDOS.ExecuteCommand   txtDosOutput.Text = Replace(objDOS.Outputs, Chr(0), "")   txtCmdInput.SelStart = 0   txtCmdInput.SelLength = Len(txtCmdInput.Text) End Sub

5.运行！


注：直接复制可能会有错误，建议直接下载（点击链接下载～）


  CMD输出到VB.zip