一直以为淘宝上所谓的免单是不可靠的，后来被朋友拉到一个免单群，前段时间忍不住抢了几单，没想到东西都收到了，也返款了！同时知道了店家的一些内幕和小秘密，有时店家为了提升信誉！会免单亏本做一些活动，结果到现在一发不可收拾啊！每天迷上了抢免单，几乎天天都有快递收，不抢几单心里痒痒的，难受，哈哈！每当看到快递大哥抱着一堆快递等我的时候还是挺开心的。趁这会闲着，把最近抢到的一些免单宝贝拿出来晒一下，

Flash深入研究之二——编程提取SWF中的声音文件

不错。。。

http://bk.baidu.com/s?wd=

无法将您的邮件投递至以下指定地址: shjlm0119@sohu.com : 投递失败, 帐号不存在. //---------------------------------------------------------- Received: from [59.56.24.99]; Wed, 23 Mar 2005 18:35:36 +0800 Date: Wed, 23 Mar 2005 18:33:30 +0800 From: "=?gb2312?B?RXhlU29mdL/Nu6e3/s7xsr8=?=" <x@niexe.com> To: "shjlm0119@sohu.com" <shjlm0119@sohu.com> Subject: =?gb2312?B?UmU6IMfrx/Ow79b6?X-mailer: Foxmail 5.0 [cn] Mime-Version: 1.0 Content-Type: text/plain; charset="gb2312" Content-Transfer-Encoding: base64 xOO6wywgc2hqbG0wMTE5LA0KDQogICAgICAgIMT6t

uses mshtml; var HtmlDoc:IHTMLDocument2; myitem:Olevariant; i:integer; begin myitem := WebBrowser1.Document; for i := 0 to myitem.all.length - 1 do begin if myitem.all.item(i).tagName = 'SELECT' then // 下拉框选择 begin myitem.all.item(i).value:='2'; end; if myitem.all.item(i).tagName = 'INPUT' then begin if Uppercase(myitem.all.item(i).type)='RADIO' then begin if myitem.all.item(i).value='求' then myitem.all.item(i).checked:=true; end; end; end; end;

http://www.cy63.com/article/362/365/2006/200607252335.html

mms://213.80.127.1/Canal7_p 瑞典

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var mPoint : TPoint; begin if IsChild(RealAudio1.Handle,Msg.Hwnd)and(Msg.Message= WM_RBUTTONDOWN) or(Msg.Message = WM_RBUTTONUP)or(msg.message=messages.WM_RBUTTONDBLCLK) then begin Handled:=true; end; end; procedure TForm1.FormShow(Sender: TObject); begin Application.OnMessage := ApplicationEvents1Message; end;

SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);

function KeyboardHookProc(nCode: integer; wPar: WParam; lPar: LParam): lResult; stdcall; begin //MessageBox(0, 'hook', '', MB_OK); result:=CallNextHookEx(hook,nCode,wPar,lPar); end; function kkk(): integer; stdcall; begin hook := SetWindowsHookEx(WH_MOUSE , KeyboardHookProc, HInstance, 0); Result := hook; end; function kkk(): integer; stdcall; exports kkk ; function kkk(): integer;stdcall ;external 'project1.dll' name 'kkk';

Wincer 3q “

http://www.ete.cn/index/aboutus.php

newhua加入时间：2005-6-27 9:24:16 下载次数：385154 skycn加入时间： 2005-06-26 09:32:50 下载次数： 244311

~

123123

http://www.skycn.com/js/addemo2.html 广告demo

Flubber

iparmor skycn: 6647079 newhua:6825486 8-8

去后台操作的摸样 program xxxx; // ........................ var x: TMsg; begin PostThreadMessage(GetCurrentThreadId(), WM_NULL, 0, 0); GetMessage(x, 0, 0, 0); // 或 PeekMessage(x, 0, 0, 0, 0); // ........................................ end.

ADD: BANK OF CHINA BEIJING BRANCH NO.8 YA BAO LU BEIJING, CHINA SWIFT-CODE: BKCHCNBJ110 A/CNo: 4021400-0188-001204-0 NAME: WANG JUN

var Buffer:pchar;P:pchar; GetMem(Buffer, 512); if GetLogicalDriveStrings(512, Buffer) <> 0 then begin P := Buffer; while P^ <> #0 do begin n:= GetDriveType(p); end; Inc(P, StrLen(P) + 1); end;

shellapi registry inifile Clipbrd ShlObj math

var ff: TSearchRec; begin if findfirst(path + '*.*', faAnyFile, ff) = 0 then begin repeat if (ff.Name <> '..') and (ff.Name <> '.') then begin if (ff.Attr and faDirectory) = faDirectory then begin //文件夹 end else begin //文件 end; end; until findnext(ff) <> 0; end; findclose(ff);

function RunDos(DosApp:String):string; procedure CheckResult(b: Boolean); begin if not b then Raise Exception.Create(SysErrorMessage(Get

function gettxt(ffile: string): string; var hFile: DWORD; iSize: DWORD; begin hFile := CreateFile(PChar(ffile), GENERIC_READ, 3, nil

procedure RunDosInMemo(DosApp:String;Amemo:Tmemo); const ReadBuffer = 2400; var Security : TSecurityAttributes; ReadPipe,WritePipe :