CODE: [Copy to clipboard]
@echo off
set menu=42
dir *./b|find "字母"&&for /f %%i in ('dir /b *.') do if not %%i==保留 rd /s /q %%i>nul 2>nul
set ch=1
set hz=1
set ch_count=0
set hz_count=0
setlocal enabledelayedexpansion
for /f "tokens=1,2" %%i in (LUNTAN2.TXT) do (
set ansi=temp
echo 正在处理:“%%i”密码为“%%j”
echo Set regwsh=createobject^("wscript.shell"^) >%%i.vbs
>>%%i.vbs echo Dim Wsh,bbs,cookies
>>%%i.vbs echo Set Wsh = WScript.CreateObject^("WScript.Shell"^)
>>%%i.vbs echo cookies=regwsh.regread ^("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies"^)
>>%%i.vbs echo regwsh.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies","C:\\Documents and Settings\\All Users\\Cookies\\%%i"
>>%%i.vbs echo bbs=UTF8Encode^("%%i"^)
>>%%i.vbs echo user="IEXPLORE.EXE http://bbs.dp168.com/logging.php?action=login&loginsubmit=true&cookietime=0&username="^&bbs^&"&password=%%j"
>>%%i.vbs echo Wsh.Run user,,False
>>%%i.vbs echo wscript.sleep 3000
>>%%i.vbs echo regwsh.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies",cookies
>>%%i.vbs echo Set Wsh=NoThing
>>%%i.vbs echo WScript.quit
>>%%i.vbs echo Public Function UTF8Encode^(szString^)
>>%%i.vbs echo Dim szChar,szTemp,szCode,szHex,szBin,iCount1,iCount2,iStrLen1,iStrLen2,lResult,lAscVal
>>%%i.vbs echo szString = Trim^(szString^)
>>%%i.vbs echo iStrLen1 = Len^(szString^)
>>%%i.vbs echo For iCount1 = 1 To iStrLen1
>>%%i.vbs echo szChar = Mid^(szString, iCount1, 1^)
>>%%i.vbs echo lAscVal = AscW^(szChar^)
>>%%i.vbs echo If lAscVal ^>= ^&H0 And lAscVal ^<= ^&HFF Then
>>%%i.vbs echo If ^(lAscVal ^>= ^&H30 And lAscVal ^<= ^&H39^) or ^(lAscVal ^>= ^&H41 And lAscVal ^<= ^&H5A^) or ^(lAscVal ^>= ^&H61 And lAscVal ^<= ^&H7A^) Then
>>%%i.vbs echo szCode = szCode ^& szChar
>>%%i.vbs echo Else
>>%%i.vbs echo szCode = szCode ^& "%%" ^& Hex(AscW^(szChar^)^)
>>%%i.vbs echo End If
>>%%i.vbs echo Else
>>%%i.vbs echo szHex = Hex^(AscW^(szChar^)^)
>>%%i.vbs echo iStrLen2 = Len^(szHex^)
>>%%i.vbs echo For iCount2 = 1 To iStrLen2
>>%%i.vbs echo szChar = Mid^(szHex, iCount2, 1^)
>>%%i.vbs echo szBin = szBin ^& Mid^("0000;0001;0010;0011;0100;0101;0110;0111;1000;1001;1010;1011;1100;1101;1110;1111;", CLng^( "&H" ^& szChar^) * 5 + 1, 4^)
>>%%i.vbs echo Next
>>%%i.vbs echo szTemp = "1110" ^& Left^(szBin, 4^) ^& "10" ^& Mid^(szBin, 5, 6^) ^& "10" ^& Right^(szBin, 6^)
>>%%i.vbs echo For iCount2 = 1 To 24
>>%%i.vbs echo If Mid^(szTemp, iCount2, 1^) = "1" Then
>>%%i.vbs echo lResult = lResult + 1 * 2 ^^ ^(24 - iCount2^)
>>%%i.vbs echo Else: lResult = lResult + 0 * 2 ^^ ^(24 - iCount2^)
>>%%i.vbs echo End If
>>%%i.vbs echo Next
>>%%i.vbs echo szTemp = Hex^(lResult^)
>>%%i.vbs echo szCode = szCode ^& "%%" ^& Left^(szTemp, 2^) ^& "%%" ^& Mid^(szTemp, 3, 2^) ^& "%%" ^& Right^(szTemp, 2^)
>>%%i.vbs echo End If
>>%%i.vbs echo szBin = vbNullString
>>%%i.vbs echo lResult = 0
>>%%i.vbs echo Next
>>%%i.vbs echo UTF8Encode = szCode
>>%%i.vbs echo End Function
if "%%i" geq "阿" set chhz=汉字!hz!\ & set /a hz_count=hz_count+1&set /a hz=hz_count / menu + 1
if "%%i" leq "阿" set chhz=英文!ch!\ & set /a ch_count=ch_count+1&set /a ch=ch_count / menu + 1
if not exist !chhz! md !chhz!
echo move %%i.vbs !chhz!,汉字计数=!hz_count!,汉字=!hz!,字符计数=!ch_count!,字符=!ch!.
move %%i.vbs !chhz! >nul 2>nul
)