ReEnter

今天下午，照往照一样。登陆google Adsense后，郁闷的看到你的账号已停用。直是操蛋了，分析原因的话，我估计可能是用了百度代码管家的当。以前不加这个，很长时间也不K。加了三天后K号，NND，听了萝卜的建议，损失了二千多元啊。。。这可是我主要的收入。。。哎，郁闷之极。

发现拷到system32下是注册不了的
首先拷备文件到copy /y .\dlget.dll %SYSTEMROOT%\SysWOW64\dlget.dll > nul
然后

regsvr32 %SYSTEMROOT%\SysWOW64\dlget.dll
做个记号

有时租用国外的机器，老外需要看你ping的结果，而且是一千次。。。所以有如下脚本

ping -n 1000 IP >> %HomePath%\desktop\ping.txt

1、本接口应用于zblog1.8 build100427版日志发布；
2、zblog是UTF8编码，请在发布规则中选择编码为UTF-8；
3、接口文件无须任何改动即可使用，如果你希望增加校验或其他功能，请仔细修改；
4、2个接口文件请复制在zblog网站根目录下使用；.


zblog1.8.rar

今天上网易看新闻时。看到一新闻<<大学生自筹30万元创建“重庆红歌网>>

http://news.163.com/11/0629/02/77MC4CRC00014AED.html

进去看了看。。。看到文章里有个网址http://www.023hgw.com/  重关红歌网

...

[CODE_LITE]Dim ScriptControl = CreateObject("ScriptControl")
ScriptControl.language = "javascript"
ScriptControl.addcode(TxtJscode.Text)
Dim x(1) As String
x(0) = (From mt As Match In Regex.Matches(ScriptControl.run("Dec", keyenstr, keystr), "(?<=key:"").*?(?="")") Select mt.Value)(0)
...

[CODE_LITE]Function URLDecode(ByVal urlcode)
Dim start,final,length,char,i,butf8,pass
Dim leftstr,rightstr,finalstr
Dim b0,b1,bx,blength,position,u,utf8
On Error Resume Next

b0 = Array(192,224,240,248,252,254)
urlcode = Replace(urlcode,"+"," ")
...

asp汉字转拼音速度最快版（带高级过滤功能） 去除首尾-

'Dim p
'Set p = New EasyAsp_PinYin
'response.Write p.PinYin("拼音声调,./,./,/,., 4r3434 3434 ")("拼音")
'response.Write p.PinYinF("拼音声调,./,./,/,., 4r3434 3434 ")("拼音首字母")
'response.Write p.PinYinsd("拼音声调,./,./,/,., 4r3434 3434 ")("拼音声调")
...

下载测试

新浪微博.rar

读取一个文件，并用一个list数组将结果保存


[CODE_LITE]FileStream fs = new FileStream(txt_filePath.Text, FileMode.Open, FileAccess.Read);
StreamReader sr = new StreamReader(fs);
while (!sr.EndOfStream)
{
string str = sr.ReadLine(); ;
...