'C:\PreventPCLock.vbs
ConstmicVoid = 0
ConstmicByte = 26
ConstmicLong = 3
Const KEYEVENTF_KEYUP = &H2

'创建Extern对象
Set Extern = CreateObject("Mercury.ExternObj")
extern.Declare micVoid,"keybd_event","user32" ,"keybd_event" , _
micByte,micbyte,miclong,micLong

Extern.Declare micVoid,"Sleep","kernel32","Sleep",micLong

While True
extern.keybd_event 0, 0, KEYEVENTF_KEYDOWN, 0
Extern.Sleep 20000
Wend

'此函数将一个目录加入到PATH环境变量
Public Function AddToSystemPath(ByVal Path)
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

  '取得Windows环境变量
  Set colItems = objWMIService.ExecQuery _
      ("Select * From Win32_Environment Where Name = 'Path'")

  For Each objItem in colItems
      '如果PATH中还没有此路径，将它添加到PATH变量中
      If InStr(objItem.VariableValue, Path)= 0 Then
        '如果路径不存在则添加
strPath = objItem.VariableValue& ";" & Path
objItem.VariableValue = strPath
objItem.Put_
      End If
  Next
End Function

AddToSystemPath "C:\Program Files\Mercury Interactive\QuickTest Professional\bin"

'声明
Private Const SW_MAXIMIZE = 3
Extern.DeclaremicLong, "ShowWindow", "user32.dll", "ShowWindow", _
micHwnd, micLong

'如果要最大化一个窗口，那需要使用它的句柄.
hWndWindow = Browser("creationtime:=0").GetROProperty("hwnd") 
'最大化窗口
Extern.ShowWindowhWndWindow, SW_MAXIMIZE

'Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" 
'( ByValpCaller As Long, ByValszURL As String, ByValszFileName As String, 
'ByValdwReserved As Long, ByVallpfnCB As Long ) As Long
Extern.DeclaremicLong,"URLDownloadToFile","urlmon","URLDownloadToFileA", _
micLong,micString,micString,micLong,micLong
sSourceURL = http://mysite/logo.gif
sTargetFile = "C:\logo.gif"
Extern.URLDownloadToFile 0, sSourceURL, sTargetFile, 0,0