PrivateDeclareFunctionShellExecuteLibshell32.dllAliasShellExecuteA(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong声明SubClearDups(lstAsControl,comptypeAsBoolean)Dimi,j,tmp$(),cID,lstCount,sComptype,tmpLine$lst.Visible=FalselstCount=lst.ListCount-1IflstCount<0ThenExitSubReDimtmp(lstCount)IfcomptypeThensCo...
