Type POINTAPI x As Long y As Long End Type Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Declare Function GetWindowOrgEx Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI) As Long Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Sub Timer1_Timer() Dim p As POINTAPI Dim lp As Long Dim tempstr As String Dim password As String * 255 GetCursorPos p lp = WindowFromPoint(p.x, p.y) GetWindowText lp, password, 255 Text1.Text = Trim(password) Text1.Refresh End Sub

@00333 删除mshtmleh.dll就可以解决了

我也一样，用了一个看星号的软件以后出现的。也是每周，有的时候还不不止，动不动出来修改首页，原因也是找不到。看不出它的机理唉。。

今天偶然看到博主的帖，很喜欢这种无商业性质的探讨。我水平低，爱学习。
请问在IP限制的情况下，是不是只有通过代理寻找更多的IP才可以实现，有没有可能伪造IP的？还有一个问题，作为制作投票的一方，有没有办法对MAC地址进行限制？

楼主不能大方点,把代码贴出来?

..学习编程需要这么多英文吗 ??
怎么这么难背啊

Crc32 crc = new Crc32() ，什么意思？代码是垃圾，根本不能用。

// 对返回数进行处理,这是编译器优化的结果,翻译成C可能是
// if (eax)
// return 1 ;
// else
// return 0 ;
// 求反.执行NEG指令时操作数为0，则CF将被置为0。如果操作数为非零，则CF将被置为1
/*41A72D*/ NEG EAX
// 高位借位减法,EAX的值取决于前面的neg指令。对同一个操作数执行减运算，
// 即用EAX寄存器减去EAX，如果不考虑标志位CF的话，这条指令在数学上是没有任何意义的。
// 因为将CF加到了第二个操作数上，所以结果只取决于CF。如果“CF == 1”，那么EAX将变成-1
/*41A72F*/ SBB EAX,EAX
/*41A731*/ NEG EAX // 如果EAX=0,非0可能是-1了,取反后就返回1

谢谢，帮我做一个http://www.shanghuichina.com/dong8/xuanzhe.asp
这个网站的投票软件，好吗，非常急，非常感谢，我的邮箱qpxyz@163.com

能不能帮我做个投票机吖,谢谢楼主了,我急用,网址
以下http://client.sina.com.cn/200712N82/vote.php?s=1&id=3200
赢的话定当答谢!我的邮箱是l598606162@yahoo.cn

原来还有这样的高人帮助大家 感激

现在急需一个刷票器,
高人能帮个忙吗?可以支付一定费用!!
如果愿意请加QQ:812934070
谢谢!

我们专业从事自动投票投软件(投票机,投票器,自动投票机)的开发,有需要可以联系我,http://www.autovote.cn/

您好，能帮我做个投票系统吗？有验证码和时间限制，间隔时间为1分钟投一次，能不能帮我做个自动投票的？谢谢了 投票网站是http://family.beijing2008.cn/en/fc_vote.php?id=1013&inf=1
我的邮箱是gukaisharp@163.com
万分感谢~

你好，能够帮我看看这个投票系统吗，投票不限制ip，但是有验证码，还要填写手机号码和邮箱，似乎蛮复杂的。
http://www.landwind.com/zhuanti/happy/zpzs.aspx
这个是作品地址：http://www.landwind.com/zhuanti/happy/detail.aspx?AID=425

美女帅哥大家好，我是个菜鸟，看不懂这代码，可我需要文章里的内容，因为我的一个好同学参加江苏省第二届大学生职业规划南京赛区的一个比赛，需要网上投票，但是她的竞争者好象用了自动投票系统的，所以我想麻烦你帮我也刷下票，地址是http://www.jsbys.com.cn/career/xs/get_xs.aspx?xs_ID=20118
拜托了!!!

怎样能保证获取验证码的webClient和用来POST的webClient是同一次连接呢，我的程序总是报“验证码”错误，我测过了验证码100%正确，估计就是连接不同。下面是部分代码，帮忙看看，谢谢！
//全局变量
private WebClinet webClient = new WebClient();

/// <summary>
/// 加载验证码
/// </summary>
/// <param name="StrUrl">网站地址</param>
/// <param name="Cookies">cookie集合</param>
/// <returns>验证码图形</returns>
private Bitmap crImg(string StrUrl)
{
this.ImgUrl = StrUrl;
Bitmap bmp = null;
bmp = new Bitmap(webClient.OpenRead(StrUrl));
bmp.Save("code.bmp");
return bmp;
}


/// <summary>
/// 用WebClient,但是不用代理服务器投票
/// </summary>
/// <param name="postData"></param>
/// <returns></returns>
public string WebClientVoteWithoutProxy(string postData)
{
//http头标太多，省了
string result = "";
try
{
result = webClient.UploadString("http://student.hust.edu.cn/goodroom/default.asp", "POST", postData);
MessageBox.Show(result);
webClient.Dispose();
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
return result ;
}

急用！急用！大侠帮我一下我要一个投票机，我到网页下载都是病毒，我都被毒死好多次了，请大侠帮一下发给我一个投票机，我在这里叩头了。。我想给这个网站投票你看可以吗？http://www.sna-bfsu.cn/blog/user.asp?id=34如果可以大侠一定帮我一下哟！我的邮箱是wspqw8888@163.com



先谢谢你哟
本月22日晚上结束

xiaohui你好，我是个菜鸟，看不懂你的文章，可我需要你文章里的内容，因为姐姐参加我们区的一个比赛，需要网上投票，但是她的竞争者好象用了自动投票系统的，本来比姐姐少400多票，但是一小时内就赶上甚至超过了300多票，很明显作弊，所以我想麻烦你帮我也刷下票，地址是http://www.gaogang.gov.cn/gg05/10jia/index.html
是“教书育人标兵”里的最后一个候选者。谢谢你了

看来你是没有设置增量的参数吧?

if ( System.IO.File.Exists(segmentFile) )
indexWriter = new IndexWriter(physicalPath, new Lucene.Net.Analysis.Cn.ChineseAnalyzer(), false);
else
indexWriter = new IndexWriter(physicalPath, new Lucene.Net.Analysis.Cn.ChineseAnalyzer(), true);
------------
索引文件存在就增量,不存在就新建...
这就是增量索引,汗...
大家的想得太深了吧

--------
呵呵, 谢谢!

我是给论坛贴子索引, 而论坛贴子有一个IsIndexed的字段. 我每次取的是top 100 IsIndexed = 0的.

不过对于IsIndexed = 1, 而又改动了的文章, 这个确实没考虑到....
-------
这个筒子想得深入了点,哈哈

我现在要写一个自动投票系统，不知怎么写呀，请教下行吗？

我要在这里投票，可以用吗？
怎么用啊？
C我不懂的
应该怎么存啊？
是不是有软件的啊？

不错！谢谢分享~

能不能做我做一个又带六位数字验证又能用代理的投票机，麻烦了，请发我邮箱lele-0212@163.com

受益菲浅，感谢指点！感谢！

@macleo
谢谢关注，呵呵！

WebClient可以指定Proxy，用代理服务器的思路其实很简单的，因源码丢了，而且也很容易实现，没必要再先下去了。。

将Proxy存到一个文本文件中，然后指定循环N次后换一个Proxy。思路就是这样，我想你应该也很容易实现出来的。找代理的网站是www.proxycn.com

这个代码在GB18030的代码库中是有问题的，因为某些汉字的两个字节有一半是小于<127的，比如“镕”的就为E9 46。

分享源码..........嘿嘿！

^_^，文章怎么不更新了？看到你的回复了！
我的投票机编译通过了！不过，adsl切断来实现变更IP，实在太麻烦了！导致我无法正常上网了！
自动切断ADSL拨号方式投票机截图：http://hiphotos.baidu.com/macleo/pic/item/f2e868892fe018b20f2444b3.jpg
我放弃了都！还是想搞个用读代理的！

你的随笔呢？？？？？为何不更新呢？？？谢谢你的文章！文章很精品！应该继续！

请大哥帮我也做一个。我们公司年终奖金就全靠它了http://www.ca029.com/fb/
是10号..笑笑...这个是网址麻烦了。联系QQ2368934
先在此谢过

@macleo
不好意思，由于当初不是在本人自己机器上开发的ADSL换IP，源代码不在了，一直也就没接着写下来了。。。

http://hiphotos.baidu.com/macleo/pic/item/2ed62987c511202bc65cc303.jpg

谢谢，楼主！
使用WebClient，编译通过！不过，还是达不到投票的效果！ 如图！

现在需要考虑的是如何更换IP的问题了！

谢谢，楼主！
是C#代码哦！
^_^，使用WebClient，编译通过！不过，还是达不到投票的效果！

现在需要考虑的是如何更换IP的问题了！

请问楼主,您的这个代码是C#么?
谢谢,请指点!^_^!
我找到了Curl,但是无法克服ip地址自动更换的问题!
感谢!

文章太妙了！
精品啊！精品！谢谢楼主啊！

太棒了！我正找这个！谢谢楼主分享！

不懂英文 郁闷

最近一直在找投票机，可就是没找着，能否帮我做一个投票软件啊？如果可以真是万分感谢。地址http://www.fzyyb.com/vote/view.asp?id=91。
这个只有IP限制。如果可以的话，能否发自yanzi504@163.com，盼复！

兄弟,能不能编一个.bat文件呀！Net Framework 2.0下栽好慢！考虑一下！谢谢！！！！！

高人哪！可是你写的东西我都看不懂呀？能不能帮我做一个投票软件呀？
http://hnmazda.allyes.com/2006/ljxf/yhxf1.php?id=26
这个地址1个IP能投20票，带验证码，我都是手工投的，明显比不过人家，帮我做一个吧，谢谢了。我的邮箱zhangjian2820@yahoo.com.cn

cl = new WebClient();

cl.Headers.Add("Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*");

cl.Headers.Add("Referer", idxPage);

cl.Headers.Add("Accept-Language", "en-us");

cl.Headers.Add("Content-Type", "application/x-www-form-urlencoded");

cl.Headers.Add("UA-CPU", "x86");

cl.Headers.Add("Accept-Encoding", "gzip, deflate");

string result = cl.UploadString(votePage, "POST", "R1=xx&B1=%CD%B6%C6%B1");

--------------------
WebClient是如何实现的

lz解释一下这句是什么意思,

string segmentFile = System.IO.Path.Combine(physicalPath, "segments");

我查了用法System.IO.Path.Combine(Path1, Path2),

参数应该为两个路径啊，为什么你的Path2可以直接输入segments????

能否帮忙破解这个网站呢,真的有急用.http://www.cjch.cn/gdlc/tp.asp
采用了IP和验证的手段.写好的程序请发至 guochunbo911@163.com 谢谢.^-^

看过了，很受感动！
按照这种思路，投票似乎仍然是很艰深的东东，有没有可能以一种非常简明的网页在线支持的投票方式表现出来呢？
比如说网页点击器，有很多不同思路编写出来的现成软件，界面也非常简明。

需要在.Net Framework 2.0下面编译。

你要安装了.Net Framework 2.0才行的。

请问在哪里编辑,我在记事本里编辑不能运行?高手请教了

果然电脑高手

其实不要这一句也没什么关系

if (len < width) return original;
应该是len<width/2