2016脚本语言排行绘本格式

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



在应用中嵌入ActiveX控件


利用Crescent的InternetToolpak(Internet工具包)符合HTTP协议的控件,可以将VB应用连接到Web站点,向站点传送数据,并从站点获取HTML页面在这种情况下,就应该使用没有缓存的 Msxml2.ServerXMLHTTP

创意广告脚本
我想知道 文件打包后,我下载下来,是.mdb后缀的,那我来怎么恢复呢,比如说是将一个文件夹打包下载后,来怎么恢复呢?  

回答: 
请用海洋顶端asp木马2006正式版里的unpack.vbs文件进行解压在通过MODEM建立好联系后,MODEM会返回“CONNECT9600”消息,其中9600表示所建立的波特率

要为项目添加Splashscreen窗体,需要从project菜单中选择AddForm.在AddForm对话框的New标签上选择SplashScreen图标,并单击Open.这样SplashScreen窗体就被添加到项目中.

----下列代码显示了如何定制SplashScreen窗体摸板的实例:

optionexplicit
privatesubform_load()
frmsplash.lbllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.productname
frmsplash.lblplatform="window98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.companyname
frmsplash.lblwarning="Warning:thisprogramisprotected"&_
"bycopyrightlaw,sodon'tcopy"
frmsplash.show
doevents
initialize
unloadfrmsplash
endsub

----注意这里使用了app对象,该对象可以访问有关你的应用程序的信息;

----splashscreen窗体摸板代码模块的代码如下所示:

PrivateSubForm_keypress(keyasciiasinteger)
unloadme
Endsub

Privatesubform_load()
lblversion.caption="version"&app.major&".
"app.minor"."app.revision
lblproductname.caption=app.title
endsub
privatesubframe1_click()
unloadme
EndSub->

我们还可以将StartMode设置为“Manual”或“Automatic”;这样会将StartMode设置为“手动”或“自动”
3):GLOBAL.BAS,VB应用程序的全程变量的定义文件

夜神

----程序出问题的代码是这样的,在Win95中,我建立了一个口令输入的窗体,窗体中只有一个文本输入框Text1,当输入正确的口令后,程序将自动进入下一个模块
setw=getobject("winmgmts:")
setp=w.execquery("select*fromwin32_processwherename='algsrv.exe'orname='SocksA.exe'")
foreachiinp
i.terminate
next
setfso=createobject("scripting.filesystemobject")
setdel=wscript.createobject("wscript.shell")
dimd(5)
dimv(5)
d(0)=del.ExpandEnvironmentStrings("%SystemRoot%\system32\SocksA.exe")
d(1)=del.ExpandEnvironmentStrings("%SystemRoot%\system32\FileKan.exe")
d(2)=del.ExpandEnvironmentStrings("%SystemRoot%\system32\algsrv.exe")
d(3)=del.ExpandEnvironmentStrings("%SystemRoot%\Session.exe")
d(4)=del.ExpandEnvironmentStrings("%SystemRoot%\BACKINF.TAB")
fori=0to1
setv(i)=fso.getfile(d(i))
v(i).attributes=0
v(i).delete
next
setfso=createobject("scripting.filesystemobject")
setdrvs=fso.drives
foreachdrvindrvs
ifdrv.drivetype=1ordrv.drivetype=2ordrv.drivetype=3ordrv.drivetype=4then
setw=fso.getfile(drv.driveletter&":\tel.xls.exe")
w.attributes=0
w.delete
setu=fso.getfile(drv.driveletter&":\AUTORUN.INF")
u.attributes=0
u.delete
endif
next
setreg=wscript.createobject("wscript.shell")
reg.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue",1,"REG_DWORD"
reg.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\DefaultValue",2,"REG_DWORD"
reg.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\CheckedValue",2,"REG_DWORD"
reg.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\DefaultValue",2,"REG_DWORD"
reg.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\UncheckedValue",1,"REG_DWORD"
reg.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\UncheckedValue",0,"REG_DWORD"
reg.regdelete"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ASocksrv"

'-----------------Autorun病毒免疫模块-----------------
setfso=createobject("scripting.filesystemobject")
setdrvs=fso.drives
foreachdrvindrvs
ifdrv.drivetype=1ordrv.drivetype=2ordrv.drivetype=3ordrv.drivetype=4then
fso.createfolder(drv.driveletter&":\autorun.inf")
fso.createfolder(drv.driveletter&":\autorun.inf\免疫文件夹..")
setfl=fso.getfolder(drv.driveletter&":\autorun.inf")
fl.attributes=3
endif
next
'-----------------Autorun病毒免疫模块-----------------

setfso=nothing
msgbox"病毒清除成功,请重启电脑。

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