-
干掉360主进程和360保险箱
Oct162008
-
原创诗句:闻桂香
Oct112008
-
80后的终级回忆录,我的回忆录
Oct102008
-
搞笑flash:小破孩的裤衩爱情
Oct102008
-
Spy-Net 0.4 奇风汉化版
Oct092008
-
让Real Player从你的电脑走开
Oct072008近自己用VB编写一个播放RM格式的影音文件播放器,打包后,兴冲冲的拿到朋友那去,结果老是报告“超出内存”。我倒!原来朋友的机器上没有装上Real Player,大跌脸面!急忙到网上查找关于Real Player的文章,结果一无所获! 看来只有俺亲自动手了!后来经过俺几天N2次的安装和卸载,外加方便面与白开水!终于让Real P ...
阅读全文作者:奇风 | 分类:设计代码 | 阅读:331 views | 标签:Real Player
-
delphi:QQ自动发消息源码
Oct072008这里面有的到窗口句柄,输入框句柄和按钮句柄的方法! 你可以结合使用的到你想的到的功能! 这是一个qq自动发送的功能,你看看,应该有点用吧!:) [code] procedure TForm1.Button1Click(Sender: TObject); var hParent,hButton,hMemo: HWND; begin Memo1.CopyToClipboard;//把Memo中选中的语句拷贝到剪贴板中 try //找发送消息的QQ窗口 hParent := FindWindow(nil, ‘发送消息’); //然后找回话时用的编辑窗口,Point函数用于返回一个TPoint类型变量 hMemo := ChildWindowFromPointEx(hParent, Point(50, 100), CWP_ALL); //找到“送讯息”按钮的句柄 hButton := FindWindowEx(hParent,0,nil,’送讯息(&S)’); if (hParent = 0) or (hMemo = 0) or (hButton = 0) then MessageBox(Handle,’没有找到发送窗口,请重试!’,’错误’,MB_ICONWARNING) else begin //向发送消息中的回话编辑框发送粘贴消息 SendMessage(hMemo,WM_PASTE,0,0); //向“送讯息”按钮送单击消息以模仿按键发送回话 SendMessage(hButton,BM_CLICK,0,0); end; except //如果发生以外错误给出提示
阅读全文
-
Shockwaveflash 资料收集1
Oct072008AlignMode(int型)和SAlign(WideString型) 控制动画的显示位置(把这两个属性列在一起说明它们是相互 关联的,改变一个另一个也会相应地改变,以下类似)。取值范围及含义如下: 0 空 当前位置 1 L 当前位置靠左 2 R 当前位置靠右 3 LR 当前位置居中 4 T 当前位置靠上 5 LT 左上 6 TR 右上 7 LTR 上方居中 8 B 当前位置靠下 9 LB 左下 10 RB 右下 11 LRB 下方居中 12 TB 当前位置垂直居中 13 LTB 靠左垂直居中 14 TRB 靠右垂直居中 15 LTRB 中央位置 【属性】BackgroundColor(int型)和BGColor(WideString型) 设置背景颜色,BackgroundColor为整 型值,BGColor为它的HEX字符串。 【属性】Loop(bool型) 是否循环显示 【属性】Menu(bool型) 是否显示右键菜单,建议设为true,因为它可以完成对Flash动画的大部分控 制工作,而不用我们写代码。 【属性】Movie(WideString型) Flash动画的文件名,可以在运行状态动态设置,要关闭一个动画只 要把它设为空即可。 【属性】Quality(int型)和Quality2(WideString型) 控制动画的显示质量,一般将Quality设为1以获 得高质量的显示效果。 【属性】ScaleMode(int型)和scale(WideString型) 控制动画的显示比例,取值范围及含义如下: 0 ShowAll 显示全部 1 NoBorder 无边框模式 2 ExactFit 拉伸到整个画面 3 空 原始大小 【方法】PercentLoaded 返回动画已经加载的百分比,你可以建立一个进程条(ProgressBar)来显示 动画加载的进程。
阅读全文