脚本&编程 - oldjun’s blog

天龙八部辅助打怪工具（VB模拟按键）

oldjun — Fri, 18 Dec 2009 13:27:53 +0000

某人想一边游戏一边看小说，总是按键点鼠标打怪太累了；用了下按键精灵效果还行，不过一来找按键精灵的免费版本太麻烦了，二来怕游戏识别进程有按键精灵而被封，于是决定帮她用vb写个简单的按键挂。

百度了下VB模拟键盘按键，一般三种方法：局部模拟、全局模拟以及驱动模拟，都是顾名思义的，全局模拟最为通用，所以窗体都发送了，不过在天龙八部没测试成功，改成驱动的，但测试时没加载的了WinIo.dll，最终我才尝试PostMessage，我一直以为这个方法被封了的，结果却没有，于是小辅助工具就可以诞生了。

选怪快捷键设置为：F2，打怪快捷键设置为F1，测试通过。

源码：


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnmore...

团队展示版主考勤系统 FOR Discuz! 7.0 GBK正式发布

oldjun — Sat, 04 Jul 2009 17:35:16 +0000

曾经需要一款dz论坛的版主考勤系统，寻觅了很久，官网论坛、各大搜索引擎，没能发现，没办法，只好自己来了，5月份写完的1.0版本，在我的仙剑论坛：http://www.moujian.com/bbs测试了下，发现了许多问题，于是整体修改了下，于是有了1.1版本，目前使用的很好，没有什么问题。因此决定共享给大家使用，使之收益于广大dz论坛站长。

一、本插件全称：团队展示版主考勤系统V1.1 FOR DISCUZ! 7.0 GBK

二、主要功能：
1.论坛管理团队展示及统计，从版主超版管理员到自定义管理组，所有管理者的信息都可以向广大会员公开展示；
2.版主每日签到考勤；
3.版主每月管理奖励颁发；
4.不合格版主自动开除。

三、详细信息：
1.每月共需签到的次数由管理员后台定义，如果您的签到次数+请假天数少于系统要求签到天数，则月末会计入缺席天数里；
2.缺席时间计算公式：缺席时间=系统设定签到次数-实际签到次数-请假天数；
3.如果不能来签到，可以请假一次，最大请假天数由管理员后台定义；
4.如果版主总共的缺席天数大于0，唯

more...

Discuz! 7.0下Wap访问显示图片的研究

oldjun — Tue, 02 Jun 2009 09:16:41 +0000

由于管理自己的论坛，对论坛的一些功能有缺陷的话，会想办法进行完善，于是有了这篇文章。玩黑思路很重要，写程序思路一样很重要。由于网上对相关Discuz论坛wap显示图片的技术文章非常少，而官方迟迟不更新wap版本，所以只能靠自己了。

官方论坛搜了很久，也查看了别人对于5.5版本与6.0版本的处理方法，经过修改，我得到了相应的Discuz!7.0下wap显示图片的方法，利用wapcode这个函数做一些字符串替换，具体代码如下（修改global.func.php中的wapcode函数即可）：


function wapcode($string) {
        global $lang;
        $string = str_replace(array('[attach]', '[/attach]'), array(''), $string);
        $string = str_replace(array('[img]', '[/img]'), array(''), $string); 
          $string = preg_replace("/\[url=(http:\/\/.*?)\](.*?)\[\/url\]/ismore...

查询某关键词在MSSQL数据库位置的ASP脚本

oldjun — Mon, 11 May 2009 17:16:06 +0000

晚上皇子丢给我一段SQL语句，功能是：以一个关键字为索引，搜索整个数据库，然后返回那个关键字所在的表名和列名。（很赞...特别是入侵的时候找不到用户名与密码所在的表的时候，如果能直接通过输入admin这个关键词找出字段...省得一个表一个表的看了。）于是根据那段语句，写了个asp的脚本，方便大家以后搜寻数据库。

整体而言，这段SQL只适宜用在小型数据库上，ASP中的循环也没效率，大库还是别用了，小库可以考虑。如果是大库的话，请联系皇子要另外一份牛人写的SQL查询语句。

代码如下：


<%

'Confirm a keyword's position of a database(which table & which column)
'By oldjun(http://www.oldjun.com)
'Based on huangzi(http://www.2chuizi.com)'s sql

Server.ScriptTimeout=999999999
Response.Buffer =true
On Error Resume Next
keyword=request("keyword")
if kmore...

小脚本全面封杀WVS扫描器

oldjun — Tue, 20 Jan 2009 02:40:28 +0000

最近发现很多同仁对我的网站比较青睐，同事帮我分析网站log时，惊讶的发现：2M的log居然有将近1M都是测试我网站的安全性的，其中至少0.5M的log来自WVS。

Acunetix Web Vulnerability Scanner 是一款国外产的及其优秀的扫描工具，可以帮忙挖掘网站内的诸多漏洞，包括常见的SQLinjection，XSS（很多自认为牛人的就喜欢用WVS扫站发现XSS就公布说是他发现的...）。既然WVS这么牛，那咱们就不给他访问网站的机会，像堵SQL注入一样来堵住它。

分析了一下WVS扫描时候的头文件，基本都包含它网站的英文名称：acunetix，于是我们从这个名称下手了。以下是三个版本的代码：

1.ASP（JScript）版，对于LBS的用户，可以用这个（添加或包含到_common.asp文件里）：


<%
var StopScan="== WVS PLS GO AWAY！BY oldjun！ ==";
var requestServer=String(Request.ServerVariables("All_Raw")).toLowerCase();
if(Session("stopscan")==1){
    Response.Write(StopScan);
    Response.End;
}
if(remore...

The ajax to get the info what you need

oldjun — Wed, 17 Dec 2008 07:05:57 +0000

本文提供一个思路，通过客户端与服务端获取信息，具体什么意思大家自己琢磨，本文只提供Client端代码，Server端代码自己去写，什么语言均可以！

Client端代码如下：