|
|||
|
摘要：
Option ExplicitPrivate Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As LongPrivate Declare Function DrawMenuBar Lib "u 阅读全文
posted @ 2009-12-03 10:53 随风飘零0 阅读(750) 评论(0) 推荐(0)
摘要：
Option ExplicitPrivate Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As LongConst HTCAPTION = 2Const WM_NCLBUTTONDOWN = &HA1Private Sub Form_ 阅读全文
posted @ 2009-12-03 08:54 随风飘零0 阅读(1350) 评论(0) 推荐(0)
摘要：
那些会员专用的头像看起来貌似不错，可是不能用，有时我们就去截图然后再上传，这样有些效果很差。通过下面的网址你就可以直接访问啦！http://imgcache.qq.com/club/face/v4/index.html(需要复制粘贴到浏览器才可以打开，破TX竟然还检测引用页)考虑到TX屏蔽了右键，所以特地做了个小工具 屏蔽右键，下载：http://www.symental.com/sfw/qqviphead.rar效果图： 阅读全文
posted @ 2009-11-28 21:07 随风飘零0 阅读(268) 评论(0) 推荐(0)
摘要：
Option ExplicitPrivate Sub Form_Load() getProcessCommandLine "notepad.exe"End SubPrivate Sub getProcessCommandLine(ByVal proName As String) Dim objWMIService As Object Dim colProcessList As Object Dim objProcess As Object Dim objProType As Object Set objWMIService = GetObject("winmgmts:" & "{imperso 阅读全文
posted @ 2009-11-24 16:42 随风飘零0 阅读(200) 评论(0) 推荐(0)
摘要：
Option ExplicitPrivate Sub Form_Load() getProcessCommandLine "iexplore.exe"End Sub'得到所有进程名为proName的详细列表，参数一定要写完整。Private Function getProcessCommandLine(ByVal proName As String) As String Dim objWMIService As Object Dim colProcessList As Object Dim objProcess As Object Dim objProType As 阅读全文
posted @ 2009-11-24 16:42 随风飘零0 阅读(377) 评论(0) 推荐(0)
摘要：
Public Function SaveFile(FileName As Variant, strFileBody As Variant) As BooleanOn Error GoTo err1 Dim ADO_Stream As Object Set ADO_Stream = CreateObject("ADODB.Stream") With ADO_Stream .Type = 2 .Mode = 3 .Charset = "utf-8" .Open .WriteText strFileBody .SaveToFile FileName, 2 End With SaveFile = 阅读全文
posted @ 2009-11-24 16:04 随风飘零0 阅读(270) 评论(0) 推荐(0)
摘要：
event代表事件的状态，例如触发event对象的元素、鼠标的位置及状态、按下的键等等。event对象只在事件发生的过程中才有效。event的某些属性只对特定的事件有意义。比如，fromElement 和 toElement 属性只对 onmouseover 和 onmouseout 事件有意义。例子下面的例子检查鼠标是否在链接上单击，并且，如果shift键被按下，就取消链接的跳转。HTMLHEADTITLECancels Links/TITLESCRIPT LANGUAGE="JScript"function cancelLink() {if (window.event. 阅读全文
posted @ 2009-11-20 10:38 随风飘零0 阅读(318) 评论(0) 推荐(0)
摘要：
1.工程名称改为英文RegExp Top2.写一篇删除c++代码注释的文章3.写一篇直接替换一个文章中所有手机号最后4位为*的文章4.第2个参数是数据源，对于web方式是用-w方式的，-w:和-wn:表示普通下载，对于-wu:表示以Unicode方式下载，需要明确的支持-wn5.第3个参数内增加一段关键字符，标志文件写入模式，例如-a:表示追加，-o:表示覆盖，文件是self就表示自身，该段参数全空表示覆盖自身6./gt后面需要支持几个转义符，例如\s \t\r\n7.所有文章都用“如何使用xxx xxx”这样的句式8.拿掉richtextbox控件，做成一个纯粹的无界面的形式，要有独立模块9 阅读全文
posted @ 2009-11-16 10:30 随风飘零0 阅读(158) 评论(0) 推荐(0)
摘要：
1.工程名称改为英文2.写一篇删除c++代码注释的文章3.写一篇直接替换一个文章中所有手机号最后4位为*的文章4.工具增加一个参数，可以设置是以追加还是覆盖方式写入文件5.模式需要提供具体，可以有默认模式，例如-wn,-wu以及-a,-o以空格为间隔获取各个参数可以使用正则“(".+?"|.+?)(?:\s+|$)”麻烦哪位专家把下面代码转成标准VB代码 谢谢! $stockCode = 600000 $url = "http://money.finance.sina.com.cn/corp/go.php/vMS_MarketHistory/stockid/{0}.phtml" -f $sto 阅读全文
posted @ 2009-11-11 15:00 随风飘零0 阅读(175) 评论(0) 推荐(0)
摘要：
以前为了每天拿到空间的2个积分，都得连续打开几个页面，比较麻烦。研究了下终于找到个好办法。其实领取接分的页面是个固定的链接“http://hi.csdn.net/cp.php?ac=task&op=do&taskid=7”，这样大家就知道该怎么做了吧？每次我们开机访问这个页面就OK了。方法很简单：1.在浏览器中打开上面链接2.将该页面发送到桌面作为快捷方式3.将上述快捷方式放入启动项目（“开始”-“程序”-“启动”）这样每次开机就会自动打开这个页面，每天就可以轻松领到2个积分啦！不过要注意你的账号是设置了自动登录的。如果你觉得好的话顶一下，让更多的人分享这个方法。o(∩_∩)o... 阅读全文
posted @ 2009-11-02 08:20 随风飘零0 阅读(146) 评论(0) 推荐(0) |
|||
浙公网安备 33010602011771号