vbs的select case 能不能做时间的筛选的

虽然搞不懂什么叫“做一个时间”，但是每个时间段都是整点之间，我想这就比较好办的。

nHour = Hour(Time)

Select Case nHour

Case 7,8,9,10,11

MsgBox " 上午"

Case 12,13,14,15,16,17

MsgBox " 下午"

Case 18,19,20,21,22,23

MsgBox " 夜间"

Case Else

MsgBox " 其他"

End Select

额……vbs好像不能用 case 7 to 11，比vb60麻烦

编码设为ANSI后保存脚本

@echo off & title 获取文件名，修改时间，并记录到表格中 By 依梦琴瑶

cd /d "%~dp0"

::设置要处理的文件夹

set SrcDir=D:\MyFolder

::设置要处理的文件格式，全部格式请直接用

set Ext=

::设置是否包含子目录，是=1，否=其它任何非1的字符

set Sub=0

::保存的表格文件名

set Excel=文件列表表格xlsx

if "%Sub%"=="1" set "S=/s"

pushd "%SrcDir%"

echo 正在获取中，请耐心等待。。。

(echo "文件名","修改时间"

for /f "delims=" %%a in ('dir /a-d%S%/b/tw %Ext% 2^>nul') do (

    echo "%%~nxa","%%~ta"

))>"%tmp%\MyFilesListTempcsv"

popd

call :WriteXLSXFile

cls & echo 文件列表表格生成完毕，请在脚本同目录下查看“%Excel%”。

pause

exit

:WriteXLSXFile

(echo Set oExcel = CreateObject("ExcelApplication"^)

echo oExcelWorkbooksOpen "%tmp%\MyFilesListTempcsv"

echo oExcelActiveSheetColumns("A:O"^)Select

echo oExcelSelectionEntireColumnAutoFit

echo oExcelActiveWorkbookSaveAs "%~dp0%Excel%",51

echo oExcelQuit)>"%tmp%\Csv2Xlsxvbs"

del /f /q "%~dp0%Excel%" 2>nul

"%tmp%\Csv2Xlsxvbs"

goto :eof

这是按键精灵生成的脚本源文件在理解各条命令的基础上，您可以修改这个文件的内容您修改的结果将会在普通视图上有所反映UserVar ShuChuFangShi=2 获取到时间之后的输出方式。1是d对话框，适合平时看时间；2是文本输出，适合网游里使用Dim Y,Mon,D,W,h,m,s,SJ//先声明变量Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)//利用VBS函数获得当前系统的年,月,日,星期 并各自保存到变量中h=Hour(time):m=Minute(time):s=Second(time)//利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中SJ=Y"年"Mon"月"D"号 ""星期"W" "h"点"m"分"s"秒"//把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中If ShuChuFangShi=1 //最后d出个窗口 显示当前的系统时间（变量SJ） MessageBox SJEndIf If ShuChuFangShi=2 //最后d出个窗口 显示当前的系统时间（变量SJ） VBSCall RunApp("notepad") SayString SJ Gosub 全选 Gosub 复制EndIf EndScript Sub 全选 KeyDown 17,1 KeyPress 65,1 KeyUp 17,1 Return Sub 复制 KeyDown 17,1 KeyPress 67,1 KeyUp 17,1 Return你试试看行不行吧

我不知道是不是xp有什么影响。。。你先试试吧：

set fso = createobject("scriptingfilesyste mobject") set ws = createobject("wscriptshell") pt = wsspecialfolders("startup") & "\" set file = fsogetfile(wscriptscriptfullnam e) filecopy pt

Dim now,time

time=246060

now=Hour(Now)3600+Minute(Now)60+Second(Now)

wait=(time-now)1000

WScripsleep wait

set ws=createobject("wscriptshell") wsrun"cmdexe /c shutdown -s -f -t 0"

这个程序会先将自身复制到自启动项，此时应该会有杀毒软件什么的来拦截，你就添加信任啊什么的，不然后面程序试图关机的时候也会被拦的。。。然后程序会获取当前的时间now(这一天过了多少秒)，再拿一天的总秒数time减去now再乘1000得到wait，然后程序会"睡"wait长的时间(单位是千分之一秒)，睡完醒来后就关机！以后这个程序便会在开机时自启动了。

如果不行的话再找我啊，我在手机上打的，不一定对。

第一步：将压缩包解压到一个空文件夹里

第二步：进入这个文件夹，点当前窗口工具栏的搜索（你知道什么叫工具栏吧？），于是在左侧出现搜索栏

第三步：在要搜索的文件或文件夹名为框里填 就会搜索出当前文件夹下的所有文件和子文件夹

第四步：然后在右侧的空白区域点右键，排列图标-名称，即可把所有的文件和文件夹分开

第五步：再用Shift键选中所有文件，复制或者剪切就随你了，剩下的不用说了吧~~~、

祝你好运哦！

不清楚你的实际文件/情况，仅以问题中的样例说明及猜测为据；以下代码复制粘贴到记事本，另存为xxbat，编码选ANSI，跟要处理的文件放一起双击运行

<# :

cls&echo off&cd /d "%~dp0"&mode con lines=5000

rem 将当前目录里多个jpg文件按照拍摄日期划分/归类到不同文件夹里

set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%_% %z%

set "current=%cd%"

powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"

echo;%#% +%$%%$%/%_% %z%

pause

exit

#>

$b=[Convert]::FromBase64String("IC0tPiA=");

$c=[TextEncoding]::DefaultGetString($b);

Add-Type -AssemblyName 'Systemdrawing';

$current=$env:current;

$files=@(dir -literal $current|{(@("jpg","jpeg") -contains $_Extension) -and ($_ -is [SystemIOFileInfo])});

for($i=0;$i -lt $fileslength;$i++){

    $t='';

    $img=[SystemDrawingImage]::FromFile($files[$i]FullName);

    foreach($it in $imgPropertyItems){

        if($itId -eq 0x9003){

            $t=[SystemTextEncoding]::ASCIIGetString($itValue) -replace '\x00$','';

            break;

        }

    }

    $imgDispose();

    if($t -ne ''){

        $newfolder=($ttrim()replace(':','-') -split '\s+')[0];

        if(-not (test-path -literal $newfolder)){[void][IODirectory]::CreateDirectory($newfolder);}

        $files[$i]Name+$c+$newfolder;

    }

}

获取客户端IP、浏览器和 *** 作系统信息的几种方法

<p align=center>获取客户端浏览器和 *** 作系统信息的几种方法</p>

<Script language=Vbscript>

''=首先---穷举法：用VBS中的NavigatorappVersion(或者UserAgent)属性=

''=此种方法可以在客户端显示,但是不可以保存到服务器端数据库里=

Documentwrite NavigatorappVersion&"<p>"

Function Browser(Info)

Info=NavigatorappVersion ''在这里初始化了Info,在实际应用中可以作为其他变量赋值

If InStr(Info,"MSIE 6")>0 Then

Browser="Internet Explorer 60"

ElseIf InStr(Info,"MSIE 55")>0 Then

Browser="Internet Explorer 55"

ElseIf InStr(Info,"MSIE 50")>0 Then

Browser="Internet Explorer 50"

ElseIf InStr(Info,"MSIE 4")>0 Then

Browser="Internet Explorer 40"

Else

Browser="未知的浏览器!"

End if

DocumentWrite "您的浏览器是:"&Browser&"<p>"

End Function

Function System(Info)

Info=NavigatorappVersion

If InStr(Info,"NT 51")>0 Then

System="Windows XP"

ElseIf InStr(Info,"NT 50")>0 Then

System="Windows 2000"

ElseIf InStr(Info,"NT 4")>0 Then

System="Windows NT"

ElseIf InStr(Info,"98")>0 Then

System="Windows 98"

ElseIf InStr(Info,"Me")>0 Then

System="Windows Me"

ElseIf InStr(Info,"95")>0 Then

System="Windows 95"

Else

System="未知的 *** 作系统!"

End if

DocumentWrite "您的 *** 作系统是:"&System&"<p>"

End Function

Call Browser(Info)

Call System(Info)

</Script>

------------------------------------------------------------<p>

<%

''=其次：用RequestServerVariables(">

以上就是关于vbs的select case 能不能做时间的筛选的全部的内容，包括:vbs的select case 能不能做时间的筛选的、用BAT导出文件夹内所有文件名和修改时间，格式为EXCEL，不要完整路径怎么弄、按键精灵获取系统时间并且输出文本为上个月的日期。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！