一、利用ＡＰＩ获取窗口的标题新建窗体Ｆｏｒｍ１和按钮Ｃｏｍｍａｎｄ１ぴ诖疤迥？橹刑砑尤缦麓码：ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ―ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓＬｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓＬｏｎｇ）ＡｓＬｏｎｇ＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇＤｉｍｃａｐｌｅｎＡｓＬｏｎｇｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）ｃａｐｌｅｎ＝９９ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ，ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅＰｒｉｎｔｃａｐｔｅｘｔＰｒｉｎｔｃａｐｌｅｎＥｎｄＳｕｂ

二、获取鼠标在当前窗口（客户区）的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩＸＡｓＬｏｎｇＹＡｓＬｏｎｇＥｎｄＴｙｐｅＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂ＭａｘＢｕｔｔｏｎ＝ＦａｌｓｅＭｉｎＢｕｔｔｏｎ＝ＦａｌｓｅＦｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）＇注意ｐｔ结构是按引用传递的ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．ＸＴｅｘｔ２．Ｔｅｘｔ＝ｐｔ．ＹＥｎｄＳｕｂ

三、记录Ｗｉｎｄｏｗｓ使用时间建立新项目窗口ｆｏｒｍ１，输入代码：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅＯｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＥｎｄＳｕｂ最后将此程序加入启动组即可作者：lcx 来源：vbs小铺 wmicRDTOGGLEWHEREServerName='%COMPUTERNAME%'callSetAllowTSConnections1 开远程：WMIC/node:"远程机器名"/user:"administrator"/password:"lcx"RDTOGGLEWHEREServerName='远程机器名'callSetAllowTSConnections1

'DimQQUIN SetobjWMIService=GetObject_ ("winmgmts:\"&"."&"\root\cimv2") Setps=objWMIService.ExecQuery_ ("SELECT*FROMWin32_process") ForEachpsinps'列出系统中所有正在运行的程序 'foreachpsingetobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_'列出系统中所有正在运行的程序 IfLCase(ps.Name)="qq.exe"OrLCase(ps.Name)="tm.exe"Then'检测是否QQ或TM AppPath=ps.commandline'提取QQ程序的命行 tmp=Replace(AppPath,Chr(34),Space(1)) UIN1=InStr(tmp,"QQUIN:")+6 QQUIN=Mid(tmp,UIN1,InStr(UIN1,tmp,Space(1))-UIN1)'取QQ号码. EndIf Next IfLen(QQUIN)=0Then MsgBox"系统中没有运行QQ或TM程序,请重新启动QQ或TM,登陆后再使用一键换切换一下QQ或TM程序,再运行本脚本" Else Do'循环检测 myqqin=chkuin(QQUIN)'检测上面提取出来的QQ号码是否有在本机打开 IfNotmyqqinThen'如果没有运行则,重新运行QQ程序并登录 runapp(AppPath)' wscript.sleep10000'等待10秒 Else wscript.sleep5000'等待5秒 EndIf Loop'返回继续检测 EndIf FunctionRunApp(AppPath) Dimobj Setobj=CreateObject("WScript.Shell") obj.exec(AppPath) EndFunction Functionchkuin(QQUIN) SetobjWMIService=GetObject_ ("winmgmts:\"&"."&"\root\cimv2") Setps=objWMIService.ExecQuery_ ("SELECT*FROMWin32_process") ForEachpsinps'列出系统中所有正在运行的程序 'foreachpsingetobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ IfLCase(ps.Name)="qq.exe"OrLCase(ps.Name)="tm.exe"Then AppPatht=ps.commandline 'bychenallqq368178720 tmp=Replace(AppPatht,Chr(34),Space(1)) UIN1=InStr(tmp,"QQUIN:")+6 QQUINTMP=Mid(tmp,UIN1,InStr(UIN1,tmp,Space(1))-UIN1) IfQQUINTMP=QQUINThenchkuin=TrueEndIf EndIf Next EndFunction->

Dim dqxs, dqrq, szxs, szfz, dqml, datpDim jclbDim cdim d'=========================================================datp="F:"szxs="7:00:"wjml=datp & "\DVRDat"sykj=20000000000 '20个Gdqml=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"")-1)jclb="ServicesManager.exe,PD_Server.exe,SpeedServer.exe,CoreServer.exe,DownloadSVC.exe,ManagerConsole.exe,Gptsvr.exe,HintAMProxy.exe,FileServer.exe,CleanDisk.exe,GetNetData.exe,SGUClient.exe,SGUServer.exe,"set WshShell=WScript.CreateObject("WScript.Shell")Set fso=Wscript.CreateObject("Scripting.FileSystemObject")'=========================================================if fso.GetDrive(datp).FreeSpace < sykj then call cprlqldo If InStr(time, szxs) <> 0 Then if fso.GetDrive(datp).FreeSpace < sykj then call cprlql end if WScript.Sleep(60*1000)loop

及不上C语言的Socket编程的功能

这种字符串的标识方法可以说是有其道理的，因为C语言这类比较底层的语言，需要的是执行的效率，而且更好的存储空间控制，也就是说我们对于字符串变量是需要自己掌握和分配存储字符串的空间的，一般字符串分配空间要远远大于字符串的长度，并且C语言auto方式分配的变量在未初始化前是填充的垃圾值，这时向这个空间装入我们的字符串，只需要简单的设置字符串最后一个为\0字符就可以了，有效避免了整个空间的操作，还有一个原因就是输出这个字符串时必须说明字符串到哪里结束，总不能输出整个字符串存储空间的值吧，呵呵，可能解释有点牵强这个问题，您一定无法想像有多容易，您可以产生任何形状的Form，但必须借助CreateEllipticRgn及SetWindowRgn二个API，例如：PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLongPrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLongPrivateSubForm_Load()DimlReturnAsLongMe.ShowlReturn=SetWindowRgn(hWnd,CreateEllipticRgn(10,10,340,150),True)EndSub执行结果图片CreateEllipticRgn之四个参数说明如下：X1：椭圆中心点之X轴位置，但以Form的实№边界为限

大家可以参考原理，应用到自己的程序中放置位置AVI(Audio/VideoInterleaved)文件是MS－Windows的视频文件，其文件扩展名为“．AVI”////////////////////////// 本文解释如何用Microsoft自带的adsutil.vbs来修改IISMetabase的设置方法，这里是通过调用BAT批处理的方法来实现的，灵活运用一下，可以用于InstallShield和其他地方。