中国DOS联盟

@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
	)