|
公告： |
魔兽改键精灵使用教程
作者:zjlxne 日期:2009-04-08
魔兽改键精灵V4.45 | 毕业告别版
作者:zjlxne 日期:2008-12-16
VB上传下载FTP源码
作者:zjlxne 日期:2010-08-23
Option Explicit
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const scuseragent = "vb wininet"
Private Const INTERNET_FLAG_PASSIVE = &H8000000
'调用设置环境
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
'连接服务器
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
'上传涵数
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
如何进行域名分流?
作者:zjlxne 日期:2010-06-03
如何进行分流?
所谓域名分流，是指在同一空间绑定多个域名后，如何实现各个域名互不干扰，最终达到用一个空间建多个站点的目的。
如果您的空间支持域名绑定到某个子目录的话，这就太简单了，直接把各个域名绑定到不同的子目录即可。但是，如果您的空间不支持域名绑定到子目录，那么您可以采用下面的代码达到相同的目的：
第一步、把所有域名的主机IP解析至您的空间所在服务器的IP地址。
第二步、把所有域名都绑定到您的空间(根目录)。
第三步、在您的空间根目录分别建立几个子目录，把各个站点的文件分别上传到互不相同的子目录中。
第四步、使用以下代码创建一个“index.htm”文件，上传到网站根目录：
<script language="vbscript">
on error resume next
thisurl = window.location
select case true
case instr(1,thisurl,"http://您的域名1/",1)>0
gotodir = "对应目录1"
case instr(1,thisurl,"http://您的域名2/",1)>0
gotodir = "对应目录2"
'…… ……
'…… ……
case instr(1,thisurl,"http://您的域名n/",1)>0
gotodir = "对应目录n"
end select
window.location = gotodir
</script>
现在已经大功告成！
很有深意的句子
作者:zjlxne 日期:2009-06-07
如果没法忘记他，就不要忘记好了。真正的忘记，是不需要努力的。
我爱你....为了你的幸福，我愿意放弃一切---包括你。
开始的时侯，我们就知道，总会有终结。
有些人注定是等待别人的，有些人是注定被人等的。
两颗心注定会变成单数，不是太拥挤就是太孤独。
我的眼泪触了你的眉，你的笑容抵不了我的泪.
你的心脏载得住我的轮回，我的掌纹赎不会我的罪。
孤单不是没有人在你身边。而是没有人在你心里。
有一天，天爱上了海，可是空气却把它们阻隔开了，它们无法相爱了，于是天哭了，泪水落在海里。即使不能相爱，天也要把灵魂寄托给海。从此，海比天蓝。
因为爱过，所以不会成敌人；因为伤过，所以不会做朋友。
如果全世界都否定你，那么我陪你否定全世界
To the world you may be one person,but to one person you may be the world.
最爱的未必适合在一起，相爱是让彼此做自己.
心跳在你沉默以后慢慢的被淡忘掉 我笑了笑反正你看不到
逃避不一定躲得过,面对不一定最难受...
勇敢，一半是理智，一半是冲动！
Tags: 爱情
DOTA搞笑语录
作者:zjlxne 日期:2009-05-18
打DOTA时经常会碰到很多搞笑的场面，今天给大家准备了一些DOTA经典笑话，希望大家喜欢！
1. 进一主机,人满,读秒,开始...主机"-ap -ne",众人绝倒...
2. 一众神出了跳刀..问他干什么...他说...操..放大啊..
3. 游戏如火如荼..突然有人问:神符哪里买呀?
4. 夜晚时分，一人马被敌人围杀，情急之下跑到一野点，并让盟友痛苦之源对他放了一个“噩梦”......
5. 一火枪开局买一小鸡,并共享,我看了心里说:"恩不错."一会想用小鸡,望水泉一看,没见..,可能有人用吧.==,过两分钟,还没找到,随便往火枪身上一点 吓一跳:小鸡在他身上......
6. 一宙斯惊人语录：等我出了黑黄，化身山丘之王，你们就输了！哇哈哈！
7. 我有个VS,一直游走杀人,有队友骂到:"你个XX复仇,还不打钱,你TMD走来走去干吗呀？"
8. "我憋辉耀呢" 50分钟飘过........
9. "骷髅王你个XX,团站从来不放大."
中国同心
作者:zjlxne 日期:2009-05-11
08百度知道中最搞笑的问答，我笑抽了...
作者:zjlxne 日期:2009-05-09
1、提问：显示器画面不停地轻微抖动，有什么办法？
答：你也不停地抖动，当你的频率和振幅与显示器画面一致时，你就感觉不出来了。
2、提问：如何除掉烦人的狗？我家附近有人养狗，且不管它，随便跑，经常晚上在我家门口拉屎，有没有办法不让它在我家拉屎，或神不知鬼不觉地把它弄死且没人知道。
回答一：和主人说没用，我告诉你个好主意。每次狗拉屎的时候，你去偷看，等狗发现了你在偷看，它会害羞的，就再也不敢到你家门口拉屎了。
回答二：给它买一台计算机，然后教它上网，它就没空去你家门口了。
3、提问：为什么我玩3D游戏时会头晕？
回答一：小脑不发达。
回答二：大脑不发达。
回答三：大小脑都不发达。
4、提问：怎么驱赶蚂蚁？
回答一：在寝室门上贴上“戒严”或者“查封”等字样，造成寝室已经停止营业的假象。
回答二：买个食蚁兽回来不就结了。
回答三：播放张楚的歌曲《蚂蚁》三十遍。
回答四：把这个问题贴到蚁巢门口，难死它们！难不死的也会被这个悖论折磨死。
回答五：养些白蚁，让他们种族歧视，自相残杀。
5、提问：最简单的长寿秘诀是什么？
回答：保持呼吸，不要断气。
6、提问：跷二郎腿的危害？
回答：屁股会一半大一半小。
Tags: 搞笑
