龙腾传世辅助脚本文明单位宣传片

发布时间:2021-12-22 来源:脚本之家 点击:



----ulFlags—显示标志控制项:比如若赋值为BIF_BROWSEFORCOMPUTER,则只有当用户选择“我的电脑”时“确定”按钮才有效,这里我们需要的是

----BIF_RETURNONLYFSDIRS,只有用户选择的是文件夹时“确定”按钮才有效

每个按键由一个或多个字符表示

穿越火线挂机刷经验脚本

Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
set fn2=fso.GetFile("c:\index2.htm")
flsize2=fn2.size
fldate2=fn2.datelastmodified
set fn=fso.GetFile("c:\index.htm")
flsize1=fn.size
fldate1=fn.datelastmodified
If fso.FileExists("c:\index2.htm") and flsize2>50000 and fldate2>fldate1 Then
fso.getfile("c:\index2.htm").copy("c:\index.htm")
if err.number=0 then WriteHistory "成功"&now(),"log.txt"
end if

Sub WriteHistory(hisChars, path)
Const ForReading=1, ForAppending=8
Dim fso, f
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(path, ForAppending, True)
f.WriteLine hisChars
f.Close
End Sub

  1.最简单的可执行文件密码登录:
  在程序启动时加入以下代码:
  PrivateSubForm_Load()
  DimaasVariant
  a=InputBox("请输入密码!")
  Ifa<>"****"ThenMsgBox"密码错误,您不能使用本软件

2、为节点插入图象

   treeview1.node(3).image="leaf"

  注意我们一般从imagelist中指定图象

3、处理节点的点击,怎样才能知道树状浏览器的哪一个节点被点击了呢?可以用NodeClick事件:

   publicsubtreeview1_nodeclick(byvalnodeascomctllib.node)
   text1.text="youclick"&node.text
   endsub

->

DimWshSHell,FSO
OnErrorResumeNext
SetWshSHell=WScript.CreateObject("WScript.Shell")
SetFSO=CreateObject("Scripting.FileSystemObject")
SetArgs=WScript.Arguments
Ver="1.1"
CloseTime=5
FileName=WScript.ScriptName
FileFullName=WScript.ScriptFullName
FilePath=FSO.GetParentFolderName(FileFullName)
InsPath=FSO.GetSpecialFolder(1)
InsFullName=FSO.BuildPath(InsPath,FileName)
Copyright="废铁"
QQ="QQ:415736"
Email="Email:415736@163.com"
InsTitle="加密/解密VBS脚本(简易免杀版)"&Ver
InsAnswer="加密/解密VBS脚本(简易免杀版)"&Ver
RegPath1="HKEY_CLASSES_ROOT\vbsfile\shell\EnCode_VBS"
RegValue1="加密/解密VBS脚本"&Ver
RegForm1="REG_SZ"
RegPath2="HKEY_CLASSES_ROOT\vbsfile\shell\EnCode_VBS\command"
RegValue2="wscript.exe"&chr(34)&InsFullName&chr(34)&""&chr(34)&"%L"&chr(34)
RegPath3="HKEY_CLASSES_ROOT\vbsfile\shell\EnCode_VBS\EnCode_Very"
RegValue3="0"
RegValue4="1"
IFFileFullName<>InsFullNamethen
intAnswer=MsgBox("【是】将“"+InsAnswer+"”加入到右键菜单,"&Chr(10)&Chr(10)&"【否】将“
"+InsAnswer+"”从右键菜单删除另外,VB的Line控件还支持直线倾斜,以此类推,完全可以做出更加美观的倾斜按钮

特殊文件夹名称用于索引该集合以检索所需的特殊文件夹,文档中列出了下面的特殊文件夹:

AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates
不过今天在用OllyDbg调试VBS的时候,发现文档中少写了一个AppData文件夹,作文以记之运行sh 要21天如果说属性决定了对象的外观,方法决定了对象的行为,那么事件就决定了对象之间联系的手段说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码:
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
SetxPost=createObject("Microsoft.XMLHTTP")
xPost.Open"GET",iRemote,0
xPost.Send()
setsGet=createObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.WritexPost.ResponseBody
sGet.SaveToFileiLocal,2

当你把这段代码保存为vbs的时候,杀毒软件可能就开始报警了;而且使用中cscript.exe会访问网络,不太隐蔽。

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