Google提交地址：
http://www.google.com/intl/zh-CN/add_url.html

向百度提交网站:
http://www.baidu.com/search/url_submit.html

另外，可以google的webmaster网站管理员工具中提交sitemap文件地址会更好些，这样Google会更好地获取你的网站目录结构以准确定位和收录。

如何向雅虎提交网站：
http://search.help.cn.yahoo.com/h4_4.html

msn提交网站：
http://search.msn.com/docs/submit.aspx

向搜狐/搜狗判提交站点：
http://db.sohu.com/regurl/regform.asp

TOM搜索提交地址：
http://search.tom.com/tools/weblog/log.php

中搜提交地址：
http://ads.zhongsou.com/register/page.jsp

向Alexa提交网址：
http://www.alexa.com/site/help/webmasters

向Alexa提交更新：
http://thumbnails.alexa.com/update_thumbnail

主要搜索引擎提交页面：
http://market.top1host.com/submit.html

    一、 关于窗口函数

    在上一堂课里，我们已经提出了"句柄"的概念，并为此进行了较深度的讨论。现在来想，我要补充的是，句柄并非是仅仅是窗口才有的。似乎所有的WINDOWS对象都具有句柄。如，GDI对象中的画笔、刷子等，不久即将要学习的设备场景等也有自己的句柄，等等。但，和一些控件不同，这些对象并不属于窗口。
    什么是窗口呢?有一句非常有趣的话∶如果它位于屏幕，那么它肯定是在一个窗口里；如果它不在于屏幕，它仍然可能在一个窗口里。窗体也是窗口；滚动条、列表框，文本框，甚至是桌面上的快捷图表也是窗口。更有趣的是，就连作为背景的桌面也是窗口。

    很多控件基本上都提供了hWnd属性，但没有提供的也有。对于这些控件可以用SetFocus
方法，将输入焦点设向控件，然后用API函数GetFocus取得当前具有焦点的那个窗口的句柄。当然，这一过程应当写在GoFocus事件中。在我碰到过的问题中有一个有趣的事情是，
VB提供的IE控件的hWnd属性不管用。这个问题我一般都采用上述方法来解决的。
    很多窗口函数都能对系统的任何窗体进行操作。这意味了VB程序可以直接操纵正在运行中的其他窗体。大家知道，如果对VB设计出的程序未做特殊的处理，那么我们可以启动多个该应用程序实例。我们可以利用API窗口函数来判断一个窗体的先例是否在运行当中，从而可以做到如果有先例则停止启动。很多应用程序就是这个样子的。比如四通利方中文平台，在已经启动的情况下再此启动，程序会告诉用户"四通利方已经在运行"，并停止启动。

    窗口函数主要可分为四个类型(也许说为"这是为了这次讲课分类出来的"更适合一些)∶
    1、窗口分级函数；
    2、窗口位置与大小函数；
    3、窗口信息函数；
    4、其他窗口函数。
    以下我们就一一讲述。但由于窗口函数比较多，在这里就选择性的进行讨论。关于窗口函数有多少，具体的用法如何，您可以注意"小雁侠"的VB API站点的技术文档，或者本站
程序下载栏目中的WinAPI帮助文。由于帮助文其内容来自"小雁侠"的网站，因此其内容更新比较起来会较晚一些。

    二、窗口分级函数

    系统中运行的窗口是有级别的高低之分的。谁不知道这样?这当然是废话。很多文章都是采用类似的这种废话来做导语，在这里我只不过也是学学而罢。
    一、父子关系。
    每个窗口都可能有自己的父窗口和子窗口。但，系统中运行的窗口是有限的，说明总得有个窗口是没有其父，我们把它叫做顶级窗口。一般把一个应用程序的主窗口就是顶级窗口，VB独立窗体及MDI窗体都是顶级窗口。窗口间的父子关系一般遵循以下规则∶
    1、父窗口显示时，所有包容在其中的可见的子窗口会随着父窗口的显示而显示出来。

    2、父窗口隐藏时，所有包容在其中的子窗口会随着父窗口的隐藏而隐藏。
    3、父窗口被卸载时，哈，您已经知道我想说什么了，当然是∶跟着自动卸载。
    4、父窗口移动时，跟着移动。
    二、兄弟关系及Z序列
    当然，一位父亲有好几个儿女，都是常见的事情。同样，一个父窗口可以拥有多个子窗体。比如，位于一个窗体中的各种控件之间以及MDI窗口的各子窗口之间的关系。父窗口与子窗口的显示、隐藏、卸载及移动，其先后顺序是显而易见的。那么各兄弟窗口之间的情况会是如何呢?

    显然，两个互相重叠的两个子窗体不能都同时显示出它的全貌，自然有个显示的顺序规则。这个顺序规则叫做Z序列。有个解释为，如果把屏幕坐标看层X和Y轴组成的平面(事实上正是如此)，那么作为三维坐标系统Z轴可看做是垂直于屏幕的坐标轴。这样，可以认为屏幕上的所有窗口是垂直于这个Z轴的。在Z轴上，谁在前，谁在后，就产生了一个Z序列。很生动！可用WINDOWS API函数和Visual Basic Z序列方法对Z序列进行控制。

    有了以上简单的知识以后，我们就不难应用API窗口分级函数，主要有以下及个∶
窗口分级函数

函数名                                 说   明
FindWindow             按类名或窗口名(Caption)查找一个窗口
FindWindowEx         类似于FindWindow提供了更多的功能
GetLastActivePopup 针对指定的窗口，取回上一个活动的弹出式窗口的句柄
GetParent                获得指定窗口父窗口的句柄
GetTopWindow        获得指定窗口的第一个子窗口的句柄
GetWindow              如给定一个窗口句柄，该函数能取回具有特定关系的另一个窗口                             的句柄。如，第一个子窗口、父窗口或窗口列表内的上一个或下一个窗口。
SetParent                改变任何窗口的父窗口。
    从我个人的经验来看，我最常用的是GetWindow和SetParent函数。

    三、窗口位置与大小函数

     Windows API函数基本上都是(尤其是USER32.DLL动态连接库内的函数)以屏幕像素为度量单位的。这一点很重要，必须牢记。为此，在使用API函数的时候，我们经常把窗体或图片框控件的ScaleMode属性设置为3，即vbPixels(像素)。
     理解窗口位置及大小函数的关键在于分清屏幕坐标、窗口坐标及客户坐标这三个概念。以下图展示了这三个坐标系统之间的关系。


屏目、窗口与客户区坐标系统

     只要对这些坐标有了明确的概念，对使用窗口位置及大小函数就不难了。关于窗口的位置，有些函数返回的是上一堂课学习到的RECT结构。有关窗口位置及大小函数如下表所列∶
窗口位置及大小函数

函数名                                               说  明
BringWindowToTop         使指定的窗口进入可见窗口列表的顶部，如它被部分或全部隐藏，则令其全部可见。同时，该窗口成为当前活动窗口。只有从前台线程调用时，才生效。
ChildWindowFromPoint   在规定的坐标取得某子窗口的句柄(如果有的话)，这儿的坐标是指相对于父窗口的客户区坐标。
ChildWindowFromPointEx 与 ChildWindowFromPoint相同，功能更强。
ClientToScreen                判断指定点在窗口客户区内的屏幕坐标。
GetClientRect                  获得对窗口客户区进行表述的一个矩形(RECT)。这是以像素为单位判断客户区大小的一个简便的方法。
GetWindowPlacement    获得指定窗口的一个WINDOWPLACEMENT结构。该结构说明了窗口的状态。
GetWindowRect              用于获得一个矩形(RECT)结构，它描述了窗体在屏幕坐标系统中的位置。
MapWindowPoints          对某窗口客户区坐标内的一个或多个点进行转换，用另一窗口的客户区坐标表示。
MoveWindow                  移动指定窗口的位置，并能改变它的大小。
OpenIcon                        将一个最小化窗口恢复为原始状态。
ScreenToClient                针对屏幕内一个指定的点，用某个特定窗口内的客户区坐标表示它。
SetWindowsPos              更改窗口的位置和大小，并能修改它在内部窗口列表内的位置(这个列表起着控制窗口先是顺序)。
SetWindowPlacement     在一个WINDOWPLACEMENT结构的基础上，设置某窗口的特征。该结构描述了窗口的状态，以及它在最小化、最大化或正常显示时的位置。
WindowFromPoint           根据屏幕上一个指定的点，判断哪个窗口正位于它的下面。
    以上函数的具体用法均可在WinAPI帮助文中找到。在这些函数当中，SetWindowsPos
函数的使用率比较高，现在很多人都是用这个函数来实现"窗口总在前面"的效果，即通过
HWND_TOPMOST常数把窗口置于列表顶部。如果想把From1置于列表顶部，方法如下∶
     SetWindowPos Form1.hWnd, HWND_TOPMOST, Form1.Left / Screen.TwipsPerPixelX, Fo rm1.Top \ Screen.TwipsPerPixelY, Form1.Width \ Screen.TwipsPerPixelX, Form1.Height \ Screen.TwipsPerPixelY, 0

    您可以把这行代码放在Paint事件中。
    另外，GetWindowRect函数、MoveWindow函数以及下一课堂即将要学到的
GetCursorPos函数的相互配合能够实现一个拖动无标题栏的窗口。这是您必须掌握的技巧之一。感兴趣的朋友，可以到《前线》的《源码解析》栏目，下载第4号演示程序。以下是其主要的代码部分∶
Private MyRect As RECT
Private MyPoint As POINTAPI
Private Movex As Long, Movey As Long

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim dl&
dl& = GetWindowRect(Form1.hwnd, MyRect)
dl& = GetCursorPos(MyPoint)
If Button = 1 Then
     Movex = MyPoint.X - MyRect.Left
     Movey = MyPoint.Y - MyRect.Top
End If
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
       Dim dl&
       dl& = GetCursorPos(MyPoint)
       If Button = 1 Then
           dl& = MoveWindow(Form1.hwnd, MyPoint.X - Movex, MyPoint.Y - Movey, _

                          MyRect.Right - MyRect.Left, MyRect.Bottom - MyRect.Top, -1)
       End If
End Sub
    在MouseDown事件中，程序首先用 GetWindowRect 函数确定窗口在屏幕中的位置。再次是通过GetCursorPos函数确鼠标在屏幕中的位置。从而可通过计算获得鼠标位置与窗口左上角之间的横向与纵向距离(Movex与Movey)。
    在紧接着发生的MouseMove事件中程序不断地用GetCursorPos函数获得鼠标当前的位置，并按前面已经求得的Movex与Movey判断窗口所应处的位置，而这在MoveWindow函数调用中直接完成。MoveWindow函数将窗体移动到新的位置。

    四、窗口信息函数

    所谓窗口信息函数就是用来获取有关窗口当前状态信息的函数。这类函数主要有∶

函   数                                            说    明
GetClassInfo                          取得指定窗口的类信息结构
GetClassInfoEx                      效果类似于GetClassInfo,但增加了一些功能
GetClassLong,GetClassWord 用于获取窗口类信息
SetClassLong,SetClassWord 用于设置窗口类信息
GetClassName                       获取窗口类名
GetDesktopWindow               获取整个桌面(屏幕)的窗口句柄
GetWindowLong,GetWindowWord  获取与窗口有关的信息
SetWindowLong,SetWindowWord  设置与窗口有关的信息
GetWindowText                     获得窗口文本。它的效果大致等价于窗体或控件的Text属性
GetWindowTextLength          获得窗口文本的长度，用字符数表示。
IsChild                                   判断某窗口是否为另一窗口的子窗口或从属窗口。
IsIconic                                  判断某窗口是否处于最小化状态
IsWindow                              判断指定的句柄是否为窗口句柄。
IsWindowEnabled                 判断指定的窗口是否处于活动状态。
IsWindowVisible                    判断某窗口是否可见。
IsZoomed                              判断窗口是否处于最大化状态。
SetWindowText                     设置窗口文本。大致等价于窗体或控件的Text属性。
    大部分窗口信息函数是非常好理解的，按照有关手册中进行的函数说明，按指定数据类型进行调用即可。有必要说明的是，关于类和窗口的样式位。Windows是用一个长整形的数据的位设置方式来记录类和窗口的样式的。其中，窗口样式由一个32位样式以及另一个32
位扩展样式来构成。类样式操作由上述列表中的GetClassLong以及GetClassLong来进行，窗口样式操作由GetWindowLong 以及SetWindowLong来进行。
    由于样式位的内容较多，我无法在此给出，您可以参考有关手册。这里有必要提醒大家的是，您想改变或获取当前窗口或类的样式，绝大多数情况可以考虑样式位操作。下面，就这个问题举一个简单了例子来说明。

    下面是用BS_LEFTTEXT样式位将VB复选框或选项按钮的文本在左边和右边之间相互移动来、移动去的程序(是附带的Program1.vbp的部分内容)。程序的原理很简单。首先用
GetWindowLong函数获得当前样式位的信息，然后通过位操作来准备新的样式位信息，最后用SetWindowLong实际地去更改。如下∶
    Dim f&, dl&
    f& = GetWindowLong(Option1.hWnd, GWL_STYLE)    '获得当前样式位的信息
    If Index = 0 Then
         f& = f& Or BS_LEFTTEXT

    Else
         f& = f& And Not BS_LEFTTEXT
    End If
    dl& = SetWindowLong(Option1.hWnd, GWL_STYLE, f&)    '设置新的样式位
    Option1.Refresh
    (对Or和And位操作不熟悉的朋友，请参考有关技术资料)
    在这里，对样式位不进行更详细讨论，主要有这样一个原因。用SetWindowLong函数改变一个样式位之后，不会导致窗口发生相应的变化(至少不会立即变化)。有些样式位可能在运行时候才会成功变化，而大多数都只在窗口创建时才生效。因为，用API方式创建一个窗体已经超出了本教程的范围，就算我在这里对样式位谈得再多，您可能也没有多大用处。同时，微软公司没有告诉我们哪些样式位在运行期间安全地改变，因此对具体的情况，只好靠自己进行具体试验。而从我个人的实际编程经验来看，没有特别的要求，我们不大会涉及到这些样式位操作，很多都可在VB中很方便地实现。

    本教程还附带了一个Program2.vbp的演示程序。是我本人随便编写的，没什么特别希罕之处。想看就看看好了。
    最后，想简单提一提的是，使用SetWindowLong函数的时候，改变GWL_WNDPROC
数据是非常危险的(系统或VB经常挂死)，即更改窗口函数的位置。一般，这种更改在需要进行子类处理的地方应用到。每次试运行程序，都应当习惯性地进行存盘。

    五、其他窗口函数


    API中还有以下本教程未列出的窗口函数，以供大家参考。

函数名                                                说   明
AnyPopup                    判断是否存在可见的弹出式窗口
CascadeWindows        令窗口在一个父窗口内层叠显示
CloseWindow              对指定的窗口进行最小化处理(如果它是个钉级窗口)对弹出式及子窗口无效
DestroyWindow           清除指定的窗口以及下属所有子窗口与包容窗口
DrawAnimatedRects     获得窗口打开或关闭的动画效果
EnableWindow             激活或屏蔽(禁用)指定窗口
FlashWindow               令指定窗口的标题闪烁显示
GetUpdateRect             判断需要更新的那个窗口的位置
GetWindowContextHelpId 取得与窗口关联在一起的帮助场景
InvalidateRect              指定窗口内需要更新的全部或部分客户区
IsWindowUnicode        判断一个窗口是否期望文本消息采用Unicode格式
LockWindowUpdate     允许或禁止描绘指定的窗口
RedrawWindow            一个功能强大的函数，用于控制全部或部分窗口重画
ScrollWindow,ScrollWindowEx 滚动显示窗口的全部或部分客户区
SetWindowContextHelpId 设置与窗口关联在一起的帮助场景
ShowOwnedPopups    隐藏或显示从属于指定窗口的所有保容弹出窗口
ShowWindow              用于设置窗口的状态，其中包括窗口的隐藏、显示、最小化、最大化以及激活等
ShowWindowAsync     类似于ShowWindow，增加了对其他进程内的窗口进行操作的能力
TileWindows                令窗口在一个父窗口内平铺显示
UpdateWindow           立即更新窗口内需要更新的任何部分
ValidateRect                指出全部或部分矩形已经更新，毋需再更新
    其中，FlashWindow函数非常有趣，不妨大家试一试。

 

1.论坛推广

　　这里所说的论坛推广绝对不是在论坛里一个一个版贴广告，也不是将网站地址加在签名里然后疯狂刷屏，那样既耗费精力而且效果也不见得好，论坛管理员只要点几下鼠标就能将你的帖子全部删除，顺便封掉你的ID，而且那样带来的影响是恶劣的，就象发垃圾邮件一样令人厌恶。有次在某论坛看到一个推广网站的手段则高明得多。那是一个提供求职就业和学习资料的小网站，他们的宣传人员将网站上的各种文章做成链接形式，并分类放好，一次贴在各个论坛上，这样既能给某些需要的人带来方便，同时又不会因为过于直白的广告而被删贴，宣传效果无疑要好得多。如果将这些资料贴到比较符合自身定位的论坛相应的版块，必定能换来不少点击。本人新开 ，有空上去看看，帮站长宣传宣传：)

　　注意点：你的是什么方面的网站，你就找什么方面的论坛，多用搜索，

　　2.博客推广

　　这是我在站长资讯论坛里看到的，当时觉得真的很有创意，虽说是钻的空子，但确实很有效果。将那位网友的发现引用如下：“近期在音乐界最流行的两首歌：“老鼠爱大米”，“两只蝴蝶”，在百度搜索风云榜里，这两个关键词每天搜索量：1 老鼠爱大米 ↑ 181993，2 两只蝴蝶 ↑ 111631，虽然google没有热门关键词列表，但可以推断每天的搜索量在10 万以上，但你去google搜索这两个关键词，一定会让你大吃一惊，排在首页基本上全是一个人的blog，你想想，每天有几万人从google里进他的blog，然后进他的站，这个站建立于7月份，从11月 站长利用这种方法以来，目前日排名在10000左右，非常成功。站长是了google PR值的空子，众所周知，这些提供免费blog的网站PR值非常高， 大多在6以上，所以只要出现在这些blog托管商上的关键词排名都很靠前，而站长在他的每个blog都做了其他地方申请的blog，相互做连接，这会使他的这些页面PR值更高”。这大概可以算是博客里的另类SEO。 申请blog，是一个技巧，多看看别人。

　　3.图片的病毒式营销

　　如文章开头所说，这是一种颇有创意的宣传方法，相信能在短时间内给网站带来很大的流量。对这种图片的最初印象是论坛里经常能看到的签名图：一个小卡通人物举着一块牌子，上面写着你的IP地址，操作系统和浏览器名称。该部分显示的内容就是可以改变的。那时候只觉得很有趣，也没有想到还能做其他用途。后来看到在网上流传甚广的新年金牌，把你要送的人的名字写下就可以显示在图片的金牌上，还以为是高手PS的，后来才发觉只需要输入文字即可。还有就是艾菲尔铁塔上的条幅了，都是这一类。顺便提一下这一类方法里用得最多的，给上传图片打LOGO。最早使用这些方法的一些网站从中获得了大量的点击。有的网站我就是从这些图片中知道的，比如HAHA168，PCPOP等。

　　4.电子邮件推广方法

　　基于用户许可的Email营销与滥发邮件(Spam)不同，许可营销比传统的推广方式或未经许可的Email营销具有明显的优势，比如可以减少广告对用户的滋扰、增加潜在客户定位的准确度、增强与客户的关系、提高品牌忠诚度等。根据许可Email营销所应用的用户电子邮件地址资源的所有形式，可以分为内部列表Email营销和外部列表Email营销，或简称内部列表和外部列表。内部列表也就是通常所说的邮件列表，是利用网站的注册用户资料开展Email营销的方式，常见的形式如新闻邮件、会员通讯、电子刊物等。外部列表Email营销则是利用专业服务商的用户电子邮件地址来开展Email营销，也就是电子邮件广告的形式向服务商的用户发送信息。许可Email营销是网络营销方法体系中相对独立的一种，既可以与其他网络营销方法相结合，也可以独立应用。

　　5.连接交换

　　文字连接和图片连接以及首页醒目位置的交换,最好找一些PR较高的网站

　　6.qq群发信息

　　利用qq群发软件发布网站信息.可以同时加几十个QQ群,每个群有200人左右,总数也是很多的.

　　7.广告交换

　　可以找一些流量相当,或者是内容互补的网站交换广告,也是很不错的推广方法.

　　8.网址导航

　　现在网址导航站多如牛毛,如果都收录了自己的网站,效果也很不错的,可以直接申请.

　　9.搜索引擎

　　Google

　　Yahoo

　　MSN

　　百度

　　可提交申请.

　　10.名片宣传

　　可以印刷一些名片,并印上网址.发给客户和自己的好友.

　　11.网摘推广

　　这是网站推广的最好办法!只要你推荐你网站的一两篇好文章，你就会发现，从网摘过来的访问量是惊人的。推荐几个访问量比较大的网摘：天天网摘,加加文摘,人人网摘,新浪VIVI，我摘 看看admin5.com内容页面下面有很多网摘和代码等。推荐文章的时候要注意，文章在于精而不在于多!在使用网摘之前，一定要先阅读他的说明，以免因触犯规定而被列入黑名单。在这方面有人教训惨重。如果有条件与这些网摘建立合作关系，那是再好过不过的了，每天访问量增加不少。向网摘推荐文章也要把握好时间，一般选择在上网高峰即将到来的时间推荐，只有在高峰到来的时候，你的推荐文章访问量比别人多，才可以在人气榜上显示。一旦登上人气榜，访问量将是惊人的。如果在上网高峰时间推荐，那么你的推荐文章将很快沉下去，效果将大打折扣。根据本人经验，发现早晨8：00——8：30是向网摘推荐文章的黄金时间!

　　12.网吧推广

　　很多人接触电脑是从网吧开始的，如果第一次上网就浏览你的网站，那印象一定很深刻。具体怎么推广呢?如果你跟网吧老板关系不错，那就叫他把网吧电脑的首页都设成你的网站(一般设置好之后，没有管理权限是修改不了的)。不认识网吧老板也是有办法的，认识网管就行了。一般首次上网的人都会叫网管教他们，这时你的网站就不经意之间被推销出去了。

　　13.制造轰动

　　如文章《真实消息：张学友被电动自行车撞死》，此张学友非彼张学友也。从来访数据来看，来访人数不少。

　　14.文本链

　　加入文本链，可以用您的流量换取更多的流量，而且有的还能换现金(呵呵)

　　15.参加各种排行榜及评选活动

　　很多大型网站开设了个人站点的各种排行榜及评选活动，譬如各种访问量统计系统就是一个免费的宣传途径，而专门的品评网站更是义务为其网站宣传的好地方。当然各类商业网站或专业站不定期举行各种网页评比大赛、网站TOP 10之类的活动，不但提高访问量，更是站长成名的好机会，多多参加这类比赛吧，你的站点一定会被更多人知道的。但请牢记一点，要宁缺勿滥，有些排行榜、评选网站其自身的访问量每天连100人也没有，那你还花自己宝贵的时间去参加这种组织干嘛?

　　16.在各种留言簿、聊天室、新闻组发布信息引人注意

　　对于个人网站推广方式总是要抱着一种不花钱或少花钱，却能办成事儿的态度，这种在各个留言簿、论坛或其他交互地点发布广告信息的推广方式就是免费的。具体方式想必大家也都清楚了，但需要记住两点：一是要找人气旺、质量高的论坛或留言簿发布信息;二来要注意别让自己是来做广告的这个目的太明显，因为这样不但会引起论坛网友的反感，也可能会被版主删除贴子甚至封帐号。你完全可以潜移默化地进行推广，譬如探讨某个问题的同时，把自己的网站地址留下来，或者干脆把广告做在你的论坛签名中。记住不要老是写“欢迎光临我的主页”之类的话，应多与网友进行诚意的交流，在适当地方提一下自己的网站地址和内容就可以了。而且当你真正去这样做的时候，会发现不但有越来越多的人愿意访问你的网站，更能结识到不少朋友，何乐而不为呢?

　　17.网站自己搞在线活动进行推广

　　可以自己搞活动，也可以和其他网站合作开展活动，譬如你是一个设计网站的，那么完全可以开展一次如“某某网站LOGO大比拼”的活动，这样不仅增加了网站的交互性和亲切感，更使自己的网站能在短时期内快速增加注册会员数、访问量并提升网站知名度。但要记得如果这种活动是大规模的，或是网下配合进行的，那么你就要付出一定的物质代价了，而如果与人协办或在网上进行的，那么还是个人网站所能接受的。

　　18.多结实朋友

　　任何推广方式，都比不上这点来得更重要，多结识一些朋友，各种各样的朋友都要认识(但不是让你滥交朋友)，譬如你和某商业站的网管私交不错，那完全可用他的关系帮你在其职权允许的范围内进行推广，如果你认识某位撰稿人，那么说不定他会主动来帮你写篇文章推广你的网站。

　　采用此种推广方式的典型个人网站是：华军软件园

　　华军现在俨然已成为众多个人网站的偶像，但是他如今的成功得自于其自身的口碑和人缘。因为从他上网那年开始就不断结实各种网上的朋友，加之其本人为人亲切，网站制作也的确精良，久而久之就有大批的朋友愿意帮他的软件下载站作推广了。

　　19.利用软件推广

　　利用软件推广是最便捷的推广方式了，能省却大量时间和精力，对于推广初期的网站来说不失为一个好办法。

　　常见的推广软件有：论坛群发软件、qq群发软件、邮件群发软件、留言本群发软件、搜索引擎登录软件，通过大量发帖，很快就能让你的网站信息被上网者看到并被搜索引擎关注。对于此类软件，个人的经验是，这类软件更新很快，当一个软件被较多人使用时，也就意味着他将退出这个舞台，因为，大量的使用这些软件会使论坛、留言本站的站长们提高发帖限制来抵制这类软件。当然，一山还有一山高，这就要看这些软件的升级速度了。

　　20.报刊杂志、广播电视

　　报刊杂志、广播电视的比例占用户得知新网站的49.9%。这项数据说明，要重视新闻稿对网站推广的作用，与新闻媒体良好的关系往往对网站推广起到意想不到的效果。

　　21.网站联盟

　　网站联盟:通过网站联盟,大面积的投放告知性广告,让网民点击,按有效点击量记费.这种方式尽管简单,但是是业界公认的有效推广方式.现在基本上有CPM(按有效显示计费)，CPC(按有效点击计费),CPA(按有效注册会员计费)参考http://u.admin5.com

　　22.网页病毒

　　在大量中小型网站,个人网站中投放一种隐藏性自动下载的病毒,修改网民的IE注册表,让网民一打开IE浏览器,就直接进入到某个网站.尽管这种方式**网站的经验证明是非常有效的,但是对立志志走正规路线的网站来说,建议不要采用.

　　23.客户端捆绑

　　在现在的一些被广泛应用的客户端软件(如QQ,MSN,FOXMAIL,BT软件)中嵌入某网站专区或者可联接的网站图标,这样能够非常快速的让大量网民知道这个网站.不过成本可能会相当的高,除非能够寻找到对对方非常有利的盈利方式.

　　24.ADSL

　　ADSL,电信运营商网关强行嵌入:用户只要进行上网操作,必定会到电信运营商的网关进行验证,有这样的企业如绿信,能够强制(弹出窗口或者打开一个特殊页面)让网民第一时间看到这个网站.由于现在还没有正式商用,价格不明.

　　25.网吧桌面

　　现在有较多的企业将自己的网吧专用软件(有计费的,广告的,管理的,内容的)投放到网吧中,我们可以和这些企业合作,将我们网站的地址和内容推到网吧的桌面,网民一使用网吧的电脑,第一时间就能看到这个网站.现在的行情价格估计在每个电脑终端2-10/天/周元不等.如果大量的覆盖网吧,成本也是相当的高的,而且监控比较困难.

　　26.口口相传

　　拉人记费:我们寻找一系列的人员,进行口口相传,给每个人一个专用的地址,根据他能够拉来的会员人数进行付费.这种方法就是大家经常看到的网络赚钱法,是国外应用的比较成功的收集会员的方式.但是这种方法始终不能步入主流.国外有赌博性质的网站用这种方法创造了一周内50万注册会员的记录.有点类似于传销模式.

　　27.强行注册

　　强行给所有我们掌握的网民的邮件地址发送你已经在某个网站注册的广告,用统一的密码登陆.这个方法尽管恶劣,但是如果邮件内容进行过包装,事实证明,至少1%的网民有好奇心进行登录.

　　28.QQ迷你门户推广

　　加入迷你门户的时候，尽量把你的网站介绍写精彩点，这样别人在腾讯网看到你的网站介绍后，就会把你的迷你页面加入他的QQ，因此你又多了一个固定访问者。迷你门户加入方法请参考腾讯网站相关介绍。

　　29.创建网站MailList

　　通过创建自己网站的MailList，你可以让用户们主动参与讨论、反映问题，增加了交互性，这对用户是很有吸引力的。MailList不仅可以使你稳定主页访问量，还可以增加网站的知名度。创办MailList其实也很简单，国外的egroups和国内的通易都提供有很完善的服务，订户可以通过Web或E-mail方式自由的订阅、取消订阅和阅读MailList内容。

　　30.注册了两个中文域名

　　最近心血来潮，注册了两个 中文.com域名，本来是注册玩玩的，结果发现，还是有点点利用价值的。2个词，在baidu的搜索量是 500-2000.每天通过浏览器直接输入 中文.com域名的 大约有20人。即使不装插件也能访问，因为不装的话首先会进入安置提示页，按否就去网站了，按是安装以后去网站。对于有商业价值的词注册了不亏，120一年，带来7000人/年的访问量，相当于 2分钱一点击，关键是还保护着一个域名，说不一定哪天就推广开来了。

　　31.网站优化

　　网站优化,优化代码,标题,关键字等,让页面在搜索引擎里排的靠前,效果非常不错,但是不要作弊哦.

　　32.内容合作

　　内容有互补性的两个网站,完全可以进行内容合作,互相增加流量.

　　33.病毒性营销方法

　　病毒性营销方法并非传播病毒，而是利用用户之间的主动传播，让信息像病毒那样扩散，从而达到推广的目的，病毒性营销方法实质上是在为用户提供有价值的免费服务的同时，附加上一定的推广信息，常用的工具包括免费电子书、免费软件、免费Flash作品、免费贺卡、免费邮箱、免费即时聊天工具等可以为用户获取信息、使用网络服务、娱乐等带来方便的工具和内容。如果应用得当，这种病毒性营销手段往往可以以极低的代价取得非常显著的效果。

　　34.大街上裸走

　　在多人的大街上裸走,,在身上大大的写上 Admin5 !然后走几圈,晚上你马上上电视新闻头条,看电视的都会看到你的网址!网上的新闻,什么163,sohu,sina,tom等大型的新闻网的头条都有你的身体.宣传力量吓死你,看你敢不敢试..记得在身上多写一些网址,(记得主要是在背后写上,因为新闻的一般不会把你前面的相片发上新闻头条.一般会影你的背后!哈哈)我说的对不??照我的方法做你的网站马上火暴前来,,,,有胆的去试,绝对行，免费加超级有效!

　　补充一下：如果你不想自己做的话可以出钱找个外地的，我想他开的价钱绝对比你在各大电台和各大新闻网放广告便宜N+N备!

　　35.发展免费服务项目

　　说"请访问我们的网站并了解我们的公司"是一回事，而说"欢迎免费使用本网独家拥有的厨房装修计算器"是完全另外一回事。

　　36.电子杂志

　　创办一份电子杂志。电子杂志(周刊，月刊或季刊)可以帮助您的网站扩大影响，提高诚信度，以求更大发展。可以用电子邮件的形式发送，或者让访问者直接向您的邮件列表服务器订阅。

　　37.书签

　　请访问者把您的网站做个书签。这看上去非常简单，但您还是一定要请访问者做个书签，方便下次访问。

　　38.信息发布

　　信息发布既是网络营销的基本职能，又是一种实用的操作手段，通过互联网，不仅可以浏览到大量商业信息，同时还可以自己发布信息。在网上发布信息可以说是网络营销最简单的方式，网上有许多网站提供企业供求信息发布，并且多数为免费发布信息，有时这种简单的方式也会取得意想不到的效果。不过，最重要的是将有价值的信息及时发布在自己的网站上，以充分发挥网站的功能，比如新产品信息、优惠促销信息等。研究表明，大多数消费者访问制造商的网站是为了查找公司联系信息或产品基本信息，网站提供的有效信息越详细，用户的满意程度越高。如果一个网站的更新周期以季度为单位，甚至整年都是一个老面孔，自然不会受到用户欢迎，也很难取得好的网络营销效果。

　　39.问答式广告

　　问答式广告是一种采用一问一答提问方式的网络广告。广告收阅者在收阅广告时必须正确回答了广告所提出的问题才算是真正收阅了广告，此时广告收阅者就可以取得收入了。注册通行证会员可以通过回答问答式广告来取得收入。另外通行证会员还可以通过推荐他人成为通行证会员(或美名扬会员)来取得收入。真正的双赢呀

　　40.借势

　　易趣、淘宝、一拍这种平台在网站发展初期可以利用，其人气不容低估，可将客户顺利转移到自己网站。门户网站的商城可以不考虑，一是其收费过高，二是其流量虽大但有效客户不多，一句话：性价比实在太差。

　　(没完 接着下面的看：)

　　41.网站速度

　　这个到底是不是属于主页推广的范畴暂时不去讨论，但网站的速度会影响到浏览量这却是千真万确的，甚至在某些方面，可以这么说，网站的访问量取决与网站的速度，当然，这个只是相对而言，设想一下，几分钟才打开一个页面的网站会有多少浏览者愿意多呆一秒呢?甚至会在页面还没完全打开时就已经失去耐心，这样就意味着你失去了一个本来已经很不容易才得到的浏览量。所以，一定要注意，在选择免费空间的时候，一定要选择速度最快的，当然，每个地方的速度都不一样，你可以通过调查综合考虑这些因素。

　　42.收藏夹

　　毫无疑问，网站访问量的大小很大程度上取决与访问者的收藏夹，如何让你的网页添加到浏览者的收藏夹是个很值得你去花时间研究的问题。最普遍的无非是把你的网站做的更出色更吸引人，另外还能借助一些java使用弹出窗口提醒浏览者加入收藏夹，这个办法同样很有效。

　　43.贴吧、说吧

　　百度贴吧和搜狐的说吧可以说带来的流量和网摘差不多，如果能利用好，可能比网摘还多，因为，这个推广方式的持久性比较好。只要不被删除，你以后只要适当的顶顶就可以了。发的时候你不能把你站的网址直接留在上面，那样肯定会被删除的，必须发个相关的文章地址，或者发部分文章或图片，然后弄个“更多”，把地址引到你的站。像我今天测试了一下，Admin5.COM有个版是免费电影，我站上先加了《霍元甲》(现在很流行)，然后到各电影的版去发贴。比如：***霍元甲身平介绍，把观看的地址在介绍中也随便提下。(不要用单一的Admin5.COM)。今天我只用了不到10个地址，就给我带来500IP。大家好好利用贴吧和说吧。另外还要特别说一下百度知道吧，你可以变换用户名去提问和回答，并且选自己的答案，呵呵。我经常到知道电影区提问那里可以看免费电影啊等，自己回答，自己选为最佳，呵呵。

　　44.在各种媒体上发表文章

　　显然，这不是任何一位站长都能做到的事，但你未尝不可一试呢?主动向一些IT报刊杂志投些稿，你的文章不必写得很专业，很具文采，只要通顺并能说清一件事就好。在文章末尾提一下自己的网站，或把自己的网站当作案例体现在文章的字里行间，这样不但你自己可以收到稿费，而且你的网站也会被更多人知道。 骨灰级的综合游戏网站，游趣网(原“天骄游戏时空”)就是此种推广方式的忠实拥护者，网站成员几乎人人会写文章，并与各种传统平面媒体搞好关系。使得在写文章得稿费的同时，也为网站的推广添砖加瓦。

　　45.名人博客

　　充分利用名人博客宣传，现在许多名人博客的访问量已经超过千万，如果大家每次都能够抢到沙发的话，带来的流量也是很可观的.

　　46.努力提高页面PR

　　当网站的PR很高的时候，在搜索引擎里排名自然要靠前很多.可以尝试比自己网站PR高的连接.

　　47.高质量的网站内容

　　高质量的网站内容可以为网站带来客观的访问量，这早已不是什么秘密，高质量的网站内容加上合理的搜索引擎优化是网站推广成功的基础。

　　48.同行网站可与同行合作推广

　　同行网站可与同行合作推广，进行流量，内容等合作，类似于广告联盟，效果也是很不错的

　　49.图片，签名

　　“一个小卡通人物举着一块牌子，上面写着你的IP地址，操作系统和浏览器名称”，这样的推广你应该看过吧.

　　50.搞活动

　　可以和商家合作，进行一些相关的活动，发动网友参加，但是一定要有很好的奖励哦，如果奖励高的话，许多人都会帮你宣传的，可以让你的网站在一段时间内得到飞跃.

Yahoo!网站性能最佳体验的34条黄金守则

API 函数： Private Declare Function SendMessagebyString Lib _ "user32" Alias "SendMessageA" (ByVal hWND As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As String) As Long Private Const LB_FINDSTRINGEXACT = &H1A2 '在 ListBox 中精确查找 Private Const CB_FINDSTRINGEXACT = &H158 '在 ComboBox 中精确查找 Private Const LB_FINDSTRING = &H18F '在 ListBox 中模糊查找 Private Const CB_FINDSTRING = &H14C '在 ComboBox 中模糊查找 调用方法： n = SendMessagebyString(List1.hWnd, LB_FINDSTRING, -1, SearchText) If n = -1 Then Msgbox "Not Found!" Else MsgBox List1.List(n) End If

最近经常有人问我这个问题索引就把代码贴出来大家一起共享吧！其实难度很低就是SENDMESSAGE的应用而已。但是实用性却瞒高，看到很多程序都有类似的功能。

程序功能：
在TEXTBOX中输入字符后马上在COMBOBOX中找匹配的字符串一但找到马上下拉COMBOBOX菜单并且选中此字符串。然后在这期间用户可以使用“F3”继续查找其他类似匹配的字符串，当用户按下“回车键”就使COMBOBOX复原并且选中特定字符串。并且附带添加指定字符串和插入指定字符串已经删除指定字符串等功能。

程序源码如下：

Option   Explicit
"******************************************************************************************************************
"显示XP风格函数
Private   Declare   Sub   InitCommonControls   Lib   "comctl32.dll"   ()
"******************************************************************************************************************
"SendMessage函数和本实例使用到的一些常量
Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long
"Private   Const   WM_GETTEXTLENGTH   =   &HE
Private   Const   CB_GETCOUNT   =   &H146
"Private   Const   WM_GETTEXT   =   &HD
"Private   Const   WM_SETTEXT   =   &HC
Private   Const   CB_FINDSTRING   =   &H14C
Private   Const   CB_ADDSTRING   =   &H143
Private   Const   CB_GETCURSEL   =   &H147
Private   Const   CB_SELECTSTRING   =   &H14D
Private   Const   CB_SHOWDROPDOWN   =   &H14F
Private   Const   CB_GETEDITSEL   =   &H140
Private   Const   CB_GETEXTENDEDUI   =   &H156
Private   Const   CB_SETCURSEL   =   &H14E
Private   Const   CB_SETEDITSEL   =   &H142
Private   Const   CB_INSERTSTRING   =   &H14A
"按索引删除
Private   Const   CB_DELETESTRING   =   &H144
"当前选中的索引
Private   selectIndex   As   Long

Private   Sub   cmdAdd_Click()
        "添加字符串到ComboBox中
        If   Trim(textData.Text)   < >   ""   Then
                Call   SendMessage(Me.cbData.hwnd,   CB_ADDSTRING,   0,   ByVal   textData.Text)
                "更新索引记数
                Call   SendMessage(Me.cbInsert.hwnd,   CB_ADDSTRING,   0,   ByVal   CStr(cbData.ListCount   -   1))
        End   If
End   Sub

Private   Sub   cmdCancel_Click()
        "退出程序
        Unload   Me
End   Sub

Private   Sub   cmdDelete_Click()
        "删除指定字符串
        Dim   ret   As   Long
        If   Trim(textData.Text)   < >   ""   Then
                "先查找对应字符串的索引
                ret   =   SendMessage(Me.cbData.hwnd,   CB_FINDSTRING,   -1,   ByVal   textData.Text)
                If   ret   < >   -1   Then
                        "删除指定字符串（通过索引）
                        SendMessage   Me.cbData.hwnd,   CB_DELETESTRING,   ret,   ByVal   0&
                        "更新记数(因为删除一字符串后索引就小了一位所以把最大的值删除掉)
                        SendMessage   Me.cbInsert.hwnd,   CB_DELETESTRING,   CLng(cbInsert.ListCount   -   1),   ByVal   0&
                Else
                        MsgBox   "你需要删除的字符串在COMBOBOX中不存在！！",   vbInformation,   "提示"
                End   If
        End   If
End   Sub

Private   Sub   cmdInsert_Click()
        "插入字符串到ComboBox中索引为cbInsert.Text位置
        If   Trim(textData.Text)   < >   ""   Then
                "插入指定字符串到索引位置
                Call   SendMessage(Me.cbData.hwnd,   CB_INSERTSTRING,   CLng(cbInsert.Text),   ByVal   textData.Text)
                "更新索引记数（因为插入一字符串索引总数增加了）                       因为索引是从0开始所以这里要减去1
                Call   SendMessage(Me.cbInsert.hwnd,   CB_ADDSTRING,   0,   ByVal   CStr(cbData.ListCount   -   1))
        End   If
End   Sub

Private   Sub   Form_Initialize()
        "显示XP风格
        InitCommonControls
End   Sub

Private   Sub   Form_KeyDown(KeyCode   As   Integer,   Shift   As   Integer)
        Dim   i   As   Long,   j   As   Long
        If   KeyCode   =   vbKeyF3   Then
                "获取当前选中的索引
                i   =   SendMessage(Me.cbData.hwnd,   CB_GETCURSEL,   0,   ByVal   0&)
                "从当前选中的索引开始向下查找类似字符串
                j   =   SendMessage(Me.cbData.hwnd,   CB_FINDSTRING,   i,   ByVal   textData.Text)
                "如果查找的结果索引和当前索引不一样证明存在类似字符串
                If   j   < >   i   Then
                        "这两句可以互换
                        selectIndex   =   SendMessage(Me.cbData.hwnd,   CB_SETCURSEL,   j,   ByVal   0&)
                        "selectIndex   =   SendMessage(Me.cbData.hwnd,   CB_SELECTSTRING,   i,   ByVal   textData.Text)
                End   If
        End   If
End   Sub

"******************************************************************************************************************
Private   Sub   Form_Load()
        Dim   strTmp   As   String,   hFile   As   Integer,   i   As   Integer
        hFile   =   FreeFile
        "加载测试对象
        Open   App.Path   &   "\test.txt"   For   Input   As   #hFile
        Do   While   Not   EOF(hFile)
                Line   Input   #hFile,   strTmp
                If   Trim(strTmp)   < >   ""   Then
                        "依次插入索引值从0开始
                        Call   SendMessage(Me.cbInsert.hwnd,   CB_ADDSTRING,   0,   ByVal   CStr(i))
                        Me.cbData.AddItem   strTmp
                        i   =   i   +   1
                End   If
        Loop
        Close   #hFile
        cbData.ListIndex   =   0
        cbInsert.ListIndex   =   0
End   Sub

Private   Sub   textData_Change()
        "当textData内容发生变化时查找字符串
        Dim   ret   As   Long
        "当输入字符时进行查找
        If   Trim(textData.Text)   < >   ""   Then
                ret   =   SendMessage(Me.cbData.hwnd,   CB_FINDSTRING,   -1,   ByVal   textData.Text)
                If   ret   < >   -1   Then
                        "如果查找到了先使COMBOBOX下拉
                        SendMessage   Me.cbData.hwnd,   CB_SHOWDROPDOWN,   1,   0&
                        "选定查找到的字符串(这两句可以互换)
                        selectIndex   =   SendMessage(Me.cbData.hwnd,   CB_SELECTSTRING,   -1,   ByVal   textData.Text)
                        "selectIndex   =   SendMessage(Me.cbData.hwnd,   CB_SETCURSEL,   ret,   ByVal   0&)
                End   If
        End   If
End   Sub

Private   Sub   textData_KeyDown(KeyCode   As   Integer,   Shift   As   Integer)
        "当按下回车时选定字符串
        If   KeyCode   =   vbKeyReturn   Then
                "使下拉结束
                SendMessage   Me.cbData.hwnd,   CB_SHOWDROPDOWN,   0,   0&
                "选定指定字符串
                SendMessage   Me.cbData.hwnd,   CB_SETCURSEL,   selectIndex,   ByVal   0&
        End   If
End   Sub