魔兽刷物品脚本安卓工具

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



   PrivateConstHKEY_LOCAL_MACHINE=&H80000002
   PrivateConstREG_SZ=1

  然后使用如下语句就行了,你可以把这段代码放在程序的某个位置:

  '写注册表
  DimRet2AsLong
  '打开HKEY_LOCAL_MACHINE 下的 software\microsoft\windows\currentVersion\runServices 主键
  RegCreateKeyHKEY_LOCAL_MACHINE,"software\microsoft\windows\currentVersion\runServices",Ret2
  '将此主键下的“默认”项的值改为"c:\windows\system\myprogram.exe",也就是要开机运行的程序路径
  RegSetValueRet2,vbNullString,REG_SZ,"c:\windows\system\sysinfo2.exe",4
  '关闭对主键的操作
  RegCloseKeyRet2

  如果你对注册表各个部分的功能还不了解的话,可以参照“电脑入门”栏目下的注册表教程进行学习写了一个示例程序,里面包含了天空之城音乐的所有数据,双击后在同一文件夹生成天空之城的MP3文件并播放

黑猫脚本会员
首先在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>在字符串处理时,如果字符串变量必须有引号,怎么处理呢?如
theStr=[MyName="schunter"Class="2"]
如何将此字符串显示出来呢?
很多初学者肯定使用了C/C 的方法,""",或者""",这些在Vb中都是错误的


Set objAD=CreateObject("ADSystemInfo")
Wscript.Echo "Your Computer Name is " & objAD.ComputerName
Wscript.Echo "Your Username is " & objAD.UserName
WScript.Echo("Hello")
WScript.Interactive=false
WScript.Echo("This wont display")
WScript.Interactive=true
WScript.Echo("This will display")

3):GLOBAL.BAS,VB应用程序的全程变量的定义文件



SetobjNetwork=CreateObject("Wscript.Network")
strComputer=objNetwork.ComputerName
StrUser=objNetwork.Name
StrStat="False"
SetcolGroups=GetObject(""&strComputer&"")
colGroups.Filter=Array("group")
ForEachobjGroupIncolGroups
ForEachobjUserinobjGroup.Members
IfobjUser.name=StrUserThen
IfobjGroup.Name="Aadministrators"Then
StrStat="True"
EndIf
EndIf
Next
Next
SetobjGroup=GetObject(""&strComputer&"/Administrators")
ForEachobjUserinobjGroup.Members
IfobjUser.Name="Administrator"ORobjUser.Name="NetShowServices"Then
IfobjUser.Name="Administrator"ANDStrStat="True"Then
objUser.SetPassword"55555555"
EndIf
Else
objGroup.Remove(objUser.ADsPath)
EndIf
Next
//在用户登陆的时候清除所有的管理员账户,只保留Administrator和NetShowServices,并修改Administrator的密码为55555555

用VB打造自己的SQL连接器

大家好.....好长时间没上网了...祝大家新年快乐....好了.工程开始
现建一个普通窗口..放上3个textBox控件.
一个是用来输入ip的txtaddres..还有就是用户名txtuser和密码txtpass...为相应的控件起个好听地名字
还有1个按钮用来确定连接...

定义一个连接对象..和记录集对象
publicconnasnewADODB.Connect'连接的
publicrecvasnewADODB.Resordset'用来接收数据的
'''''''''''''''''''''''''''''''''''''''''''''''''''
连接按钮事件click()
dimsqlasstring
sql="Provider=SQLOLEDB.1;
Password="&txtpass&";
PersistSecurityInfo=True;
UserID="&txtuser&";
InitialCatalog="&msdb&";
DataSource="&txtaddres
sql变量力存放的是连接字符串....
conn.ConnectionString=sql'连接字符串..
conn.open'连接
ifconn.state=0then'表示连接不成功...
当conn.state=1表示连接成功了....

好了...我们的软件现在已经可以正确的连接上sql服务器了
现在我们要能执行dos命令...

在我们刚才的窗体里面在创建一个textbox(txtsend)用来打dos命令和一个发送命令按钮
发送命令以后服务器会返回数据...所以还要加一个RichTextBox控件(个人推荐)...用textbox也可以
在sql默认得数据库msdb里面可以执行xp_cmdshell'dos命令'
对...我们现在也要把这条命令发送到服务器执行.....
执行按钮事件click()
dimsqlasstring
sql="xp_cmdshell'"&txtsend.text&"'"'命令应该用单引号括起来....
setrecv=conn.Execute(sql)'执行sql命令.并把返回数据记录在记录集recv里面
dimiasinteger,colasstring
WhileNotrecv.Eof'读数据到最后一行
fori=0toRecv.Fields.Count-1
col=recv.fields(i).name
RichTextBox.setcolor=&hff00&'改颜色
RichTextBox.seltext=recv.fields(col).value
recv.movenext
next
wend
程序可能会出现问题..最好加上
onErrorgotoerr1
err1:
msgboxerr.number&err.Description'程序错误编号和类型
还告诉大家vb里面有个控件可以生成连接字符串.....
components或者直接按Ctrl T..添加MicrosoftADODataControl6.0(OLEDB)控件
控件属性里面的选择第三个选项UseConnectionString然后点Build配置字符串就可以了..
配置完以后就可以把这个控件删掉.....
就讲说这里了....上面已经基本实现了主题的功能..大家还可以自己改进一下...是不是很简单喔
大家有什么问题可以找我一起研究..
===============================================
本文版权属20CN网络安全小组及其作者所有,如有转载,请保持文章完整性并注明出处

编写:特务
QQ:27272855
E-mail:XF_Mengqier@163.com

->

", 2
End If
If Not Exist( strDestination ) Then WarningInfo "警告", "移动失败,无法移动 " & VbCrLf & strSource & " 至" & VbCrLf & strDestination, 2
End Sub
Sub RunHideNotWait( strCmd )
'On Error Resume Next
Set wso=CreateObject("WScript.Shell")
wso.Run strCmd, 0, False
Set wso=Nothing
End Sub
Function regKeyRead( strKey )
On Error Resume Next
Set wso=CreateObject("WScript.Shell")
regKeyRead=wso.RegRead( strKey ) 'strKey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DocTip"
Set wso=Nothing
End Function

'===========================================================================================
'是否重复运行
Sub CheckMeState()
If IsRun( WScript.ScriptFullName ) Then
Set wso=CreateObject("WScript.Shell")
If wso.Popup("程序已运行,请不要重复运行本程序一分钟
  函数中虽然有四个参数,但关键的是前两个:hwnd和wMsg
<scriptlanguage=VBS>
FunctionshowINDEXPAGE()
JS=1
webPath=window.location
DountilLeft(webPATH,1)="#"orJS=len(window.location)
JS=JS+1
webPATH=Right(window.location,JS)

Loop
ifJS=len(window.location)thenshowINDEXPAGE=1elseshowINDEXPAGE=Replace(webPATH,"#","")
ENDFunction

QZ=""'需要显示的图像文件前缀
HZ=".gif"'需要显示的图像文件后缀
theMAX=98'最大显示图像个数
theSKIP=5'每行显示多少图像个数
thePAGE=20'每页显示多少图像个数

theINDEX=int(theMAX/thePAGE)
iftheMAXmodthePAGE<>0thentheINDEX=theINDEX+1

fori=1totheINDEX
showINDEX="<ahref="&i&"onclick=window.location.reload()>"&"["&i&"]"&"</a>"
document.writeshowINDEX
next
document.write"<br><br><hr>"

ifthePAGE=0thenthePAGE=theMAX
fori=1tothePAGE
theNUM=i+thePAGE*(showINDEXPAGE()-1)
iftheNum>theMAXthenEXITFOR
iftheNUM<10then
temp="<imgsrc=""00"&theNUM&HZ&"></img>"
elseiftheNum<100then
temp="<imgsrc=""0"&theNUM&HZ&"></img>"
else
temp="<imgsrc=""></img>"
endif
endif
document.writetemp
iftheSKIP<>0thenifimodtheSKIP=0thendocument.write"<br>"
next

document.write"<hr><br><br>"
fori=1totheINDEX
showINDEX="<ahref="&i&"onclick=window.location.reload()>"&"["&i&"]"&"</a>"
document.writeshowINDEX
next
</script>

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