'makeanewproject;twoforms
'onform1acommandbutton
'putthecodeintherightplaces
'pressF5
SubForm2_load()
'intheform2_loadevent
'besuretomaketheform2smallerthenform1!
lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
'intheform2_unloadevent
DimlngResult&
lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)
EndSub
'intheform2_generalsection
PrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLong
PrivatelngOrigParenthWnd&
SubCommand1_click
form2.Show
EndSub->
VBS只是英文的缩写而已,全称是Visual Basic Script Edition,也就是说VBS是Visual Basic的脚本版,很多人说VBS是VB的一个子集
Delay=5000
strComputer="."
Set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set objStartup=objWMIService.Get("Win32_ProcessStartup")
Set objConfig=objStartup.SpawnInstance_
Set objProcess=GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn=objProcess.Create("C:\Program Files\Internet Explorer\iexplore.