饿郎每天都在为肚子奔波

[置顶]【原创程序】公布本站的原创的程序介绍等信息

推荐程序   评论:4   浏览:   Tags: 自动发布  新浪  Twitter  RSS  

【原创程序】将RSS内容自动发到饭否等Twitter站

        可以将你的BLOG等(只要能提供RSS的站点)信息发到饭否等Twitter站

【原创程序】新浪博客评论机正式发布

        自动评论新浪BLOG上面的文章

        程序使用,下载和介绍的地址是:
        http://www.jrgz2008.com/blog/code/sina_post/User_Help.asp

本站发布新软件《新浪博客漫游器》
 

您想成为名人博?名星博?博客没有人气如何行?加入我们博客营销吧,让您的博客在超短时间内就能成就人气旺博!

新浪博客漫游专家--之新浪博客漫游器是本站才发的第二款软件,延续了本站软件的风格,速度快,成功率高的特点。

http://www.jrgz2008.com/blog/code/sina_Visitor/User_Help.asp

Javascript 必须要了解的东西

代码加工厂   评论:0   浏览:   Tags:

Event 事件 

事件源对象
event.srcElement.tagName
event.srcElement.type
捕获释放
event.srcElement.setCapture();
event.srcElement.releaseCapture();
...

留下一些脚本备忘

代码加工厂   评论:0   浏览:   Tags: JavaScript  

 

javascript:function document.oncontextmenu(){return true;} function document.onselectstart(){return true;} function document.ondragstart(){return true;} function document.onbeforecopy(){return true;} function document.onselect(){return true;} function document.oncopy(){return true;} function document.onmouseup(){return false;}void(document.body.onmouseup='')

...

模拟鼠标事件 代码

代码加工厂   评论:0   浏览:   Tags: 模拟鼠标  代码  

写下来备忘

using System.Runtime.InteropServices;

[DllImport("user32.dll")]
     private static extern int mouse_event(int dwFlags,int dx,int dy,int cButtons,int dwExtraInfo);
        const int MOUSEEVENTF_MOVE = 0x0001;
        const int MOUSEEVENTF_LEFTDOWN = 0X0002;
        const int MOUSEEVENTF_LEFTUP = 0X0004;
        const int MOUSEEVENTF_RIGHTDOWN = 0X0008;
        const int MOUSEEVENTF_RIGHTUP = 0X0010;
        const int MOUSEEVENTF_MIDDLEDOWN = 0X0020;
        const int MOUSEEVENTF_MIDDLEUP = 0X0040;
 

鼠标移动

mouse_event(MOUSEEVENTF_MOVE, 150, 5, 0, 0);
           System.Threading.Thread.Sleep(100);

鼠标单击(down,up)

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
 

 

...

关键词词频修正 未实验

代码加工厂   评论:0   浏览:   Tags:

关键词词频修正表达式,试了下,非常有用,特转过来。

'正则表达式函数
Function doReExec(strng,patrn)
  Dim regEx, Match, Matches,RetStr      ' 创建变量。
  Set regEx = New RegExp         ' 创建正则表达式。
  regEx.Pattern = patrn          ' 设置模式。
  regEx.IgnoreCase = True         ' 设置为不区分大小写。
  regEx.Global = True         ' 设置全局适用。
  Set Matches = regEx.Execute(strng)   ' 执行搜索。
  For Each Match in Matches      ' 对 Matches 集合进行迭代。
    RetStr = RetStr & Match.Value & "," & vbCRLF
  Next
  doReExec = RetStr
End Function

'词频修正函数
Function Original(str)
        
        Dim temparr,ltemp,ltemp2
        str = Replace(str,vbCrLf,"")
        
        temparr = ""
        If Trim(temparr) = "" Then temparr = doReExec(str,"<p[^>]*>([^<]+)</p>")
        If Trim(temparr) = "" Then temparr = doReExec(str,"<br>([^<]+)<br>")
        If Trim(temparr) = "" Then temparr = doReExec(str,"<div [^>]*>([^<]+)</div>")
        If Trim(temparr) = "" Then temparr = doReExec(str,"<span [^>]*>([^<]+)</span>")
        If Trim(temparr) = "" Then Original = str : Exit Function

        temparr = Split(temparr,",")
        randomize
        ltemp = Int(Rnd()*UBound(temparr))+1
        ltemp2 = Timer Mod UBound(temparr)
        Original = "<div id=""correct""><b>本文摘要</b>:<br />" & temparr(ltemp) &  temparr(ltemp2) &  "</div>" & str
End Function
...

Windows消息列表

代码加工厂   评论:0   浏览:   Tags: Windows  消息  

Windows消息列表  

  WM_NULL                                       =   0x0000,  

  WM_CREATE                                   =   0x0001,  

  WM_DESTROY                                 =   0x0002,  

  WM_MOVE                                       =   0x0003,  

  WM_SIZE                                       =   0x0005,  

  WM_ACTIVATE                               =   0x0006,  

  WM_SETFOCUS                               =   0x0007,  

  WM_KILLFOCUS                             =   0x0008,  

  WM_ENABLE                                   =   0x000A,  

  WM_SETREDRAW                             =   0x000B,  

  WM_SETTEXT                                 =   0x000C,  

  WM_GETTEXT                                 =   0x000D,  

  WM_GETTEXTLENGTH                     =   0x000E,  

Copyright 2008 www.jrgz2008.com All Rights Reserved. Powered By Z-Blog 1.8 Spirit Build 80708  Skin By Stephen