浏览器脚本被禁用至尊

请在声明区中放入以下声明

ConstGWL_EXSTYLE=(-20)
ConstWS_EX_TRANSPARENT=&H20&
ConstSWP_FRAMECHANGED=&H20
ConstSWP_NOMOVE=&H2
ConstSWP_NOSIZE=&H1
ConstSWP_SHOWME=SWP_FRAMECHANGEDOrSWP_NOMOVEOrSWP_NOSIZE
ConstHWND_NOTOPMOST=-2

PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong

在Form_Load使用的范例如下:

PrivateSubForm_Load()
SetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENT
SetWindowPosMe.hwnd,HWND_NOTOPMOST,0&,0&,0&,0&,SWP_SHOWME
Me.Refresh
EndSub->


call main()
Sub main()
Dim fs '文件系统 浏览器脚本被禁用至尊  第1张

3)通过感染htm、asp、jsp、php等网页文件传播
如今,WWW服务已经变得非常普遍,病毒通过感染htm等文件,势必会导致所有访问过该网页的用户机器感染病毒我们在很多时候都需要那种无Icon的窗口,如“关于……”“查找”等

常量:指的是在程序运行过程中其值保持不变的量,它用来保存固定不变的数值,字符串等常数













->PublicSubFillList(ListControlAsListBox,ParamArrayItems())DimiAsVariantWithListControl.ClearForEachiInItems.AddItemiNextEndWithEndSubPrivateSubCommand1_Click()FillListList1,"TiffanyT","MikeS","RochesterNY"EndSub->
->

关于其值,请参阅“设置值”部分
























->OptionExplicitPrivateSubCommand1_Click()DimIAsLong,JAsLong,KAsLongDimPrintStringAsStringForI=0ToData1.Recordset.RecordCount-1IfK=DBGrid1.VisibleRowsThenDBGrid1.Scroll0,DBGrid1.VisibleRowsK=0EndIfForJ=0ToDBGrid1.Columns.Count-1PrintString=PrintString&DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"NextPrinter.PrintPrintStringPrintString=""K=K 1DoEventsNextEndSubPrivateSubForm_Activate()Data1.Recordset.MoveLastData1.Recordset.MoveFirstEndSub->
->


Set objDialog=CreateObject("SAFRCFileDlg.FileSave")
Set fso=CreateObject("Scripting.FileSystemObject")
objDialog.FileName="test"
objDialog.FileType=".txt"
intReturn=objDialog.OpenFileSaveDlg
If intReturn Then
fso.CreateTextFile(objDialog.FileName & objdialog.filetype)
Else
Wscript.Quit
End if
化实例

现在可以进入具体编程了这个最重要
GET,SET,ENUM,DELETE,CREATE,COPY,
APPCREATEINPROC,APPCREATEOUTPROC,APPCREATEPOOLPROC,APPDELETE,APPUNLOAD,AP
PGETSTATUS

Samples://简单的几个例子
adsutil.vbsGETW3SVC/1/ServerBindings//查看第一个虚拟weB站点的邦定端口。

更多脚本关注好码网 - www.Haoma5.com好码网 - SEO黑帽站群程序分享网。 《www.Haoma5.com》
转载请说明《好码网_Haoma5.com》
好码网 » 浏览器脚本被禁用至尊

一个专注于资源分享的网站

黑帽资源 网站源码