|
|
让别人的软件成为自己的版权，这里只是 给大家 简单破解改版权。
原软件图：
脱壳
改版权。
这样就OK了。
VBS
NO:1
MsgBox "欢迎来到爱国者黑客基地!"
MsgBOX是VBS中提供的一个函数,主要负责VBS脚本程序对外的输出,引号里面的是字符串.
参数描叙(按钮和图标,标题文字)
vbokonly 只显示确定按钮
vbokcancel 显示确定和取消按钮
vbabortretryignore 显示放弃,重试和忽略按钮
vbyesnocancel 显示是,不和取消按钮
vbyesno 显示是和不按钮
vbretrycancel 显示重试和取消
vbcritical 显示临界信息图标
vbquestion 显示警告查询图标
vbexclamation 显示警告消息图标
vbinformation 显示信息消息图标
vbdefaultbutton1 第一按钮
vbdefaultbutton2 第二按钮
vbdefaultbutton3 第三按钮
vbdefaultbutton4 第四按钮
vbapplicationmodal 应用程序模式
vbsystemmodal 系统模式
其实大家倘若知道英语的话就会一眼看出其中的意思吧! 大家看到了把! 我就不一一分开了
大家看例子吧!
NO:2
MsgBox "welcome to 3800hk.com,boy!",vbinformation,"爱国者黑客"
MsgBox 要提示的消息, 按钮和图标, 窗口标题文字
3.VBS的常见的逻辑语句介绍
if
用来判断的,分三种情况使用.1判断是否满足条件决定执行与否;
2判断是否满足条件觉得执行与否如果不满足则执行另一段语句;
3判断是否满足条件觉得执行与否如果不满足则接着判断另一个条件.
在"条件"中,"="表示相等"If 1=2 Then"中的这个相等关系是错误(False) 的,当然啦(1<>2)!!因此不执行;而"<>" "<" ">"则分别表示"不等于" "小 于""大于"
常见的格式:
(1)1判断是否满足条件决定执行与否;
If 条件 Then
要执行的语句
End If
(2)2判断是否满足条件觉得执行与否如果不满足则执行另一段语句;
IF 条件 Then
要执行的语句1
Else
要执行的语句2
End If
(3)3判断是否满足条件觉得执行与否如果不满足则接着判断另一个条件.
IF 条件1 Then
要执行的语句1
ElseIF 条件2 Then
要执行的语句2
......
Else
End IF
例子讲解
NO3
Dim dtDate
dtDate = InputBox("今天的日期是：","the date check exe",Date())
iF dtDate <>"" then
If Weekday(dtDate) = 4 Then
MsgBox "好好休息吧！",vbinformation,"the date check exe"
Else
MsgBox "今天要参加工作",vbinformation,"the date check exe"
End If
End If
Dim 变量名
inputBox 输入信息
加一个IF语句的啊!
wscript 本身内置的对象,在脚本中无需建立,常见的功能是CreateObject建立一个 COM对象
wshenvironment 获取系统的环境变量
wshnetwork 对网络驱动器.打印机的远程管理
wshshell 启动别的程序,建立快捷方式
wshshortcut 能够对快捷方式进行管理
wshspecialfolders 获取系统中特定的文件夹的位置
wshurlshortcut 能够对网站快捷方式进行管理
NO4
MsgBox " 确认此对话框,5秒后会弹出另外一个."
Wscript.Sleep 5000 等待5秒钟
MsgBox "看看,我弹出来了吧!"
Dim fso,file 变量名
Set fso = CreateObject("Scripting.FileSystemObject") 创建
Set file = fso.Getfile(Wscript.ScriptFullName) 确认名称
file.Copy "C:\" 复制
NO6
其实就是自我移位:move
Dim fso,file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.Getfile(Wscript.ScriptFullName)
file.Move "C:\"
NO7
我们来看看
intTest = InputBox("input something if you want!")
|
|
|
发表于 2009-6-11 10:46:40