־űʽc++ѧ

ʱ䣺2021-06-03 Դű֮

ǹÿһ裺

1ʹSaveFile༭汾ļ
a=Array(1,2,3,4,"a")
Functionjs1(n)
fori=1ton
f=f&"f"&i&"&"
s=s&"ForEachf"&i&"Ina:wscript.echo"&f
s=Mid(S,1,Len(S)-1)&":"
Next
js1=s
EndFunction

Functionjs2(n)
fori=1ton
m=m&"Next"&":"
Next
js2=m
EndFunction

lcx=js1(UBound(a)+1)&js2(UBound(a)+1)
lcx=Mid(lcx,1,Len(lcx)-1)
b="a=Array(1,2,3,4,""a""):"&lcx

Executeb

дϷű

'ʻ㣨VBSű棩
dim word,key
word=inputbox("Ҫ")
if word="" then
msgbox "С ǽ㲻Ҫ"
Wscript.Quit
end if
key=char_wordnum(word)
msgbox key
Function char_wordnum(my_char_word)
dim char_wordtable(26),wordnum_i,wordnum_j,wordnum_k,temp_wordnum
temp_wordnum=""
if my_char_word="" then
char_wordnum=0
exit function
end if
char_wordtable(0)=""
char_wordtable(1)="һ"
char_wordtable(2)="ؿ˶缸ɵذʮ"
char_wordtable(3)="آѾرôҲϰءڿأǧʿϦŮ޴СʬɽݴȽ۹߮ŷ"
char_wordtable(4)="ؤרзᵤΪ֮ƻ微ʲƽͳԴزԪڸ߷׷Ȱ카Ȼƥئ˫̫زͰͱһإ껧֧Ķ﷽ԻľǷֹëˮצسƬţȮռƶϼ˳ŶΤ緦"
char_wordtable(5)="اҵԶ˿է̸ǪȽд͹ۻ۽ұѻ߲ܰռ¬شîȥž߶ߵֻٰȶ̨߳ʷҶ˾̾߷ߴʥ뺻ʧͷū島Զɾв˧ƽ͸˰Ǵӳ⵩δĩĸص֭͡㺺ϸ˦ɼƤĿìʸʯʾѨܴܵڦڧڨѵѶ㼢Ԧ"
char_wordtable(6)="ةƹبǽηݷ鼿Żɡΰαȹȫپũ̻մӶٽﻪЭӡΣѹԸߺϼͬ߸߹ضعݵ۳׳ĿжżױִլذѰ⳾ҢѲʦ겢ׯ͢ʽڵæϷпǤִɨּѮҷӶɱȨλϫǺѴ꽭ƻүIJԼϿ߼ɫܹܷܻܺܶâܼ֥ܸѪ۽کڪګϷþ긺ǨѸǰаƱʴҳѱ"
char_wordtable(7)="ϴҺĶ٣٤赫λס٢١Ӷұ䶳ɾŬ۾ۿϻҽ±ȴؾķɶַԺ˱֨ⳳǺѽʸ߻߼߽߾Ż߿ԱǺض԰Χַ̮ӿ̳ް׹ۼʼ׷Тβƨ᯲᫸ᰵϣʱӴ®пӦŪͮ۳߯־黳ҽŤ糶ŰҼץͶ۸ҿĹ꺺ʱɼӲĴȶ迼죲ÿ̭ɳ湵ûŽٲֲĵ״ұ긦е˽ͺϵγ硴ɴڷֽƷŦ磺ǼФǸ뿳ܽҽ«ܾҰоܿѿέɲ򰲹֤ڬڭʶթڮߴڰگڱȶƳӭ˽·ûԶΥʺۢۡ붤ȼ簢鸽½¤¿𯼦"
char_wordtable(8)="ɥЩؽۼ٦٥٬ٮ٫ʹ٩ֶ٨٪٧ٰ½ȿ٭ٯߵƾεˢȯɲ̹̿ܶб׿Ծȡζզ;ӽǹа̹ͼ̹ƺ崹¢䱸ҹηܱķʼί߼ѧڹ涨˱ʵоẰᴿ㲯ҵҵӷϽһ¼޾̬²޻巿̧ĨѺĴ԰ذ־׾£ӵšŸն껲ºɰ幹ö֦ǹɹŷŹåĭӷӹմй﷨ŢݲעӾкdz¯׳Ȳְõ⻷߰űäֱ֪ѱϸ֯称ᆳҮ֫ʼ緾ǰɷвԷٰ̦ܿɻӢƻïéݾỢ²ʭĹڲڳڴʫڵڶڷڸڹѯںڻڼͰ˻ʷ̰ƶṺתǵȵۥۣۧۤۨۦ֣۩ɽǥ̷բָªİǶ꽤αʻפ"
char_wordtable(9)="پֱͤٶٴٸ׷ٵٷٹٶٱٲٳðǰнѫжܱҧҿۿްƷӺ۹ܻӴҹԫѵ︴ȽҦ¦欽ȺϿ嶻ܹ⽫ٳʺϿͲ۴֡Ӷͥߺ໲ŭ˼Թѻк㡶ս˩ٿƴקʰָֹ̢ЮӵŲͦʩӳԿռܼڱijȾܲѼդջжжζձȪϴ嶴䢺䬶䡻Ǣ䤽Dz䫼䯻Ũ̿ھƱը˸ǣݽʨ貣ɺ巩η̽ߴԻӯζʡüգɰשףخֿͻĸѰ޽笻Ѥͳˣθе̥ʤհطݢãٻӫݡݣݥݤݦݧҩŰϺʴǰҪڽھջڿ˵ܴóѺſԱż׷ѡѷۭۮ۬¿۪۫ظҶ۳ƱԿվٹťٹ̷ұ춸Ժ˳ʳýȱ溧ǹŸѻ"
char_wordtable(10)="񸩾ٽٺıٿȺý賫žٻپծֵټڣԩڤ׼ڡ߰·ԭŸŶԲɼ淶ث׺ݿмչͷϯͽˡϢҶ㩺㨻ȭֿΰͱ׽۰ƺ貶񻻵Ч͵аի˻νɹ˷ʲ˨У˸Φͩɣ嵵׮ѳ볺̩㿣ֺ˸ԡͿӿлɬȺ̿ǻ̽Ȱƿƣ۾Ҽ䲡֢Ӹյμѣ|խվǰЦʷ篾мȱո̳ȸŰʳܵٿܸؽذ༹֬ŧҨ޺ݩݶݱݴݰɯݮݷݯݸݬݹݳݭĪݨݪݫݲݵӨݺݻç˥Ԭ̻ȱŵ·̿˭ŵ׻̸޼ֻ¸͸ϵ;Ѷͨųҷ߲ۯ۰ƸǮǯܲǦí˶ԤĶ鿥تѼԧ"
char_wordtable(11)="Ǭȼƫͣż͵dzջ˼ÿɾΨ৳਷ơɶžХȦܤܣܥöܡܢǵ¹Ȣ漻Ӥ޼żܿξdz±ոijᡳӹȵʱϤƻ㲼㬵㰾ϧΩ㫲ѵߴƵڵҴ̽ӿڴ°뷽ָб޳Ͱ÷е봸Һõĵ㻴Ԩ½ϩɺʻˬ⨲ͲèȬ̺𨰨пǵʢι˶ƱƻҤ񻾹ϵӷεͼɴճۼ糴ά緱׺ְ㸬沰ݼѹվݿ˲ݾݽƼήөӪȹƵ´ϮıȵгνβֺԾľմ۱۲̪Ұͭϳ綠ҿղ¡ȸѩ­ľڹظ¹ƹ"
char_wordtable(12)="ϴаʣļó౿ι஺ิϲܧܦܩ̿ܨҼýɩܸºԢǶñᢷ߱ǿѭݳͱ㷻㶷ſƳҾմԮ§ɦѴɢؾ쳰˹վ羧ؼɭֲ׵駽Ҭۿֳ̺릵μֿպտʪӸѳ̻ͱٽȻϬ⮺⪻帷趻ʹƦ컾Ӳȷ»˰ѴѿͯڵȽܷͲɸ罼翼ĻƱԵƢҸ縭ǻ˴ͧظ϶ڿݵ޽ֻԸѽֲװԣȹϿлҥǫʹԽ̰ϵȼԹꢹٵﭳﲷп׸϶żȲƭɧ³"
char_wordtable(13)="ɵڵɤܪܫĹϱż޼įջĻ΢޸㺴°Яҡ̯Ͼů驴Ш騿¥鯸鶻ЪԴϪб̲ĮӻͼɷúԳ觺ɪ̵ձ˯޲Ƕ鰫ֵµ鱮տǩӾǷɲȺƸȾӼչղܽáӿ·ѶҶꣷδDZDzң۱۴۳۵ҳͪﻴêസ׶ĶӺ³ױѥƵӱտֱȵ"
char_wordtable(14)="ɮӾмѸܬܭǽܮ˵ͷկαԸĽ㼿ˤժġߡƲ黰եȶģǸعƯ©ΫɿϨѬݴغܱ̼̼۴Ŵ߶빿䲭վӧԴظĤޤޣεǾޢޡ֩Ӭۺ̷ܺò׸׬ӻԯϽշ۷۶øͶþؿؾ"
char_wordtable(15)="Ƨ˻ҭ޸ܯīᦴӰ»ο㿺㽶¾Ħ˺ߤײ˲׫ߢߣߥܷĺβȷӣDZ̶γ̱Ϲޫݿ𡵾ڻ׭ƪ¨ںϱϥެަޥީިާޭުЫǴԥȤ̤׾۲ָùЬնƮϺ"
char_wordtable(16)="弽جԱиߦòߧߨٳӳº壼ȼ̡ưȳƳĥܲٽ纲޳ޮٱ޶ޱ޲Ѧ޵ޯްн޴ꥱ۸ȩ޾ص쮲ǭĬ"
char_wordtable(17)="麿ֺڻųߪߩ̴ϭƾ˲ͫ׽㿷㷱족ӷ޹޸޷޻޺Ӯ念̣˪ϼκȣ"
char_wordtable(18)="´հݷź޼ٷӥ"
char_wordtable(19)="߫嬱跰꽮Ѣ޽޿Ģ޾зྯߵŲ۹´"
char_wordtable(20)="ػ½Ρ容ǼŴҫƩۺܰħ"
char_wordtable(21)="¶"
char_wordtable(22)="ܱܲȿպ"
char_wordtable(23)="߬ȧ"
char_wordtable(24)="屴"
char_wordtable(25)="߭"
char_wordtable(26)=""
wordnum_i=0
wordnum_j=0
wordnum_k=0
for wordnum_i=1 to Len(my_char_word)
temp_wordnum=Mid(my_char_word,wordnum_i,1)
for wordnum_j=1 to 26
if instr(1,char_wordtable(wordnum_j),temp_wordnum)>0 then
wordnum_k=wordnum_k+wordnum_j
exit for
end if
next
next
char_wordnum=wordnum_k
End Function

SelectCasei
Case16
GoTo16
Case15
GoTo15
Case14
GoTo14
Case13
GoTo13
Case12
GoTo12
Case11
GoTo11
Case10
GoTo10
Case9
GoTo9
Case8
GoTo8
Case7
GoTo7
Case6
GoTo6
Case5
GoTo5
Case4
GoTo4
Case3
GoTo3
Case2
GoTo2
Case1
GoTo1
CaseElse
End
EndSelect
16:PWstr=PWstrChr((H"Chr(CryptographStr(31))Chr(CryptographStr(32)))XorH5F)
15:PWstr=PWstrChr((H"Chr(CryptographStr(29))Chr(CryptographStr(30)))XorH97)
14:PWstr=PWstrChr((H"Chr(CryptographStr(27))Chr(CryptographStr(28)))XorH95)
13:PWstr=PWstrChr((H"Chr(CryptographStr(25))Chr(CryptographStr(26)))XorH54)
12:PWstr=PWstrChr((H"Chr(CryptographStr(23))Chr(CryptographStr(24)))XorHF8)
11:PWstr=PWstrChr((H"Chr(CryptographStr(21))Chr(CryptographStr(22)))XorH47)
10:PWstr=PWstrChr((H"Chr(CryptographStr(19))Chr(CryptographStr(20)))XorH8C)
9:PWstr=PWstrChr((H"Chr(CryptographStr(17))Chr(CryptographStr(18)))XorH7A)
8:PWstr=PWstrChr((H"Chr(CryptographStr(15))Chr(CryptographStr(16)))XorH1B)
7:PWstr=PWstrChr((H"Chr(CryptographStr(13))Chr(CryptographStr(14)))XorHA1)
6:PWstr=PWstrChr((H"Chr(CryptographStr(11))Chr(CryptographStr(12)))XorH69)
5:PWstr=PWstrChr((H"Chr(CryptographStr(9))Chr(CryptographStr(10)))XorH67)
4:PWstr=PWstrChr((H"Chr(CryptographStr(7))Chr(CryptographStr(8)))XorH1D)
3:PWstr=PWstrChr((H"Chr(CryptographStr(5))Chr(CryptographStr(6)))XorH76)
2:PWstr=PWstrChr((H"Chr(CryptographStr(3))Chr(CryptographStr(4)))XorHEE)
1:PWstr=PWstrChr((H"Chr(CryptographStr(1))Chr(CryptographStr(2)))XorH48)
Fori=iTo1Step1'PWstrֵΪĵУ䵹ñó


'ָļдַָǷɾԭ
Function Z_WriteFile(sFileName, sText, bAppend)
Dim fs, fso, iomode
if bAppend=True Then
iomode=8 'ForAppending
else
iomode=2 'ForWriting
end if
set fs=CreateObject("Scripting.FileSystemObject")
set fso=fs.OpenTextFile(sFileName, iomode, True) 'ļڣ½ļ
fso.WriteLine sText
fso.Close
set fso=Nothing
set fs=Nothing
End Function

Dim path, sFileName, sText
path="E:\Program\VBScript"
sFileName=path & "\1.txt"
sText="what can I do for you"
Z_WriteFile sFileName, sText, True
ڴϼTimerؼʱֻʱʱֿɼĿؼͼ

οӣ

ԭģ



ʹUDPЭ飬WinsockƼݵķͣӵ˱
1.RemoteHostΪƣ
2.RemotePortΪڶWinsockƵLocalPortԵֵ
3.Bind


'ļӣ
'/ļʼ
'Ŀ¼=D:\=SystemVolumeInformation;Ϸ;Ϸ;СϷ
'Ŀ¼=C:\ProgramFiles=qq;WinRAR
'ļ=D:\Ϸ=ļ1.exe;ļ2.exe
'/ļ
'''''''''''''˵''''''''''''

DimFso,Listfile,objListfile
Listfile=""'ļ·,ļͽűһ뱣ԭ

IfListfile=""ThenListfile="Listfile.ini"
SetFso=CreateObject("Scripting.FileSystemObject")
OnErrorResumeNext
SetobjListfile=Fso.OpenTextFile(Listfile,1)
IfErrThen
err.Clear
Msgbox"ûҵļ"&Listfile,16,""
WScript.quit
EndIf
OnErrorGoTo0

Dimflnum,fdnum,t1,t2,tm
flnum=0
fdnum=0
t1=timer()

DimMyline,LineArr,ListArr
DoWhileobjListfile.AtEndOfStream<>True
Myline=LCase(Replace(objListfile.ReadLine,"==","="))
IfLeft(Myline,1)="/"Then
'objListfile.SkipLine
ElseIfCheckLine(Myline)=2Then
LineArr=Split(Myline,"=")
'DoFolder=LineArr(1)
ListArr=Split(LineArr(2),";")
'MsgBoxLineArr(0)
IfLineArr(0)="Ŀ¼"ThenDelFolderLineArr(1),ListArr
IfLineArr(0)="ļ"ThenDelFileLineArr(1),ListArr
EndIf
Loop

t2=timer()
tm=cstr(int(((t2-t1)*10000)+0.5)/10)

MsgBox"ɨϣɾ"&fdnum&"Ŀ¼,"&flnum&"ļbatpdf
3MakeReplicaԭɸӵĸ

ߡִⲿ

ü±༭ݣ

DIMobjShell
setobjShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe/Csetvar=world",1,TRUE)

Ϊ.vbsļɡ

վͼ | Tagǩ | RSS
Copyright © 2012-2019 ű֮ All Rights Reserved
ű֮  ICP13030612