vb群发消息软件源码,本程序是用vb6在clswindow2.1基础上开发的,是对微信客户端进行自动化处理的,完全模拟手工操作,稳定且绝度安全,不会被封。
懂代码的可以稍微修改变成定时群发,批量指定目标人群群发。
绝对物超所值,代码浅显易懂。
这种非常实用的软件作者选择开源,不像一些同行,摸通了一点技术就藏着掖着,没有共享精神,作者再此完全开源,没有dll没有ocx,clswindow2.1库也是作者精心打造可以用于许多自动化操作方面,非常方便。
各位觉得好麻烦给5分好评。
下面附带一下clswindow2.1更新记录,算是2.1这版本的非正式发布吧。
'=============================================================================================='名称:windows窗体控制类v2.1'描述:一个操作windows窗口的类,可对窗口进行很多常用的操作(类名为clsWindow)'使用范例:DimwindowAsNewclsWindow'window.GetWindowByTitle("计算器").closeWindow'编程:sysdzw原创开发,如果有需要对模块扩充或更新的话请邮箱发我一份,共同维护'发布日期:2013/06/01'博客:http://blog.163.com/sysdzw'http://blog.csdn.net/sysdzw'Email:sysdzw@163.com'QQ:171977759'版本:V1.0初版2012/12/03'V1.1修正了几个正则相关的函数,调整了部分类结构2013/05/28'V1.2增加属性Caption,可以获取或设置当前标题栏2013/05/29'V1.3增加了方法Focus,可以激活当前窗口2013/06/01'增加了方法Left,Top,Width,Height,Move,处理窗口位置等'V1.4增加了窗口位置调整的几个函数2013/06/04'增加了得到应用程序路径的函数AppName'增加了得到应用程序启动参数的函数AppCommandLine'V1.5增加了窗口最大最小化,隐藏显示正常的几个函数2013/06/06'增加了获取控件相关函数是否使用正则的参数UseRegExp默认F'V1.6将Left,Top函数改为属性,可获得可设置2013/06/10'V1.7增加函数:CloseApp结束进程2013/06/13'修正了部分跟正则匹配相关的函数'增加函数:GetElementTextByText'增加函数:GetElementHwndByText'V1.8增加函数:GetWindowByClassName2013/06/26'增加函数:GetWindowByClassNameEx'增加函数:GetWindowByAppName'增加私有变量hWnd_'增加属性hWnd,可设置,单设置时候会检查,非法则设置为0'更新GetWindowByTitleEx函数,使之可以选择性支持正则'删除GetWindowByTitleRegExp函数,合并到上面函数'增加SetFocus函数,调用Focus实现,为了是兼容VB习惯
1
createprocess创建进程并获取进程窗口HWND,不管窗口是否在显示状态都可以获取。
2024/7/13 21:36:30 2KB 进程ID HWND
1
用易语言写的一个正则替换小工具,把按键精灵录制的脚本转换为后台使用的脚本:支持转换为按键大漠语句、易语言大漠语句、Bkgnd插件后台语句例如:把语句MoveTo464,396转换为CallPlugin.Bkgnd.MoveTo(Hwnd,454,386)这是最新免注册414版比2.3001版改进了很多!
2024/1/19 14:12:33 1.33MB 易语言 前台脚本 后台脚本 按键精灵
1
动态效果,黑客帝国#include#defineID_TIMER1#defineSTRMAXLEN25//一个显示列的最大长度#defineSTRMINLEN8//一个显示列的最小长度LRESULTCALLBACKWndProc(HWND,UINT,WPARAM,LPARAM);typedefstructtagCharChain//整个当作屏幕的一个显示列,这是个双向列表{structtagCharChain*prev;//链表的前个元素TCHARch;//一个显示列中的一个字符structtagCharChain*next;//链表的后个元素}CharChain,*pCharChain;typedefstructtagCharColumn{CharChain*head,*current,*point;intx,y,iStrLen;//显示列的开始显示的x,y坐标,iStrLen是这个列的长度intiStopTimes,iMustStopTimes;//已经停滞的次数和必须停滞的次数,必须停滞的次数是随机的}CharColumn,*pCharColumn;/***********************/........................................
2023/11/24 9:22:47 9KB 特效C语言
1
delphi微软手写输入法源码interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,OleServer,MSINKAUTLib_TLB,ExtCtrls,StdCtrls,MSINKAUTLib;typeTForm1=class(TForm)InkCLT:TInkCollector;Memo1:TMemo;Panel1:TPanel;Button1:TButton;InkRecognizerContext1:TInkRecognizerContext;procedureFormCreate(Sender:TObject);procedureInkCLTStroke(ASender:TObject;constCursor:IInkCursor;constStroke:IInkStrokeDisp;varCancel:WordBool);procedureButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.dfm}procedureTForm1.FormCreate(Sender:TObject);beginInkCLT.hWnd:=panel1.Handle;InkCLT.Enabled:=true;InkCLT.DefaultDrawingAttributes.Color:=clRed;//墨水颜色InkCLT.DefaultDrawingAttributes.Width:=200;//笔的宽度end;procedureTForm1.InkCLTStroke(ASender:TObject;constCursor:IInkCursor;constStroke:IInkStrokeDisp;varCancel:WordBool);beginMemo1.Lines.Clear;Memo1.Lines.Add(Stroke.Ink.Strokes.ToString);end;procedureTForm1.Button1Click(Sender:TObject);beginInkCLT.Ink.DeleteStrokes(InkCLT.Ink.Strokes);Panel1.Refresh;end;end.
2023/8/17 20:53:57 9.38MB 手写输入法
1
用易语言写的一个正则替换小工具,把按键精灵录制的脚本转换为后台使用的脚本:支持转换为按键大漠语句、易语言大漠语句、Bkgnd插件后台语句例如:把语句MoveTo464,396转换为CallPlugin.Bkgnd.MoveTo(Hwnd,454,386)这是最新免注册414版比2.3001版改进了很多!
2016/5/13 18:10:12 1.33MB 易语言 前台脚本 后台脚本 按键精灵
1
CSerialPortFirstVersionbyRemonSpekreijseon2000-02-08http://www.codeguru.com/cpp/i-n/network/serialcommunications/article.php/c2483/A-communication-class-for-serial-port.htmSecondVersionbymrlongon2007-12-25https://code.google.com/p/mycom/增加ClosePort增加WriteToPort两个方法增加SendData与RecvData方法byliquanhaion2011-11-04http://blog.csdn.net/liquanhai/article/details/4955253增加ClosePort中交出控制权,防止死锁问题byliquanhaion2011-11-06http://blog.csdn.net/liquanhai/article/details/6941574增加ReceiveChar中防止线程死锁byviruscampon2013-12-04https://github.com/viruscamp/CSerialPort增加IsOpen判断能否打开修正InitPort中parityOddEven参数取值错误修改InitPort中portnr取值范围,portnr>9时特殊处理取消对MFC的依赖,使用HWND替代CWnd,使用win32thread函数而不是MFC的增加用户消息编号自定义,方法来自CnCommbyitas109on2014-01-10http://blog.csdn.net/itas109/article/details/18358297解决COM10以上端口无法显示的问题扩展可选择端口,最大值MaxSerialPortNum可以自定义添加QueryKey()和Hkey2ComboBox两个方法,用于自动查询当前有效的串口号。
byliquanhaion2014-12-18增加一些处理措施,主要是对减少CPU占用率byitas109on2016-05-07http://blog.csdn.net/itas109修复每次打开串口发送一次,当串口无应答时,需要关闭再打开或者接收完数据才能发送的问题。
解决办法:在m_hEventArray中调整m_hWriteEvent的优先级高于读的优先级。
CommThread(LPVOIDpParam)函数中读写的位置也调换。
参考:http://zhidao.baidu.com/link?url=RSrbPcfTZRULFFd2ziHZPBwnoXv1iCSu_Nmycb_yEw1mklT8gkoNZAkWpl3UDhk8L35DtRPo5VV5kEGpOx-Gea修复停止位在头文件中定义成1导致SetCommState报错的问题,应为1对应的停止位是1.5。
UINTstopsbits=ONESTOPBITswitch(stopbits)和switch(parity)增加默认情况,增强程序健壮性byitas109on2016-06-22http://blog.csdn.net/itas109增加ReceiveStr方法,用于接收字符串(接收缓冲区有多少字符就接收多少字符)。
解决ReceiveChar只能接收单个字符的问题。
byitas109on2016-06-29http://blog.csdn.net/itas109解决RestartMonitoring方法和StopMonitoring方法命令不准确引起的歧义,根据实际作用。
将RestartMonitoring更改为ResumeMonitoring,将StopMonitoring更改为SuspendMonitoring。
增加IsThreadSuspend方法,用于判断线程能否挂起。
改进ClosePort方法,增加线程挂起判断,解决由于线程挂起导致串口关闭死锁的问题。
增加IsReceiveString宏定义,用于接收时采用单字节接收还是多字节接收byitas109on2016-08-02http://blog.csdn.net/itas109https://github.com/itas109改进IsOpen方法,m_hComm增加INVALID_HANDLE_VALUE的情况,因为CreateFile
2021/9/12 2:07:30 19KB CSerialPort 串口类 串口
1
在日常工作中,钉钉打卡成了我生活中不可或缺的一部分。然而,有时候这个看似简单的任务却给我带来了不少烦恼。 每天早晚,我总是得牢记打开钉钉应用,点击"工作台",再找到"考勤打卡"进行签到。有时候因为工作忙碌,会忘记打卡,导致考勤异常,影响当月的工作评价。而且,由于我使用的是苹果手机,有时候系统更新后,钉钉的某些功能会出现异常,使得打卡变得更加麻烦。 另外,我的家人使用的是安卓手机,他们也经常抱怨钉钉打卡的繁琐。尤其是对于那些不太熟悉手机操作的长辈来说,每次打卡都是一次挑战。他们总是担心自己会操作失误,导致打卡失败。 为了解决这些烦恼,我开始思考是否可以通过编写一个全自动化脚本来实现钉钉打卡。经过一段时间的摸索和学习,我终于成功编写出了一个适用于苹果和安卓系统的钉钉打卡脚本。
2024-04-09 15:03 15KB 钉钉 钉钉打卡