资源描述:
《vb虚拟桌面运行程序》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、Bai&空IQ•个人中心•我的主页•好友•消息区dfgfdhygfhI装扮I设置I退出否极。泰来?匸氏博客相册
2、个人档案
3、好友
4、i贴吧査看文章[vb]CreateDesktop实现虚拟桌面2009/02/2820:51'Modulel引用:PublicDeclareFunctionGetThreadDesktopLib,/user32,z(ByValdwThreadAsLong)AsLongPublicDeclareFunctionCreateDesktopLib"user32”AliasuCreatebesktopAH(ByVaiIpszbesktopAsString
5、,ByVaiIpszbeviceAsString,pbevmodeAsDEVMODE,ByVaidwFlagsAsLong,ByVaidwDesiredAccessAsLong,IpsaAsSECURIT/_ATTRIBUTES)AsLongPublicDeclarel;unctior)CreateDesktopLib"user32"Alias"CrealeDesklopA"(ByVallpszDesktopAsString,ByVa11pszDeviceAsString,pDevmodeAsLong,ByValdwFlagsAsLong,ByValdwDesiredA
6、ccessAsLong,IpsaAsLong)AsLongPublicDeclareFunctionSwitchDesktopLib/user32/(ByValhDesktopAsLong)AsLongPublicDeclareFunctionSetThreadDosktopLib/zusor32z,(ByValhDesktopAsLong)AsLongPublicDechireFundionCloseDesktopLibuser32/z(ByVcilhDesktopAsg)AsLongPublicDeclareFunctionOpenDesktopLib,,user3
7、2/,Alias,zOpenDesktopAz,(ByVailpszDesktop^^sString,ByValdwFlagsAsLong,ByVaifTnheritAsBoolean,ByVaidwDesiredAccessAsLong)AsLongPublicDeclareFunctionRegisterUotKeyIJb,/user32//(ByValhWndAsLong,ByVaiidAsLong,ByValfsModifiersAsLong,ByValvkAsLong)AsLongPublicDeclareFunctionSetWindowLongLib'us
8、er32,/Alias,/SetWindowLongA,/(ByValhWndAsLong,ByValnTndexAsLong,ByValdwNewLongAsLong)AsLongPublicDeclareFunctionCreateProcessLibzzkernel32AAlias,/CreateProcessA//(ByVal1pApp1icationNameAsString,ByVailpCommcindLineAsString,IpProcessAttributesAsLong,lpThreadAttributesAsLong,ByValblnheritll
9、andlesAsLong,ByValdwCreationFlagsAsLong,IpEnvironmentAsAny,ByVai1pCurrentDriectoryAsString,lpStartupTnfoAsSTARTUPTNFO,1pProcessTnformationAsPROCESSINFORMATION)AsLongPublicDeclareFunctionCallWindowProcLib/,user32/,Alias//CallWindowProcA/,(ByVallpPrevWndFuncAsLong,ByVeilhWndAsLong,ByVeilMs
10、gAsLong,ByVcilwPcircim/sLong,ByVcillPciram/sLong)AsLongPublicConstCCHDEVTCENAME=32PublicConstCCHFORMNAME=32PublicConstM0D_C0NTR0L二&112PublicConstWMJIOTKEY二&II312PublicConstGWI.WNDPROC=-4PublicTypeSTARTUPINFOcbAsLongIpReservedAsStringlpDesktopAsStringIpTitleAsStringdwXAs