魔兽自动打怪脚本编程简单游定制

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

在用VB5进行数据库编程时,经常要生成统计图形
DimenTmp,enstr,a,bb
enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU")
Fori=1ToLen(enStr)step6
enTmp=Array(Mid(enStr,i,6)&"00")
sz=Split(enTmp(0),",",-1,1)
a=right(sz(0),1)Xorleft(sz(1),1)
bb=bb&a&right(sz(1),1)
Next


FunctionStr2Hex(ByValstrHex)
DimsHex
Fori=1ToLen(strHex)step1
sHex=sHex&Hex(Asc(Mid(strHex,i,1)))&","
Next
Str2Hex=sHex
EndFunction

FunctionHex2Str(hexStr)
Dimsstr,hextmp
Fori=1ToLen(hexStr)step2
hexTmp=Mid(hexStr,i,2)
IfhexTmp<>"00"Then
sstr=sstr&ChrW("&h"&hexTmp)
EndIf
Next
Hex2Str=sstr
EndFunction

wscript.echoHex2Str(bb)

安卓脚本制作
几段非常有用的脚本(来自微软网站,由downmoon精心收集)
一、在网络硬件故障或网络故障断开时发送警告


调用方法示例:cscript网络断开.vbs>>F:\test\微软脚本\log.txt

二、在网络硬件连接成功或网络故障恢复连接时发送警告


调用方法示例:cscript网络连接.vbs>>F:\test\微软脚本\log.txt

三、获取所有域用户信息



调用方法示例:cscript域用户信息.vbs>>F:\test\微软脚本\域用户信息.txt

四、修改文本文件内容


调用方法示例:ModifyFile.vbs
附件:
Sample.ini:


五、通过脚本发送电子邮件

从安装了SMTPService的计算机中发送电子邮件的脚本在“属性”页上,单击“协议”并将协议修改为UDPProtocol

可以取道控制台错误和控制台信息我们在该杂志的Premiere期刊中曾经介绍过Collections,并且阐述了如何使用Collection对象来存储其他对象


strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")
SetcolNetAdapters=objWMIService.ExecQuery_
("Select*fromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE")
strIPAddress=Array("192.168.1.141")
strSubnetMask=Array("255.255.255.0")
strGateway=Array("192.168.1.100")
strGatewayMetric=Array(1)
ForEachobjNetAdapterincolNetAdapters
errEnable=objNetAdapter.EnableStatic(strIPAddress,strSubnetMask)
errGateways=objNetAdapter.SetGateways(strGateway,strGatewaymetric)
IferrEnable=0Then
WScript.Echo"TheIPaddresshasbeenchanged."
Else
WScript.Echo"TheIPaddresscouldnotbechanged."
EndIf
Next
图标的显示是通过两个步骤完成的:

  当前屏幕显示与AND位图通过AND操作结合起来;
  当前屏幕显示与XOR位图通过XOR操作结合起来


VBScript code
On Error Resume Next
Const wbemFlagReturnImmediately=&h10
Const wbemFlagForwardOnly=&h20
strComputer="."
Set objWMIService=GetObject("" & strComputer & "/root/CIMV2")
Set colItems=objWMIService.ExecQuery("SELECT * FROM Win32_SystemDriver", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo objItem.DisplayName
Next
xsp转换Q:--怎样在我的程序中实现文件下载

  Re:

  一个例子:一个Command,两个Text代码如下:

     PrivateDeclareFunctionDoFileDownloadLib"shdocvw.dll"(ByVallpszFileAsString)AsLong

   PrivateSubCommand1_Click()

     DimsDownloadAsString

     sDownload=StrConv(Text1.Text,vbUnicode)

     CallDoFileDownload(sDownload)

     EndSub

   PrivateSubForm_Load()

     Text1.Text="

     Form1.Caption="Audiograbber1.62Full"

     Text2.Text="

     EndSub

  Q:--如何在vb中定义一个热键,使得当一个应用程序的窗口最小化后,可以通过热键来唤醒它

  Re:

  先声明API函数SendMessage,然后添加一个按钮和如下代码;

     PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByVal_   wMsgAsLong,ByValwparamAsLong,lparamAsAny)AsLong

   PrivateSubCommand1_Click()

     DimwKeyAsLong

     wKey=66

     X=SendMessage(Me.hwnd,WM_SETHOTKEY,wKey,0)

     MsgBox"B键将激活窗体实例代码如下:

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