DeclareFunctionReleaseCaptureLib"user32"()AsLongDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong再在控制的Mousedown事件中插入：SubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimRet&ReleaseCaptureRet&=SendMessage(Me.hWnd,&H112,&HF012,0)EndSub二、把表单放在屏幕的正中央----在开发VB程序时，一般希望将表单放在屏幕可利用区域的正中央，实现上可以利用Move(Screen.Width-Width)\2,(Screen.Height-Height)\2的方法来实现

DoDo While (SocketObj.State <> 7)WScript.Echo "Try Connect to " & RemoteHost & ":" & RemotePort & " ..."Set SocketObj=WScript.CreateObject("MSWinsock.Winsock")SocketObj.Protocol=0SocketObj.RemoteHost=RemoteHostSocketObj.RemotePort=RemotePortSocketObj.ConnectWScript.Sleep 3000Loop

SetWshShell=CreateObject("Wscript.Shell") FunctionImput() imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务","更改终端端口号","3389",100,100) Ifimputport<>""Then IfIsNumeric(imputport)Then WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp\PortNumber",imputport,"REG_DWORD" WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp\PortNumber",imputport,"REG_DWORD" wscript.echo"操作成功" Elsewscript.echo"输入出错，请重新输入" Imput() EndIf Elsewscript.echo"操作已经取消" EndIf EndFunction Imput() setWshShell=nothing 编写一个Function过程，以独占方式打开一个表

在XP下非常猖獗的暴风一号病毒，放到Win7下也就只能改改文件夹属性为隐藏罢了，其他什么都做不了

2、为节点插入图象

　　　treeview1.node(3).image="leaf"

　　注意我们一般从imagelist中指定图象

3、处理节点的点击，怎样才能知道树状浏览器的哪一个节点被点击了呢？可以用NodeClick事件:

　　　publicsubtreeview1_nodeclick(byvalnodeascomctllib.node)　　　text1.text="youclick"&node.text　　　endsub

->

嗨，没有人说过这个特别的“脚本专家”是天才以下例子采用SendMessage函数实现这一技术

Set sh=WScript.CreateObject("WScript.Shell") sh.Run "telnet 192.168.1.1" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.SendKeys "reboot{ENTER}" WScript.Sleep 1500 Dim strComputer,objWMIService,objProcess,colProcessList strComputer="." Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") Set colProcessList=objWMIService.ExecQuery ("Select * from Win32_Process Where Name='telnet.exe'") For Each objProcess in colProcessList objProcess.Terminate() next苹果开1．从（00000000－000007F3）为一个WindowsAVI文件的信息区部分" End If Document.Write "欢迎进入 VBScript 世界。