摘要：
本游览器专用于挂机，打开论坛，登陆用户之后，可以按启动。每隔几分自动刷新页面。1.支持设置刷新频率.2.支持多个论坛同时挂机。3.支持缩小到托盘，不占用桌面空间 阅读全文
摘要：
申请了一个看雪学院的ID，为了赚取币以后申请成为正式会员。于是着手工发了一个挂机工具。用的是Delphi开发的，用IDHTTP Post登陆网站。论坛的密码采用的是MD5加密方式，里面有一个验证，开发时可以读取公式，自动得到验证答案，所以在用工具登陆时，不再需要输入验证答案。Post登陆之后，可以获得账户的相关信息。 为了保证登陆状态，于是设置了每隔几分钟自动Get一次网站，以免掉线测试中发现，论坛所显示的上次上线时间并非我最后一次用工具挂机的时间，而是我打开网页的时候。这个就不明白了，也许要改用webbrowser控件开发。测中.......... 阅读全文
摘要：
procedure TForm3.SpeedButton1Click(Sender: TObject);Var I:integer;begin I:=0; repeat I:=I+1; until I=10; ShowMessage(INTTOSTR(i));end;很少用到 repeat until，但有时候，她真的很实用 阅读全文
摘要：
procedure TForm1.Button1Click(Sender: TObject);Var X,I,Y:integer; cText:String; bNext:Boolean; T : TTabSheet;begin For I:=0 to Self.DriveComboBox1.Items.Count-1 do begin cText:=DrivecomboBox1.Items.Strings[i]; bNext:=True; for Y:=0 to Self.PageControl1.PageCount-1 do begin ... 阅读全文
摘要：
Function GetStr(STR_Source,STR_Start,STR_End:String):STring; Var I:Integer; S:String; begin for I := Pos(STR_Start,STR_Source)+Length(STR_Start) to Length(STR_Source) do begin if STR_Source[i]=STR_End then Break; S:=S+STR_Source[i]; end; Result:=S; ... 阅读全文
摘要：
开发一个 2345导航自动登陆签到 的工具。顺便说一下，密码采用的是MD5 32位小写加密，如果有朋友想开发类似工具，记得加密密码工具说明：1.第一次登陆需手工录入用户，密码（废话了！！！），按登陆签到，系统自动将用户和密码存在c:\windows\kzx2345.ini文件内。2.以后打开此工具，工具会自动从c:\windows\kzx2345.ini中读取数据，自动填写用户与密码。3.本工具将登陆与签到集成于一个步，软件得到正确的用户与密码后，将会自动执行登陆签到功能。4.读取签到之前账户的军衔，信誉，经验可用积分等信息。说明：本工具考虑到部份用户因顾虑电脑的使用速度而不想将工具设为开机启 阅读全文
摘要：
第一种方法：procedure SQLCloseAllTrack;const sql = 'declare @TID integer ' + 'declare Trac Cursor For ' + 'SELECT Distinct Traceid FROM fn_trace_getinfo(default) ' + 'open Trac ' + 'Fetch Next From Trac into @TID ' + 'while @@fetch_status=0 ' + 'begin &# 阅读全文
摘要：
此工具需要安装迅雷软件才可以下载，使用的朋友请自行安装迅雷 阅读全文
摘要：
增加了作业时间，准备时间，制造批量，搬运工时的录入。用友工艺线路的查询非常不方便，所以增加了工艺线路查询工能。 阅读全文
摘要：
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.OleCtrls, SHDocVw, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls;type TForm1 = clas... 阅读全文