修行者博客

在写asp小偷程序的时候碰到了个问题，就是采集utf-8中文网页会出现乱码，我对asp也不是很熟悉，捣鼓了半天才解决了这个难题，现在把asp抓取utf-8网页乱码问题的解决方法记录下来方便以后用得上。

我们知道asp中要采集数据就是利用XMLHTTP组件调用其它网站上的网页，比如要调用我博客首页的html内容就应该这样写

Dim Url,Html 
Url="http://www.xxzh.org" 
Html = getHTTPPage(Url) 
Response.write Html

一般url为变量的，这里只是以我博客为例，再来是获取页面源代码函数，返回值getHTTPPage是url目标网页的html代码，我的博客是utf-8编码的，而“getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") ”这句就是接收utf-8数据并转换。

    不论是ASP还是PHP里都可以看到有SERVER_NAME和HTTP_HOST这两个变量，而是很多人搞不清楚这两个变量之间的区别，因为一般情况下，SERVER_NAME和HTTP_HOST返回的结果是一样的，都是获取当前域名，但实际上这两个变量是不同的，它们之间的关系应该是 HTTP_HOST = SERVER_NAME:SERVER_PORT，也就是说SERVER_NAME输出的是当前域名如：www.xxzh.org，而 HTTP_HOST输出的是当前域名加端口号如：www.xxzh.org:8080，而当http端口就是默认80端口，即www.xxzh.org:80的时候，端口号被省略，HTTP_HOST才会等于SERVER_NAME。

现在网民都很在意自己的隐私，而我们经常碰到别人玩自己的电脑而又不希望别人随便运行自己电脑上的一些软件，虽然使用组策略可以比较方便地禁止某些程序的运行，但是很多菜鸟不会设置，下面介绍个用能禁止程序运行的VBS脚本，这是我最近学编程翻到的。

用记事本输入下面的内容然后保存为.vbs文件，双击运行就可以了。

dim bag,pipe,honker,good
do
good="."
set bag=getobject("winmgmts:\\"&good&"\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='QQ.exe'")
for each i in pipe
i.terminate()
next
wscript.sleep 1
loop

自己写了一个简单的自动申请QQ号码VBS脚本，高手勿笑。原理很简单，就是模拟了我们打开QQ号码申请页面，并填写资料，但是验证码需自己填写。符号'后面为注释，看懂且看，看不懂的飘过。

Set a=WScript.CreateObject("WScript.shell")        '给变量a赋值，定义了个对象句柄
a.run "http://newreg.qq.com/"                                '打开QQ号码申请页面 
WScript.Sleep 3000              '延时3000毫秒即3秒，用来等待页面载入 ，可根据个人打开页面速度而定
a.SendKeys "xxzh"                             '这里填写昵称,不能为中文，否则会出错，因为是模拟键盘的
a.SendKeys "{TAB}"                       '模拟TAB键即跳格，以下相同
WScript.Sleep 200                        '延时200毫秒，不必修改，以下相同
a.SendKeys "{DOWN}"                '模拟方向键↓，用来选择生日，以下相同
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{DOWN}" 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{DOWN}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "xingxingzhihuo"                    '这里是密码 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "xingxingzhihuo"                  '再次输入密码 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}" 
WScript.Sleep 200 
a.SendKeys "{TAB}"

我是一只正在学习编程的菜鸟，和大家分享下互联网上的编程十大好习惯。

1、设计规划

现在是模块化程序设计的天下，编程时要对基础模块进行划分，规划得越详细，模块分工越明确，越容易明白下一步该做什么。

2、有备无患

实战之前，先找几个样例程序研究研究，最起码明白怎么开头，怎么结尾，别打无准备之仗。

3、葵花宝典

做一份所用程序语言的精简列表，包括基本数据类型、各类运算符说明、基本语句结构、常用关键词（保留字）、常用函数（控件）说明等等。

获取系统时间是编程中经常用到的，介绍几种用C++实现的方法。

第一种方法（此文件必须为c++文件）

#include<iostream> 
#include<ctime> 
using namespace std; 
int main() 
{ 
time_t now_time; 
now_time = time(NULL); 
cout<<now_time; 
return 0; 
}

此方法将当前时间折算为秒级，再通过相应的时间换算即可