当我们要移动控制项(Control)或表单(Form)时，很多人习惯这样写：
frmCustomer.Left=frmCustomer.Left 100
frmCustomer.Top=frmCustomer.Top 50
但是若使用MoveMethod，可以加快40：
frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->
打开或关闭任务管理器：
DimWSHShell,r,m,v,t,g
Dimi
OnErrorResumeNext
SetWSHShell=WScript.CreateObject("WScript.Shell")
v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
i="REG_DWORD"
t="任务管理器开关"
r=WSHShell.RegRead(v)
g=1
If(r=1)Theng=0
Ifg=1Then
WSHShell.RegWritev,1,i
m=MsgBox("是否限制任务管理器？",3,t)
Else
WSHShell.RegDeletev
m=MsgBox("是否解除任务管理器限制？",3,t)
EndIf
也是将以上内容复制到记事本中，将文件另存为*.VBS即可
共有二种方法
方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码：
Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2
方法2:
VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->
在您的HTA示例中，您为我们展示了如何单击一个按钮使一个子例程得以运行所以如果所要使用DLL文件不在上述几个目录下的话，我们应该指明其完整路径
文件操作
VBS 导入注册表，然后执行文件
PING内网 不通就 执行关机 的VBS
开机脚本VBS用于ARP邦定
运行程序
运行 oshell.run "d:\soft\hf\hfgame3\GameClient.lnk"
断开网络连接
启动网络连接
删除文件的VBS脚本
无界面自动检测安装iscsi客户端，映射及断开映射vbs脚本
下列代码实现无界面自动检测安装iscsi客户端,自动映射
下例代码实现无界面删除iscsi映射盘
删除QQ用户文件强制删除是不行的了，要跳过的话这样：
格5分钟运行一次批处理程序
要设开机自动运行，禁止程序
为了计算中英文混合型字符串的输出长度，我们可以用VC 编写一个完成此计算的DLL库函数，在VB中直接调用该函数即可
有关数值，请参阅“设置”部分sql注入
現在Microsoft发现了这个问题了，也提供了解決方法，不过有版本上的限制
'Author: Demon
'Website:
'Date : 2011/4/27
dtmNewDateTime="20380119031408.000000+480" 'UTC时间
strComputer="."
Set objWMIService=GetObject("winmgmts:{(Systemtime)}\" & strComputer & "\root\cimv2")
Set colOSes=objWMIService.ExecQuery("Select * From Win32_OperatingSystem")
For Each objOS In colOSes
objOS.SetDateTime dtmNewDateTime
Next
。
