中国DOS联盟

自己做了个登论坛小号的程序如下（用户和密码正确）：
Set regwsh=createobject("wscript.shell")
Dim Wsh,cookies
Set Wsh = WScript.CreateObject("WScript.Shell")
cookies=regwsh.regread ("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies")
regwsh.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies","C:\\Documents and Settings\\All Users\\Cookies\\我是马甲"
Wsh.Run "IEXPLORE.EXE http://bbs.dp168.com/logging.php?action=login&loginsubmit=true&cookietime=0&username=鎴戞槸椹敳&password=15239776",,False
wscript.sleep 3000
regwsh.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies",cookies
Set Wsh=NoThing
WScript.quit


本程序利用IE或其它浏览器启动时只检查一次cookies的原理来实现多个IE窗口同时登录多个用户功能。其中下面这句的乱码是被转换过后的用户名“我是马甲”：
Wsh.Run "IEXPLORE.EXE http://bbs.dp168.com/logging.php?action=login&loginsubmit=true&cookietime=0&username=鎴戞槸椹敳&password=15239776",,False

使用了批处理生成vbs只能生成ansi编码。而这次的论坛要求使用utf8编码（一些论坛是），所以当户名是中文时老是出错，英文用户名时不会出错。怎样能把ANSI编码的转成utf8呢？vbs只能使用ANSI代码，一用UTF8就出错，临时解决方案是用一个ANSI文本、一个UTF8文本，在调用IE的字符串里使用转换过后的UTF8的字符串，但这样做任然有很多中文出现问号，使过程无法完成，比如用户名为“一个会员”时，转成UTF8是“涓€涓細鍛?”,这个问号的出现使用户无法登陆，有没有好办法呢？

[ Last edited by 9zhmke on 2009-7-8 at 15:16 ]

cookie完全不用改。。。就一句就可以了啊

直接:
点击链接:
http://bbs.dp168.com/logging.php?action=login&formhash=5f63995a&loginfield=username&username=%E6%88%91%E6%98%AF%E9%A9%AC%E7%94%B2&password=15239776&questionid=0&answer=&loginsubmit=%E7%99%BB%E5%BD%95

这是两个不相干的问题，如果不改注册表里的cookies，是不可以同时登两个以上的号的，不信你在本论坛试就知道了。

...你句子里这个后面的%??是怎么来的呢？

[ Last edited by 9zhmke on 2009-7-8 at 13:21 ]

你没有看我的标题么？

看了，vbs的文件如果用utf文件根本就不能执行。不知道怎么才能在里面弄成utf8。如果可以转换成三字节格式的%数据就好了。

[ Last edited by 9zhmke on 2009-7-8 at 14:10 ]

记事本用过没？

简单方法用专用播放器。。。

要用系统的方法就新建记事本，写 我是马甲

然后另存为 utf8编码名字叫1.txt

没用16进制查看器怎么看呢？
新建一个文本文档写000000000000000
UTF8编码1个汉字转3个字节，你打3(记事本UTF编码头)+12个0

然后保存为2.txt

然后打开CMD

运行:
fc /b 1.txt 2.txt
会得到2列信息，一列是1的编码，一列30（0的编码）


所以。。。。

还是推荐找个专门工具转吧。。。

其实貌似。。。
很多网页你提交都可以看到。。。比如吧，类似google
你查找下"我是马甲"看下IE的URL就知道了

专用编码转换器。。。

Originally posted by slore at 2009-7-8 02:42 PM:
专用编码转换器。。。

不会全手工操作吧？ 我的目的是根据一个用户名密码清单来生成这么几百个vbs。

如果一个直接在地址栏用javascript:alert(encodeURI('我是马甲')就可以查出来，多了还不清楚怎么弄。继续查资料中....

[ Last edited by 9zhmke on 2009-7-8 at 14:59 ]

MsgBox UTF8Encode("我是马甲")

Public Function UTF8Encode(szString)
Dim szChar
Dim szTemp
Dim szCode
Dim szHex
Dim szBin
Dim iCount1
Dim iCount2
Dim iStrLen1
Dim iStrLen2
Dim lResult
Dim lAscVal
szString = Trim(szString)
iStrLen1 = Len(szString)
For iCount1 = 1 To iStrLen1
szChar = Mid(szString, iCount1, 1)
lAscVal = AscW(szChar)
If lAscVal >= &H0 And lAscVal <= &HFF Then
If (lAscVal >= &H30 And lAscVal <= &H39) or _
(lAscVal >= &H41 And lAscVal <= &H5A) or _
(lAscVal >= &H61 And lAscVal <= &H7A) Then
szCode = szCode & szChar
Else

szCode = szCode & "%" & Hex(AscW(szChar))
End If
Else
szHex = Hex(AscW(szChar))
iStrLen2 = Len(szHex)
For iCount2 = 1 To iStrLen2
szChar = Mid(szHex, iCount2, 1)
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)
Next
szTemp = "1110" & Left(szBin, 4) & "10" & Mid(szBin, 5, 6) & "10" & Right(szBin, 6)
For iCount2 = 1 To 24
If Mid(szTemp, iCount2, 1) = "1" Then
lResult = lResult + 1 * 2 ^ (24 - iCount2)
Else: lResult = lResult + 0 * 2 ^ (24 - iCount2)
End If
Next
szTemp = Hex(lResult)
szCode = szCode & "%" & Left(szTemp, 2) & "%" & Mid(szTemp, 3, 2) & "%" & Right(szTemp, 2)
End If
szBin = vbNullString
lResult = 0
Next
UTF8Encode = szCode
End Function

刚试了可以了，太谢谢了，就是要这个效果呢

把生成程序一起发上来，给大家省去调试的麻烦：
其中涉及到的LUNTAN2.TXT是马甲存放文件，格式为用户名+空格+密码，空格为任意个但是用户名和密码中不能有空格

@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

	)