ReEnter

记录ReEnter生活中的一些事情以及学习中的一些代码,方便自己的同时,也方便大家查询

Google AdSense 帐户已被停用【超级郁闷】

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

做个记号。08r2下的DLL注册

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

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

1000次ping格式

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

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

Zblog 1.8日志文章接口

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/  重关红歌网

...

vb.net执行js的相关语句

[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)
...

Asp 无错版urldecode

[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汉字转拼音速度最快版(带高级过滤功能)

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

昨天碰到的一个C#的问题

读取一个文件,并用一个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(); ;
...
«123»