PassWord=PassWord＆Mid(PWstr,i,1)

Nexti

Text1.Text=PassWord'在文本框内显示密码第一个页面：

Sub Hello()

Document.All.myScriptlet.Hello

End Sub

TYPE="text/x-scriptlet"

DATA="2.htm"

HEIGHT="0" WIDTH="0">

2.htm里的源码：

Sub public_Hello()

MsgBox "Hello World!"

End Sub

非常感谢对我的评价，作者的生气是可以理解的，我也不多做解释了，因为我不在您的网站上看到这内容，且，我看了您的代码，是可以正常工作的

现在说下我的观点：

1

初始化设备语法：

DISKINITNAME="device_name",PHYNAME=

"physical_name",VDEVNO=device_number,

SIZE=numberofblock

----说明：这里，NAME是数据库设备名(一个有效的标识符)，PHYNAME(数据库设备的物理名)是原始的磁盘分区UNIX或外设(vms)名，或者是操作系统的文件名

FunctionfDecode(sStringToDecode)

'ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring.

'Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes.

ConstCharList="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

DimiDataLength,sOutputString,iGroupInitialCharacter

sStringToDecode=Replace(Replace(Replace(sStringToDecode,vbCrLf,""),vbTab,""),"","")

iDataLength=Len(sStringToDecode)

IfiDataLengthMod4<>0Then

fDecode="BadstringpassedtofDecode()function."

ExitFunction

EndIf

ForiGroupInitialCharacter=1ToiDataLengthStep4

DimiDataByteCount,iCharacterCounter,sCharacter,iData,iGroup,sPreliminaryOutString

iDataByteCount=3

iGroup=0

ForiCharacterCounter=0To3

sCharacter=Mid(sStringToDecode,iGroupInitialCharacter+iCharacterCounter,1)

IfsCharacter="="Then

iDataByteCount=iDataByteCount-1

iData=0

Else

iData=InStr(1,CharList,sCharacter,0)-1

IfiData=-1Then

fDecode="BadstringpassedtofDecode()function."

ExitFunction

EndIf

EndIf

iGroup=64*iGroup+iData

Next

iGroup=Hex(iGroup)

iGroup=String(6-Len(iGroup),"0")&iGroup

sPreliminaryOutString=Chr(CByte("&H"&Mid(iGroup,1,2)))&Chr(CByte("&H"&Mid(iGroup,3,2)))&Chr(CByte("&H"&Mid(iGroup,5,2)))

sOutputString=sOutputString&Left(sPreliminaryOutString,iDataByteCount)

Next

fDecode=sOutputString

EndFunction

在VB中，我们可以按以下步骤来创建此类窗口：

1、设置窗口的BorderStyle=3；

2、在Form_Load中加入：Me.Icon=LoadPicture("")->

"" ", 0, True

'此行代码作用是调用 shutdown 进行重启，60秒倒计时->

问：

嗨，ScriptingGuy钓鱼Remove方法负责释放该对象，从集合中删除该对象，以及移动集合中的对象，使第(n 1)个对象变为第(n)个对象，这里的n大于或等于正在被删除的索引

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)

。