Aug
7

VB打造QQ批量登陆器

QQ太多,每天要输入真的很麻烦,网上有一些批量的登录器,可是谁也不知道有没有在登录的同时也往作者的邮箱里发一封包含qq号与密码的邮件~

于是想自己写,因为asp比较熟,所以选择VB,网上找了2个模块,于是可以直接写程序了,以前没写过application,第一次写,遇到不少困难,不过最后还是搞定了~

下面放主代码,主要是ACCESS数据库的操作:

Private Sub form_Load()
Dim i As Integer
Dim mdbpath As String
Dim strqqpath As String

getvalue strqqpath

If strqqpath = "" Then
qqpath.Text = "未检测到QQ目录,请自行设置!"
Else
qqpath.Text = strqqpath
End If
       
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
mdbpath = appdisk
If Dir(mdbpath & "qqlogin.mdb") = "" Then

Dim pstr As String
pstr = "Provider=Microsoft.Jet.O...
2 Comments
Jul
25

javascript判断checkbox多选框数目

今天要用到一个js程序,要实现以下两点功能(checkbox是asp生成的,并非静态的html):
1.判断checkbox的数目,当超过设置的数目时显示只能选这么多,即时控制,而不是提交时判断;
2.提交form的时候,判断是否选择了要求的数目,否则不予提交。

写了好久,终于试成功了,因为asp生成的input,name不能相同,不然以后不好控制,所以document.getElementsByName不好取值,于是换思路写。

以下是用静态页面测试的代码(第二个函数也可以使用参数或者name的值):

<script LANGUAGE="JavaScript">function doCheck(ctrl,checkboxname,MaxSelect,MaxCheckbox) {
   var NumChecked = 0;
   var thisCtrl;
   var i;
   i = 1;
   while ((i <= MaxCheckbox) && (NumChecked </script>
5 Comments
Jul
6

DZ6.0的前台用户名自修改插件

最近一直在改论坛,于是写个这个页面,其实不算插件了,根本不是当成插件来写的,就是一个简单页面而已。

说过程:

1.进后台创建一个changename的模板,贴上代码后提交:

{template header}

<div id="nav">
<a href="index.php">$bbname</a> <b>&raquo;</b> 用户名修改系统
</div>

<div class="mainbox">
<h1 align="left">修改须知</h1>

<table cellspacing="0" cellpadding="4px" border="0" align="center">
<div align="left">
a.如果没有特别需要,请勿修改用户名;<br>

b.修改用户名需要花费5000论坛币的手续费,请三思而后行;<br>

c.修改完请重新登陆,如果有问题,请及时与管理员联系!
</div>

</table>

</div>

<table cellspacing="0" cellpadding="4px" border="0" align="center">
<form action='?action=changename' method=post>
<font color=blue>新用户名:</font></form></br></br>
5 Comments
May
5

php下使用file_get_contents函数轻松采集html数据

这本来是群里一位朋友提出的问题,然后他给出他的代码,我感觉很好玩,于是继续研究了下,成功把一个天气预报站:
http://qq.ip138.com/weather采集到我网站下了:http://www.oldjun.com/tq.php

PHP手册里是这么解释的:file_get_contents — 将整个文件读入一个字符串,于是可以很容易的获取其他站的信息,再用正则加以变换,再做一些判断和设定,就OK了,不多说了,放代码,我基本都做了解释的。

<?php
//全国,判断条件是$REQUEST_URI是否含有html
if (!strpos($_SERVER["REQUEST_URI"],".html"))
{
$page="http://qq.ip138.com/weather/";
$html file_get_contents($page,'r');
$pattern="/<B>全国主要城市、县当天和未来五天天气趋势预报在线查询<\/B>(.*?)</B>
2 Comments