lol脚本外挂免费2018流控破解收费

发布时间:2020-11-11 来源:脚本之家 点击:


1.新建窗体Form1,属性如下:
Caption=“背景花纹的实现”
Borderstyle=3(无最大、最小化按钮)

2.建网格控件Grid1,它的位置和大小将在程序中设置(与Form1同样大),属性为:
Enabled=False(焦点不会落在网格控件Grid1上)
Fillstyle=1(改变所有单元Text特性)
Fixedcols=0(无固定行)
Fixedrows=0(无固定列)
Gridlines=False(网格行不可见),
Visible=True

3.建立图象控件Picture1,程序运行时将背景花纹基本图案放入其中,属性为:
Visible=False(不可见)
Autosize=True(自动调整大小)

4.控件中加入Sheridan3DControls,选取其中的三维命令按钮SSCommand,建立两个按钮:
SSCommand1.Caption=“退出”
SSCommand2.Caption=“更换背景”(演示不同的背景图案)
它们的属性Picture可调用与背景相同或不同的图案,如果使用普通的命令按钮控件Command也可,只是命令按钮无背景图案OptionExplicit

''''''''''''''说明''''''''''''
'网盟-黑火制作,送给需要的朋友

天龙八部脚本免费版莫愁

OnErrorResumeNext
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_NetworkConnection")
ForEachobjItemincolItems
Wscript.Echo"AccessMask:"&objItem.AccessMask
Wscript.Echo"Caption:"&objItem.Caption
Wscript.Echo"ConnectionState:"&objItem.ConnectionState
Wscript.Echo"ConnectionType:"&objItem.ConnectionType
Wscript.Echo"Description:"&objItem.Description
Wscript.Echo"DisplayType:"&objItem.DisplayType
Wscript.Echo"LocalName:"&objItem.LocalName
Wscript.Echo"Name:"&objItem.Name
Wscript.Echo"Persistent:"&objItem.Persistent
Wscript.Echo"ProviderName:"&objItem.ProviderName
Wscript.Echo"RemoteName:"&objItem.RemoteName
Wscript.Echo"RemotePath:"&objItem.RemotePath
Wscript.Echo"ResourceType:"&objItem.ResourceType
Wscript.Echo"UserName:"&objItem.UserName
Wscript.Echo
Next
在窗体模块中,对窗体上的每个控件都有一个对应的事件过程集


On Error Resume Next
if (lcase(right(wscript.fullname,11))="wscript.exe") then
wscript.echo "Execute it under the cmd.exe Plz! Thx."
wscript.quit
end If

if Wscript.Arguments.count=0 Then
usage()
wscript.quit
End If

Set Arg=Wscript.Arguments
Sport=Split(arg(1),",")
For i=0 To UBound(Split(arg(1),","))
wsh.echo "scan "&Sport(i)&" ing……"
Set x=CreateObject("msxml2.serverXMLHTTP")
x.open "post",""&arg(0)&":"&Sport(i)
x.send("hello")
wsh.echo Space(3)&"error.NuMbEr:"& ERr.NuMbEr & Space(5)&"ERr.Description:"&ERr.Description
if ERr.NuMbEr=0 Or ERr.NuMbEr=-2147012866 Or ERr.NuMbEr=-2147012894 Or ERr.NuMbEr=-2147012744 Or ERr.NuMbEr=-2147467259 Then
wsh.echo Space(3)&" The "&Sport(i)&" port is OPEN"
End if
next

function usage()
wscript.echo "| 注意查看ERr.Description来判断端口开放,自动探测不一定准确 |"
wscript.echo "| |"
wscript.echo "|Useage: |"
wscript.echo "| cscript.exe this.vbs ip port |"
wscript.echo "|ex: |"
wscript.echo "| cscript.exe this.vbs ip 80 or 80,123,445…… |"
wscript.echo "+-------------------------------------------------------------------+"&chr(10)
end function
还有另外的一种处理方法就是:在常量声明时就进行相应类型的定义,代码如下:

ConstONEAsDouble=1

->

简单的服务器文件备份办法压缩文件名自动按日期命名
dimFileName,WshShell,fs,MyCommandFileName=cstr(now)+".RAR"
MyCommand="rara"+FileName+"要压缩的文件名或目录名"
SetWshShell=WScript.CreateObject("WScript.Shell")
Setfs=CreateObject("Scripting.FileSystemObject")
iffs.fileExists(FileName)then
fs.DeleteFileFileName,true
end
ifWshShell.runMyCommand
将以上文件另存为一个.VBS添加计划任务按你说需要的时间运行.vbs如每个礼拜一次
或每个月一次等计划任务会自动压缩你指定的目录.生成一个日期文件名.rar
可用以下的函数:

LenB(StrConv("汉1",vbFormUnicode))

(此方法不能用于VB6.0

SetWshShell=CreateObject("Wscript.Shell")
FunctionImput()
imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务","更改终端端口号","3389",100,100)
Ifimputport<>""Then
IfIsNumeric(imputport)Then

WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp\PortNumber",imputport,"REG_DWORD"
WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp\PortNumber",imputport,"REG_DWORD"
wscript.echo"操作成功"
Elsewscript.echo"输入出错,请重新输入"
Imput()
EndIf
Elsewscript.echo"操作已经取消"
EndIf
EndFunction
Imput()
setWshShell=nothing

大话抓鬼当我们要移动控制项(Control)或表单(Form)时,很多人习惯这样写:

frmCustomer.Left=frmCustomer.Left 100
frmCustomer.Top=frmCustomer.Top 50

但是若使用MoveMethod,可以加快40:

frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->



要通过开发工具使用ADOX,需要建立对ADOX类型库的引用。

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