mx脚本解密编

发布时间:2020-11-19 来源:脚本之家 点击:

'makeanewproject;twoforms
'onform1acommandbutton
'putthecodeintherightplaces
'pressF5

SubForm2_load()
'intheform2_loadevent
'besuretomaketheform2smallerthenform1!
lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)

EndSub

PrivateSubForm_Unload(CancelAsInteger)
'intheform2_unloadevent
DimlngResult&

lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)

EndSub

'intheform2_generalsection
PrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLong
PrivatelngOrigParenthWnd&

SubCommand1_click
form2.Show

EndSub->


将WinRAR准备完成后就可以用下面的脚来来完现自定义压缩了
和平精英脚本编写制作教程
WebButton("Submit")以独占方式打开数据库后,可以拒绝其它用户或程序访问整个数据库(包括数据库中的每个表)



对于 Windows 95,strType 参数仅支持 "Process""世上无难事,只要肯登攀",所以你要有信心成为一个COM程序员,而且你一定能

首先在HTML 页面中加入WebBrowser 的Object:
<OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT>
之后,使用如下代码进行打印:
<script language="VBScript">
sub printvb()
wb.execwb 6,2,3
End Sub
</script>
关键代码 wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印,但奇怪的是用同样的参数,在 Javascript 方式下IE 依然会弹出打印对话窗口,也许是因为VBScript 是Microsoft 开发的专用于 IE 的吧,而 Javascript 毕竟是外人:)
另找到一个较全面的例子,如下:
6=OLECMDID_PRINT
2=OLECMDEXECOPT_DONTPROMPTUSER,
2+1=PRINT_WAITFORCOMPLETION + PRINT_DONTBOTHERUSER
WB.ExecWB 6, 2, 3, 0
<HTML>
<HEAD>
<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Sub window_onunload
On Error Resume Next
Set WB=nothing
End Sub
Sub vbPrintPage ( x , y , z )
OLECMDID_PRINT=6
OLECMDEXECOPT_DODEFAULT=0
OLECMDEXECOPT_PROMPTUSER=1
OLECMDEXECOPT_DONTPROMPTUSER=2
On Error Resume Next
WB.ExecWB x, y, z, 0
End Sub
</SCRIPT>
</HEAD>
<BODY>
<TABLE BORDER=1><TR><TD>
<INPUT TYPE="BUTTON" VALUE="Print" ONCLICK="vbPrintPage 6, 2, 3"><BR>
<INPUT TYPE="BUTTON" VALUE="Preview" ONCLICK="vbPrintPage 7, 1, 0"><BR>
<INPUT TYPE="BUTTON" VALUE="Page Setup" ONCLICK="vbPrintPage 8, 1, 0"><BR>
</TD>
<TD bgcolor="green">Print Test
</TD></TR></TABLE>
</BODY>
</HTML>

  lfAppCount>1Then‘同一应用程序数大于1MsgBox"程序已经加载",64End‘结束当前启动的应用程序ElscmainForm.Show‘mainForm是程序的主窗体EndlfExitSuberrMain:lfErr<>0ThenMsgBox"启动程序时发生错误",64ExitSubEndlfEndSub该过程完成后,在VB3.0主菜单[options]下,选择[Project]菜单项,设定[StartupFrom]项为Submain,即程序运行时,最先从Submain子程序开始

想要使用Ping.exe对IP地址192.168.1.1执行ping命令吗?以下脚本将执行该操作,并确保之后命令窗口保持打开状态:
SetobjShell=CreateObject("Wscript.Shell")
objShell.Run("%comspec%/kping192.168.1.1")
想要运行Net.exe以获取本地用户帐户列表并可以随后进行查看吗?好的,没问题:
SetobjShell=CreateObject("Wscript.Shell")
objShell.Run("%comspec%/knetuser")
想要¨C嗯,您已领会了要旨搬砖烂大街了出于简单化的考虑,我使用VB6.0简体中文企业版来完成这一例程
'Handle Errors
On Error Resume Next
'Get the provider object
Set prov=GetObject("WinNT:")

'Examine the available domains the provider can reach
For each dom in prov

'Examine the objects in the domain and check for Computer objects
For each o in dom
If o.Class="Computer" Then

'Display properties of the Computer
WScript.Echo o.Class & " " & o.Name
WScript.Echo " Owner: " & o.Owner
WScript.Echo " Division: " & o.Division
WScript.Echo " OperatingSystem: " & o.OperatingSystem
WScript.Echo " OS Version: " & o.OperatingSystemVersion
WScript.Echo " Processor: " & o.Processor
WScript.Echo " ProcessorCount: " & o.ProcessorCount

End If

Next
Next

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