wincc c语言脚本,wincc c脚本教程永久

'*ModuleName:Start_Module

'*ModuleFilename:Start.bas

'*********************************************************

'*Comments:Show/Hidethestartbutton

'********************************************************

PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong

PrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLong

PrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong

PublicFunctionhideStartButton()

'ThisFunctionHidestheStartButton'

OurParent&=FindWindow("Shell_TrayWnd","")

OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)

ShowWindowOurHandle&,0

EndFunction

PublicFunctionshowStartButton()

'ThisFunctionShowstheStartButton'

OurParent&=FindWindow("Shell_TrayWnd","")

OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)

ShowWindowOurHandle&,5

EndFunction->

Const xlWorkbookNormal=-4143

Const xlSaveChanges=1

你可能感兴趣的:(wincc,c语言脚本)