脚本破解器捕鱼通用苹果

2.VB4.0中MCI的安装'ProgramByxiaolu 'name:file2vbs.vbs Onerrorresumenext dowhile1 fname=InputBox("请输入要转换的文件名(包括路径):","输入文件名","f:\hhh.exe") iffname=""thenWscript.quit err.number=0 SetAdo=createObject("adodb.stream") WithAdo .Type=1 .open .loadfromfilefname ss=.read EndWith iferr.number<>0then ifmsgbox("文件打开错误!",1,"File2VBS")=2thenWscript.quit else exitdo endif loop fname=InputBox("请输入声成的vbs名(包括路径):","输入文件名","f:\hhh.vbs") iffname=""thenWscript.quit SetFso=createObject("Scripting.FileSystemObject") SetFile=fso.OpenTextFile(fname,2,True) lens=lenB(ss)mod500 Forj=0toint(lenB(ss)/500)-1 ifj=0then File.writeline"ss="""&Bin2Str(midb(ss,500*j+1,500))&"""_" else File.writeline"+"""&Bin2Str(midb(ss,500*j+1,500))&"""_" endif next iflens>0then File.writeline"+"""&Bin2Str(rightb(ss,lens))&"""" else File.writeline"+"&chr(34)&chr(34) endif File.writeline"" File.writeline"SetRS=createObject(""ADODB.Recordset""):L=Len(ss)/2:RS.Fields.Append""m"",205,L:RS.Open:RS.AddNew:RS(""m"")=ss&ChrB(0):RS.update:ss=RS(""m"").GetChunk(L)" File.writeline"Sets=createObject(""ADODB.Stream""):withs:.Mode=3:.Type=1:.Open():.Writess:.SaveToFilewscript.arguments(0),2:endwith" File.close Setfso=nothing Ado.close setAbo=nothing FunctionBin2Str(Re) Fori=1TolenB(Re) bt=AscB(MidB(Re,i,1)) ifbt<16ThenBin2Str=Bin2Str&"0" Bin2Str=Bin2Str&Hex(bt) Next EndFunction

斗战神怎么做脚本商人

if fso.fileexists(newpath&""&OldFileName1 ) thenset f=fso.getfile(newpath&""&OldFileName1)f.name=newFileName1 end if

以下仅以SendMessage为例

问:在一个床体中设置了2个命令按钮,Command1,Command2

title="WinRaR破译(目前只做了破译数字)" set WshShell=CreateObject("WScript.Shell" ) set fso=CreateObject("scripting.filesystemobject") Function input() rar_path=InputBox("请输要解密的rar或zip入路径"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"例如:C:\jiemi.rar或C:\jiemi.zip",title) If rar_path="" Then Exit Function End If If fso.fileExists(rar_path) Then num1=InputBox("密码长度最小值"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"例如:0",title) If rar_path="" Then Exit Function End If num2=InputBox("密码长度最大值"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"注意:比密码最小值要大",title) If rar_path="" Then Exit Function End If If num2 > num1 Then speed=InputBox("请选择解密的速度(建议选3)"&Chr(13)&Chr(10)&"密码范围短则建议选选小于3(默认为3)"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"1:一倍速度"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"2:二倍速度"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"3:三倍速度"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"4:四倍速度"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"5:五倍速度",title) code num1,num2,rar_path,speed '重要函数调用 Else msg2=MsgBox ("请注意最大值要大于最小值"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"是否重新输入",1,title) If msg2=1 Then input() End If End If Else msg1=MsgBox ("您输入的路径不正确"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"是否重新输入",1,title) If msg1=1 Then input() End If End If End Function Function code(num1,num2,rar_path,speed) Select Case speed Case "1" import 1,num1,num2,rar_path Case "2" import 2,num1,num2,rar_path Case "3" import 3,num1,num2,rar_path Case "4" import 4,num1,num2,rar_path Case "5" import 5,num1,num2,rar_path End Select End Function Function import(number,num1,num2,rar_path) On Error Resume Next Dim cipher(100),count(100),Result(100) pathname=fso.getbasename(rar_path) winrar="C:\PROGRA~1\WinRAR\WinRAR.exe" For i=1 To number If i=1 Then count(i)=num1 Else count(i)=(Int(num2*(i-1)/number)+1) End If Next For counter=num1 To Int(num2/number) For j=1 To number cipher(j)=Array(count(j)) Result(j)=WshShell.Run (winrar&" e -inul -p"&cipher(j)(0)&" "&rar_path&" "&pathname&"",1,true) if Result(j)=0 Then MsgBox "★密码破解成功★"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"密码:"&cipher(j)(0),,title wscript.quit end If count(j)=count(j)+1 Next Next End Function input() 如果在浮点表达式中使用这些常量,可以通过常量的合适类型来加速程序运行,就象下面的代码:

value#=value# 1#.

这个语句强迫编译器按照Double格式存储常量,这样就省却了运行时的隐含转换工作

变量在过程或函数中有效学  OptionExplicit  DimHoursAsInteger  DimMinutesAsInteger  DimSecondsAsInteger  DimtimeAsDate  PrivateDeclareFunctionRasHangUpLib"RasApi32.dll"Alias"RasHangUpA"(ByValhRasConnAsLong)AsLong  PrivateDeclareFunctionRasEnumConnectionsLib"RasApi32.dll"Alias"RasEnumConnectionsA"(lprasconnAsAny,lpcbAsLong,lpcConnectionsAsLong)AsLong  ConstRAS95_MaxEntryName=256  ConstRAS95_MaxDeviceName=128  ConstRAS_MaxDeviceType=16  PrivateTypeRASCONN95  dwSizeAsLong  hRasConnAsLong  szEntryName(RAS95_MaxEntryName)AsByte  szDeviceType(RAS_MaxDeviceType)AsByte  szDeviceName(RAS95_MaxDeviceName)AsByte  EndType  下面一段代码是对Timer的控制,以及到设定时间的时候断开连接的代码  PrivateSubTimer1_Timer()  Timer1.Enabled=False  If(Format100100time,"hh")&&":"&&Format100100time,"nn")&&":"&&Format100100time,"ss"))〈〉"00:00:00"Then  time=DateAdd("s",-1,time)  Label1.Visible=False  Label1.Caption=Format100100time,"hh")&&":"&&Format100100time,"nn")&&":"&&Format100100time,"ss")  Label1.Visible=True  Timer1.Enabled=True  Else  Timer1.Enabled=False  EndIf  IfLabel1.Caption="00:00:01"Then  dsdklj.WindowState=0  Command1.Enabled=True  MsgBox"时间到了,正在断开连接"  DimlngRetCodeAsLong  DimlpcbAsLong  DimlpcConnectionsAsLong  DimintArraySizeAsInteger  DimintLooperAsInteger  ReDimlprasconn95(intArraySize)AsRASCONN95  lprasconn95(0).dwSize=412  lpcb=256*lprasconn95(0).dwSize  lngRetCode=RasEnumConnections(lprasconn95(0),lpcb,lpcConnections)  IflngRetCode=0Then  IflpcConnections〉0Then  ForintLooper=0TolpcConnections-1  RasHangUplprasconn95(intLooper).hRasConn  NextintLooper  UnloadMe  Else  MsgBox"时间到了,没有拨号网络连接"  UnloadMe  EndIf  EndIf  EndIf  EndSub  其实,这个程序还可以进一步的完善,比如添加暂停功能、或者经过改造,适用于宽带的,等等Sub CopyString(s) Set forms=WScript.CreateObject("forms.form.1") Set textbox=forms.Controls.Add("forms.textbox.1").Object With textbox .multiline=True .text=s .selstart=0 .sellength=Len(.text) .copy End With End Sub CopyString "脚本之家 " msgbox "ok"。

168人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册