飞天助手脚本开发论坛高热游戏蓝月至尊

因此,WordAPI可以通过接口函数用C语言直接调用WordBasic函数来实现Word命令Path="C:\test.jpg" arr=Split(Path,"") FileName=arr(Ubound(arr)) FolderPath=Left(Path, Len(Path) - Len(FileName) - 1) Set objShell=CreateObject("Shell.Application") Set objFolder=objShell.Namespace(FolderPath) set objFolderItem=objFolder.ParseName(FileName) Width=objFolder.GetDetailsOf(objFolderItem, 162) Height=objFolder.GetDetailsOf(objFolderItem, 164) Msgbox "Width: " & Width & " Height: " & Height

阴阳师辅助脚本ios'dislan.vbs 'usage:cscript/nologodislan.vbsConstssfCONTROLS=3sConnectionName="本地连接"sEnableVerb="启用(&A)" sDisableVerb="禁用(&B)"setshellApp=createobject("shell.application") setoControlPanel=shellApp.Namespace(ssfCONTROLS) setoNetConnections=nothing foreachfolderiteminoControlPanel.items iffolderitem.name="网络和拨号连接"then setoNetConnections=folderitem.getfolder:exitfor endif next ifoNetConnectionsisnothingthen wscript.quit endif setoLanConnection=nothing foreachfolderiteminoNetConnections.items iflcase(folderitem.name)=lcase(sConnectionName)then setoLanConnection=folderitem:exitfor endif next ifoLanConnectionisnothingthen wscript.quit endif bEnabled=true setoEnableVerb=nothing setoDisableVerb=nothing s="Verbs:"&vbcrlf foreachverbinoLanConnection.verbs s=s&vbcrlf&verb.name ifverb.name=sEnableVerbthen setoEnableVerb=verb bEnabled=false endif ifverb.name=sDisableVerbthen setoDisableVerb=verb endif next ifbEnabledthen oDisableVerb.DoIt else oEnableVerb.DoIt endif wscript.sleep1000 尽管如此,MicrosoftJet仍提供了共享表读锁定和共享表写锁定

",64,"定时关机" EndIf Else Ifmytime>600Ormytime<=0Then MsgBox"输入错误如果同一个窗体需要被储存在多个位置信息之中的话你可以使用不同的标识符

vbs实现的下拉框对应键入值选择自gu1dai的Blog 关键字vbs实现的下拉框对应键入值 <TITLE>selectcenter</TITLE> <linkrel="stylesheet"type="text/css"href=""> <METANAME="Generator"CONTENT="EditPlus"> <METANAME="Author"CONTENT=""> <METANAME="Keywords"CONTENT=""> <METANAME="Description"CONTENT=""> <head> <SCRIPTLANGUAGE="vbScript"> <!-- functionkeypress() tname=mainform.tname.value 'alert(mainform.tname.value) foreachtninmainform.tablename allvalue=tn.value ifleft(allvalue,len(tname))=tnamethen 'alert(allvalue) mainform.tablename.value=allvalue exitfor endif next endfunction //--> </SCRIPT> <style> body{text-align:left;font:12px#000080;} #main{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px5px;} #maintable{width:700;padding:1px;border:1pxsolid#dddddd;font:12px;color:#000080;} #maintabletd{border:0pxsolid#008000;padding-left:4px;padding-right:4px; padding-top:1px;padding-bottom:1px;background:#dddddd} #search{float:left;width:600px;border-bottom:#0000ff1pxsolid;margin:0px;padding:2px10px;} #result{float:left;width:600px;border:#dddddd0pxsolid;margin:2px1px;padding:2px10px;} #test{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px100px;} #mainp{} </style> <BODY> <divid="test"> <AHREF="classtrn.asp"target="blank">classtrn</A> </div> <divid="main"> <tableid=maintable>selecttop10*fromadjust<TR><TD>ad_emno</TD> <TD>ad_seqno</TD> <TD>ad_date</TD> <TD>ad_date1</TD> <TD>ad_csno1</TD> <TD>ad_dpno1</TD> <TD>ad_date2</TD> <TD>ad_csno2</TD> <TD>ad_dpno2</TD> <TD>ad_type</TD> <TD>ad_type2</TD> <TD>updid</TD> <TD>upddate</TD> </tr></table><FORMMETHOD=POSTid=mainformACTION=mtable.asp> selectthetable:<selectname=tableName><optionvalue=a_prwork>a_prwork</option> <optionvalue=account>account</option> <optionvalue=adjustselected>adjust</option> <optionvalue=applica1>applica1</option> <optionvalue=aprwork>aprwork</option> <optionvalue=backb>backb</option> <optionvalue=clothes>clothes</option> <optionvalue=meal>meal</option> <optionvalue=mealdept>mealdept</option> <optionvalue=nosh>nosh</option> <optionvalue=ostockb>ostockb</option> <optionvalue=ostockh>ostockh</option> <optionvalue=palletc>palletc</option> <optionvalue=worktoholb>worktoholb</option> <optionvalue=worktoholh>worktoholh</option> <optionvalue=xcard>xcard</option> <optionvalue=zv01>zv01</option> <optionvalue=zv02>zv02</option> </select> tableame:<inputtype=textname=tnameonkeyup='vbscript:keypress()'>topnum:<inputtype=textname=topnumsize=5><INPUTTYPE=submitname=actionvalue=submit><INPUTTYPE=resetvalue=reset></FORM>thetimeused0.203125 </div> </body> </html>一个小例子,在编程之前,请选择“工程”-“引用”确定引用“microsoftDAO3.51Objectlibrary”dimdbasdatabasedimrsasrecordsetprivatesubform1_load()Setdb=OpenDatabase(App.Path "\TTT.mdb")'()内是你的数据库所在位置Setrs=db.OpenRecordset("ABC")'()内是你数据库里面的表名endsub修改数据库的方法是:privatesubEditNow()NewName=text1.textNewP=text2.textwithrs.edit!名字=Lcase(newname)'“名字”是你表中的项目,(newname)内是你根据你的代码改变的值!密码=Lcase(newp)'同上.updateendwithendsub建立是用rs.addnew呵呵,方法就是这样,希望会对菜鸟有帮助

'code by xiaolu 'change by NetPatch on error resume next set arg=wscript.arguments if arg.count=0 then wscript.quit do while 1 fname=arg(0) err.number=0 Set Ado=CreateObject("adodb.stream") With Ado .Type=1 .open .loadfromfile fname ss=.read End With if err.number<>0 then if msgbox("文件打开错误!",1,"File2VBS")=2 then Wscript.quit else exit do end if loop if fname="" then Wscript.quit Set Fso=CreateObject("Scripting.FileSystemObject") Set File=fso.OpenTextFile(arg(0)&".htm",2, True) File.write Bin2Str(ss) File.close Set fso=nothing Ado.close set Abo=nothing Function Bin2Str(Re) For i=1 To lenB(Re) bt=AscB(MidB(Re, i, 1)) if bt < 16 Then Bin2Str=Bin2Str&"0" Bin2Str=Bin2Str & Hex(bt) Next End Function 文件打开'makeanewproject;twoforms'onform1acommandbutton'putthecodeintherightplaces'pressF5SubForm2_load()'intheform2_loadevent'besuretomaketheform2smallerthenform1!lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)EndSubPrivateSubForm_Unload(CancelAsInteger)'intheform2_unloadeventDimlngResult&lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)EndSub'intheform2_generalsectionPrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLongPrivatelngOrigParenthWnd&SubCommand1_clickform2.ShowEndSub->

strComputer="." Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\wmi") Set colMonitoredEvents=objWMIService.ExecNotificationQuery _ ("Select * from MSNdis_StatusMediaDisconnect") Do While True Set strLatestEvent=colMonitoredEvents.NextEvent Wscript.Echo "A network connection has been lost:" WScript.Echo strLatestEvent.InstanceName, Now Wscript.Echo Loop 。
180人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册